Atualizado docs. Implementado ops logicos.
[myPerl.git] / symtab.h
blob80faad353bfd5a5de68296ef5482220631293270
1 #ifndef __SYMTAB_H__
2 #define __SYMTAB_H__
4 typedef struct symtab {
5 char *name;
6 int offset;
7 int scope;
8 int addr;
9 int dim;
10 int size;
11 struct symtab *next;
12 } symtab_t;
14 /* defined in symtab.c */
15 extern symtab_t *symtab[];
17 /* defined in parser.y */
18 extern int scope;
20 void initsym(void);
21 symtab_t *putsym(char *name, int scope, int addr, int dim, int size);
22 symtab_t *getsym(char *name, int scope);
23 void scoperem(int scope);
25 #endif /* !__SYMTAB_H__ */