/*

* a small awk clone

*

* (C) 1989 Saeko Hirabauashi & Kouichi Hirabayashi

*

* Absolutely no warranty. Use this software with your own risk.

*

* Permission to use, copy, modify and distribute this software for any

* purpose and without fee is hereby granted, provided that the above

* copyright and disclaimer notice.

*

* This program was written to fit into 64K+64K memory of the Minix 1.2.

*/

/* lexical/parser tokens and executable statements */

#define FIRSTP 256

#define ARG 256

#define ARITH 257

#define ARRAY 258

#define ASSIGN 259

#define CALL 260

#define CAT 261

#define COND 262

#define DELETE 263

#define DO 264

#define ELEMENT 265

#define FIELD 266

#define FOR 267

#define FORIN 268

#define GETLINE 269

#define IF 270

#define IN 271

#define JUMP 272

#define MATHFUN 273

#define NULPROC 274

#define P1STAT 275

#define P2STAT 276

#define PRINT 277

#define PRINT0 278

#define STRFUN 279

#define SUBST 280

#define USRFUN 281

#define WHILE 282

#define LASTP 282

/* lexical token */

#define ADD 300 /* + */

#define ADDEQ 301 /* += */

#define AND 302 /* && */

#define BEGIN 303 /* BEGIN */

#define BINAND 304 /* & */

#define BINOR 305 /* | */

#define BREAK 306 /* break */

#define CLOSE 307 /* close */

#define CONTIN 308 /* continue */

#define DEC 309 /* -- */

#define DIV 310 /* / */

#define DIVEQ 311 /* /= */

#define ELSE 312 /* else */

#define END 313 /* END */

#define EOL 314 /* ; or '\n' */

#define EQ 315 /* == */

#define EXIT 316 /* exit */

#define FUNC 317 /* function */

#define GE 318 /* >= */

#define GT 319 /* > */

#define IDENT 320 /* identifier */

#define INC 321 /* ++ */

#define LE 322 /* <= */

#define LT 323 /* < */

#define MATCH 324 /* ~ */

#define MOD 325 /* % */

#define MODEQ 326 /* %= */

#define MULT 327 /* * */

#define MULTEQ 328 /* *= */

#define NE 329 /* != */

#define NEXT 330 /* next */

#define NOMATCH 331 /* !~ */

#define NOT 332 /* ! */

#define NUMBER 333 /* integer or floating number */

#define OR 334 /* || */

#define POWEQ 335 /* ^= */

#define POWER 336 /* ^ */

#define PRINTF 337 /* printf */

#define REGEXP 338 /* /REG/ */

#define RETURN 339 /* return */

#define SHIFTL 340 /* << */

#define SHIFTR 341 /* >> */

#define SPRINT 342 /* sprint */

#define SPRINTF 343 /* sprintf */

#define STRING 344 /* ".." */

#define SUB 345 /* - */

#define SUBEQ 346 /* -= */

#define SYSTEM 347 /* system */

#define UMINUS 348 /* - */

/* tokens in parser */

#define VALUE 400 /* value node */

#define INCDEC 401 /* ++, -- */

#define PRE 402 /* pre incre/decre */

#define POST 403 /* post incre/decre */

/* redirect in print(f) statement */

#define R_OUT 410 /* > */

#define R_APD 411 /* >> */

#define R_PIPE 412 /* | */

#define R_IN 413 /* < */

#define R_PIN 414 /* | getline */

#define R_POUT 415 /* print | */

/* function */

#define ATAN2 500 /* atan2 */

#define COS 501 /* cos */

#define EXP 502 /* exp */

#define INDEX 503 /* index */

#define INT 504 /* int */

#define LENGTH 505 /* length */

#define LOG 506 /* log */

#define RAND 507 /* rand */

#define RGSUB 508 /* gsub */

#define RMATCH 509 /* match */

#define RSUB 510 /* sub */

#define SIN 511 /* sin */

#define SPLIT 512 /* split */

#define SQRT 513 /* sqrt */

#define SRAND 514 /* srand */

#define SUBSTR 515 /* substr */

/* print(f) options */

#define FORMAT 1024 /* PRINTF, SPRINTF */

#define STROUT 2048 /* SPRINTF */

#define PRMASK 0x3ff /* ~(FORMAT|STROUT) */

/* node - used in parsed tree */

struct node {

int n_type; /* node type */

struct node *n_next; /* pointer to next node */

struct node *n_arg[1]; /* argument (variable length) */

};

typedef struct node NODE;

/* object cell */

struct cell {

int c_type; /* cell type */

char *c_sval; /* string value */

double c_fval; /* floating value */

};

typedef struct cell CELL;

/* cell type */

#define UDF 0 /* pass parameter */

#define VAR 1 /* variable */

#define NUM 2 /* number */

#define ARR 4 /* array */

#define STR 8 /* string */

#define REC 16 /* record */

#define FLD 32 /* filed */

#define PAT 64 /* pattern (compiled REGEXPR) */

#define BRK 128 /* break */

#define CNT 256 /* continue */

#define NXT 512 /* next */

#define EXT 1024 /* exit */

#define RTN 2048 /* return */

#define TMP 4096 /* temp cell */

#define POS 8192 /* argument position */

#define FUN 16384 /* function */

/* symbol cell - linked to symbol table */

struct symbol {

char *s_name;

CELL *s_val;

struct symbol *s_next;

};

typedef struct symbol SYMBOL;