release/src/router/httpd/parser.c

   1 /*
   2
   3         Tomato Firmware
   4         Copyright (C) 2006-2009 Jonathan Zarate
   5
   6 */
   7
   8 #include "tomato.h"
   9
  10
  11 //#define DEBUG 1
  12
  13 /*
  14         <% ident(arg, "arg", 'arg'); %>
  15
  16         Syntax checking is very relaxed and all arguments are considered a
  17         string. Example, the following are the same:
  18
  19                 <% ident(foo); %>
  20                 <% ident('foo'); %>
  21
  22 */
  23 int parse_asp(const char *path)
  24 {
  25         char *buffer;
  26         char *cp;
  27         char *a, *b, *c;
  28         char x;
  29         int argc;
  30         char *argv[32];
  31         char *ident;
  32         const aspapi_t *api;
  33
  34         if (f_read_alloc_string(path, &buffer, 128 * 1024) < 0) {
  35                 free(buffer);
  36                 if (!header_sent) send_error(500, NULL, "Read error");
  37                 return 0;
  38         }
  39
  40         if (!header_sent) send_header(200, NULL, mime_html, 0);
  41
  42         // <% id(arg, arg); %>
  43         cp = buffer;
  44         while (*cp) {
  45                 if ((b = strstr(cp, "%>")) == NULL) {
  46                         web_puts(cp);
  47                         break;
  48                 }
  49                 *b = 0;
  50
  51                 //xx <% <% %>
  52                 //xx %>
  53
  54                 a = cp;
  55                 while ((c = strstr(a, "<%")) != NULL) {
  56                         a = c + 2;
  57                 }
  58
  59                 if (a == cp) {
  60                         *b = '%';
  61                         b += 2;
  62                         web_write(cp, b - cp);
  63                         cp = b;
  64                         continue;
  65                 }
  66
  67                 web_write(cp, (a - cp) - 2);
  68
  69                 cp = b + 2;
  70
  71                 while (*a == ' ') ++a;
  72                 ident = a;
  73                 while (((*a >= 'a') && (*a <= 'z')) || ((*a >= 'A') && (*a <= 'Z')) || ((*a >= '0') && (*a <= '9')) || (*a == '_')) {
  74                         ++a;
  75                 }
  76                 if (ident == a) {
  77 #ifdef DEBUG
  78                         syslog(LOG_WARNING, "Identifier not found in %s @%u", path, a - buffer);
  79 #endif
  80                         continue;
  81                 }
  82                 b = a;
  83                 while (*a == ' ') ++a;
  84                 if (*a++ != '(') {
  85 #ifdef DEBUG
  86                         syslog(LOG_WARNING, "Expecting ( in %s @%u", path, a - buffer);
  87 #endif
  88                         continue;
  89                 }
  90                 *b = 0;
  91
  92                 // <% foo(123, "arg"); %>
  93                 // a -----^            ^--- null
  94
  95 //              printf("\n[[['%s'\n", ident);
  96
  97                 argc = 0;
  98                 while (*a) {
  99                         while (*a == ' ') ++a;
 100                         if (*a == ')') {
 101 FINAL:
 102                                 ++a;
 103                                 while ((*a == ' ') || (*a == ';')) ++a;
 104                                 if (*a != 0) break;
 105
 106                                 for (api = aspapi; api->name; ++api) {
 107                                         if (strcmp(api->name, ident) == 0) {
 108                                                 api->exec(argc, argv);
 109                                                 break;
 110                                         }
 111                                 }
 112
 113                                 a = NULL;
 114 /*
 115                                 int z;
 116                                 for (z = 0; z < argc; ++z) {
 117                                         printf(" %d '%s'\n", z, argv[z]);
 118                                 }
 119 */
 120                                 break;
 121                         }
 122
 123                         if (argc >= 32) {
 124 #ifdef DEBUG
 125                                 syslog(LOG_WARNING, "Error while parsing arguments in %s @%u", path, a - buffer);
 126 #endif
 127                                 break;
 128                         }
 129
 130                         if ((*a == '"') || (*a == '\'')) {
 131                                 x = *a;
 132                                 argv[argc++] = a + 1;
 133                                 while ((*++a != x) && (*a != 0)) {
 134                                         if (*a == '\\') {
 135                                                 if (*++a == 0) break;
 136                                                 *(a - 1) = *a;
 137                                         }
 138                                 }
 139                                 if (*a == 0) break;
 140                                 *a++ = 0;
 141                         }
 142                         else {
 143                                 argv[argc++] = a;
 144                                 while ((*a != ',') && (*a != ')') && (*a != ' ') && (*a != 0)) ++a;
 145                         }
 146                         while (*a == ' ') ++a;
 147                         if (*a == ')') {
 148                                 *a = 0;
 149                                 goto FINAL;
 150                         }
 151                         if (*a != ',') break;
 152                         *a++ = 0;
 153                 }
 154
 155 #ifdef DEBUG
 156                 if (a != NULL) syslog(LOG_WARNING, "Error while parsing arguments in %s @%u", path, a - buffer);
 157 #endif
 158
 159 //              printf("argc=%d]]]\n", argc);
 160         }
 161
 162
 163         free(buffer);
 164         return 1;
 165 }
 166
 167 void wo_asp(char *path)
 168 {
 169         parse_asp(path);
 170 }