managed to change h2-scheme to a generic package

This commit is contained in:
2014-01-09 15:32:36 +00:00
parent 8f2efa17f8
commit 87bebc0fdb
10 changed files with 656 additions and 490 deletions

17
h2/lib/ascii.awk Normal file
View File

@ -0,0 +1,17 @@
BEGIN {
printf ("-- Generated with ascii.txt and ascii.awk\n");
printf ("-- Run qseawk -f ascii.awk ascii.txt > h2-ascii.ads for regeneration\n\n");
printf ("generic\n\ttype Character_Type is (<>);\npackage H2.Ascii is\n\n");
}
{
t = sprintf ("%c", NR - 1);
if (str::isprint(t)) t = " -- " t;
else t="";
printf ("\t%-20s: constant Character_Type := Character_Type'Val(%d);%s\n", $1, NR - 1, t);
}
END {
printf ("\nend H2.Ascii;\n");
}