1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
with Ada.Text_IO; use Ada.Text_IO;
with Ada.Strings.Fixed; use Ada.Strings.Fixed;
procedure Ghdlversion is
Line : String (1 .. 128);
Len : Natural;
Pos : Natural;
E : Natural;
begin
loop
exit when End_Of_File;
Get_Line (Line, Len);
-- Search GHDL
Pos := Index (Line (1 .. Len), "GHDL ");
if Pos /= 0 then
Pos := Pos + 5;
E := Pos;
while Line (E) in '0' .. '9'
or Line (E) in 'a' .. 'z'
or Line (E) = '.'
loop
exit when E = Len;
E := E + 1;
end loop;
Put_Line ("!define VERSION """ & Line (Pos .. E - 1) & """");
return;
end if;
end loop;
end Ghdlversion;
|
