plomlompom.com Git - plomrogue/blob - src/common/parse_file.c

   1 /* src/common/parse_file.c
   2  *
   3  * This file is part of PlomRogue. PlomRogue is licensed under the GPL version 3
   4  * or any later version. For details on its copyright, license, and warranties,
   5  * see the file NOTICE in the root directory of the PlomRogue source package.
   6  */
   7
   8 #define _POSIX_C_SOURCE 200809L /* strdup(), snprintf() */
   9 #include "parse_file.h"
  10 #include <stddef.h> /* size_t, NULL */
  11 #include <stdio.h> /* FILE, snprintf() */
  12 #include <stdint.h> /* int16_t,uint8_t,uint32_t, INT16_MIN, UINT{8,16,32}_MAX */
  13 #include <stdlib.h> /* atoi(), free() */
  14 #include <string.h> /* strchr, strcmp(), strdup(), strlen() */
  15 #include "rexit.h" /* exit_err(), exit_trouble() */
  16 #include "try_malloc.h" /* try_malloc() */
  17
  18
  19
  20 /* Set by parse_file(), helps err_line() deciding what to do/output on error. */
  21 static uint32_t err_line_count = 0;
  22 static char * err_line_line = NULL;
  23 static char * err_line_intro = NULL;
  24 static uint8_t err_line_exit = 1;
  25
  26
  27
  28 /* Determines the end of the token_from_line() token. */
  29 static void set_token_end(char ** start, char ** limit_char);
  30
  31
  32
  33 static void set_token_end(char ** start, char ** limit_char)
  34 {
  35     char * end_quote = ('\'' == (* start)[0]) ? strchr(* start + 1, '\''): NULL;
  36     * start = (end_quote) ? * start + 1 : *start;
  37     if (end_quote)
  38     {
  39         * end_quote = '\0';
  40         * limit_char = end_quote;
  41         return;
  42     }
  43     char * space = strchr(*start, ' ');
  44     char * tab   = strchr(*start, '\t');
  45     space = (!space || (tab && tab < space)) ? tab : space;
  46     if (space)
  47     {
  48         * space = '\0';
  49     }
  50     *limit_char = strchr(*start, '\0');
  51 }
  52
  53
  54
  55 extern void set_err_line_options(char * intro, char * line, uint8_t exit)
  56 {
  57     err_line_line = line;
  58     err_line_intro = intro;
  59     err_line_exit = exit;
  60 }
  61
  62
  63
  64 extern void err_line_inc()
  65 {
  66     err_line_count++;
  67     err_line(UINT32_MAX == err_line_count, "Line reaches max lines limit.");
  68 }
  69
  70
  71
  72 extern void err_line_zero()
  73 {
  74     err_line_count = 0;
  75 }
  76
  77
  78
  79 extern uint8_t err_line(uint8_t test, char * msg)
  80 {
  81     if (!test)
  82     {
  83         return 0;
  84     }
  85     char * prefix = " Offending line ";
  86     char * affix = ": ";
  87     size_t size =   strlen(err_line_intro) + strlen(msg) + strlen(prefix)
  88                   + 10                 /* strlen for uint32_t representations */
  89                   + strlen(affix) + strlen(err_line_line) + 1;
  90     char * err = try_malloc(size, __func__);
  91     int ret = snprintf(err, size, "%s%s%s%d%s%s", err_line_intro, msg, prefix,
  92                        err_line_count, affix, err_line_line);
  93     exit_trouble(ret < 0, __func__, "snprintf");
  94     if (err_line_exit)
  95     {
  96         exit_err(1, err);
  97     }
  98     exit_trouble(0 > printf("%s\n", err), __func__, "printf");
  99     exit_trouble(EOF == fflush(stdout), __func__, "fflush");
 100     free(err);
 101     return 1;
 102 }
 103
 104
 105
 106 extern char * token_from_line(char * line)
 107 {
 108     static char * final_char = NULL;
 109     static char * limit_char = NULL;
 110     char * start = limit_char + 1;
 111     if (line)
 112     {
 113         start      = line;
 114         limit_char = start;
 115         final_char = &(line[strlen(line)]);
 116         if ('\n' == *(final_char - 1))
 117         {
 118             *(--final_char) = '\0';
 119         }
 120     }
 121     if (final_char < start)
 122     {
 123         return NULL;
 124     }
 125     uint8_t empty = 1;
 126     uint32_t i;
 127     for (i = 0; '\0' != start[i]; i++)
 128     {
 129         if (' ' != start[i] && '\t' != start[i])
 130         {
 131             start = &start[i];
 132             empty = 0;
 133             break;
 134         }
 135     }
 136     if (empty)
 137     {
 138         return NULL;
 139     }
 140     set_token_end(&start, &limit_char);
 141     return start;
 142 }
 143
 144
 145
 146 extern uint8_t parsetest_int(char * string, char type)
 147 {
 148     char * err_8 = "Value must represent proper unsigned 8 bit integer.";
 149     char * err_i = "Value must represent proper signed 16 bit integer.";
 150     char * err_u = "Value must represent proper unsigned 16 bit integer.";
 151     char * err_U = "Value must represent proper unsigned 32 bit integer.";
 152     char * err = ('8' == type) ? err_8 : err_U;
 153     err = ('i' == type) ? err_i : err;
 154     err = ('u' == type) ? err_u : err;
 155     uint8_t ret = err_line(strlen(string) < 1, err);
 156     uint8_t i;
 157     uint8_t test;
 158     for (i = 0; '\0' != string[i]; i++)
 159     {
 160         char * err_many = "Value of too many characters.";
 161         ret = ret + err_line(string[i + 1] && UINT8_MAX == i, err_many);
 162         test = (   (0 == i && ('-' == string[i] || '+' == string[i]))
 163                 || ('0' <= string[i]  && string[i] <= '9'));
 164         ret = ret + err_line(!test, err);
 165     }
 166     ret = ret + err_line(   strlen(string) < 2
 167                          && ('-' == string[i] || '+' == string[i]), err);
 168     test =     (   '8' == type
 169                 && (   strlen(string) > 4
 170                     || atoi(string) < 0 || atoi(string) > UINT8_MAX))
 171             || (   'i' == type
 172                 && (   strlen(string) > 6
 173                     || atol(string) < INT16_MIN || atol(string) > INT16_MAX))
 174             || (   'u' == type
 175                 && (   strlen(string) > 6
 176                     || atoll(string) < 0 || atol(string) > UINT16_MAX))
 177             || (   'U' == type
 178                 && (   strlen(string) > 11
 179                     || atoll(string) < 0 || atoll(string) > UINT32_MAX));
 180     ret = ret + err_line(test, err);
 181     return ret;
 182 }
 183
 184
 185
 186 extern uint8_t parsetest_singlechar(char * string)
 187 {
 188     return err_line(1 !=strlen(string),"Value must be single ASCII character.");
 189 }
 190
 191
 192
 193 extern uint8_t parse_val(char * token0, char * token1, char * comparand,
 194                          char type, char * element)
 195 {
 196     if (!strcmp(token0, comparand))
 197     {
 198         if      ('s' == type)
 199         {
 200             free(* (char **) element);
 201             * (char **) element = strdup(token1);
 202         }
 203         else if ('c' == type)
 204         {
 205             if (!parsetest_singlechar(token1))
 206             {
 207                 *element = (token1)[0];
 208             }
 209         }
 210         else if (!parsetest_int(token1, type))
 211         {
 212             if ('8' == type)
 213             {
 214                 * (uint8_t *) element = atoi(token1);
 215             }
 216             else if ('i' == type)
 217             {
 218                 * (int16_t *) element = atoi(token1);
 219             }
 220             else if ('u' == type)
 221             {
 222                 * (uint16_t *) element = atol(token1);
 223             }
 224             else if ('U' == type)
 225             {
 226                 * (uint32_t *) element = atoll(token1);
 227             }
 228         }
 229         return 1;
 230     }
 231     return 0;
 232 }