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

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