zilasm/main.c

   1 /*
   2  * main.c
   3  *
   4  * Copyright (C) 2015 Alexander Andrejevic <theflash AT sdf DOT lonestar DOT org>
   5  * Copyright (C) 2015 Jason Self <j@jxself.org>
   6  *
   7  * This program is free software: you can redistribute it and/or modify
   8  * it under the terms of the GNU Affero General Public License as
   9  * published by the Free Software Foundation, either version 3 of the
  10  * License, or (at your option) any later version.
  11  *
  12  * This program is distributed in the hope that it will be useful,
  13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15  * GNU Affero General Public License for more details.
  16  *
  17  * You should have received a copy of the GNU Affero General Public License
  18  * along with this program.  If not, see <http://www.gnu.org/licenses/>
  19  *
  20  * SPDX-License-Identifier: AGPL-3.0-or-later
  21  */
  22
  23 #include <stdio.h>
  24 #include <stdlib.h>
  25 #include <stdarg.h>
  26 #include <string.h>
  27 #include <getopt.h>
  28 #include <time.h>
  29 #include <ctype.h>
  30
  31 #include "config.h"
  32
  33 const int DEFAULT_ZVERSION = 6;
  34
  35 enum { ZVERSION = 11, ZORKID, ZSERIAL };
  36
  37 enum { FAIL = -1, OK = 0, NEED_RESTART = 1 };
  38
  39 static struct option const long_options[] =
  40 {
  41         { "help",     no_argument,       NULL, 'h' },
  42         { "version",  no_argument,       NULL, 'V' },
  43         { "output",   required_argument, NULL, 'o' },
  44         { "zversion", required_argument, NULL, ZVERSION },
  45         { "zorkid",   required_argument, NULL, ZORKID   },
  46         { "serial",   required_argument, NULL, ZSERIAL  },
  47         { NULL, 0, NULL, 0 }
  48 };
  49
  50 typedef struct {
  51         int todo;
  52 } Opcode_dict;
  53
  54 struct
  55 {
  56         int  zversion;     /* 0 - 8     */
  57         int  zorkid;       /* 0 - 65535 */
  58         char zserial[7];   /* YYMMDD    */
  59         Opcode_dict *opcode_dict;
  60 } Config;
  61
  62 void wrong_arg(const char *err, ...)
  63 {
  64         if (err) {
  65                 va_list ap;
  66                 va_start(ap, err);
  67                 vfprintf(stderr, err, ap);
  68                 va_end(ap);
  69         }
  70         fprintf(stderr, "Try `" PACKAGE_NAME " --help' for more information.\n");
  71         exit(1);
  72 }
  73
  74 void print_version()
  75 {
  76         printf( PACKAGE_STRING "\n"
  77                "License AGPLv3+: GNU AGPL version 3 or later\n"
  78                "<http://gnu.org/licenses/agpl.html>\n"
  79                "This is free software: you are free to change and redistribute it.\n"
  80                "There is NO WARRANTY, to the extent permitted by law.\n"
  81         );
  82         exit(0);
  83 }
  84
  85 void print_usage(int failed)
  86 {
  87         printf("Usage: " PACKAGE_NAME " [OPTION...] [FILES...]\n"
  88                "\n"
  89                "--version  Display program version and exit\n"
  90                "--help     Display this help\n"
  91                "\n"
  92                "--zversion (accepts numbers 1 - 8, defaults to %d if not specified)\n"
  93                "--zorkid   (integer between 0 and 65535, defaults to 0 if not specified)\n"
  94                "--serial   (six characters of ASCII, defaults to current date\n"
  95                "            in the form YYMMDD if not specified)\n",
  96                DEFAULT_ZVERSION
  97         );
  98         exit(failed);
  99 }
 100
 101 void fill_zserial(void)
 102 {
 103         time_t t;
 104         struct tm *timeinfo;
 105         time (&t);
 106         timeinfo = localtime(&t);
 107         strftime (Config.zserial, sizeof(Config.zserial), "%y%m%d", timeinfo);
 108 }
 109
 110 void fill_config(void)
 111 {
 112         bzero(&Config, sizeof(Config));
 113         Config.zversion = DEFAULT_ZVERSION;
 114         fill_zserial();
 115 }
 116
 117 void parse_intarg(int *dest, const char name[], int min, int max, int defval)
 118 {
 119         if (!optarg) {
 120                 *dest = defval;
 121                 return;
 122         }
 123         int n = atoi(optarg);
 124         if (n >= min && n <= max) {
 125                 *dest = n;
 126                 return;
 127         }
 128         wrong_arg("Wrong %s value %s, must be integer between %d and %d\n",
 129                 name, optarg, min, max);
 130 }
 131
 132 void parse_zserial(void)
 133 {
 134         if (!optarg) {
 135                 fill_zserial();
 136                 return;
 137         }
 138         size_t n = strlen(optarg);
 139         if (n == sizeof(Config.zserial) - 1) {
 140                 char *p = optarg;
 141                 while (*p && isalnum(*p))
 142                         p++;
 143                 if (!*p) {    /* ..optarg contains alphanumeric only? */
 144                         strncpy(Config.zserial, optarg, sizeof(Config.zserial));
 145                         return;
 146                 }
 147         }
 148         wrong_arg("Wrong zserial value %s, must be 6 ascii characters\n", optarg);
 149 }
 150
 151 void new_file_suffix(char *result, size_t maxlen, const char *src, const char *newsuffix)
 152 {
 153         strncpy(result, src, maxlen);
 154         char *p = strrchr(result, '.');
 155         if (p && strchr(p, '/'))
 156                 p = NULL;
 157         if (p) {
 158                 strncpy(p, newsuffix, maxlen - (p - result));
 159         } else {
 160                 strncat(result, newsuffix, maxlen);
 161         }
 162         result[maxlen] = 0;
 163 }
 164
 165 char *build_output_filename(const char basename[], const char *suffix)
 166 {
 167         int n = strlen(basename) + strlen(suffix);
 168         char *ofile = malloc(n + 1);  /* todo!!! check for NULL. free. */
 169         new_file_suffix(ofile, n, basename, suffix);
 170         return ofile;
 171 }
 172
 173 int init_assembly(void)
 174 {
 175         /* TODO */
 176         return OK;
 177 }
 178
 179 int assembly(void)
 180 {
 181         /* TODO */
 182         return OK;
 183 }
 184
 185 int main(int argc, char *argv[], char *envp[])
 186 {
 187         const char *output_file = NULL;
 188         int i;
 189
 190         fill_config();
 191
 192         int opt = 0;
 193         while ((opt = getopt_long (argc, argv, "hVo:", long_options, NULL)) != -1) {
 194                 switch(opt) {
 195                 case 'h'     : print_usage(0);
 196                 case 'V'     : print_version();
 197                 case 'o'     : if (output_file) wrong_arg("Output file must be given once\n");
 198                                output_file = optarg;
 199                                break;
 200                 case ZVERSION: parse_intarg(&Config.zversion, "zversion", 1, 8,      1); break;
 201                 case ZORKID  : parse_intarg(&Config.zorkid,   "zorkid",   0, 0xFFFF, 0); break;
 202                 case ZSERIAL : parse_zserial();                                          break;
 203                 default      : wrong_arg(0);
 204                 }
 205         }
 206
 207         int first_input_file = optind;
 208         if (first_input_file >= argc)
 209                 wrong_arg("Missing input file\n");
 210         if (!output_file)
 211                 output_file = build_output_filename(argv[first_input_file], ".dat");
 212
 213         // TODO: Everything :)
 214
 215         printf("Input files:\n");
 216         for (i = optind; i < argc; i++)
 217                 printf("\t%s\n", argv[i]);
 218
 219         printf("Output file: %s\n\n", output_file);
 220
 221         printf("Config:\n"
 222                "- ZVersion: %d\n"
 223                "- ZorkID:   %d\n"
 224                "- ZSerial:  %s\n",
 225                Config.zversion, Config.zorkid, Config.zserial
 226         );
 227
 228         init_opcodes(Config.zversion, 0);
 229
 230         while(init_assembly() == OK && assembly() == NEED_RESTART);
 231
 232         /* TODO! List global symbols */
 233         /* TODO! Find abbreviations */
 234
 235         return 0;
 236 }