mirror of
https://github.com/ThomasDickey/mawk-snapshots.git
synced 2026-01-27 03:14:29 +00:00
106 lines
1.9 KiB
C
106 lines
1.9 KiB
C
/********************************************
|
|
bi_vars.c
|
|
copyright 2009-2013,2024, Thomas E. Dickey
|
|
copyright 1991-1992,1993, 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.
|
|
********************************************/
|
|
|
|
/*
|
|
* $MawkId: bi_vars.c,v 1.13 2024/08/25 17:47:59 tom Exp $
|
|
*/
|
|
|
|
#define Visible_CELL
|
|
#define Visible_STRING
|
|
#define Visible_SYMTAB
|
|
|
|
#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 const char *bi_var_names[NUM_BI_VAR] =
|
|
{
|
|
"NR",
|
|
"FNR",
|
|
"ARGC",
|
|
"FILENAME",
|
|
"OFS",
|
|
"ORS",
|
|
"RLENGTH",
|
|
"RSTART",
|
|
"SUBSEP"
|
|
#if USE_BINMODE
|
|
,"BINMODE"
|
|
#endif
|
|
};
|
|
|
|
/* insert the builtin vars in the hash table */
|
|
|
|
void
|
|
bi_vars_init(void)
|
|
{
|
|
register int i;
|
|
register SYMTAB *s;
|
|
|
|
for (i = 0; i < NUM_BI_VAR; i++) {
|
|
s = insert(bi_var_names[i]);
|
|
s->type = (char) ((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 USE_BINMODE
|
|
BINMODE->type = C_DOUBLE;
|
|
#endif
|
|
}
|
|
|
|
#ifdef NO_LEAKS
|
|
void
|
|
bi_vars_leaks(void)
|
|
{
|
|
int n;
|
|
|
|
for (n = 0; n < NUM_BI_VAR; ++n) {
|
|
switch (bi_vars[n].type) {
|
|
case C_STRING:
|
|
case C_STRNUM:
|
|
case C_MBSTRN:
|
|
free_STRING(string(&bi_vars[n]));
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
#endif
|