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