-#include "object.h"
-
-int perm_verb_flag; // Permanently verbose, interactive mode
-int list_flag; // "-l" Listing flag on command line
-int verb_flag; // Be verbose about what's going on
-int as68_flag; // as68 kludge mode
-int glob_flag; // Assume undefined symbols are global
-int lsym_flag; // Include local symbols in object file
-int sbra_flag; // Warn about possible short branches
-int legacy_flag; // Do stuff like insert code in RISC assembler
-int obj_format; // Object format flag
-int debug; // [1..9] Enable debugging levels
-int err_flag; // '-e' specified
-int err_fd; // File to write error messages to
-int rgpu, rdsp; // Assembling Jaguar GPU or DSP code
-int list_fd; // File to write listing to
-int regbank; // RISC register bank
-int segpadsize; // Segment padding size
-int endian; // Host processor endianess
-char * objfname; // Object filename pointer
-char * firstfname; // First source filename
-char * cmdlnexec; // Executable name, pointer to ARGV[0]
-char * searchpath; // Search path for include files
-char defname[] = "noname.o"; // Default output filename
-
-
-//
-// Copy stuff around, return pointer to dest+count+1 (doesn't handle overlap)
-//
-char * copy(char * dest, char * src, LONG count)
-{
- while (count--)
- *dest++ = *src++;
-
- return dest;
-}
-
-
-//
-// Clear a region of memory
-//
-void clear(char * dest, LONG count)
-{
- while(count--)
- *dest++ = 0;
-}
-
-
-//
-// Check to see if the string is a keyword. Returns -1, or a value from the
-// 'accept[]' table
-//
-int kmatch(char * p, int * base, int * check, int * tab, int * accept)
-{
- int state;
- int j;
-
- for(state=0; state>=0;)
- {
- j = base[state] + (int)tolowertab[*p];
-
- if (check[j] != state)
- { // Reject, character doesn't match
- state = -1; // No match
- break;
- }
-
- if (!*++p)
- { // Must accept or reject at EOS
- state = accept[j]; // (-1 on no terminal match)
- break;
- }