X-Git-Url: https://jxself.org/git/?p=zilutils.git;a=blobdiff_plain;f=zilasm%2Fmain.c;h=df48b7c86cd9b3cecdbbd0ca8391ec6a4d6b8070;hp=e8e9f7e1ad7b72e61b6e5622ed6a18c3b1bda9d3;hb=512d2cae11f05d1b2eb0824557b6daf4ec6c17e9;hpb=5eeced508bd0eabb590581284719ac6f7e04e45f diff --git a/zilasm/main.c b/zilasm/main.c index e8e9f7e..df48b7c 100644 --- a/zilasm/main.c +++ b/zilasm/main.c @@ -2,6 +2,7 @@ * main.c * * Copyright (C) 2015 Alexander Andrejevic + * Copyright (C) 2015 Jason Self * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU Affero General Public License as @@ -17,10 +18,238 @@ * along with this program. If not, see */ +#include #include +#include +#include +#include +#include +#include + +#include "config.h" + +enum { ZVERSION = 11, ZORKID, ZSERIAL }; + +enum { FAIL = -1, OK = 0, NEED_RESTART = 1 }; + +static struct option const long_options[] = +{ + { "help", no_argument, NULL, 'h' }, + { "version", no_argument, NULL, 'V' }, + { "output", required_argument, NULL, 'o' }, + { "zversion", required_argument, NULL, ZVERSION }, + { "zorkid", required_argument, NULL, ZORKID }, + { "serial", required_argument, NULL, ZSERIAL }, + { NULL, 0, NULL, 0 } +}; + +typedef struct +{ + int todo; +} Opcode_dict; + +struct +{ + int zversion; /* 0 - 8 */ + int zorkid; /* 0 - 65535 */ + char zserial[7]; /* YYMMDD */ + Opcode_dict *opcode_dict; +} Config; + +void wrong_arg(const char *err, ...) +{ + if (err) + { + va_list ap; + va_start(ap, err); + vfprintf(stderr, err, ap); + va_end(ap); + } + fprintf(stderr, "Try `" PACKAGE_NAME " --help' for more information.\n"); + exit(1); +} + +void print_version() +{ + printf( PACKAGE_STRING "\n" + "License AGPLv3+: GNU AGPL version 3 or later\n" + "\n" + "This is free software: you are free to change and redistribute it.\n" + "There is NO WARRANTY, to the extent permitted by law.\n" + ); + exit(0); +} + +void print_usage(int failed) +{ + printf("Usage: " PACKAGE_NAME " [OPTION...] [FILES...]\n" + "\n" + "--version Display program version and exit\n" + "--help Display this help\n" + "\n" + "--zversion (accepts numbers 1 - 8, defaults to 6 if not specified)\n" + "--zorkid (integer between 0 and 65535, defaults to 0 if not specified)\n" + "--serial (six characters of ASCII, defaults to current date\n" + " in the form YYMMDD if not specified)\n" + ); + exit(failed); +} + +void fill_zserial(void) +{ + time_t t; + struct tm *timeinfo; + time (&t); + timeinfo = localtime(&t); + strftime (Config.zserial, sizeof(Config.zserial), "%y%m%d", timeinfo); +} + +void fill_config(void) +{ + Config.zversion = 6; + Config.zorkid = 0; + fill_zserial(); +} + +void parse_intarg(int *dest, const char name[], int min, int max, int defval) +{ + if (!optarg) + { + *dest = defval; + return; + } + int n = atoi(optarg); + if (n >= min && n <= max) + { + *dest = n; + return; + } + wrong_arg("Wrong %s value %s, must be integer between %d and %d\n", + name, optarg, min, max); +} + +void parse_zserial(void) +{ + if (!optarg) + { + fill_zserial(); + return; + } + size_t n = strlen(optarg); + if (n == sizeof(Config.zserial) - 1) + { + char *p = optarg; + while (*p && isalnum(*p)) + p++; + if (!*p) /* ..optarg contains alphanumeric only? */ + { + strncpy(Config.zserial, optarg, sizeof(Config.zserial)); + return; + } + } + wrong_arg("Wrong zserial value %s, must be 6 ascii characters\n", optarg); +} + +void new_file_suffix(char *result, size_t maxlen, const char *src, const char *newsuffix) +{ + strncpy(result, src, maxlen); + char *p = strrchr(result, '.'); + if (p && strchr(p, '/')) + p = NULL; + if (p) + { + strncpy(p, newsuffix, maxlen - (p - result)); + } + else + { + strncat(result, newsuffix, maxlen); + } + result[maxlen] = 0; +} + +char *build_output_filename(const char basename[], const char *suffix) +{ + int n = strlen(basename) + strlen(suffix); + char *ofile = malloc(n + 1); /* todo!!! check for NULL. free. */ + new_file_suffix(ofile, n, basename, suffix); + return ofile; +} + +void build_opcode_dict(void) +{ + /* TODO */ +} + +int init_assembly(void) +{ + /* TODO */ + return OK; +} + +int assembly(void) +{ + /* TODO */ + return OK; +} int main(int argc, char *argv[], char *envp[]) { + const char *output_file = NULL; + int i; + + fill_config(); + + int opt = 0; + while ((opt = getopt_long (argc, argv, "hVo:", long_options, NULL)) != -1) + { + switch(opt) + { + case 'h' : + print_usage(0); + case 'V' : + print_version(); + case 'o' : + if (output_file) wrong_arg("Output file must be given once\n"); + output_file = optarg; + break; + case ZVERSION: + parse_intarg(&Config.zversion, "zversion", 1, 8, 1); + break; + case ZORKID : + parse_intarg(&Config.zorkid, "zorkid", 0, 0xFFFF, 0); + break; + case ZSERIAL : + parse_zserial(); + break; + default : + wrong_arg(0); + } + } + + int first_input_file = optind; + if (first_input_file >= argc) + wrong_arg("Missing input file\n"); + if (!output_file) + output_file = build_output_filename(argv[first_input_file], ".dat"); + // TODO: Everything :) - return EXIT_SUCCESS; + + printf("Input files:\n"); + for (i = optind; i < argc; i++) + printf("\t%s\n", argv[i]); + + printf("Output file: %s\n\n", output_file); + + printf("Config:\n" + "- ZVersion: %d\n" + "- ZorkID: %d\n" + "- ZSerial: %s\n", + Config.zversion, Config.zorkid, Config.zserial + ); + + build_opcode_dict(); /* ..fills Config.opcode_dict */ + + while(init_assembly() == OK && assembly() == NEED_RESTART); + + return 0; }