main.c

   1 /*
   2  * Copyright (C) 2012
   3  *     Dale Weiler
   4  *
   5  * Permission is hereby granted, free of charge, to any person obtaining a copy of
   6  * this software and associated documentation files (the "Software"), to deal in
   7  * the Software without restriction, including without limitation the rights to
   8  * use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies
   9  * of the Software, and to permit persons to whom the Software is furnished to do
  10  * so, subject to the following conditions:
  11  *
  12  * The above copyright notice and this permission notice shall be included in all
  13  * copies or substantial portions of the Software.
  14  *
  15  * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
  16  * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
  17  * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
  18  * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
  19  * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
  20  * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
  21  * SOFTWARE.
  22  */
  23 #include "gmqcc.h"
  24 // todo CLEANUP this argitem thing
  25 typedef struct { char *name, type; } argitem;
  26 VECTOR_MAKE(argitem, items);
  27
  28 /* global options */
  29 int opts_debug                     = 0;
  30 int opts_memchk                    = 0;
  31 int opts_compiler                  = COMPILER_GMQCC;
  32 int opts_darkplaces_stringtablebug = 0;
  33
  34 static const int usage(const char *const app) {
  35     printf("usage:\n");
  36     printf("    %s -c<file>          -oprog.dat -- compile file\n"     , app);
  37     printf("    %s -a<file>          -oprog.dat -- assemble file\n"    , app);
  38     printf("    %s -c<file> -i<file> -oprog.dat -- compile together (allowed multiple -i<file>)\n" , app);
  39     printf("    %s -a<file> -i<file> -oprog.dat -- assemble together(allowed multiple -i<file>)\n", app);
  40     printf("    example:\n");
  41     printf("    %s -cfoo.qc -ibar.qc -oqc.dat -afoo.qs -ibar.qs -oqs.dat\n", app);
  42     printf("    additional flags:\n");
  43     printf("        -debug           -- turns on compiler debug messages\n");
  44     printf("        -memchk          -- turns on compiler memory leak check\n");
  45     printf("        -help            -- prints this help/usage text\n");
  46     printf("        -std             -- select the QuakeC compile type (types below):\n");
  47     printf("            -std=qcc     -- original QuakeC\n");
  48     printf("            -std=ftqecc  -- fteqcc QuakeC\n");
  49     printf("            -std=qccx    -- qccx QuakeC\n");
  50     printf("            -std=gmqcc   -- this compiler QuakeC (default selection)\n");
  51     printf("    code flags -f*\n");
  52     printf("        -fdarkplaces-stringtablebug -- patches the string table to work with bugged versions of darkplaces\n");
  53     return -1;
  54 }
  55
  56 int main(int argc, char **argv) {
  57     size_t itr = 0;
  58     char  *app = &argv[0][0];
  59     FILE  *fpp = NULL;
  60
  61     /*
  62      * Parse all command line arguments.  This is rather annoying to do
  63      * because of all tiny corner cases.
  64      */
  65     if (argc <= 1 || (argv[1][0] != '-'))
  66         return usage(app);
  67
  68     while ((argc > 1) && argv[1][0] == '-') {
  69         switch (argv[1][1]) {
  70             case 'c': items_add((argitem){util_strdup(&argv[1][2]), 0}); break; /* compile  */
  71             case 'a': items_add((argitem){util_strdup(&argv[1][2]), 1}); break; /* assemble */
  72             case 'i': items_add((argitem){util_strdup(&argv[1][2]), 2}); break; /* includes */
  73             default:
  74                 if (!strncmp(&argv[1][1], "debug" , 5)) { opts_debug  = 1; break; }
  75                 if (!strncmp(&argv[1][1], "memchk", 6)) { opts_memchk = 1; break; }
  76                 if (!strncmp(&argv[1][1], "help",   4)) {
  77                     return usage(app);
  78                     break;
  79                 }
  80                 /* compiler type selection */
  81                 if (!strncmp(&argv[1][1], "std=qcc"   , 7 )) { opts_compiler = COMPILER_QCC;    break; }
  82                 if (!strncmp(&argv[1][1], "std=fteqcc", 10)) { opts_compiler = COMPILER_FTEQCC; break; }
  83                 if (!strncmp(&argv[1][1], "std=qccx",   8 )) { opts_compiler = COMPILER_QCCX;   break; }
  84                 if (!strncmp(&argv[1][1], "std=gmqcc",  9 )) { opts_compiler = COMPILER_GMQCC;  break; }
  85                 if (!strncmp(&argv[1][1], "std=",       4 )) {
  86                     printf("invalid std selection, supported types:\n");
  87                     printf("    -std=qcc     -- original QuakeC\n");
  88                     printf("    -std=ftqecc  -- fteqcc QuakeC\n");
  89                     printf("    -std=qccx    -- qccx QuakeC\n");
  90                     printf("    -std=gmqcc   -- this compiler QuakeC (default selection)\n");
  91                     return 0;
  92                 }
  93
  94                 /* code specific switches */
  95                 if (!strncmp(&argv[1][1], "fdarkplaces-stringtablebug", 26)) {
  96                     opts_darkplaces_stringtablebug = 1;
  97                     break;
  98                 }
  99                 return usage(app);
 100
 101         }
 102         ++argv;
 103         --argc;
 104     }
 105
 106     /*
 107      * options could depend on another option, this is where option
 108      * validity checking like that would take place.
 109      */
 110     if (opts_memchk && !opts_debug)
 111         printf("Warning: cannot enable -memchk, without -debug.\n");
 112
 113     util_debug("COM", "starting ...\n");
 114     /* multi file multi path compilation system */
 115     for (; itr < items_elements; itr++) {
 116         switch (items_data[itr].type) {
 117             case 0:
 118                 fpp = fopen(items_data[itr].name, "r");
 119                 struct lex_file *lex = lex_open(fpp);
 120                 parse_gen(lex);
 121                 lex_close(lex);
 122                 break;
 123             case 1:
 124                 asm_init (items_data[itr].name, &fpp);
 125                 asm_parse(fpp);
 126                 asm_close(fpp);
 127                 break;
 128         }
 129     }
 130
 131     util_debug("COM", "cleaning ...\n");
 132     /* clean list */
 133     for (itr = 0; itr < items_elements; itr++)
 134         mem_d(items_data[itr].name);
 135     mem_d(items_data);
 136
 137     util_meminfo();
 138     return 0;
 139 }