/******************************************** bi_vars.c copyright 1991, Michael D. Brennan This is a source file for mawk, an implementation of the AWK programming language. Mawk is distributed without warranty under the terms of the GNU General Public License, version 2, 1991. ********************************************/ /* $Log: bi_vars.c,v $ /* Revision 1.1.1.1 1993/03/21 09:45:37 cgd /* initial import of 386bsd-0.1 sources /* * Revision 5.1 91/12/05 07:55:38 brennan * 1.1 pre-release * */ /* bi_vars.c */ #include "mawk.h" #include "symtype.h" #include "bi_vars.h" #include "field.h" #include "init.h" #include "memory.h" /* the builtin variables */ CELL bi_vars[NUM_BI_VAR] ; /* the order here must match the order in bi_vars.h */ static char *bi_var_names[NUM_BI_VAR] = { "NR" , "FNR" , "ARGC" , "FILENAME" , "OFS" , "ORS" , "RLENGTH" , "RSTART" , "SUBSEP" #if MSDOS && NO_BINMODE==0 , "BINMODE" #endif } ; /* insert the builtin vars in the hash table */ void bi_vars_init() { register int i ; register SYMTAB *s ; for ( i = 0 ; i < NUM_BI_VAR ; i++ ) { s = insert( bi_var_names[i] ) ; s->type = i <= 1 ? ST_NR : ST_VAR ; s->stval.cp = bi_vars + i ; /* bi_vars[i].type = 0 which is C_NOINIT */ } s = insert("ENVIRON") ; s->type = ST_ENV ; /* set defaults */ FILENAME->type = C_STRING ; FILENAME->ptr = (PTR) new_STRING( "" ) ; OFS->type = C_STRING ; OFS->ptr = (PTR) new_STRING( " " ) ; ORS->type = C_STRING ; ORS->ptr = (PTR) new_STRING( "\n" ) ; SUBSEP->type = C_STRING ; SUBSEP->ptr = (PTR) new_STRING( "\034" ) ; NR->type = FNR->type = C_DOUBLE ; /* dval is already 0.0 */ #if MSDOS && NO_BINMODE==0 BINMODE->type = C_DOUBLE ; #endif }