1 #ifndef lint 2 static char sccsid[] = "@(#)1.init.c 4.1 (Berkeley) 02/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 53