Project/Real_code/gnu/gawk-3.1.3/main.c
static void
init_vars()
{
	register const struct varinit *vp;

	for (vp = varinit; vp->name; vp++) {
		*(vp->spec) = install((char *) vp->name,
		  node(vp->strval == NULL ? make_number(vp->numval)
				: make_string((char *) vp->strval,
					strlen(vp->strval)),
		       vp->type, (NODE *) NULL));
		if (vp->assign)
			(*(vp->assign))();
	}
}
/* init_vars --- actually initialize everything in the symbol table */
actually initialize everything in the symbol table
actually initialize everything in the symbol table
static void
init_vars()
{
	register const struct varinit *vp;
	for (vp = varinit; vp->name; vp++) {
		*(vp->spec) = install((char *) vp->name,
		  node(vp->strval == NULL ? make_number(vp->numval)
				: make_string((char *) vp->strval,
					strlen(vp->strval)),
		       vp->type, (NODE *) NULL));
		if (vp->assign)
			(*(vp->assign))();
	}
}
static void init_vars ( ) { register const struct varinit * vp ; for ( vp = varinit ; vp -> name ; vp ++ ) { * ( vp -> spec ) = install ( ( char * ) vp -> name , node ( vp -> strval == NULL ? make_number ( vp -> numval ) : make_string ( ( char * ) vp -> strval , strlen ( vp -> strval ) ) , vp -> type , ( NODE * ) NULL ) ) ; if ( vp -> assign ) ( * ( vp -> assign ) ) ( ) ; } }
init_vars --- actually initialize everything in the symbol table
init_vars --- actually initialize everything in the symbol table