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 "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 char* 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 (StrCaseCmp (Name, MacPackages[I].Name) == 0) {
  94             /* Found */
  95             return I;
  96         }
  97     }
  98
  99     /* Not found */
 100     return -1;
 101 }
 102
 103
 104
 105 void MacPackInsert (int Id)
 106 /* Insert the macro package with the given id in the input stream */
 107 {
 108     /* Check the parameter */
 109     CHECK (Id >= 0 && Id < MAC_COUNT);
 110
 111     /* If we have a macro package directory given, load a file from the
 112      * directory, otherwise use the builtin stuff.
 113      */
 114     if (SB_IsEmpty (&MacPackDir)) {
 115
 116         /* Insert the builtin package */
 117         NewInputData (MacPackages[Id].Package, 0);
 118
 119     } else {
 120
 121         StrBuf Filename = AUTO_STRBUF_INITIALIZER;
 122
 123         /* Build the complete file name */
 124         SB_Copy (&Filename, &MacPackDir);
 125         SB_AppendStr (&Filename, MacPackages[Id].Name);
 126         SB_AppendStr (&Filename, ".mac");
 127         SB_Terminate (&Filename);
 128
 129         /* Open the macro package as include file */
 130         NewInputFile (SB_GetConstBuf (&Filename));
 131
 132         /* Destroy the contents of Filename */
 133         DoneStrBuf (&Filename);
 134
 135     }
 136 }
 137
 138
 139
 140 void MacPackSetDir (const char* Dir)
 141 /* Set a directory where files for macro packages can be found. Standard is
 142  * to use the builtin packages. For debugging macro packages, external files
 143  * can be used.
 144  */
 145 {
 146     /* Copy the directory name to the buffer */
 147     SB_CopyStr (&MacPackDir, Dir);
 148
 149     /* Make sure that the last character is a path delimiter */
 150     if (SB_NotEmpty (&MacPackDir)) {
 151         char C = SB_LookAtLast (&MacPackDir);
 152         if (C != '\\' && C != '/') {
 153             SB_AppendChar (&MacPackDir, '/');
 154         }
 155     }
 156
 157     /* Terminate the buffer so it's usable as a C string */
 158     SB_Terminate (&MacPackDir);
 159 }
 160
 161
 162