//
-// RMAC - Reboot's Macro Assembler for all Atari computers
+// RMAC - Renamed Macro Assembler for all Atari computers
// TOKEN.H - Token Handling
-// Copyright (C) 199x Landon Dyer, 2011-2017 Reboot and Friends
+// Copyright (C) 199x Landon Dyer, 2011-2021 Reboot and Friends
// RMAC derived from MADMAC v1.07 Written by Landon Dyer, 1986
// Source utilised with the kind permission of Landon Dyer
//
#define SRC_IREPT 2 // Input source is IREPT
// Macros
-#define INOBJ struct _inobj
-#define IUNION union _iunion
-#define IFILE struct _incldfile
-#define IMACRO struct _imacro
-#define IREPT struct _irept
-#define IFENT struct _ifent
+#define INOBJ struct _inobj
+#define IUNION union _iunion
+#define IFILE struct _incldfile
+#define TOKENSTREAM struct _tokenstream
+#define IMACRO struct _imacro
+#define IREPT struct _irept
+#define IFENT struct _ifent
// Tunable definitions
#define LNSIZ 1024 // Maximum size of a line of text
-#define TOKBUFSIZE 400 // Size of token-line buffer
+#define TOKBUFSIZE 4096 // Size of token-line buffer
#define QUANTUM 4096L // # bytes to eat at a time from a file
#define LNBUFSIZ (QUANTUM*2) // Size of file's buffer
-#define KWSIZE 7 // Maximum size of keyword in kwtab.h
+#define KWSIZE 10 // Maximum size of keyword in kwtab.h
// (Normally) non-printable tokens
#define COLON ':' // : (grumble: GNUmacs hates ':')
#define CONST 'a' // CONST <value>
+#define FCONST 'r' // Floating CONST <value>
#define ACONST 'A' // ACONST <value> <attrib>
#define STRING 'b' // STRING <address>
#define STRINGA8 'S' // Atari 800 internal STRING <address>
#define DEQUALS 'g' // ==
#define SET 0x95 // Set
#define REG 'R' // Reg
-#define EQUREG 0x94 // equreg
+#define EQUREG 'U' // equreg (must be synchronised with the equate in kw.tab)
#define CCDEF 0xB7 // ccdef
#define DCOLON 'h' // ::
#define GE 'i' // >=
#define DOTQ 'Q' // .q or .Q (essentially an alias for P)
#define DOTS 'S' // .s or .S (FPU Single)
#define ENDEXPR 'E' // End of expression
+#define UNLT 0x81 // Unary '<' (low byte)
+#define UNGT 0x82 // Unary '>' (high byte)
// ^^ operators
#define CR_DEFINED 'p' // ^^defined - is symbol defined?
#define CR_TIME 'x' // ^^time - DOS format time
#define CR_DATE 'y' // ^^date - DOS format date
#define CR_ABSCOUNT 'z' // ^^abscount - count the number of bytes
- // defined in curent .abs section
+ // defined in current .abs section
+#define CR_FILESIZE 'F' // ^^filesize - return the size in bytes of a file
// Character Attributes
#define ILLEG 0 // Illegal character (unused)
char ifbuf[LNBUFSIZ]; // Line buffer
};
-#define TOKENSTREAM struct _tokenstream
+// Consts for maximums in TOKENSTREAM
+#define TS_MAXTOKENS 64 // 32 ought to be enough for anybody (including XiA!)
+#define TS_MAXSTRINGS 32 // same for attached strings
+#define TS_MAXARGS 20 // Assume no more than 20 arguments in an invocation
+
TOKENSTREAM {
- TOKEN token[32]; // 32 ought to be enough for anybody (including XiA!)
- char * string[32]; // same for attached strings
+ TOKEN token[TS_MAXTOKENS];
+ char * string[TS_MAXSTRINGS];
};
// Information about a macro invocation
LONG im_olduniq; // Old value of 'macuniq'
SYM * im_macro; // Pointer to macro we're in
char im_lnbuf[LNSIZ]; // Line buffer
- TOKENSTREAM argument[20]; // Assume no more than 20 arguments in an invocation
+ TOKENSTREAM argument[TS_MAXARGS];
};
// Information about a .rept invocation
IREPT {
LLIST * ir_firstln; // Pointer to first line
LLIST * ir_nextln; // Pointer to next line
- VALUE ir_count; // Repeat count (decrements)
+ uint32_t ir_count; // Repeat count (decrements)
+ uint32_t lineno; // Repeat line number (Convert this to global instead of putting it here?)
+};
+
+// File record, used to maintain a list of every include file ever visited
+#define FILEREC struct _filerec
+FILEREC
+{
+ FILEREC * frec_next;
+ char * frec_name;
};
// Exported variables
extern int lnsave;
-extern uint16_t curlineno;
+extern uint32_t curlineno;
extern char * curfname;
extern WORD cfileno;
extern TOKEN * tok;
extern INOBJ * cur_inobj;
extern int mjump_align;
extern char * string[];
-int optimizeOff;
+extern int optimizeOff;
+extern FILEREC * filerec;
// Exported functions
int include(int, char *);
int fpop(void);
int d_goto(WORD);
INOBJ * a_inobj(int);
+void DumpToken(TOKEN);
void DumpTokenBuffer(void);
#endif // __TOKEN_H__