/* */
/* */
/* */
-/* (C) 1998 Ullrich von Bassewitz */
-/* Wacholderweg 14 */
-/* D-70597 Stuttgart */
-/* EMail: uz@musoftware.de */
+/* (C) 1998-2000 Ullrich von Bassewitz */
+/* Wacholderweg 14 */
+/* D-70597 Stuttgart */
+/* EMail: uz@musoftware.de */
/* */
/* */
/* This software is provided 'as-is', without any expressed or implied */
-#include "../common/optdefs.h"
+#include <string.h>
-#include "mem.h"
+/* common */
+#include "optdefs.h"
+#include "xmalloc.h"
+
+/* ca65 */
#include "error.h"
#include "objfile.h"
#include "options.h"
+#include "spool.h"
-static Option* NewOption (unsigned char Type)
+static Option* NewOption (unsigned char Type, unsigned long Val)
/* Create a new option, insert it into the list and return it */
{
Option* Opt;
/* Allocate memory */
- Opt = Xmalloc (sizeof (*Opt));
+ Opt = xmalloc (sizeof (*Opt));
/* Initialize fields */
Opt->Next = 0;
Opt->Type = Type;
- Opt->V.Str = 0;
+ Opt->Val = Val;
/* Insert it into the list */
if (OptRoot == 0) {
void OptStr (unsigned char Type, const char* Text)
/* Add a string option */
{
- Option* O;
-
- /* String must have less than 255 bytes */
- if (strlen (Text) > 255) {
- Fatal (FAT_STRING_TOO_LONG);
- }
- O = NewOption (Type);
- O->V.Str = StrDup (Text);
+ NewOption (Type, GetStringId (Text));
}
void OptComment (const char* Comment)
/* Add a comment */
{
- OptStr (OPT_COMMENT, Comment);
+ NewOption (OPT_COMMENT, GetStringId (Comment));
}
void OptAuthor (const char* Author)
/* Add an author statement */
{
- OptStr (OPT_AUTHOR, Author);
+ NewOption (OPT_AUTHOR, GetStringId (Author));
}
void OptTranslator (const char* Translator)
/* Add a translator option */
{
- OptStr (OPT_TRANSLATOR, Translator);
+ NewOption (OPT_TRANSLATOR, GetStringId (Translator));
}
void OptCompiler (const char* Compiler)
/* Add a compiler option */
{
- OptStr (OPT_COMPILER, Compiler);
+ NewOption (OPT_COMPILER, GetStringId (Compiler));
}
void OptOS (const char* OS)
/* Add an operating system option */
{
- OptStr (OPT_OS, OS);
+ NewOption (OPT_OS, GetStringId (OS));
}
void OptDateTime (unsigned long DateTime)
/* Add a date/time option */
{
- Option* O = NewOption (OPT_DATETIME);
- O->V.Val = DateTime;
+ NewOption (OPT_DATETIME, DateTime);
}
ObjStartOptions ();
/* Write the option count */
- ObjWrite16 (OptCount);
+ ObjWriteVar (OptCount);
/* Walk through the list and write the options */
O = OptRoot;
while (O) {
- /* Write the type of the option */
+ /* Write the type of the option, then the value */
ObjWrite8 (O->Type);
-
- /* Write the argument */
- switch (O->Type & OPT_ARGMASK) {
-
- case OPT_ARGSTR:
- ObjWriteStr (O->V.Str);
- break;
-
- case OPT_ARGNUM:
- ObjWrite32 (O->V.Val);
- break;
-
- default:
- Internal ("Invalid option type: $%02X", O->Type & 0xFF);
-
- }
+ ObjWriteVar (O->Val);
/* Next option */
O = O->Next;