X-Git-Url: https://jxself.org/git/?p=zilutils.git;a=blobdiff_plain;f=zilasm%2Fmain.c;h=38d6ec9eb27ef5bd5755a5f31fa507cf048e6e0a;hp=daa943c7919c76808084a9eba2926fe558b82258;hb=fd453701e368225dd15e9df2e5b1752aebe454e8;hpb=05f035a384b15e5fba9e93ff501159fc8397a5e5 diff --git a/zilasm/main.c b/zilasm/main.c index daa943c..38d6ec9 100644 --- a/zilasm/main.c +++ b/zilasm/main.c @@ -28,155 +28,207 @@ #include "config.h" +const int DEFAULT_ZVERSION = 6; + 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' }, - { "zversion", required_argument, NULL, ZVERSION }, - { "zorkid", required_argument, NULL, ZORKID }, - { "serial", required_argument, NULL, ZSERIAL }, - { NULL, 0, NULL, 0 } - + { "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 */ + 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); + 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); + 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 1 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); + 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 %d 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", + DEFAULT_ZVERSION + ); + 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); + 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(); + bzero(&Config, sizeof(Config)); + Config.zversion = DEFAULT_ZVERSION; + 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); + 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); + 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; +} + +int init_assembly(void) +{ + /* TODO */ + return OK; +} + +int assembly(void) +{ + /* TODO */ + return OK; } int main(int argc, char *argv[], char *envp[]) { - fill_config(); - - int opt = 0; - while ((opt = getopt_long (argc, argv, "hV", long_options, NULL)) != -1) - { - switch(opt) - { - case 'h' : - print_usage(0); - case 'V' : - print_version(); - 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); - } - } - - // TODO: Everything :) - - printf("Config:\n" - "- ZVersion: %d\n" - "- ZorkID: %d\n" - "- ZSerial: %s\n", - Config.zversion, Config.zorkid, Config.zserial - ); - - return 0; + 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 :) + + 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 + ); + + init_opcodes(Config.zversion, 0); + + while(init_assembly() == OK && assembly() == NEED_RESTART); + + /* TODO! List global symbols */ + /* TODO! Find abbreviations */ + + return 0; }