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

enhanced rune.hawk with the string conversion feature

Browse Source
This commit is contained in:
hyung-hwan
2021-10-31 16:03:11 +00:00
parent c5b36d0678
commit 714309e044
6 changed files with 175 additions and 135 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
h2/lib2/rune.hawk
View File

@ -8,13 +8,14 @@ BEGIN {
printf ("package H2.Runes is\n\n");
#printf ("\tpragma Preelaborate (Runes);\n\n");
printf ("\tpackage P is\n");
printf ("\t\t\%-20s: constant Code := %d; -- Code'First\n", "EOF", -1);
}
{
t = sprintf ("%c", NR - 1);
if (str::isprint(t)) t = " -- " t;
else t="";
printf ("\t\t%-20s: constant := %d;%s\n", $1, NR-1, t);
printf ("\t\t%-20s: constant Code := %d;%s\n", $1, NR-1, t);
X[NR - 1] = $1;
}
@ -31,4 +32,19 @@ END {
printf ("\n");
printf ("\nend H2.Runes;\n");
if (STR !== @nil)
{
printf ("(");
for (j = 1; j <= length(STR); j++)
{
tmp = substr(STR, j, 1);
if (j > 1) printf (",");
printf ("R.V.%s", X[str::tocharcode(tmp)]);
}
printf (") -- %s", STR);
}
}