blob: d2f1c28be71ce38d88a1a79086379e50c91f40de (
plain)
pre { line-height: 125%; margin: 0; }
td.linenos pre { color: #000000; background-color: #f0f0f0; padding: 0 5px 0 5px; }
span.linenos { color: #000000; background-color: #f0f0f0; padding: 0 5px 0 5px; }
td.linenos pre.special { color: #000000; background-color: #ffffc0; padding: 0 5px 0 5px; }
span.linenos.special { color: #000000; background-color: #ffffc0; padding: 0 5px 0 5px; }
.highlight .hll { background-color: #ffffcc }
.highlight { background: #ffffff; }
.highlight .c { color: #888888 } /* Comment */
.highlight .err { color: #a61717; background-color: #e3d2d2 } /* Error */
.highlight .k { color: #008800; font-weight: bold } /* Keyword */
.highlight .ch { color: #888888 } /* Comment.Hashbang */
.highlight .cm { color: #888888 } /* Comment.Multiline */
.highlight .cp { color: #cc0000; font-weight: bold } /* Comment.Preproc */
.highlight .cpf { color: #888888 } /* Comment.PreprocFile */
.highlight .c1 { color: #888888 } /* Comment.Single */
.highlight .cs { color: #cc0000; font-weiwith 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;
