hyung-hwan/hcl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

improved h2-io-file a bit

Browse Source
This commit is contained in:
hyung-hwan
2014-06-21 16:31:49 +00:00
parent 31d4fb952d
commit 27cb59b41b
16 changed files with 750 additions and 367 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
h2/lib/ascii.awk
View File

@ -3,9 +3,12 @@
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");
printf ("\tpragma Preelaborate (Ascii);\n\n");
printf ("\tpackage Pos is\n");
printf ("generic\n");
printf ("\ttype Slim_Character is (<>);\n");
printf ("\ttype Wide_Character is (<>);\n");
printf ("package H2.Ascii is\n\n");
#printf ("\tpragma Preelaborate (Ascii);\n\n");
printf ("\tpackage Code is\n");
}
{
@ -17,10 +20,23 @@ BEGIN {
}
END {
printf ("\tend Pos;\n\n");
printf ("\tend Code;\n\n");
printf ("\tpackage Slim is\n");
for (i = 0; i < length(X); i++)
{
printf ("\t%-20s: constant Character_Type := Character_Type'Val(Pos.%s);\n", X[i], X[i]);
printf ("\t\t%-20s: constant Slim_Character := Slim_Character'Val(Code.%s);\n", X[i], X[i]);
}
printf ("\tend Slim;\n");
printf ("\n");
printf ("\tpackage Wide is\n");
for (i = 0; i < length(X); i++)
{
printf ("\t\t%-20s: constant Wide_Character := Wide_Character'Val(Code.%s);\n", X[i], X[i]);
}
printf ("\tend Wide;\n");
printf ("\nend H2.Ascii;\n");
}