/********************************************
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.
********************************************/
* Revision 5.1 91/12/05 07:55:38 brennan
/* 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
] = {
#if MSDOS && NO_BINMODE==0
/* insert the builtin vars in the hash table */
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 */
FILENAME
->type
= C_STRING
;
FILENAME
->ptr
= (PTR
) new_STRING( "" ) ;
OFS
->ptr
= (PTR
) new_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
;