git.sur5r.net Git - cc65/blob - src/ca65/macpack.c

   1 /*****************************************************************************/
   2 /*                                                                           */
   3 /*                                 macpack.c                                 */
   4 /*                                                                           */
   5 /*           Predefined macro packages for the ca65 macroassembler           */
   6 /*                                                                           */
   7 /*                                                                           */
   8 /*                                                                           */
   9 /* (C) 1998-2008, Ullrich von Bassewitz                                      */
  10 /*                Roemerstrasse 52                                            */
  11 /*                D-70794 Filderstadt                                        */
  12 /* EMail:         uz@cc65.org                                                */
  13 /*                                                                           */
  14 /*                                                                           */
  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.                                    */
  18 /*                                                                           */
  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:                            */
  22 /*                                                                           */
  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              */
  30 /*    distribution.                                                          */
  31 /*                                                                           */
  32 /*****************************************************************************/
  33
  34
  35
  36 /* common */
  37 #include "check.h"
  38 #include "strbuf.h"
  39 #include "strutil.h"
  40
  41 /* ca65 */
  42 #include "error.h"
  43 #include "scanner.h"
  44 #include "macpack.h"
  45
  46
  47
  48 /*****************************************************************************/
  49 /*                                   Data                                    */
  50 /*****************************************************************************/
  51
  52
  53
  54 /* Predefined macro packages converted into C strings by a perl script */
  55 #include "atari.inc"
  56 #include "cbm.inc"
  57 #include "cpu.inc"
  58 #include "generic.inc"
  59 #include "longbranch.inc"
  60
  61 /* Table with pointers to the different packages */
  62 static struct {
  63     const char* Name;
  64     char*       Package;
  65 } MacPackages[MAC_COUNT] = {
  66     /* Packages sorted by id */
  67     { "atari",          MacAtari        },
  68     { "cbm",            MacCBM          },
  69     { "cpu",            MacCPU          },
  70     { "generic",        MacGeneric      },
  71     { "longbranch",     MacLongBranch   },
  72 };
  73
  74 /* Directory that contains standard macro package files */
  75 static StrBuf MacPackDir = STATIC_STRBUF_INITIALIZER;
  76
  77
  78
  79 /*****************************************************************************/
  80 /*                                   Code                                    */
  81 /*****************************************************************************/
  82
  83
  84
  85 int MacPackFind (const StrBuf* Name)
  86 /* Find a macro package by name. The function will either return the id or
  87  * -1 if the package name was not found.
  88  */
  89 {
  90     int I;
  91
  92     for (I = 0; I < MAC_COUNT; ++I) {
  93         if (SB_CompareStr (Name, MacPackages[I].Name) == 0) {
  94             /* Found */
  95             return I;
  96         }
  97     }
  98
  99     /* Not found */
 100     return -1;
 101 }
 102
 103
 104
 105 int MacPackInsert (int Id)
 106 /* Insert the macro package with the given id in the input stream. Returns
 107  * true if the macro package was found and successfully inserted. Returns
 108  * false otherwise.
 109  */
 110 {
 111     int RetCode;
 112
 113     /* Check the parameter */
 114     CHECK (Id >= 0 && Id < MAC_COUNT);
 115
 116     /* If we have a macro package directory given, load a file from the
 117      * directory, otherwise use the builtin stuff.
 118      */
 119     if (SB_IsEmpty (&MacPackDir)) {
 120
 121         /* Insert the builtin package */
 122         NewInputData (MacPackages[Id].Package, 0);
 123
 124         /* Always successful */
 125         RetCode = 1;
 126
 127     } else {
 128
 129         StrBuf Filename = AUTO_STRBUF_INITIALIZER;
 130
 131         /* Build the complete file name */
 132         SB_Copy (&Filename, &MacPackDir);
 133         SB_AppendStr (&Filename, MacPackages[Id].Name);
 134         SB_AppendStr (&Filename, ".mac");
 135         SB_Terminate (&Filename);
 136
 137         /* Open the macro package as include file */
 138         RetCode = NewInputFile (SB_GetConstBuf (&Filename));
 139
 140         /* Destroy the contents of Filename */
 141         SB_Done (&Filename);
 142
 143     }
 144
 145     /* Return the success code */
 146     return RetCode;
 147 }
 148
 149
 150
 151 void MacPackSetDir (const StrBuf* Dir)
 152 /* Set a directory where files for macro packages can be found. Standard is
 153  * to use the builtin packages. For debugging macro packages, external files
 154  * can be used.
 155  */
 156 {
 157     /* Copy the directory name to the buffer */
 158     SB_Copy (&MacPackDir, Dir);
 159
 160     /* Make sure that the last character is a path delimiter */
 161     if (SB_NotEmpty (&MacPackDir)) {
 162         char C = SB_LookAtLast (&MacPackDir);
 163         if (C != '\\' && C != '/') {
 164             SB_AppendChar (&MacPackDir, '/');
 165         }
 166     }
 167
 168     /* Terminate the buffer so it's usable as a C string */
 169     SB_Terminate (&MacPackDir);
 170 }
 171
 172
 173