contrib/libucl/utils/chargen.c

   1 /* Copyright (c) 2013, Vsevolod Stakhov
   2  * All rights reserved.
   3  *
   4  * Redistribution and use in source and binary forms, with or without
   5  * modification, are permitted provided that the following conditions are met:
   6  *       * Redistributions of source code must retain the above copyright
   7  *         notice, this list of conditions and the following disclaimer.
   8  *       * Redistributions in binary form must reproduce the above copyright
   9  *         notice, this list of conditions and the following disclaimer in the
  10  *         documentation and/or other materials provided with the distribution.
  11  *
  12  * THIS SOFTWARE IS PROVIDED ''AS IS'' AND ANY
  13  * EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
  14  * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
  15  * DISCLAIMED. IN NO EVENT SHALL AUTHOR BE LIABLE FOR ANY
  16  * DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
  17  * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
  18  * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
  19  * ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
  20  * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
  21  * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  22  */
  23
  24 /**
  25  * @file this utility generates character table for ucl
  26  */
  27
  28 #include <stdio.h>
  29 #include <ctype.h>
  30 #include <stdbool.h>
  31
  32 static inline int
  33 print_flag (const char *flag, bool *need_or, char *val)
  34 {
  35         int res;
  36         res = sprintf (val, "%s%s", *need_or ? "|" : "", flag);
  37
  38         *need_or |= true;
  39
  40         return res;
  41 }
  42
  43 int
  44 main (int argc, char **argv)
  45 {
  46         int i, col, r;
  47         const char *name = "ucl_chartable";
  48         bool need_or;
  49         char valbuf[2048];
  50
  51         col = 0;
  52
  53         if (argc > 1) {
  54                 name = argv[1];
  55         }
  56
  57         printf ("static const unsigned int %s[255] = {\n", name);
  58
  59         for (i = 0; i < 255; i ++) {
  60                 need_or = false;
  61                 r = 0;
  62                 /* UCL_CHARACTER_VALUE_END */
  63
  64                 if (i == ' ' || i == '\t') {
  65                         r += print_flag ("UCL_CHARACTER_WHITESPACE", &need_or, valbuf + r);
  66                 }
  67                 if (isspace (i)) {
  68                         r += print_flag ("UCL_CHARACTER_WHITESPACE_UNSAFE", &need_or, valbuf + r);
  69                 }
  70                 if (isalnum (i) || i >= 0x80 || i == '/' || i == '_') {
  71                         r += print_flag ("UCL_CHARACTER_KEY_START", &need_or, valbuf + r);
  72                 }
  73                 if (isalnum (i) || i == '-' || i == '_' || i == '/' || i == '.' || i >= 0x80) {
  74                         r += print_flag ("UCL_CHARACTER_KEY", &need_or, valbuf + r);
  75                 }
  76                 if (i == 0 || i == '\r' || i == '\n' || i == ']' || i == '}' || i == ';' || i == ',' || i == '#') {
  77                         r += print_flag ("UCL_CHARACTER_VALUE_END", &need_or, valbuf + r);
  78                 }
  79                 else {
  80                         if (isprint (i) || i >= 0x80) {
  81                                 r += print_flag ("UCL_CHARACTER_VALUE_STR", &need_or, valbuf + r);
  82                         }
  83                         if (isdigit (i) || i == '-') {
  84                                 r += print_flag ("UCL_CHARACTER_VALUE_DIGIT_START", &need_or, valbuf + r);
  85                         }
  86                         if (isalnum (i) || i == '.' || i == '-' || i == '+') {
  87                                 r += print_flag ("UCL_CHARACTER_VALUE_DIGIT", &need_or, valbuf + r);
  88                         }
  89                 }
  90                 if (i == '"' || i == '\\' || i == '/' || i == 'b' ||
  91                         i == 'f' || i == 'n' || i == 'r' || i == 't' || i == 'u') {
  92                         r += print_flag ("UCL_CHARACTER_ESCAPE", &need_or, valbuf + r);
  93                 }
  94                 if (i == ' ' || i == '\t' || i == ':' || i == '=') {
  95                         r += print_flag ("UCL_CHARACTER_KEY_SEP", &need_or, valbuf + r);
  96                 }
  97                 if (i == '\n' || i == '\r' || i == '\\' || i == '\b' || i == '\t' ||
  98                                 i == '"' || i == '\f') {
  99                         r += print_flag ("UCL_CHARACTER_JSON_UNSAFE", &need_or, valbuf + r);
 100                 }
 101                 if (i == '\n' || i == '\r' || i == '\\' || i == '\b' || i == '\t' ||
 102                                 i == '"' || i == '\f' || i == '=' || i == ':' || i == '{' || i == '[' || i == ' ') {
 103                         r += print_flag ("UCL_CHARACTER_UCL_UNSAFE", &need_or, valbuf + r);
 104                 }
 105
 106                 if (!need_or) {
 107                         r += print_flag ("UCL_CHARACTER_DENIED", &need_or, valbuf + r);
 108                 }
 109
 110                 if (isprint (i)) {
 111                         r += sprintf (valbuf + r, " /* %c */", i);
 112                 }
 113                 if (i != 254) {
 114                         r += sprintf (valbuf + r, ", ");
 115                 }
 116                 col += r;
 117                 if (col > 80) {
 118                         printf ("\n%s", valbuf);
 119                         col = r;
 120                 }
 121                 else {
 122                         printf ("%s", valbuf);
 123                 }
 124         }
 125         printf ("\n}\n");
 126
 127         return 0;
 128 }