Initial revision

This commit is contained in:
ceriel
1988-10-26 15:21:11 +00:00
parent a7a80689bf
commit 01252cb592
60 changed files with 11297 additions and 0 deletions

394
lang/pc/comp/char.c Normal file
View File

@@ -0,0 +1,394 @@
#include "class.h"
char tkclass[] = {
STGARB,
STGARB,
STGARB,
STGARB,
STGARB,
STGARB,
STGARB,
STGARB,
STGARB,
STSKIP,
STNL,
STNL,
STNL,
STSKIP,
STGARB,
STGARB,
STGARB,
STGARB,
STGARB,
STGARB,
STGARB,
STGARB,
STGARB,
STGARB,
STGARB,
STGARB,
STGARB,
STGARB,
STGARB,
STGARB,
STGARB,
STGARB,
STSKIP,
STGARB,
STGARB,
STGARB,
STGARB,
STGARB,
STGARB,
STSTR,
STSIMP,
STSIMP,
STSIMP,
STSIMP,
STSIMP,
STSIMP,
STCOMP,
STSIMP,
STNUM,
STNUM,
STNUM,
STNUM,
STNUM,
STNUM,
STNUM,
STNUM,
STNUM,
STNUM,
STCOMP,
STSIMP,
STCOMP,
STSIMP,
STCOMP,
STGARB,
STSIMP,
STIDF,
STIDF,
STIDF,
STIDF,
STIDF,
STIDF,
STIDF,
STIDF,
STIDF,
STIDF,
STIDF,
STIDF,
STIDF,
STIDF,
STIDF,
STIDF,
STIDF,
STIDF,
STIDF,
STIDF,
STIDF,
STIDF,
STIDF,
STIDF,
STIDF,
STIDF,
STSIMP,
STGARB,
STSIMP,
STSIMP,
STGARB,
STGARB,
STIDF,
STIDF,
STIDF,
STIDF,
STIDF,
STIDF,
STIDF,
STIDF,
STIDF,
STIDF,
STIDF,
STIDF,
STIDF,
STIDF,
STIDF,
STIDF,
STIDF,
STIDF,
STIDF,
STIDF,
STIDF,
STIDF,
STIDF,
STIDF,
STIDF,
STIDF,
STSIMP,
STGARB,
STSIMP,
STGARB,
STGARB,
STEOI,
};
char inidf[] = {
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
0,
0,
0,
0,
0,
0,
0,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
0,
0,
0,
0,
0,
0,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
0,
0,
0,
0,
0,
0,
};
char isdig[] = {
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
1,
1,
1,
1,
1,
1,
1,
1,
1,
1,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
};