|
|
1.1 root 1: #
2:
3: #define SRBHDR
4:
5: #define LOCAL static
6: #define TYPE typedef
7: #define STRUCT TYPE struct
8: #define UNION TYPE union
9: #define REG register
10:
11: #define IF if(
12: #define THEN ){
13: #define ELSE } else {
14: #define ELIF } else if (
15: #define FI }
16:
17: #define BEGIN {
18: #define END }
19: #define SWITCH switch(
20: #define IN ){
21: #define ENDSW }
22: #define FOR for(
23: #define WHILE while(
24: #define DO ){
25: #define OD }
26: #define REP do{
27: #define PER }while(
28: #define DONE );
29: #define LOOP for(;;){
30: #define POOL }
31:
32:
33: #define SKIP ;
34: #define DIV /
35: #define REM %
36: #define NEQ ^
37: #define ANDF &&
38: #define ORF ||
39:
40: #define TRUE (-1)
41: #define FALSE 0
42: #define LOBYTE 0377
43:
44: #define NL '\n'
45: #define SP ' '
46: #define TB '\t'
47: #define MAX(a,b) ((a)>(b)?(a):(b))
48:
49:
50: TYPE int INT;
51: TYPE long INT L_INT;
52: TYPE unsigned int POS;
53: TYPE unsigned short S_POS;
54: TYPE int VOID;
55: TYPE float REAL;
56: TYPE double L_REAL;
57: TYPE char BOOL;
58: TYPE char CHAR;
59: TYPE char *STRING;
60: TYPE char MSG[];
61: TYPE int (*FNVAR)();
62: TYPE FNVAR SIGARG; /*temp until unions work*/
63: TYPE int UFD;
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.