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-2005, Ullrich von Bassewitz                                      */
  10 /*                Römerstrasse 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 "cbm.inc"
  56 #include "cpu.inc"
  57 #include "generic.inc"
  58 #include "longbranch.inc"
  59
  60 /* Table with pointers to the different packages */
  61 static struct {
  62     const char* Name;
  63     char*       Package;
  64 } MacPackages[MAC_COUNT] = {
  65     /* Packages sorted by id */
  66     { "cbm",            MacCBM          },
  67     { "cpu",            MacCPU          },
  68     { "generic",        MacGeneric      },
  69     { "longbranch",     MacLongBranch   },
  70 };
  71
  72 /* Directory that contains standard macro package files */
  73 static StrBuf MacPackDir = STATIC_STRBUF_INITIALIZER;
  74
  75
  76
  77 /*****************************************************************************/
  78 /*                                   Code                                    */
  79 /*****************************************************************************/
  80
  81
  82
  83 int MacPackFind (const char* Name)
  84 /* Find a macro package by name. The function will either return the id or
  85  * -1 if the package name was not found.
  86  */
  87 {
  88     int I;
  89
  90     for (I = 0; I < MAC_COUNT; ++I) {
  91         if (StrCaseCmp (Name, MacPackages[I].Name) == 0) {
  92             /* Found */
  93             return I;
  94         }
  95     }
  96
  97     /* Not found */
  98     return -1;
  99 }
 100
 101
 102
 103 void MacPackInsert (int Id)
 104 /* Insert the macro package with the given id in the input stream */
 105 {
 106     /* Check the parameter */
 107     CHECK (Id >= 0 && Id < MAC_COUNT);
 108
 109     /* If we have a macro package directory given, load a file from the
 110      * directory, otherwise use the builtin stuff.
 111      */
 112     if (SB_IsEmpty (&MacPackDir)) {
 113
 114         /* Insert the builtin package */
 115         NewInputData (MacPackages[Id].Package, 0);
 116
 117     } else {
 118
 119         StrBuf Filename = AUTO_STRBUF_INITIALIZER;
 120
 121         /* Build the complete file name */
 122         SB_Copy (&Filename, &MacPackDir);
 123         SB_AppendStr (&Filename, MacPackages[Id].Name);
 124         SB_AppendStr (&Filename, ".mac");
 125         SB_Terminate (&Filename);
 126
 127         /* Open the macro package as include file */
 128         NewInputFile (SB_GetConstBuf (&Filename));
 129
 130         /* Destroy the contents of Filename */
 131         DoneStrBuf (&Filename);
 132
 133     }
 134 }
 135
 136
 137
 138 void MacPackSetDir (const char* Dir)
 139 /* Set a directory where files for macro packages can be found. Standard is
 140  * to use the builtin packages. For debugging macro packages, external files
 141  * can be used.
 142  */
 143 {
 144     /* Copy the directory name to the buffer */
 145     SB_CopyStr (&MacPackDir, Dir);
 146
 147     /* Make sure that the last character is a path delimiter */
 148     if (SB_NotEmpty (&MacPackDir)) {
 149         char C = SB_LookAtLast (&MacPackDir);
 150         if (C != '\\' && C != '/') {
 151             SB_AppendChar (&MacPackDir, '/');
 152         }
 153     }
 154
 155     /* Terminate the buffer so it's usable as a C string */
 156     SB_Terminate (&MacPackDir);
 157 }
 158
 159
 160