2016-11-27 10:37:25 +00:00
|
|
|
#include <stdio.h>
|
|
|
|
#include <stdlib.h>
|
|
|
|
#include <stdarg.h>
|
2016-11-27 19:28:19 +00:00
|
|
|
#include <string.h>
|
2016-11-27 10:58:59 +00:00
|
|
|
#include <unistd.h>
|
2016-11-27 19:28:19 +00:00
|
|
|
#include <em.h>
|
2016-12-29 17:10:21 +00:00
|
|
|
#include "astring.h"
|
2016-11-27 10:37:25 +00:00
|
|
|
|
|
|
|
#define NCPS 8 /* chars per symbol */
|
|
|
|
#define HSHSIZ 400 /* hash table size */
|
|
|
|
#define SWSIZ 230 /* switch table size */
|
|
|
|
#define CMSIZ 40 /* symbol stack size */
|
|
|
|
#define SSIZE 20 /* operator and precedence stack size */
|
|
|
|
#define OSSIZ 300*8 /* space for expression tree */
|
|
|
|
|
|
|
|
#define EOS 04 /* end of string marker */
|
|
|
|
|
|
|
|
/*
|
|
|
|
* Holds a B symbol.
|
|
|
|
* class is one of the storage classes below.
|
|
|
|
* offset is used depending on class.
|
|
|
|
*/
|
|
|
|
struct hshtab {
|
|
|
|
int class;
|
|
|
|
int offset;
|
|
|
|
int dim;
|
|
|
|
struct hshtab *next;
|
|
|
|
char name[NCPS+1];
|
|
|
|
};
|
|
|
|
|
|
|
|
struct tnode {
|
|
|
|
int op;
|
|
|
|
int value;
|
|
|
|
struct tnode *tr1;
|
|
|
|
struct tnode *tr2;
|
|
|
|
};
|
|
|
|
|
|
|
|
struct swtab {
|
|
|
|
int swlab;
|
|
|
|
int swval;
|
|
|
|
};
|
|
|
|
|
2016-11-27 10:58:59 +00:00
|
|
|
extern int wordsize;
|
2016-12-29 17:10:21 +00:00
|
|
|
extern const char* modulename;
|
2020-09-14 20:38:01 +00:00
|
|
|
extern int paramsize;
|
|
|
|
extern struct hshtab hshtab[HSHSIZ];
|
|
|
|
extern int hshused;
|
2022-07-16 17:40:11 +00:00
|
|
|
extern int ateof;
|
2020-09-14 20:38:01 +00:00
|
|
|
extern int peekc;
|
|
|
|
extern const char* ctab;
|
|
|
|
extern struct hshtab *bsym;
|
|
|
|
extern struct hshtab *paraml, *parame;
|
|
|
|
extern int cval;
|
|
|
|
extern int isn;
|
|
|
|
extern char symbuf[NCPS+1];
|
|
|
|
extern FILE *sbufp;
|
|
|
|
extern int stack;
|
|
|
|
extern struct tnode **cp;
|
|
|
|
extern int *space;
|
|
|
|
extern int ospace[OSSIZ];
|
|
|
|
extern int retlab;
|
|
|
|
extern int nerror;
|
|
|
|
extern struct swtab swtab[SWSIZ];
|
|
|
|
extern struct swtab *swp;
|
|
|
|
extern int deflab;
|
2016-11-27 10:37:25 +00:00
|
|
|
extern int contlab;
|
|
|
|
extern int brklab;
|
|
|
|
|
|
|
|
extern int opdope[];
|
|
|
|
extern int line;
|
|
|
|
extern int peeksym, peeksym2;
|
|
|
|
|
2020-09-14 20:38:01 +00:00
|
|
|
extern void error(char *s, ...);
|
|
|
|
extern void printtoken(int tok, FILE *out);
|
|
|
|
extern struct tnode * block(int op, int value, struct tnode *tr1, struct tnode *tr2);
|
|
|
|
extern void rcexpr(struct tnode *tr);
|
|
|
|
extern void cbranch(struct tnode *t, int lab);
|
|
|
|
extern void jump(int lab);
|
|
|
|
extern void fnlabel(int l);
|
|
|
|
extern void tonativeaddr(void);
|
|
|
|
extern void fromnativeaddr(void);
|
|
|
|
extern char* manglename(char* name, char prefix);
|
2016-11-27 10:37:25 +00:00
|
|
|
|
|
|
|
#define EOFC 0
|
|
|
|
#define SEMI 1
|
|
|
|
#define LBRACE 2
|
|
|
|
#define RBRACE 3
|
|
|
|
#define LBRACK 4
|
|
|
|
#define RBRACK 5
|
|
|
|
#define LPARN 6
|
|
|
|
#define RPARN 7
|
|
|
|
#define COLON 8
|
|
|
|
#define COMMA 9
|
2016-12-29 17:10:21 +00:00
|
|
|
#define HASH 10
|
2016-11-27 10:37:25 +00:00
|
|
|
|
|
|
|
#define MCALL 15
|
|
|
|
#define CALL 16
|
|
|
|
#define DECBEF 17
|
|
|
|
#define INCBEF 18
|
|
|
|
#define DECAFT 19
|
|
|
|
#define INCAFT 20
|
|
|
|
#define EXCLA 21
|
|
|
|
#define NEG 22
|
|
|
|
#define AMPER 23
|
|
|
|
#define STAR 24
|
|
|
|
#define QUEST 25
|
2017-01-01 17:40:06 +00:00
|
|
|
#define NOT 26
|
2016-11-27 10:37:25 +00:00
|
|
|
|
|
|
|
#define PLUS 30
|
|
|
|
#define MINUS 31
|
|
|
|
#define MOD 32
|
|
|
|
#define TIMES 33
|
|
|
|
#define DIVIDE 34
|
|
|
|
#define OR 35
|
|
|
|
#define AND 36
|
|
|
|
#define LSHIFT 37
|
|
|
|
#define RSHIFT 38
|
|
|
|
#define EQUAL 39
|
|
|
|
#define NEQUAL 40
|
|
|
|
#define LESSEQ 41
|
|
|
|
#define LESS 42
|
|
|
|
#define GREATEQ 43
|
|
|
|
#define GREAT 44
|
2016-12-31 17:36:12 +00:00
|
|
|
#define EOR 45
|
2016-11-27 10:37:25 +00:00
|
|
|
|
|
|
|
#define ASSIGN 49
|
|
|
|
#define ASPLUS 50
|
|
|
|
#define ASMINUS 51
|
|
|
|
#define ASMOD 52
|
|
|
|
#define ASTIMES 53
|
|
|
|
#define ASDIV 54
|
|
|
|
#define ASOR 55
|
|
|
|
#define ASAND 56
|
|
|
|
#define ASLSH 57
|
|
|
|
#define ASRSH 58
|
|
|
|
#define ASEQUAL 59
|
|
|
|
#define ASNEQL 60
|
|
|
|
#define ASLEQ 61
|
|
|
|
#define ASLESS 62
|
|
|
|
#define ASGTQ 63
|
|
|
|
#define ASGREAT 64
|
2016-12-31 17:36:12 +00:00
|
|
|
#define ASEOR 65
|
2016-11-27 10:37:25 +00:00
|
|
|
|
2016-12-31 17:36:12 +00:00
|
|
|
#define CON 70
|
|
|
|
#define STRING 71
|
|
|
|
#define NAME 72
|
|
|
|
#define KEYW 73
|
2016-11-27 10:37:25 +00:00
|
|
|
|
|
|
|
#define SQUOTE 121
|
|
|
|
#define DQUOTE 122
|
|
|
|
#define NEWLN 123
|
|
|
|
#define SPACE 124
|
|
|
|
#define LETTER 125
|
|
|
|
#define DIGIT 126
|
|
|
|
#define UNKN 127
|
|
|
|
|
|
|
|
#define SEOF 200
|
|
|
|
|
|
|
|
/* storage classes */
|
|
|
|
#define AUTO 1
|
|
|
|
#define EXTERN 2
|
|
|
|
#define INTERN 3
|
|
|
|
#define ARG 4
|
|
|
|
#define KEYWF 5
|
|
|
|
|
|
|
|
/* keywords */
|
|
|
|
#define CASE 3
|
|
|
|
#define IF 4
|
|
|
|
#define ELSE 5
|
|
|
|
#define WHILE 6
|
|
|
|
#define SWITCH 7
|
|
|
|
#define GOTO 8
|
|
|
|
#define RETURN 9
|
|
|
|
#define DEFAULT 10
|
|
|
|
#define BREAK 11
|
|
|
|
|