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 <unistd.h> /* access(), F_OK */
  11 #include "readwrite.h" /* try_fopen(), try_fclose(), textfile_width() */
  12 #include "rexit.h" /* exit_err(), exit_trouble() */
  13 #include "try_malloc.h" /* try_malloc() */
  14
  15
  16
  17 /* Set by parse_file(), helps err_line() deciding what to do/output on error. */
  18 static uint32_t err_line_count = 0;
  19 static char * err_line_line = NULL;
  20 static char * err_line_intro = NULL;
  21 static uint8_t err_line_exit = 1;
  22
  23
  24
  25 /* Determines the end of the token_from_line() token. */
  26 static void set_token_end(char ** start, char ** limit_char);
  27
  28
  29
  30 static void set_token_end(char ** start, char ** limit_char)
  31 {
  32     char * end_quote = ('\'' == (* start)[0]) ? strchr(* start + 1, '\''): NULL;
  33     * start = (end_quote) ? * start + 1 : *start;
  34     if (end_quote)
  35     {
  36         * end_quote = '\0';
  37         * limit_char = end_quote;
  38         return;
  39     }
  40     char * space = strchr(*start, ' ');
  41     char * tab   = strchr(*start, '\t');
  42     space = (!space || (tab && tab < space)) ? tab : space;
  43     if (space)
  44     {
  45         * space = '\0';
  46     }
  47     *limit_char = strchr(*start, '\0');
  48 }
  49
  50
  51
  52 extern void parse_file(char * path, void (* token_to_entry) (char *, char *))
  53 {
  54     char * f_name = "read_new_config_file()";
  55     char * prefix = "Failed reading config file: \"";
  56     char * affix = "\". ";
  57     size_t size = strlen(prefix) + strlen(path) + strlen(affix) + 1;
  58     char * errline_intro = try_malloc(size, f_name);
  59     int test = snprintf(errline_intro, size, "%s%s%s", prefix, path, affix);
  60     exit_trouble(test < 0, f_name, "snprintf()");
  61     exit_err(access(path, F_OK), errline_intro);
  62     FILE * file = try_fopen(path, "r", f_name);
  63     uint32_t linemax = textfile_width(file);
  64     char * errline_line = try_malloc(linemax + 1, f_name);
  65     set_err_line_options(errline_intro, errline_line, 0, 1);
  66     err_line(0 == linemax, "File is empty.");
  67     char * token0 = NULL; /* For final token_to_entry() if while() stagnates. */
  68     char * token1 = NULL;
  69     char * err_val = "No value given.";
  70     while (try_fgets(errline_line, linemax + 1, file, f_name))
  71     {
  72         err_line_count++;
  73         err_line(UINT32_MAX == err_line_count, "Line reaches max lines limit.");
  74         char * line_copy = strdup(errline_line);
  75         token0 = token_from_line(line_copy);
  76         if (token0)
  77         {
  78             err_line(0 == (token1 = token_from_line(NULL)), err_val);
  79             token_to_entry(token0, token1);
  80             token0 = NULL;
  81         }
  82         free(line_copy);
  83     }
  84     token_to_entry(token0, token1);
  85     try_fclose(file, f_name);
  86     free(errline_line);
  87     free(errline_intro);
  88 }
  89
  90
  91
  92 extern void set_err_line_options(char * intro, char * line, uint32_t count,
  93                                  uint8_t exit)
  94 {
  95     err_line_count = count;
  96     err_line_line = line;
  97     err_line_intro = intro;
  98     err_line_exit = exit;
  99 }
 100
 101
 102
 103 extern uint8_t err_line(uint8_t test, char * msg)
 104 {
 105     if (!test)
 106     {
 107         return 0;
 108     }
 109     char * f_name = "err_line()";
 110     char * prefix = " Offending line ";
 111     char * affix = ":\n";
 112     size_t size =   strlen(err_line_intro) + strlen(msg) + strlen(prefix)
 113                   + 10                 /* strlen for uint32_t representations */
 114                   + strlen(affix) + strlen(err_line_line) + 1;
 115     char * err = try_malloc(size, f_name);
 116     int ret = snprintf(err, size, "%s%s%s%d%s%s", err_line_intro, msg, prefix,
 117                        err_line_count, affix, err_line_line);
 118     exit_trouble(ret < 0, f_name, "snprintf()");
 119     if (err_line_exit)
 120     {
 121         exit_err(1, err);
 122     }
 123     exit_trouble(0 > printf("%s\n", err), f_name, "printf()");
 124     exit_trouble(EOF == fflush(stdout), f_name, "fflush()");
 125     free(err);
 126     return 1;
 127 }
 128
 129
 130
 131 extern char * token_from_line(char * line)
 132 {
 133     static char * final_char = NULL;
 134     static char * limit_char = NULL;
 135     char * start = limit_char + 1;
 136     if (line)
 137     {
 138         start      = line;
 139         limit_char = start;
 140         final_char = &(line[strlen(line)]);
 141         if ('\n' == *(final_char - 1))
 142         {
 143             *(--final_char) = '\0';
 144         }
 145     }
 146     if (final_char < start)
 147     {
 148         return NULL;
 149     }
 150     uint8_t empty = 1;
 151     uint32_t i;
 152     for (i = 0; '\0' != start[i]; i++)
 153     {
 154         if (' ' != start[i] && '\t' != start[i])
 155         {
 156             start = &start[i];
 157             empty = 0;
 158             break;
 159         }
 160     }
 161     if (empty)
 162     {
 163         return NULL;
 164     }
 165     set_token_end(&start, &limit_char);
 166     return start;
 167 }
 168
 169
 170
 171 extern uint8_t parsetest_int(char * string, char type)
 172 {
 173     char * err_8 = "Value must represent proper unsigned 8 bit integer.";
 174     char * err_i = "Value must represent proper signed 16 bit integer.";
 175     char * err_u = "Value must represent proper unsigned 16 bit integer.";
 176     char * err_U = "Value must represent proper unsigned 32 bit integer.";
 177     char * err = ('8' == type) ? err_8 : err_U;
 178     err = ('i' == type) ? err_i : err;
 179     err = ('u' == type) ? err_u : err;
 180     uint8_t ret = err_line(strlen(string) < 1, err);
 181     uint8_t i;
 182     uint8_t test;
 183     for (i = 0; '\0' != string[i]; i++)
 184     {
 185         char * err_many = "Value of too many characters.";
 186         ret = ret + err_line(string[i + 1] && UINT8_MAX == i, err_many);
 187         test = (   (0 == i && ('-' == string[i] || '+' == string[i]))
 188                 || ('0' <= string[i]  && string[i] <= '9'));
 189         ret = ret + err_line(!test, err);
 190     }
 191     ret = ret + err_line(   strlen(string) < 2
 192                          && ('-' == string[i] || '+' == string[i]), err);
 193     test =     (   '8' == type
 194                 && (   strlen(string) > 4
 195                     || atoi(string) < 0 || atoi(string) > UINT8_MAX))
 196             || (   'i' == type
 197                 && (   strlen(string) > 6
 198                     || atol(string) < INT16_MIN || atol(string) > INT16_MAX))
 199             || (   'u' == type
 200                 && (   strlen(string) > 6
 201                     || atoll(string) < 0 || atol(string) > UINT16_MAX))
 202             || (   'U' == type
 203                 && (   strlen(string) > 11
 204                     || atoll(string) < 0 || atoll(string) > UINT32_MAX));
 205     ret = ret + err_line(test, err);
 206     return ret;
 207 }
 208
 209
 210
 211 extern void parsetest_defcontext(uint8_t flags)
 212 {
 213     err_line(!(flags & EDIT_STARTED),"Outside appropriate definition context.");
 214 }
 215
 216
 217
 218 extern uint8_t parsetest_singlechar(char * string)
 219 {
 220     return err_line(1 !=strlen(string),"Value must be single ASCII character.");
 221 }
 222
 223
 224
 225 extern void parsetest_too_many_values()
 226 {
 227     err_line(NULL != token_from_line(NULL), "Too many values.");
 228 }
 229
 230
 231
 232 extern void parse_id_uniq(int test)
 233 {
 234     err_line(0 != test, "Declaration of ID already used.");
 235 }
 236
 237
 238
 239 extern void parse_unknown_arg()
 240 {
 241     err_line(1, "Unknown argument.");
 242 }
 243
 244
 245
 246 extern char * parse_init_entry(uint8_t * flags, size_t size)
 247 {
 248     char * f_name = "parse_init_entry()";
 249     *flags = EDIT_STARTED;
 250     char * p = try_malloc(size, f_name);
 251     memset(p, 0, size);
 252     return p;
 253 }
 254
 255
 256
 257 extern uint8_t parse_val(char * token0, char * token1, char * comparand,
 258                          char type, char * element)
 259 {
 260     if (!strcmp(token0, comparand))
 261     {
 262         if      ('s' == type)
 263         {
 264             * (char **) element = strdup(token1);
 265         }
 266         else if ('c' == type && !parsetest_singlechar(token1))
 267         {
 268             *element = (token1)[0];
 269         }
 270         else if (!parsetest_int(token1, type))
 271         {
 272             if ('8' == type)
 273             {
 274                 * (uint8_t *) element = atoi(token1);
 275             }
 276             else if ('i' == type)
 277             {
 278                 * (int16_t *) element = atoi(token1);
 279             }
 280             else if ('u' == type)
 281             {
 282                 * (uint16_t *) element = atol(token1);
 283             }
 284             else if ('U' == type)
 285             {
 286                 * (uint32_t *) element = atoll(token1);
 287             }
 288         }
 289         return 1;
 290     }
 291     return 0;
 292 }
 293
 294
 295
 296 extern uint8_t parse_flagval(char * token0, char * token1, char * comparand,
 297                              uint8_t * flags, uint8_t set_flag, char type,
 298                              char * element)
 299 {
 300     if (parse_val(token0, token1, comparand, type, element))
 301     {
 302         parsetest_defcontext(*flags);
 303         *flags = *flags | set_flag;
 304         return 1;
 305     }
 306     return 0;
 307 }
 308
 309
 310
 311 extern void parse_and_reduce_to_readyflag(uint8_t * flags, uint8_t ready_flag)
 312 {
 313     char * err_fin = "Last definition block not finished yet.";
 314     err_line((*flags & ready_flag) ^ ready_flag, err_fin);
 315     *flags = ready_flag;
 316 }