1 /*****************************************************************************/
5 /* Configuration file scanner for the sim65 6502 simulator */
9 /* (C) 1998-2003 Ullrich von Bassewitz */
10 /* Römerstrasse 52 */
11 /* D-70794 Filderstadt */
12 /* EMail: uz@cc65.org */
15 /* This software is provided 'as-is', without any expressed or implied */
16 /* warranty. In no event will the authors be held liable for any damages */
17 /* arising from the use of this software. */
19 /* Permission is granted to anyone to use this software for any purpose, */
20 /* including commercial applications, and to alter it and redistribute it */
21 /* freely, subject to the following restrictions: */
23 /* 1. The origin of this software must not be misrepresented; you must not */
24 /* claim that you wrote the original software. If you use this software */
25 /* in a product, an acknowledgment in the product documentation would be */
26 /* appreciated but is not required. */
27 /* 2. Altered source versions must be plainly marked as such, and must not */
28 /* be misrepresented as being the original software. */
29 /* 3. This notice may not be removed or altered from any source */
32 /*****************************************************************************/
52 /*****************************************************************************/
54 /*****************************************************************************/
58 /* Current token and attributes */
60 char CfgSVal [CFG_MAX_IDENT_LEN+1];
61 unsigned long CfgIVal;
64 unsigned CfgErrorLine;
67 /* Input sources for the configuration */
68 static const char* CfgName = 0;
69 static const char* CfgBuf = 0;
71 /* Other input stuff */
73 static unsigned InputLine = 1;
74 static unsigned InputCol = 0;
75 static FILE* InputFile = 0;
79 /*****************************************************************************/
81 /*****************************************************************************/
85 void CfgWarning (const char* Format, ...)
86 /* Print a warning message adding file name and line number of the config file */
91 va_start (ap, Format);
92 xvsprintf (Buf, sizeof (Buf), Format, ap);
95 Warning ("%s(%u): %s", CfgGetName(), CfgErrorLine, Buf);
100 void CfgError (const char* Format, ...)
101 /* Print an error message adding file name and line number of the config file */
106 va_start (ap, Format);
107 xvsprintf (Buf, sizeof (Buf), Format, ap);
110 Error ("%s(%u): %s", CfgGetName(), CfgErrorLine, Buf);
115 /*****************************************************************************/
117 /*****************************************************************************/
121 static void NextChar (void)
122 /* Read the next character from the input file */
125 /* Read from buffer */
126 C = (unsigned char)(*CfgBuf);
133 /* Read from the file */
134 C = getc (InputFile);
151 static unsigned DigitVal (int C)
152 /* Return the value for a numeric digit */
157 return toupper (C) - 'A' + 10;
163 void CfgNextTok (void)
164 /* Read the next token from the input stream */
170 /* Skip whitespace */
171 while (isspace (C)) {
175 /* Remember the current position */
176 CfgErrorLine = InputLine;
177 CfgErrorCol = InputCol;
180 if (C == '_' || IsAlpha (C)) {
182 /* Read the identifier */
184 while (C == '_' || IsAlNum (C)) {
185 if (I < CFG_MAX_IDENT_LEN) {
191 CfgTok = CFGTOK_IDENT;
199 Error ("%s(%u): Hex digit expected", CfgName, InputLine);
202 while (isxdigit (C)) {
203 CfgIVal = CfgIVal * 16 + DigitVal (C);
206 CfgTok = CFGTOK_INTCON;
210 /* Decimal number? */
213 while (isdigit (C)) {
214 CfgIVal = CfgIVal * 10 + DigitVal (C);
217 CfgTok = CFGTOK_INTCON;
221 /* Other characters */
226 CfgTok = CFGTOK_LCURLY;
231 CfgTok = CFGTOK_RCURLY;
236 CfgTok = CFGTOK_SEMI;
243 CfgTok = CFGTOK_DOTDOT;
251 CfgTok = CFGTOK_COMMA;
261 CfgTok = CFGTOK_COLON;
268 if (C == EOF || C == '\n') {
269 Error ("%s(%u): Unterminated string", CfgName, InputLine);
271 if (I < CFG_MAX_IDENT_LEN) {
278 CfgTok = CFGTOK_STRCON;
283 while (C != '\n' && C != EOF) {
297 Error ("%s(%u): Invalid character `%c'", CfgName, InputLine, C);
304 void CfgConsume (cfgtok_t T, const char* Msg)
305 /* Skip a token, print an error message if not found */
315 void CfgConsumeSemi (void)
316 /* Consume a semicolon */
318 CfgConsume (CFGTOK_SEMI, "`;' expected");
323 void CfgConsumeColon (void)
324 /* Consume a colon */
326 CfgConsume (CFGTOK_COLON, "`:' expected");
331 void CfgConsumeRCurly (void)
332 /* Consume a right curly brace */
334 CfgConsume (CFGTOK_RCURLY, "`}' expected");
339 void CfgOptionalComma (void)
340 /* Consume a comma if there is one */
342 if (CfgTok == CFGTOK_COMMA) {
349 void CfgOptionalAssign (void)
350 /* Consume an equal sign if there is one */
352 if (CfgTok == CFGTOK_EQ) {
359 void CfgAssureInt (void)
360 /* Make sure the next token is an integer */
362 if (CfgTok != CFGTOK_INTCON) {
363 CfgError ("Integer constant expected");
369 void CfgAssureStr (void)
370 /* Make sure the next token is a string constant */
372 if (CfgTok != CFGTOK_STRCON) {
373 CfgError ("String constant expected");
379 void CfgAssureIdent (void)
380 /* Make sure the next token is an identifier */
382 if (CfgTok != CFGTOK_IDENT) {
383 CfgError ("Identifier expected");
389 void CfgRangeCheck (unsigned long Lo, unsigned long Hi)
390 /* Check the range of CfgIVal */
392 if (CfgIVal < Lo || CfgIVal > Hi) {
393 CfgError ("Range error");
399 void CfgSpecialToken (const IdentTok* Table, unsigned Size, const char* Name)
400 /* Map an identifier to one of the special tokens in the table */
404 /* We need an identifier */
405 if (CfgTok == CFGTOK_IDENT) {
407 /* Make it upper case */
409 while (CfgSVal [I]) {
410 CfgSVal [I] = toupper (CfgSVal [I]);
415 for (I = 0; I < Size; ++I) {
416 if (strcmp (CfgSVal, Table [I].Ident) == 0) {
417 CfgTok = Table [I].Tok;
424 /* Not found or no identifier */
425 Error ("%s(%u): %s expected", CfgName, InputLine, Name);
430 void CfgBoolToken (void)
431 /* Map an identifier or integer to a boolean token */
433 static const IdentTok Booleans [] = {
434 { "YES", CFGTOK_TRUE },
435 { "NO", CFGTOK_FALSE },
436 { "TRUE", CFGTOK_TRUE },
437 { "FALSE", CFGTOK_FALSE },
440 /* If we have an identifier, map it to a boolean token */
441 if (CfgTok == CFGTOK_IDENT) {
442 CfgSpecialToken (Booleans, ENTRY_COUNT (Booleans), "Boolean");
444 /* We expected an integer here */
445 if (CfgTok != CFGTOK_INTCON) {
446 CfgError ("Boolean value expected");
448 CfgTok = (CfgIVal == 0)? CFGTOK_FALSE : CFGTOK_TRUE;
454 void CfgSetName (const char* Name)
455 /* Set a name for a config file */
462 const char* CfgGetName (void)
463 /* Get the name of the config file */
468 return "[builtin config]";
476 void CfgSetBuf (const char* Buf)
477 /* Set a memory buffer for the config */
485 /* Return true if we have a configuration available */
487 return CfgName != 0 || CfgBuf != 0;
492 void CfgOpenInput (void)
493 /* Open the input file if we have one */
495 /* If we have a config name given, open the file, otherwise we will read
501 InputFile = fopen (CfgName, "r");
502 if (InputFile == 0) {
503 Error ("Cannot open `%s': %s", CfgName, strerror (errno));
508 /* Initialize variables */
513 /* Start the ball rolling ... */
519 void CfgCloseInput (void)
520 /* Close the input file if we have one */
522 /* Close the input file if we had one */
524 (void) fclose (InputFile);