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: }