Книга: UNIX — универсальная среда программирования

3.7.12 hoc.h

3.7.12 hoc.h
typedef struct Symbol { /* symbol table entry */
 char *name;
 short type;
 union {
  double val; /* VAR */
  double (*ptr)(); /* BLTIN */
  int (*defn)(); /* FUNCTION, PROCEDURE */
  char *str; /* STRING */
 } u;
 struct Symbol *next; /* to link to another */
} Symbol;
Symbol *install(), *lookup();
typedef union Datum { /* interpreter stack type */
 double val;
 Symbol *sym;
} Datum;
extern Datum pop();
extern eval(), add(), sub(), mul(), div(), negate(), power();
typedef int (*Inst)();
#define STOP (Inst)0
extern Inst *progp, *progbase, prog[], *code();
extern assign(), bltin(), varpush(), constpush(), print(), varread();
extern prexpr(), prstr();
extern gt(), lt(), eq(), ge(), le(), ne(), and(), or(), not();
extern ifcode(), whilecode(), call(), arg(), argassign();
extern funcret(), procret();

Оглавление книги