diff options
Diffstat (limited to 'src/tibencode.c')
| -rw-r--r-- | src/tibencode.c | 262 |
1 files changed, 128 insertions, 134 deletions
diff --git a/src/tibencode.c b/src/tibencode.c index a08fc69..022004f 100644 --- a/src/tibencode.c +++ b/src/tibencode.c @@ -1,6 +1,6 @@ /* * tibencode - Compile a TI BASIC program - * Copyright (C) 2015-2016 Delwink, LLC + * Copyright (C) 2015-2017 Delwink, LLC * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU Affero General Public License as published by @@ -19,7 +19,6 @@ #include <stdlib.h> #include <string.h> #include <unistd.h> -#include <getopt.h> #include "tibchar.h" #include "tibtranscode.h" @@ -28,146 +27,141 @@ #define USAGE_INFO "USAGE: tibencode [options]\n\n\ tibencode reads a TI-BASIC program from stdin and prints to stdout.\n\n\ OPTIONS:\n\ -\t-h, --help\tPrints this help message and exits\n\ -\t-v, --version\tPrints version info and exits\n" +\t-h\tPrints this help message and exits\n\ +\t-v\tPrints version info and exits\n" -#define VERSION_INFO "tibencode (Delwink LiberTI) 1.0.0\n\ -Copyright (C) 2015-2016 Delwink, LLC\n\ +#define VERSION_INFO "tibencode (Delwink LiberTI) 0.0.0\n\ +Copyright (C) 2015-2017 Delwink, LLC\n\ License AGPLv3: GNU AGPL version 3 only <http://gnu.org/licenses/agpl.html>.\n\ This is libre software: you are free to change and redistribute it.\n\ There is NO WARRANTY, to the extent permitted by law.\n\n\ Written by David McMackins II." int -main (int argc, char *argv[]) +main(int argc, char *argv[]) { - unsigned long written; - - struct option longopts[] = - { - {"help", no_argument, 0, 'h'}, - {"version", no_argument, 0, 'v'}, - {0, 0, 0, 0} - }; - - if (argc > 1) - { - int c; - int longindex; - while ((c = getopt_long (argc, argv, "hv", longopts, &longindex)) != -1) - { - switch (c) - { - case 'h': - puts (USAGE_INFO); - return 0; - - case 'v': - puts (VERSION_INFO); - return 0; - - case '?': - return 1; - } - } - } - - tib_errno = tib_keyword_init (); - if (tib_errno) - { - fputs ("tibencode: Error allocating space for keyword tree.\n", stderr); - return 1; - } - - struct tib_expr translated; - tib_errno = tib_expr_init (&translated); - if (tib_errno) - { - fputs ("tibencode: Error creating expression buffer.\n", stderr); - return 1; - } - - unsigned int max_line_len = 128; - char *buf = malloc (max_line_len * sizeof (char)); - if (NULL == buf) - { - tib_expr_destroy (&translated); - fputs ("tibencode: Error allocating line buffer.\n", stderr); - return 1; - } - - int c = '\0'; - unsigned int line_len = 0; - while (c != EOF) - { - for (; line_len < max_line_len - 1; ++line_len) - { - c = getchar (); - if ('\n' == c || EOF == c) - break; - - buf[line_len] = c; - } - - if (max_line_len - 1 == line_len) - { - char *old = buf; - - max_line_len *= 2; - buf = realloc (buf, max_line_len * sizeof (char)); - if (!buf) - { - free (old); - tib_errno = TIB_EALLOC; - goto end; - } - - continue; - } - - buf[line_len] = '\0'; - - struct tib_expr line; - tib_errno = tib_encode_str (&line, buf); - if (tib_errno) - goto end; - - tib_errno = tib_exprcat (&translated, &line); - tib_expr_destroy (&line); - if (tib_errno) - goto end; - - if (c != EOF) - { - tib_errno = tib_expr_push (&translated, '\n'); - if (tib_errno) - goto end; - } - - line_len = 0; - } + unsigned long written; + + if (argc > 1) + { + int c; + while ((c = getopt(argc, argv, "hv")) != -1) + { + switch (c) + { + case 'h': + puts(USAGE_INFO); + return 0; + + case 'v': + puts(VERSION_INFO); + return 0; + + case '?': + return 1; + } + } + } + + tib_errno = tib_keyword_init(); + if (tib_errno) + { + fputs("tibencode: Error allocating space for keyword tree.\n", + stderr); + return 1; + } + + struct tib_expr translated; + tib_errno = tib_expr_init(&translated); + if (tib_errno) + { + fputs("tibencode: Error creating expression buffer.\n", + stderr); + return 1; + } + + unsigned int max_line_len = 128; + char *buf = malloc(max_line_len * sizeof(char)); + if (NULL == buf) + { + tib_expr_destroy(&translated); + fputs("tibencode: Error allocating line buffer.\n", stderr); + return 1; + } + + int c = '\0'; + unsigned int line_len = 0; + while (c != EOF) + { + for (; line_len < max_line_len - 1; ++line_len) + { + c = getchar(); + if ('\n' == c || EOF == c) + break; + + buf[line_len] = c; + } + + if (max_line_len - 1 == line_len) + { + char *old = buf; + + max_line_len *= 2; + buf = realloc(buf, max_line_len * sizeof(char)); + if (!buf) + { + free(old); + tib_errno = TIB_EALLOC; + goto end; + } + + continue; + } + + buf[line_len] = '\0'; + + struct tib_expr line; + tib_errno = tib_encode_str(&line, buf); + if (tib_errno) + goto end; + + tib_errno = tib_exprcat(&translated, &line); + tib_expr_destroy(&line); + if (tib_errno) + goto end; + + if (c != EOF) + { + tib_errno = tib_expr_push(&translated, '\n'); + if (tib_errno) + goto end; + } + + line_len = 0; + } end: - free (buf); - tib_keyword_free (); - - if (tib_errno) - { - tib_expr_destroy (&translated); - fprintf (stderr, "tibencode: Error %d occurred while assembling.\n", - tib_errno); - return 1; - } - - tib_errno = tib_fwrite (stdout, &translated, &written); - tib_expr_destroy (&translated); - if (tib_errno) - { - fprintf (stderr, "tibencode: Error %d occurred while processing. " - "Wrote %lu characters.\n", - tib_errno, written); - return 1; - } - - return 0; + free(buf); + tib_keyword_free(); + + if (tib_errno) + { + tib_expr_destroy(&translated); + fprintf(stderr, + "tibencode: Error %d occurred while assembling.\n", + tib_errno); + return 1; + } + + tib_errno = tib_fwrite(stdout, &translated, &written); + tib_expr_destroy(&translated); + if (tib_errno) + { + fprintf(stderr, + "tibencode: Error %d occurred while processing. Wrote %lu characters.\n", + tib_errno, written); + return 1; + } + + return 0; } |