45 uchar	**FS;		/* initial field sep */
46 uchar	**RS;		/* initial record sep */
47 uchar	**OFS;		/* output field sep */
48 uchar	**ORS;		/* output record sep */
49 uchar	**OFMT;		/* output format for numbers */
53 uchar	**FILENAME;	/* current filename argument */
55 uchar	**SUBSEP;	/* subscript separator for a[i,j,k]; default \034 */
81 	recloc->nval = (uchar *)"$0";  in syminit()
86 	(void) setsymtab((uchar *)"0", (uchar *)"0", 0.0,  in syminit()
89 	nullloc = setsymtab((uchar *)"$zero&null", (uchar *)"", 0.0,  in syminit()
92 	FS = &setsymtab((uchar *)"FS", (uchar *)" ", 0.0,  in syminit()
94 	RS = &setsymtab((uchar *)"RS", (uchar *)"\n", 0.0,  in syminit()
96 	OFS = &setsymtab((uchar *)"OFS", (uchar *)" ", 0.0,  in syminit()
98 	ORS = &setsymtab((uchar *)"ORS", (uchar *)"\n", 0.0,  in syminit()
100 	OFMT = &setsymtab((uchar *)"OFMT", (uchar *)"%.6g", 0.0,  in syminit()
102 	FILENAME = &setsymtab((uchar *)"FILENAME", (uchar *)"-", 0.0,  in syminit()
104 	nfloc = setsymtab((uchar *)"NF", (uchar *)"", 0.0, NUM, symtab);  in syminit()
106 	nrloc = setsymtab((uchar *)"NR", (uchar *)"", 0.0, NUM, symtab);  in syminit()
108 	fnrloc = setsymtab((uchar *)"FNR", (uchar *)"", 0.0, NUM, symtab);  in syminit()
110 	SUBSEP = &setsymtab((uchar *)"SUBSEP", (uchar *)"\034", 0.0,  in syminit()
112 	rstartloc = setsymtab((uchar *)"RSTART", (uchar *)"", 0.0,  in syminit()
115 	rlengthloc = setsymtab((uchar *)"RLENGTH", (uchar *)"", 0.0,  in syminit()
118 	symtabloc = setsymtab((uchar *)"SYMTAB", (uchar *)"", 0.0, ARR, symtab);  in syminit()
119 	symtabloc->sval = (uchar *)symtab;  in syminit()
123 arginit(int ac, uchar *av[])  in arginit()
127 	uchar temp[11];  in arginit()
132 			(void) setsval(lookup((uchar *)"FILENAME", symtab),  in arginit()
137 	ARGC = &setsymtab((uchar *)"ARGC", (uchar *)"", (Awkfloat)ac,  in arginit()
139 	cp = setsymtab((uchar *)"ARGV", (uchar *)"", 0.0, ARR, symtab);  in arginit()
141 	cp->sval = (uchar *) ARGVtab;  in arginit()
155 envinit(uchar *envp[])  in envinit()
158 	uchar *p;  in envinit()
160 	cp = setsymtab((uchar *)"ENVIRON", (uchar *)"", 0.0, ARR, symtab);  in envinit()
162 	cp->sval = (uchar *) ENVtab;  in envinit()
164 		if ((p = (uchar *)strchr((char *)*envp, '=')) == NULL)  in envinit()
221 freeelem(Cell *ap, uchar *s)		/* free elem s from ap (i.e., ap["s"] */  in freeelem()
246 setsymtab(uchar *n, uchar *s, Awkfloat f, unsigned int t, Array *tp)  in setsymtab()
261 	p->sval = s ? tostring(s) : tostring((uchar *)"");  in setsymtab()
278 hash(uchar *s, int n)	/* form hash value for string s */  in hash()
311 lookup(uchar *s, Array *tp)	/* look for s in tp */  in lookup()
360 uchar *
361 setsval(Cell *vp, uchar *s)  in setsval()
409 uchar *
412 	uchar s[256];  in r_getsval()
443 uchar *
444 tostring(uchar *s)  in tostring()
446 	register uchar *p;  in tostring()
448 	p = (uchar *)malloc(strlen((char *)s)+1);  in tostring()
455 uchar *
456 qstring(uchar *s, int delim)	/* collect string up to delim */  in qstring()
458 	uchar *cbuf, *ret;  in qstring()