mirror of
https://github.com/cc65/cc65.git
synced 2024-12-27 00:29:31 +00:00
Started to add config file
git-svn-id: svn://svn.cc65.org/cc65/trunk@336 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
parent
8bab228a52
commit
b960e3ead3
@ -134,7 +134,7 @@ void AddLabel (unsigned Addr, const char* Name)
|
||||
}
|
||||
|
||||
/* Create a new label */
|
||||
SymTab[Addr] = xstrdup (Name);
|
||||
SymTab[Addr] = xstrdup (Name);
|
||||
}
|
||||
|
||||
|
||||
|
241
src/da65/config.c
Normal file
241
src/da65/config.c
Normal file
@ -0,0 +1,241 @@
|
||||
/*****************************************************************************/
|
||||
/* */
|
||||
/* config.c */
|
||||
/* */
|
||||
/* Disassembler configuration file handling */
|
||||
/* */
|
||||
/* */
|
||||
/* */
|
||||
/* (C) 2000 Ullrich von Bassewitz */
|
||||
/* Wacholderweg 14 */
|
||||
/* D-70597 Stuttgart */
|
||||
/* EMail: uz@musoftware.de */
|
||||
/* */
|
||||
/* */
|
||||
/* This software is provided 'as-is', without any expressed or implied */
|
||||
/* warranty. In no event will the authors be held liable for any damages */
|
||||
/* arising from the use of this software. */
|
||||
/* */
|
||||
/* Permission is granted to anyone to use this software for any purpose, */
|
||||
/* including commercial applications, and to alter it and redistribute it */
|
||||
/* freely, subject to the following restrictions: */
|
||||
/* */
|
||||
/* 1. The origin of this software must not be misrepresented; you must not */
|
||||
/* claim that you wrote the original software. If you use this software */
|
||||
/* in a product, an acknowledgment in the product documentation would be */
|
||||
/* appreciated but is not required. */
|
||||
/* 2. Altered source versions must be plainly marked as such, and must not */
|
||||
/* be misrepresented as being the original software. */
|
||||
/* 3. This notice may not be removed or altered from any source */
|
||||
/* distribution. */
|
||||
/* */
|
||||
/*****************************************************************************/
|
||||
|
||||
|
||||
|
||||
#if defined(_MSC_VER)
|
||||
/* Microsoft compiler */
|
||||
# include <io.h>
|
||||
#else
|
||||
/* Anyone else */
|
||||
# include <unistd.h>
|
||||
#endif
|
||||
|
||||
/* common */
|
||||
#include "xmalloc.h"
|
||||
|
||||
/* da65 */
|
||||
#include "global.h"
|
||||
#include "scanner.h"
|
||||
#include "config.h"
|
||||
|
||||
|
||||
|
||||
/*****************************************************************************/
|
||||
/* Code */
|
||||
/*****************************************************************************/
|
||||
|
||||
|
||||
|
||||
static void GlobalSection (void)
|
||||
/* Parse a global section */
|
||||
{
|
||||
static const IdentTok GlobalDefs[] = {
|
||||
{ "INPUTNAME", CFGTOK_INPUTNAME },
|
||||
{ "OUTPUTNAME", CFGTOK_OUTPUTNAME },
|
||||
{ "PAGELENGTH", CFGTOK_PAGELENGTH },
|
||||
};
|
||||
|
||||
/* Skip the token */
|
||||
CfgNextTok ();
|
||||
|
||||
/* Expect the opening curly brace */
|
||||
CfgConsumeLCurly ();
|
||||
|
||||
/* Look for section tokens */
|
||||
while (CfgTok != CFGTOK_RCURLY) {
|
||||
|
||||
/* Convert to special token */
|
||||
CfgSpecialToken (GlobalDefs, ENTRY_COUNT (GlobalDefs), "Global directive");
|
||||
|
||||
/* Look at the token */
|
||||
switch (CfgTok) {
|
||||
|
||||
case CFGTOK_INPUTNAME:
|
||||
CfgNextTok ();
|
||||
CfgAssureStr ();
|
||||
if (InFile) {
|
||||
CfgError ("Input file name already given");
|
||||
}
|
||||
InFile = xstrdup (CfgSVal);
|
||||
CfgNextTok ();
|
||||
break;
|
||||
|
||||
case CFGTOK_OUTPUTNAME:
|
||||
CfgNextTok ();
|
||||
CfgAssureStr ();
|
||||
if (OutFile) {
|
||||
CfgError ("Output file name already given");
|
||||
}
|
||||
OutFile = xstrdup (CfgSVal);
|
||||
CfgNextTok ();
|
||||
break;
|
||||
|
||||
case CFGTOK_PAGELENGTH:
|
||||
CfgNextTok ();
|
||||
CfgAssureInt ();
|
||||
if (CfgIVal != -1) {
|
||||
CfgRangeCheck (MIN_PAGE_LEN, MAX_PAGE_LEN);
|
||||
}
|
||||
PageLength = CfgIVal;
|
||||
CfgNextTok ();
|
||||
break;
|
||||
}
|
||||
|
||||
/* Directive is followed by a semicolon */
|
||||
CfgConsumeSemi ();
|
||||
|
||||
}
|
||||
|
||||
/* Consume the closing brace */
|
||||
CfgConsumeRCurly ();
|
||||
}
|
||||
|
||||
|
||||
|
||||
static void RangeSection (void)
|
||||
/* Parse a range section */
|
||||
{
|
||||
static const IdentTok RangeDefs[] = {
|
||||
{ "START", CFGTOK_START },
|
||||
{ "END", CFGTOK_END },
|
||||
{ "TYPE", CFGTOK_TYPE },
|
||||
};
|
||||
|
||||
/* Skip the token */
|
||||
CfgNextTok ();
|
||||
|
||||
/* Expect the opening curly brace */
|
||||
CfgConsumeLCurly ();
|
||||
|
||||
/* Look for section tokens */
|
||||
while (CfgTok != CFGTOK_RCURLY) {
|
||||
|
||||
|
||||
}
|
||||
|
||||
/* Consume the closing brace */
|
||||
CfgConsumeRCurly ();
|
||||
}
|
||||
|
||||
|
||||
|
||||
static void LabelSection (void)
|
||||
/* Parse a label section */
|
||||
{
|
||||
static const IdentTok Globals[] = {
|
||||
{ "INPUTNAMEL", CFGTOK_INPUTNAME },
|
||||
{ "OUTPUTNAME", CFGTOK_OUTPUTNAME },
|
||||
{ "PAGELENGTH", CFGTOK_PAGELENGTH },
|
||||
};
|
||||
|
||||
/* Skip the token */
|
||||
CfgNextTok ();
|
||||
|
||||
/* Expect the opening curly brace */
|
||||
CfgConsumeLCurly ();
|
||||
|
||||
/* Look for section tokens */
|
||||
while (CfgTok != CFGTOK_RCURLY) {
|
||||
|
||||
|
||||
}
|
||||
|
||||
/* Consume the closing brace */
|
||||
CfgConsumeRCurly ();
|
||||
}
|
||||
|
||||
|
||||
|
||||
static void CfgParse (void)
|
||||
/* Parse the config file */
|
||||
{
|
||||
static const IdentTok Globals[] = {
|
||||
{ "GLOBAL", CFGTOK_GLOBAL },
|
||||
{ "RANGE", CFGTOK_RANGE },
|
||||
{ "LABEL", CFGTOK_LABEL },
|
||||
};
|
||||
|
||||
while (CfgTok != CFGTOK_EOF) {
|
||||
|
||||
/* Convert an identifier into a token */
|
||||
CfgSpecialToken (Globals, ENTRY_COUNT (Globals), "Config directive");
|
||||
|
||||
/* Check the token */
|
||||
switch (CfgTok) {
|
||||
|
||||
case CFGTOK_GLOBAL:
|
||||
GlobalSection ();
|
||||
break;
|
||||
|
||||
case CFGTOK_RANGE:
|
||||
RangeSection ();
|
||||
break;
|
||||
|
||||
case CFGTOK_LABEL:
|
||||
LabelSection ();
|
||||
break;
|
||||
|
||||
}
|
||||
|
||||
/* Semicolon expected */
|
||||
CfgConsumeSemi ();
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
|
||||
void CfgRead (void)
|
||||
/* Read the configuration if a configuration file exists */
|
||||
{
|
||||
/* Check if we have a config file given */
|
||||
if (!CfgAvail() || access (CfgGetName(), 0) != 0) {
|
||||
/* No name given or file not found */
|
||||
return;
|
||||
}
|
||||
|
||||
/* Open the config file */
|
||||
CfgOpenInput ();
|
||||
|
||||
/* Parse the config file */
|
||||
CfgParse ();
|
||||
|
||||
/* Close the file */
|
||||
CfgCloseInput ();
|
||||
}
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
56
src/da65/config.h
Normal file
56
src/da65/config.h
Normal file
@ -0,0 +1,56 @@
|
||||
/*****************************************************************************/
|
||||
/* */
|
||||
/* config.h */
|
||||
/* */
|
||||
/* Disassembler configuration file handling */
|
||||
/* */
|
||||
/* */
|
||||
/* */
|
||||
/* (C) 2000 Ullrich von Bassewitz */
|
||||
/* Wacholderweg 14 */
|
||||
/* D-70597 Stuttgart */
|
||||
/* EMail: uz@musoftware.de */
|
||||
/* */
|
||||
/* */
|
||||
/* This software is provided 'as-is', without any expressed or implied */
|
||||
/* warranty. In no event will the authors be held liable for any damages */
|
||||
/* arising from the use of this software. */
|
||||
/* */
|
||||
/* Permission is granted to anyone to use this software for any purpose, */
|
||||
/* including commercial applications, and to alter it and redistribute it */
|
||||
/* freely, subject to the following restrictions: */
|
||||
/* */
|
||||
/* 1. The origin of this software must not be misrepresented; you must not */
|
||||
/* claim that you wrote the original software. If you use this software */
|
||||
/* in a product, an acknowledgment in the product documentation would be */
|
||||
/* appreciated but is not required. */
|
||||
/* 2. Altered source versions must be plainly marked as such, and must not */
|
||||
/* be misrepresented as being the original software. */
|
||||
/* 3. This notice may not be removed or altered from any source */
|
||||
/* distribution. */
|
||||
/* */
|
||||
/*****************************************************************************/
|
||||
|
||||
|
||||
|
||||
#ifndef CONFIG_H
|
||||
#define CONFIG_H
|
||||
|
||||
|
||||
|
||||
/*****************************************************************************/
|
||||
/* Code */
|
||||
/*****************************************************************************/
|
||||
|
||||
|
||||
|
||||
void CfgRead (void);
|
||||
/* Read the configuration if a configuration file exists */
|
||||
|
||||
|
||||
|
||||
/* End of config.h */
|
||||
#endif
|
||||
|
||||
|
||||
|
@ -46,9 +46,10 @@
|
||||
|
||||
/* Supported CPUs */
|
||||
typedef enum CPUType {
|
||||
CPU_6502,
|
||||
CPU_65C02,
|
||||
CPU_65816
|
||||
CPU_6502 = 0x01,
|
||||
CPU_65C02 = 0x02,
|
||||
CPU_65816 = 0x04,
|
||||
CPU_ALL = 0x07
|
||||
} CPUType;
|
||||
|
||||
/* Current CPU */
|
||||
|
@ -48,11 +48,11 @@ const char* InFile = 0; /* Name of input file */
|
||||
const char* OutFile = 0; /* Name of output file */
|
||||
|
||||
/* Default extensions */
|
||||
const char ObjExt[] = ".o"; /* Default object extension */
|
||||
const char ListExt[] = ".lst"; /* Default listing extension */
|
||||
const char OutExt[] = ".dis"; /* Output file extension */
|
||||
const char CfgExt[] = ".cfg"; /* Config file extension */
|
||||
|
||||
/* Flags and other command line stuff */
|
||||
unsigned char Verbose = 2; /* Verbosity of the output file */
|
||||
unsigned char Verbosity = 2; /* Verbosity of the output file */
|
||||
|
||||
/* Stuff needed by many routines */
|
||||
unsigned Pass = 0; /* Disassembler pass */
|
||||
|
@ -49,11 +49,11 @@ extern const char* InFile; /* Name of input file */
|
||||
extern const char* OutFile; /* Name of output file */
|
||||
|
||||
/* Default extensions */
|
||||
extern const char ObjExt[]; /* Default object extension */
|
||||
extern const char ListExt[]; /* Default listing extension */
|
||||
extern const char OutExt[]; /* Output file extension */
|
||||
extern const char CfgExt[]; /* Config file extension */
|
||||
|
||||
/* Flags and other command line stuff */
|
||||
extern unsigned char Verbose; /* Verbosity of the output file */
|
||||
extern unsigned char Verbosity; /* Verbosity of the output file */
|
||||
|
||||
/* Stuff needed by many routines */
|
||||
extern unsigned Pass; /* Disassembler pass */
|
||||
|
@ -48,10 +48,12 @@
|
||||
/* da65 */
|
||||
#include "attrtab.h"
|
||||
#include "code.h"
|
||||
#include "config.h"
|
||||
#include "cpu.h"
|
||||
#include "global.h"
|
||||
#include "opctable.h"
|
||||
#include "output.h"
|
||||
#include "scanner.h"
|
||||
|
||||
|
||||
|
||||
@ -151,7 +153,7 @@ static void OptPageLength (const char* Opt, const char* Arg)
|
||||
static void OptVerbose (const char* Opt, const char* Arg)
|
||||
/* Increase verbosity */
|
||||
{
|
||||
++Verbose;
|
||||
++Verbosity;
|
||||
}
|
||||
|
||||
|
||||
@ -172,9 +174,6 @@ static void OneOpcode (unsigned RemainingBytes)
|
||||
/* Get the current PC */
|
||||
unsigned PC = GetPC ();
|
||||
|
||||
/* Get the attribute for the current address */
|
||||
unsigned char Style = GetStyle (PC);
|
||||
|
||||
/* Get the opcode from the current address */
|
||||
unsigned char OPC = PeekCodeByte ();
|
||||
|
||||
@ -187,20 +186,42 @@ static void OneOpcode (unsigned RemainingBytes)
|
||||
DefLabel (Label);
|
||||
}
|
||||
|
||||
/* Check if we have enough bytes remaining for the code at this address. */
|
||||
if (D->Size > RemainingBytes) {
|
||||
OneDataByte ();
|
||||
return;
|
||||
/* Check...
|
||||
* - ...if we have enough bytes remaining for the code at this address.
|
||||
* - ...if the current instruction is valid for the given CPU.
|
||||
* - ...if there is no label somewhere between the instruction bytes.
|
||||
* If any of these conditions is true, switch to data mode.
|
||||
*/
|
||||
if (GetStyle (PC) == atDefault) {
|
||||
if (D->Size > RemainingBytes) {
|
||||
MarkAddr (PC, atIllegal);
|
||||
} else if ((D->CPU & CPU) != CPU) {
|
||||
MarkAddr (PC, atIllegal);
|
||||
} else {
|
||||
unsigned I;
|
||||
for (I = 1; I < D->Size; ++I) {
|
||||
if (HaveLabel (PC+I)) {
|
||||
MarkAddr (PC, atIllegal);
|
||||
break;
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
/* Also check if there are any labels that point into this instruction.
|
||||
* If so, disassemble one byte as data.
|
||||
*/
|
||||
/* ### */
|
||||
|
||||
/* Disassemble the line */
|
||||
GetCodeByte ();
|
||||
D->Handler (D);
|
||||
switch (GetStyle (PC)) {
|
||||
|
||||
case atDefault:
|
||||
case atCode:
|
||||
GetCodeByte ();
|
||||
D->Handler (D);
|
||||
break;
|
||||
|
||||
default:
|
||||
OneDataByte ();
|
||||
break;
|
||||
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -309,9 +330,17 @@ int main (int argc, char* argv [])
|
||||
AbEnd ("No input file");
|
||||
}
|
||||
|
||||
/* Make the config file name from the input file if none was given */
|
||||
if (!CfgAvail ()) {
|
||||
CfgSetName (MakeFilename (InFile, CfgExt));
|
||||
}
|
||||
|
||||
/* Try to read the configuration file */
|
||||
CfgRead ();
|
||||
|
||||
/* Make the output file name from the input file name if none was given */
|
||||
if (OutFile == 0) {
|
||||
OutFile = MakeFilename (InFile, ".dis");
|
||||
OutFile = MakeFilename (InFile, OutExt);
|
||||
}
|
||||
|
||||
/* Load the input file */
|
||||
|
@ -10,14 +10,16 @@ CC=gcc
|
||||
LDFLAGS=
|
||||
|
||||
OBJS = attrtab.o \
|
||||
code.o \
|
||||
cpu.o \
|
||||
error.o \
|
||||
global.o \
|
||||
code.o \
|
||||
config.o \
|
||||
cpu.o \
|
||||
error.o \
|
||||
global.o \
|
||||
handler.o \
|
||||
main.o \
|
||||
main.o \
|
||||
opctable.o \
|
||||
output.o
|
||||
output.o \
|
||||
scanner.o
|
||||
|
||||
LIBS = $(COMMON)/common.a
|
||||
|
||||
|
File diff suppressed because it is too large
Load Diff
@ -52,14 +52,6 @@ enum {
|
||||
lfLabel = lfUseLabel|lfGenLabel /* Generate and use a label */
|
||||
};
|
||||
|
||||
/* Constants for the CPU type */
|
||||
enum {
|
||||
cpu6502 = 0x01,
|
||||
cpu65C02 = 0x02,
|
||||
cpu65816 = 0x04,
|
||||
cpuAll = 0x07,
|
||||
};
|
||||
|
||||
/* Forward/typedef for struct OpcDesc */
|
||||
typedef struct OpcDesc OpcDesc;
|
||||
|
||||
|
@ -133,11 +133,13 @@ void DefLabel (const char* Name)
|
||||
void OneDataByte (void)
|
||||
/* Output a .byte line with the current code byte */
|
||||
{
|
||||
unsigned char B = GetCodeByte ();
|
||||
|
||||
if (Pass > 1) {
|
||||
Indent (MIndent);
|
||||
Output (".byte");
|
||||
Indent (AIndent);
|
||||
Output ("$%02X", GetCodeByte());
|
||||
Output ("$%02X", B);
|
||||
LineFeed ();
|
||||
}
|
||||
}
|
||||
@ -153,3 +155,4 @@ void SeparatorLine (void)
|
||||
|
||||
|
||||
|
||||
|
||||
|
528
src/da65/scanner.c
Normal file
528
src/da65/scanner.c
Normal file
@ -0,0 +1,528 @@
|
||||
/*****************************************************************************/
|
||||
/* */
|
||||
/* scanner.c */
|
||||
/* */
|
||||
/* Configuration file scanner for the da65 disassembler */
|
||||
/* */
|
||||
/* */
|
||||
/* */
|
||||
/* (C) 2000 Ullrich von Bassewitz */
|
||||
/* Wacholderweg 14 */
|
||||
/* D-70597 Stuttgart */
|
||||
/* EMail: uz@musoftware.de */
|
||||
/* */
|
||||
/* */
|
||||
/* This software is provided 'as-is', without any expressed or implied */
|
||||
/* warranty. In no event will the authors be held liable for any damages */
|
||||
/* arising from the use of this software. */
|
||||
/* */
|
||||
/* Permission is granted to anyone to use this software for any purpose, */
|
||||
/* including commercial applications, and to alter it and redistribute it */
|
||||
/* freely, subject to the following restrictions: */
|
||||
/* */
|
||||
/* 1. The origin of this software must not be misrepresented; you must not */
|
||||
/* claim that you wrote the original software. If you use this software */
|
||||
/* in a product, an acknowledgment in the product documentation would be */
|
||||
/* appreciated but is not required. */
|
||||
/* 2. Altered source versions must be plainly marked as such, and must not */
|
||||
/* be misrepresented as being the original software. */
|
||||
/* 3. This notice may not be removed or altered from any source */
|
||||
/* distribution. */
|
||||
/* */
|
||||
/*****************************************************************************/
|
||||
|
||||
|
||||
|
||||
#include <stdarg.h>
|
||||
#include <stdio.h>
|
||||
#include <string.h>
|
||||
#include <errno.h>
|
||||
#include <ctype.h>
|
||||
|
||||
/* common */
|
||||
#include "xsprintf.h"
|
||||
|
||||
/* ld65 */
|
||||
#include "global.h"
|
||||
#include "error.h"
|
||||
#include "scanner.h"
|
||||
|
||||
|
||||
|
||||
/*****************************************************************************/
|
||||
/* Data */
|
||||
/*****************************************************************************/
|
||||
|
||||
|
||||
|
||||
/* Current token and attributes */
|
||||
unsigned CfgTok;
|
||||
char CfgSVal [CFG_MAX_IDENT_LEN+1];
|
||||
unsigned long CfgIVal;
|
||||
|
||||
/* Error location */
|
||||
unsigned CfgErrorLine;
|
||||
unsigned CfgErrorCol;
|
||||
|
||||
/* Input sources for the configuration */
|
||||
static const char* CfgFile = 0;
|
||||
static const char* CfgBuf = 0;
|
||||
|
||||
/* Other input stuff */
|
||||
static int C = ' ';
|
||||
static unsigned InputLine = 1;
|
||||
static unsigned InputCol = 0;
|
||||
static FILE* InputFile = 0;
|
||||
|
||||
|
||||
|
||||
/*****************************************************************************/
|
||||
/* Error handling */
|
||||
/*****************************************************************************/
|
||||
|
||||
|
||||
|
||||
void CfgWarning (const char* Format, ...)
|
||||
/* Print a warning message adding file name and line number of the config file */
|
||||
{
|
||||
char Buf [512];
|
||||
va_list ap;
|
||||
|
||||
va_start (ap, Format);
|
||||
xvsprintf (Buf, sizeof (Buf), Format, ap);
|
||||
va_end (ap);
|
||||
|
||||
Warning ("%s(%u): %s", CfgFile, CfgErrorLine, Buf);
|
||||
}
|
||||
|
||||
|
||||
|
||||
void CfgError (const char* Format, ...)
|
||||
/* Print an error message adding file name and line number of the config file */
|
||||
{
|
||||
char Buf [512];
|
||||
va_list ap;
|
||||
|
||||
va_start (ap, Format);
|
||||
xvsprintf (Buf, sizeof (Buf), Format, ap);
|
||||
va_end (ap);
|
||||
|
||||
Error ("%s(%u): %s", CfgFile, CfgErrorLine, Buf);
|
||||
}
|
||||
|
||||
|
||||
|
||||
/*****************************************************************************/
|
||||
/* Code */
|
||||
/*****************************************************************************/
|
||||
|
||||
|
||||
|
||||
static void NextChar (void)
|
||||
/* Read the next character from the input file */
|
||||
{
|
||||
if (CfgBuf) {
|
||||
/* Read from buffer */
|
||||
C = (unsigned char)(*CfgBuf);
|
||||
if (C == 0) {
|
||||
C = EOF;
|
||||
} else {
|
||||
++CfgBuf;
|
||||
}
|
||||
} else {
|
||||
/* Read from the file */
|
||||
C = getc (InputFile);
|
||||
}
|
||||
|
||||
/* Count columns */
|
||||
if (C != EOF) {
|
||||
++InputCol;
|
||||
}
|
||||
|
||||
/* Count lines */
|
||||
if (C == '\n') {
|
||||
++InputLine;
|
||||
InputCol = 0;
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
|
||||
static unsigned DigitVal (int C)
|
||||
/* Return the value for a numeric digit */
|
||||
{
|
||||
if (isdigit (C)) {
|
||||
return C - '0';
|
||||
} else {
|
||||
return toupper (C) - 'A' + 10;
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
|
||||
void CfgNextTok (void)
|
||||
/* Read the next token from the input stream */
|
||||
{
|
||||
unsigned I;
|
||||
|
||||
|
||||
Again:
|
||||
/* Skip whitespace */
|
||||
while (isspace (C)) {
|
||||
NextChar ();
|
||||
}
|
||||
|
||||
/* Remember the current position */
|
||||
CfgErrorLine = InputLine;
|
||||
CfgErrorCol = InputCol;
|
||||
|
||||
/* Identifier? */
|
||||
if (C == '_' || isalpha (C)) {
|
||||
|
||||
/* Read the identifier */
|
||||
I = 0;
|
||||
while (C == '_' || isalnum (C)) {
|
||||
if (I < CFG_MAX_IDENT_LEN) {
|
||||
CfgSVal [I++] = C;
|
||||
}
|
||||
NextChar ();
|
||||
}
|
||||
CfgSVal [I] = '\0';
|
||||
CfgTok = CFGTOK_IDENT;
|
||||
return;
|
||||
}
|
||||
|
||||
/* Hex number? */
|
||||
if (C == '$') {
|
||||
NextChar ();
|
||||
if (!isxdigit (C)) {
|
||||
CfgError ("Hex digit expected");
|
||||
}
|
||||
CfgIVal = 0;
|
||||
while (isxdigit (C)) {
|
||||
CfgIVal = CfgIVal * 16 + DigitVal (C);
|
||||
NextChar ();
|
||||
}
|
||||
CfgTok = CFGTOK_INTCON;
|
||||
return;
|
||||
}
|
||||
|
||||
/* Decimal number? */
|
||||
if (isdigit (C)) {
|
||||
CfgIVal = 0;
|
||||
while (isdigit (C)) {
|
||||
CfgIVal = CfgIVal * 10 + DigitVal (C);
|
||||
NextChar ();
|
||||
}
|
||||
CfgTok = CFGTOK_INTCON;
|
||||
return;
|
||||
}
|
||||
|
||||
/* Other characters */
|
||||
switch (C) {
|
||||
|
||||
case '{':
|
||||
NextChar ();
|
||||
CfgTok = CFGTOK_LCURLY;
|
||||
break;
|
||||
|
||||
case '}':
|
||||
NextChar ();
|
||||
CfgTok = CFGTOK_RCURLY;
|
||||
break;
|
||||
|
||||
case ';':
|
||||
NextChar ();
|
||||
CfgTok = CFGTOK_SEMI;
|
||||
break;
|
||||
|
||||
case '.':
|
||||
NextChar ();
|
||||
CfgTok = CFGTOK_DOT;
|
||||
break;
|
||||
|
||||
case ',':
|
||||
NextChar ();
|
||||
CfgTok = CFGTOK_COMMA;
|
||||
break;
|
||||
|
||||
case '=':
|
||||
NextChar ();
|
||||
CfgTok = CFGTOK_EQ;
|
||||
break;
|
||||
|
||||
case ':':
|
||||
NextChar ();
|
||||
CfgTok = CFGTOK_COLON;
|
||||
break;
|
||||
|
||||
case '\"':
|
||||
NextChar ();
|
||||
I = 0;
|
||||
while (C != '\"') {
|
||||
if (C == EOF || C == '\n') {
|
||||
CfgError ("Unterminated string");
|
||||
}
|
||||
if (I < CFG_MAX_IDENT_LEN) {
|
||||
CfgSVal [I++] = C;
|
||||
}
|
||||
NextChar ();
|
||||
}
|
||||
NextChar ();
|
||||
CfgSVal [I] = '\0';
|
||||
CfgTok = CFGTOK_STRCON;
|
||||
break;
|
||||
|
||||
case '#':
|
||||
/* Comment */
|
||||
while (C != '\n' && C != EOF) {
|
||||
NextChar ();
|
||||
}
|
||||
if (C != EOF) {
|
||||
goto Again;
|
||||
}
|
||||
CfgTok = CFGTOK_EOF;
|
||||
break;
|
||||
|
||||
case EOF:
|
||||
CfgTok = CFGTOK_EOF;
|
||||
break;
|
||||
|
||||
default:
|
||||
CfgError ("Invalid character `%c'", C);
|
||||
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
|
||||
void CfgConsume (unsigned T, const char* Msg)
|
||||
/* Skip a token, print an error message if not found */
|
||||
{
|
||||
if (CfgTok != T) {
|
||||
CfgError (Msg);
|
||||
}
|
||||
CfgNextTok ();
|
||||
}
|
||||
|
||||
|
||||
|
||||
void CfgConsumeLCurly (void)
|
||||
/* Consume a left curly brace */
|
||||
{
|
||||
CfgConsume (CFGTOK_LCURLY, "`{' expected");
|
||||
}
|
||||
|
||||
|
||||
|
||||
void CfgConsumeRCurly (void)
|
||||
/* Consume a right curly brace */
|
||||
{
|
||||
CfgConsume (CFGTOK_RCURLY, "`}' expected");
|
||||
}
|
||||
|
||||
|
||||
|
||||
void CfgConsumeSemi (void)
|
||||
/* Consume a semicolon */
|
||||
{
|
||||
CfgConsume (CFGTOK_SEMI, "`;' expected");
|
||||
}
|
||||
|
||||
|
||||
|
||||
void CfgConsumeColon (void)
|
||||
/* Consume a colon */
|
||||
{
|
||||
CfgConsume (CFGTOK_COLON, "`:' expected");
|
||||
}
|
||||
|
||||
|
||||
|
||||
void CfgOptionalComma (void)
|
||||
/* Consume a comma if there is one */
|
||||
{
|
||||
if (CfgTok == CFGTOK_COMMA) {
|
||||
CfgNextTok ();
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
|
||||
void CfgOptionalAssign (void)
|
||||
/* Consume an equal sign if there is one */
|
||||
{
|
||||
if (CfgTok == CFGTOK_EQ) {
|
||||
CfgNextTok ();
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
|
||||
void CfgAssureInt (void)
|
||||
/* Make sure the next token is an integer */
|
||||
{
|
||||
if (CfgTok != CFGTOK_INTCON) {
|
||||
CfgError ("Integer constant expected");
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
|
||||
void CfgAssureStr (void)
|
||||
/* Make sure the next token is a string constant */
|
||||
{
|
||||
if (CfgTok != CFGTOK_STRCON) {
|
||||
CfgError ("String constant expected");
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
|
||||
void CfgAssureIdent (void)
|
||||
/* Make sure the next token is an identifier */
|
||||
{
|
||||
if (CfgTok != CFGTOK_IDENT) {
|
||||
CfgError ("Identifier expected");
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
|
||||
void CfgRangeCheck (unsigned long Lo, unsigned long Hi)
|
||||
/* Check the range of CfgIVal */
|
||||
{
|
||||
if (CfgIVal < Lo || CfgIVal > Hi) {
|
||||
CfgError ("Range error");
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
|
||||
void CfgSpecialToken (const IdentTok* Table, unsigned Size, const char* Name)
|
||||
/* Map an identifier to one of the special tokens in the table */
|
||||
{
|
||||
unsigned I;
|
||||
|
||||
/* We need an identifier */
|
||||
if (CfgTok == CFGTOK_IDENT) {
|
||||
|
||||
/* Make it upper case */
|
||||
I = 0;
|
||||
while (CfgSVal [I]) {
|
||||
CfgSVal [I] = toupper (CfgSVal [I]);
|
||||
++I;
|
||||
}
|
||||
|
||||
/* Linear search */
|
||||
for (I = 0; I < Size; ++I) {
|
||||
if (strcmp (CfgSVal, Table [I].Ident) == 0) {
|
||||
CfgTok = Table [I].Tok;
|
||||
return;
|
||||
}
|
||||
}
|
||||
|
||||
}
|
||||
|
||||
/* Not found or no identifier */
|
||||
CfgError ("%s expected", Name);
|
||||
}
|
||||
|
||||
|
||||
|
||||
void CfgBoolToken (void)
|
||||
/* Map an identifier or integer to a boolean token */
|
||||
{
|
||||
static const IdentTok Booleans [] = {
|
||||
{ "YES", CFGTOK_TRUE },
|
||||
{ "NO", CFGTOK_FALSE },
|
||||
{ "TRUE", CFGTOK_TRUE },
|
||||
{ "FALSE", CFGTOK_FALSE },
|
||||
};
|
||||
|
||||
/* If we have an identifier, map it to a boolean token */
|
||||
if (CfgTok == CFGTOK_IDENT) {
|
||||
CfgSpecialToken (Booleans, ENTRY_COUNT (Booleans), "Boolean");
|
||||
} else {
|
||||
/* We expected an integer here */
|
||||
if (CfgTok != CFGTOK_INTCON) {
|
||||
CfgError ("Boolean value expected");
|
||||
}
|
||||
CfgTok = (CfgIVal == 0)? CFGTOK_FALSE : CFGTOK_TRUE;
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
|
||||
void CfgSetName (const char* Name)
|
||||
/* Set a name for a config file */
|
||||
{
|
||||
CfgFile = Name;
|
||||
}
|
||||
|
||||
|
||||
|
||||
const char* CfgGetName (void)
|
||||
/* Get the name of the config file */
|
||||
{
|
||||
return CfgFile? CfgFile : "";
|
||||
}
|
||||
|
||||
|
||||
|
||||
void CfgSetBuf (const char* Buf)
|
||||
/* Set a memory buffer for the config */
|
||||
{
|
||||
CfgBuf = Buf;
|
||||
}
|
||||
|
||||
|
||||
|
||||
int CfgAvail (void)
|
||||
/* Return true if we have a configuration available */
|
||||
{
|
||||
return CfgFile != 0 || CfgBuf != 0;
|
||||
}
|
||||
|
||||
|
||||
|
||||
void CfgOpenInput (void)
|
||||
/* Open the input file if we have one */
|
||||
{
|
||||
/* If we have a config name given, open the file, otherwise we will read
|
||||
* from a buffer.
|
||||
*/
|
||||
if (!CfgBuf) {
|
||||
|
||||
/* Open the file */
|
||||
InputFile = fopen (CfgFile, "r");
|
||||
if (InputFile == 0) {
|
||||
Error ("Cannot open `%s': %s", CfgFile, strerror (errno));
|
||||
}
|
||||
|
||||
}
|
||||
|
||||
/* Initialize variables */
|
||||
C = ' ';
|
||||
InputLine = 1;
|
||||
InputCol = 0;
|
||||
|
||||
/* Start the ball rolling ... */
|
||||
CfgNextTok ();
|
||||
}
|
||||
|
||||
|
||||
|
||||
void CfgCloseInput (void)
|
||||
/* Close the input file if we have one */
|
||||
{
|
||||
/* Close the input file if we had one */
|
||||
if (InputFile) {
|
||||
(void) fclose (InputFile);
|
||||
InputFile = 0;
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
|
||||
|
186
src/da65/scanner.h
Normal file
186
src/da65/scanner.h
Normal file
@ -0,0 +1,186 @@
|
||||
/*****************************************************************************/
|
||||
/* */
|
||||
/* scanner.h */
|
||||
/* */
|
||||
/* Configuration file scanner for the da65 disassembler */
|
||||
/* */
|
||||
/* */
|
||||
/* */
|
||||
/* (C) 2000 Ullrich von Bassewitz */
|
||||
/* Wacholderweg 14 */
|
||||
/* D-70597 Stuttgart */
|
||||
/* EMail: uz@musoftware.de */
|
||||
/* */
|
||||
/* */
|
||||
/* This software is provided 'as-is', without any expressed or implied */
|
||||
/* warranty. In no event will the authors be held liable for any damages */
|
||||
/* arising from the use of this software. */
|
||||
/* */
|
||||
/* Permission is granted to anyone to use this software for any purpose, */
|
||||
/* including commercial applications, and to alter it and redistribute it */
|
||||
/* freely, subject to the following restrictions: */
|
||||
/* */
|
||||
/* 1. The origin of this software must not be misrepresented; you must not */
|
||||
/* claim that you wrote the original software. If you use this software */
|
||||
/* in a product, an acknowledgment in the product documentation would be */
|
||||
/* appreciated but is not required. */
|
||||
/* 2. Altered source versions must be plainly marked as such, and must not */
|
||||
/* be misrepresented as being the original software. */
|
||||
/* 3. This notice may not be removed or altered from any source */
|
||||
/* distribution. */
|
||||
/* */
|
||||
/*****************************************************************************/
|
||||
|
||||
|
||||
|
||||
#ifndef SCANNER_H
|
||||
#define SCANNER_H
|
||||
|
||||
|
||||
|
||||
/*****************************************************************************/
|
||||
/* Data */
|
||||
/*****************************************************************************/
|
||||
|
||||
|
||||
|
||||
/* Config file tokens */
|
||||
typedef enum token_t {
|
||||
CFGTOK_NONE,
|
||||
CFGTOK_INTCON,
|
||||
CFGTOK_STRCON,
|
||||
CFGTOK_IDENT,
|
||||
CFGTOK_LCURLY,
|
||||
CFGTOK_RCURLY,
|
||||
CFGTOK_SEMI,
|
||||
CFGTOK_COMMA,
|
||||
CFGTOK_EQ,
|
||||
CFGTOK_COLON,
|
||||
CFGTOK_DOT,
|
||||
CFGTOK_EOF,
|
||||
|
||||
/* Special tokens */
|
||||
CFGTOK_GLOBAL,
|
||||
CFGTOK_RANGE,
|
||||
CFGTOK_LABEL,
|
||||
|
||||
/* Global section */
|
||||
CFGTOK_INPUTNAME,
|
||||
CFGTOK_OUTPUTNAME,
|
||||
CFGTOK_PAGELENGTH,
|
||||
|
||||
/* Range section */
|
||||
CFGTOK_START,
|
||||
CFGTOK_END,
|
||||
CFGTOK_TYPE,
|
||||
|
||||
/* Label section */
|
||||
|
||||
|
||||
/* */
|
||||
CFGTOK_TRUE,
|
||||
CFGTOK_FALSE
|
||||
} token_t;
|
||||
|
||||
|
||||
/* Mapping table entry, special identifier --> token */
|
||||
typedef struct IdentTok_ IdentTok;
|
||||
struct IdentTok_ {
|
||||
const char* Ident; /* Identifier */
|
||||
token_t Tok; /* Token for identifier */
|
||||
};
|
||||
#define ENTRY_COUNT(s) (sizeof (s) / sizeof (s [0]))
|
||||
|
||||
|
||||
|
||||
/* Current token and attributes */
|
||||
#define CFG_MAX_IDENT_LEN 255
|
||||
extern unsigned CfgTok;
|
||||
extern char CfgSVal [CFG_MAX_IDENT_LEN+1];
|
||||
extern unsigned long CfgIVal;
|
||||
|
||||
/* Error location */
|
||||
extern unsigned CfgErrorLine;
|
||||
extern unsigned CfgErrorCol;
|
||||
|
||||
|
||||
|
||||
/*****************************************************************************/
|
||||
/* Code */
|
||||
/*****************************************************************************/
|
||||
|
||||
|
||||
|
||||
void CfgWarning (const char* Format, ...);
|
||||
/* Print a warning message adding file name and line number of the config file */
|
||||
|
||||
void CfgError (const char* Format, ...);
|
||||
/* Print an error message adding file name and line number of the config file */
|
||||
|
||||
void CfgNextTok (void);
|
||||
/* Read the next token from the input stream */
|
||||
|
||||
void CfgConsume (unsigned T, const char* Msg);
|
||||
/* Skip a token, print an error message if not found */
|
||||
|
||||
void CfgConsumeLCurly (void);
|
||||
/* Consume a left curly brace */
|
||||
|
||||
void CfgConsumeRCurly (void);
|
||||
/* Consume a right curly brace */
|
||||
|
||||
void CfgConsumeSemi (void);
|
||||
/* Consume a semicolon */
|
||||
|
||||
void CfgConsumeColon (void);
|
||||
/* Consume a colon */
|
||||
|
||||
void CfgOptionalComma (void);
|
||||
/* Consume a comma if there is one */
|
||||
|
||||
void CfgOptionalAssign (void);
|
||||
/* Consume an equal sign if there is one */
|
||||
|
||||
void CfgAssureInt (void);
|
||||
/* Make sure the next token is an integer */
|
||||
|
||||
void CfgAssureStr (void);
|
||||
/* Make sure the next token is a string constant */
|
||||
|
||||
void CfgAssureIdent (void);
|
||||
/* Make sure the next token is an identifier */
|
||||
|
||||
void CfgRangeCheck (unsigned long Lo, unsigned long Hi);
|
||||
/* Check the range of CfgIVal */
|
||||
|
||||
void CfgSpecialToken (const IdentTok* Table, unsigned Size, const char* Name);
|
||||
/* Map an identifier to one of the special tokens in the table */
|
||||
|
||||
void CfgBoolToken (void);
|
||||
/* Map an identifier or integer to a boolean token */
|
||||
|
||||
void CfgSetName (const char* Name);
|
||||
/* Set a name for a config file */
|
||||
|
||||
const char* CfgGetName (void);
|
||||
/* Get the name of the config file */
|
||||
|
||||
void CfgSetBuf (const char* Buf);
|
||||
/* Set a memory buffer for the config */
|
||||
|
||||
int CfgAvail (void);
|
||||
/* Return true if we have a configuration available */
|
||||
|
||||
void CfgOpenInput (void);
|
||||
/* Open the input file if we have one */
|
||||
|
||||
void CfgCloseInput (void);
|
||||
/* Close the input file if we have one */
|
||||
|
||||
|
||||
|
||||
/* End of scanner.h */
|
||||
#endif
|
||||
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user