ref: 12e226ac6798412271020d42645f69138715c519
dir: /utils/acid/acid.h/
/* acid.h */ enum { Eof = -1, Strsize = 4096, Hashsize = 128, Maxarg = 512, NFD = 100, Maxproc = 50, Maxval = 10, Mempergc = 1024*1024, }; #pragma varargck type "L" void typedef struct Node Node; typedef struct String String; typedef struct Lsym Lsym; typedef struct List List; typedef struct Store Store; typedef struct Gc Gc; typedef struct Strc Strc; typedef struct Rplace Rplace; typedef struct Ptab Ptab; typedef struct Value Value; typedef struct Type Type; typedef struct Frtype Frtype; Extern int kernel; Extern int remote; Extern int rdebug; Extern int remfd; Extern int protodebug; Extern int text; Extern int silent; Extern Fhdr fhdr; Extern int line; Extern Biobuf* bout; Extern Biobuf* io[32]; Extern int iop; Extern char symbol[Strsize]; Extern int interactive; Extern Node* code; Extern int na; Extern int wtflag; Extern Map* cormap; Extern Map* symmap; Extern Lsym* hash[Hashsize]; Extern long dogc; Extern Rplace* ret; Extern char* filename; Extern char* aout; Extern int gotint; Extern long flen; Extern Gc* gcl; Extern int stacked; Extern jmp_buf err; Extern Node* prnt; Extern Node* fomt; Extern List* tracelist; Extern int initialising; Extern int quiet; extern void (*expop[])(Node*, Node*); #define expr(n, r) (r)->nstore.comt=0; (*expop[(n)->op])(n, r); enum { TINT, TFLOAT, TSTRING, TLIST, TCODE, }; struct Type { Type* next; int offset; char fmt; char depth; Lsym* type; Lsym* tag; Lsym* base; }; struct Frtype { Lsym* var; Type* type; Frtype* next; }; struct Ptab { int pid; int ctl; }; Extern Ptab ptab[Maxproc]; struct Rplace { jmp_buf rlab; Node* stak; Node* val; Lsym* local; Lsym** tail; }; struct Gc { char gcmark; Gc* gclink; }; struct Store { char fmt; Type* comt; union { vlong sival; double sfval; String* sstring; List* sl; Node* scc; } u0; }; struct List { Gc lgc; List* next; char type; Store lstore; }; struct Value { char set; char type; Store vstore; Value* pop; Lsym* scope; Rplace* ret; }; struct Lsym { char* name; int lexval; Lsym* hash; Value* v; Type* lt; Node* proc; Frtype* local; void (*builtin)(Node*, Node*); }; struct Node { Gc ngc; char op; char type; Node* left; Node* right; Lsym* sym; Store nstore; }; #define ZN (Node*)0 struct String { Gc sgc; char *string; int len; }; List* addlist(List*, List*); List* al(int); Node* an(int, Node*, Node*); void append(Node*, Node*, Node*); int boolx(Node*); void build(Node*); void call(char*, Node*, Node*, Node*, Node*); void checkqid(int, int); void cmd(void); Node* con(int); List* construct(Node*); void ctrace(int); void decl(Node*); void defcomplex(Node*, Node*); void deinstall(int); void delete(List*, int n, Node*); void detach(void); void dostop(int); Lsym* enter(char*, int); void error(char*, ...); void execute(Node*); void fatal(char*, ...); ulong findframe(ulong); void flatten(Node**, Node*); void gc(void); char* getstatus(int); void* gmalloc(long); void indir(Map*, ulong, char, Node*); void install(int); void installbuiltin(void); void kinit(void); int Lfmt(Fmt*); int listcmp(List*, List*); int listlen(List*); List* listvar(char*, long); void loadmodule(char*); void loadvars(void); Lsym* look(char*); void ltag(char*); void setup_os_notify(void); void marklist(List*); Lsym* mkvar(char*); void msg(int, char*); void notes(int); int nproc(char**); void nthelem(List*, int, Node*); int numsym(char); void odot(Node*, Node*); int opentty(char*, int); void closetty(int); void pcode(Node*, int); void pexpr(Node*); int popio(void); void pstr(String*); void pushfile(char*); void pushstr(Node*); ulong raddr(char*); void readtext(char*); int remcondset(char, ulong); int remcondstartstop(int); int remget(struct segment*, ulong, long, char*, int); int remoteio(int, char*, char*, int); int remote_read(int, char*, int); int remote_write(int, char*, int); int remput(struct segment*, ulong, long, char*, int); void restartio(void); uvlong rget(Map*, char*); String *runenode(Rune*); char* runcmd(char*); int scmp(String*, String*); void setdbg_opt(char, int); int sendremote(int, char*); void sproc(int); String* stradd(String*, String*); String* strnode(char*); String* strnodlen(char*, int); char* mysystem(void); void trlist(Map*, uvlong, uvlong, Symbol*); void unwind(void); void userinit(void); void varreg(void); void varsym(void); char* waitfor(int); void whatis(Lsym*); void windir(Map*, Node*, Node*, Node*); void yyerror(char*, ...); int yylex(void); int yyparse(void); enum { ONAME, OCONST, OMUL, ODIV, OMOD, OADD, OSUB, ORSH, OLSH, OLT, OGT, OLEQ, OGEQ, OEQ, ONEQ, OLAND, OXOR, OLOR, OCAND, OCOR, OASGN, OINDM, OEDEC, OEINC, OPINC, OPDEC, ONOT, OIF, ODO, OLIST, OCALL, OCTRUCT, OWHILE, OELSE, OHEAD, OTAIL, OAPPEND, ORET, OINDEX, OINDC, ODOT, OLOCAL, OFRAME, OCOMPLEX, ODELETE, OCAST, OFMT, OEVAL, OWHAT, };