|
|
1.1 root 1: #include <stdio.h>
2: #include "1.defs.h"
3: #include "1.incl.h"
4: #include "def.h"
5:
6:
7: prog_init()
8: {
9: endline = endcom = 0; endchar = -1;
10: comchar = -1;
11: graph = challoc(sizeof(*graph) * maxnode);
12: }
13:
14: routinit()
15: {
16: graf_init();
17: progtype = !sub;
18: routbeg = endline + 1;
19: rtnbeg = endchar + 1;
20: nameline = 0;
21: stflag = UNDEFINED;
22: }
23: line_init()
24: {
25: struct lablist *makelab();
26: freelabs();
27: newlab = linelabs = makelab(0L);
28: flag = counter = nlabs = lswnum = swptr = p1 = 0;
29: p3 = 5;
30: endcom = endline;
31: comchar = endchar;
32: begline = endline + 1; begchar = endchar + 1;
33: reflab = endlab = errlab = 0;
34: r1 = r2 = 0;
35: }
36: graf_init()
37: {
38: int arctype[3]; long arclab[3];
39: nodenum = 0;
40: doptr = UNDEFINED;
41: retvert = stopvert = UNDEFINED;
42: ENTLST = FMTLST = 0;
43:
44:
45: arctype[0] = -2; arclab[0] = implicit;
46: START = makenode(DUMVX,FALSE,FALSE,implicit,1,arctype,arclab);
47: }
48:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.