contrib/one-true-awk/tran.c

72 	literal0 = setsymtab("0", "0", 0.0, NUM|STR|CON|DONTFREE, symtab);
74 	nullloc = setsymtab("$zero&null", "", 0.0, NUM|STR|CON|DONTFREE, symtab);
77 	fsloc = setsymtab("FS", " ", 0.0, STR|DONTFREE, symtab);
79 	RS = &setsymtab("RS", "\n", 0.0, STR|DONTFREE, symtab)->sval;
80 	OFS = &setsymtab("OFS", " ", 0.0, STR|DONTFREE, symtab)->sval;
81 	ORS = &setsymtab("ORS", "\n", 0.0, STR|DONTFREE, symtab)->sval;
82 	OFMT = &setsymtab("OFMT", "%.6g", 0.0, STR|DONTFREE, symtab)->sval;
83 	CONVFMT = &setsymtab("CONVFMT", "%.6g", 0.0, STR|DONTFREE, symtab)->sval;
84 	FILENAME = &setsymtab("FILENAME", "", 0.0, STR|DONTFREE, symtab)->sval;
85 	nfloc = setsymtab("NF", "", 0.0, NUM, symtab);
87 	nrloc = setsymtab("NR", "", 0.0, NUM, symtab);
89 	fnrloc = setsymtab("FNR", "", 0.0, NUM, symtab);
91 	SUBSEP = &setsymtab("SUBSEP", "\034", 0.0, STR|DONTFREE, symtab)->sval;
92 	rstartloc = setsymtab("RSTART", "", 0.0, NUM, symtab);
94 	rlengthloc = setsymtab("RLENGTH", "", 0.0, NUM, symtab);
96 	symtabloc = setsymtab("SYMTAB", "", 0.0, ARR, symtab);
106 	ARGC = &setsymtab("ARGC", "", (Awkfloat) ac, NUM, symtab)->fval;
107 	cp = setsymtab("ARGV", "", 0.0, ARR, symtab);
113 			setsymtab(temp, *av, atof(*av), STR|NUM, ARGVtab);
115 			setsymtab(temp, *av, 0.0, STR, ARGVtab);
125 	cp = setsymtab("ENVIRON", "", 0.0, ARR, symtab);
135 			setsymtab(*envp, p, atof(p), STR|NUM, ENVtab);
137 			setsymtab(*envp, p, 0.0, STR, ENVtab);
208 Cell *setsymtab(const char *n, const char *s, Awkfloat f, unsigned t, Array *tp)
214 		   dprintf( ("setsymtab found %p: n=%s s=\"%s\" f=%g t=%o\n",
233 	   dprintf( ("setsymtab set %p: n=%s s=\"%s\" f=%g t=%o\n",