1 /* 2 * a generic (simple) parser. Use to parse rr's, private key 3 * information and /etc/resolv.conf files 4 * 5 * a Net::DNS like library for C 6 * LibDNS Team @ NLnet Labs 7 * (c) NLnet Labs, 2005-2006 8 * See the file LICENSE for the license 9 */ 10 #include <ldns/config.h> 11 #include <ldns/ldns.h> 12 13 #include <limits.h> 14 #include <strings.h> 15 16 ldns_lookup_table ldns_directive_types[] = { 17 { LDNS_DIR_TTL, "$TTL" }, 18 { LDNS_DIR_ORIGIN, "$ORIGIN" }, 19 { LDNS_DIR_INCLUDE, "$INCLUDE" }, 20 { 0, NULL } 21 }; 22 23 /* add max_limit here? */ 24 ssize_t 25 ldns_fget_token(FILE *f, char *token, const char *delim, size_t limit) 26 { 27 return ldns_fget_token_l(f, token, delim, limit, NULL); 28 } 29 30 ssize_t 31 ldns_fget_token_l(FILE *f, char *token, const char *delim, size_t limit, int *line_nr) 32 { 33 int c, prev_c; 34 int p; /* 0 -> no parenthese seen, >0 nr of ( seen */ 35 int com, quoted; 36 char *t; 37 size_t i; 38 const char *d; 39 const char *del; 40 41 /* standard delimeters */ 42 if (!delim) { 43 /* from isspace(3) */ 44 del = LDNS_PARSE_NORMAL; 45 } else { 46 del = delim; 47 } 48 49 p = 0; 50 i = 0; 51 com = 0; 52 quoted = 0; 53 prev_c = 0; 54 t = token; 55 if (del[0] == '"') { 56 quoted = 1; 57 } 58 while ((c = getc(f)) != EOF) { 59 if (c == '\r') /* carriage return */ 60 c = ' '; 61 if (c == '(' && prev_c != '\\' && !quoted) { 62 /* this only counts for non-comments */ 63 if (com == 0) { 64 p++; 65 } 66 prev_c = c; 67 continue; 68 } 69 70 if (c == ')' && prev_c != '\\' && !quoted) { 71 /* this only counts for non-comments */ 72 if (com == 0) { 73 p--; 74 } 75 prev_c = c; 76 continue; 77 } 78 79 if (p < 0) { 80 /* more ) then ( - close off the string */ 81 *t = '\0'; 82 return 0; 83 } 84 85 /* do something with comments ; */ 86 if (c == ';' && quoted == 0) { 87 if (prev_c != '\\') { 88 com = 1; 89 } 90 } 91 if (c == '\"' && com == 0 && prev_c != '\\') { 92 quoted = 1 - quoted; 93 } 94 95 if (c == '\n' && com != 0) { 96 /* comments */ 97 com = 0; 98 *t = ' '; 99 if (line_nr) { 100 *line_nr = *line_nr + 1; 101 } 102 if (p == 0 && i > 0) { 103 goto tokenread; 104 } else { 105 prev_c = c; 106 continue; 107 } 108 } 109 110 if (com == 1) { 111 *t = ' '; 112 prev_c = c; 113 continue; 114 } 115 116 if (c == '\n' && p != 0 && t > token) { 117 /* in parentheses */ 118 if (line_nr) { 119 *line_nr = *line_nr + 1; 120 } 121 *t++ = ' '; 122 prev_c = c; 123 continue; 124 } 125 126 /* check if we hit the delim */ 127 for (d = del; *d; d++) { 128 if (c == *d && i > 0 && prev_c != '\\' && p == 0) { 129 if (c == '\n' && line_nr) { 130 *line_nr = *line_nr + 1; 131 } 132 goto tokenread; 133 } 134 } 135 if (c != '\0' && c != '\n') { 136 i++; 137 } 138 if (limit > 0 && i >= limit) { 139 *t = '\0'; 140 return -1; 141 } 142 if (c != '\0' && c != '\n') { 143 *t++ = c; 144 } 145 if (c == '\\' && prev_c == '\\') 146 prev_c = 0; 147 else prev_c = c; 148 } 149 *t = '\0'; 150 if (c == EOF) { 151 return (ssize_t)i; 152 } 153 154 if (i == 0) { 155 /* nothing read */ 156 return -1; 157 } 158 if (p != 0) { 159 return -1; 160 } 161 return (ssize_t)i; 162 163 tokenread: 164 ldns_fskipcs_l(f, del, line_nr); 165 *t = '\0'; 166 if (p != 0) { 167 return -1; 168 } 169 170 return (ssize_t)i; 171 } 172 173 ssize_t 174 ldns_fget_keyword_data(FILE *f, const char *keyword, const char *k_del, char *data, 175 const char *d_del, size_t data_limit) 176 { 177 return ldns_fget_keyword_data_l(f, keyword, k_del, data, d_del, 178 data_limit, NULL); 179 } 180 181 ssize_t 182 ldns_fget_keyword_data_l(FILE *f, const char *keyword, const char *k_del, char *data, 183 const char *d_del, size_t data_limit, int *line_nr) 184 { 185 /* we assume: keyword|sep|data */ 186 char *fkeyword; 187 ssize_t i; 188 189 if(strlen(keyword) >= LDNS_MAX_KEYWORDLEN) 190 return -1; 191 fkeyword = LDNS_XMALLOC(char, LDNS_MAX_KEYWORDLEN); 192 if(!fkeyword) 193 return -1; 194 195 i = ldns_fget_token(f, fkeyword, k_del, LDNS_MAX_KEYWORDLEN); 196 if(i==0 || i==-1) { 197 LDNS_FREE(fkeyword); 198 return -1; 199 } 200 201 /* case??? i instead of strlen? */ 202 if (strncmp(fkeyword, keyword, LDNS_MAX_KEYWORDLEN - 1) == 0) { 203 /* whee! */ 204 /* printf("%s\n%s\n", "Matching keyword", fkeyword); */ 205 i = ldns_fget_token_l(f, data, d_del, data_limit, line_nr); 206 LDNS_FREE(fkeyword); 207 return i; 208 } else { 209 /*printf("no match for %s (read: %s)\n", keyword, fkeyword);*/ 210 LDNS_FREE(fkeyword); 211 return -1; 212 } 213 } 214 215 216 ssize_t 217 ldns_bget_token(ldns_buffer *b, char *token, const char *delim, size_t limit) 218 { 219 int c, lc; 220 int p; /* 0 -> no parenthese seen, >0 nr of ( seen */ 221 int com, quoted; 222 char *t; 223 size_t i; 224 const char *d; 225 const char *del; 226 227 /* standard delimiters */ 228 if (!delim) { 229 /* from isspace(3) */ 230 del = LDNS_PARSE_NORMAL; 231 } else { 232 del = delim; 233 } 234 235 p = 0; 236 i = 0; 237 com = 0; 238 quoted = 0; 239 t = token; 240 lc = 0; 241 if (del[0] == '"') { 242 quoted = 1; 243 } 244 245 while ((c = ldns_bgetc(b)) != EOF) { 246 if (c == '\r') /* carriage return */ 247 c = ' '; 248 if (c == '(' && lc != '\\' && !quoted) { 249 /* this only counts for non-comments */ 250 if (com == 0) { 251 p++; 252 } 253 lc = c; 254 continue; 255 } 256 257 if (c == ')' && lc != '\\' && !quoted) { 258 /* this only counts for non-comments */ 259 if (com == 0) { 260 p--; 261 } 262 lc = c; 263 continue; 264 } 265 266 if (p < 0) { 267 /* more ) then ( */ 268 *t = '\0'; 269 return 0; 270 } 271 272 /* do something with comments ; */ 273 if (c == ';' && quoted == 0) { 274 if (lc != '\\') { 275 com = 1; 276 } 277 } 278 if (c == '"' && com == 0 && lc != '\\') { 279 quoted = 1 - quoted; 280 } 281 282 if (c == '\n' && com != 0) { 283 /* comments */ 284 com = 0; 285 *t = ' '; 286 lc = c; 287 continue; 288 } 289 290 if (com == 1) { 291 *t = ' '; 292 lc = c; 293 continue; 294 } 295 296 if (c == '\n' && p != 0) { 297 /* in parentheses */ 298 *t++ = ' '; 299 lc = c; 300 continue; 301 } 302 303 /* check if we hit the delim */ 304 for (d = del; *d; d++) { 305 if (c == *d && lc != '\\' && p == 0) { 306 goto tokenread; 307 } 308 } 309 310 i++; 311 if (limit > 0 && i >= limit) { 312 *t = '\0'; 313 return -1; 314 } 315 *t++ = c; 316 317 if (c == '\\' && lc == '\\') { 318 lc = 0; 319 } else { 320 lc = c; 321 } 322 } 323 *t = '\0'; 324 if (i == 0) { 325 /* nothing read */ 326 return -1; 327 } 328 if (p != 0) { 329 return -1; 330 } 331 return (ssize_t)i; 332 333 tokenread: 334 ldns_bskipcs(b, del); 335 *t = '\0'; 336 337 if (p != 0) { 338 return -1; 339 } 340 return (ssize_t)i; 341 } 342 343 #if 0 344 static void 345 ldns_bskipc(ldns_buffer *buffer, char c) 346 { 347 while (c == (char) ldns_buffer_read_u8_at(buffer, ldns_buffer_position(buffer))) { 348 if (ldns_buffer_available_at(buffer, 349 buffer->_position + sizeof(char), sizeof(char))) { 350 buffer->_position += sizeof(char); 351 } else { 352 return; 353 } 354 } 355 } 356 #endif 357 358 void 359 ldns_bskipcs(ldns_buffer *buffer, const char *s) 360 { 361 bool found; 362 char c; 363 const char *d; 364 365 while(ldns_buffer_available_at(buffer, buffer->_position, sizeof(char))) { 366 c = (char) ldns_buffer_read_u8_at(buffer, buffer->_position); 367 found = false; 368 for (d = s; *d; d++) { 369 if (*d == c) { 370 found = true; 371 } 372 } 373 if (found && buffer->_limit > buffer->_position) { 374 buffer->_position += sizeof(char); 375 } else { 376 return; 377 } 378 } 379 } 380 381 #if 0 382 static void 383 ldns_fskipc(ATTR_UNUSED(FILE *fp), ATTR_UNUSED(char c)) 384 { 385 } 386 #endif 387 388 void 389 ldns_fskipcs(FILE *fp, const char *s) 390 { 391 ldns_fskipcs_l(fp, s, NULL); 392 } 393 394 void 395 ldns_fskipcs_l(FILE *fp, const char *s, int *line_nr) 396 { 397 bool found; 398 int c; 399 const char *d; 400 401 while ((c = fgetc(fp)) != EOF) { 402 if (line_nr && c == '\n') { 403 *line_nr = *line_nr + 1; 404 } 405 found = false; 406 for (d = s; *d; d++) { 407 if (*d == c) { 408 found = true; 409 } 410 } 411 if (!found) { 412 /* with getc, we've read too far */ 413 ungetc(c, fp); 414 return; 415 } 416 } 417 } 418 419 ssize_t 420 ldns_bget_keyword_data(ldns_buffer *b, const char *keyword, const char *k_del, char 421 *data, const char *d_del, size_t data_limit) 422 { 423 /* we assume: keyword|sep|data */ 424 char *fkeyword; 425 ssize_t i; 426 427 if(strlen(keyword) >= LDNS_MAX_KEYWORDLEN) 428 return -1; 429 fkeyword = LDNS_XMALLOC(char, LDNS_MAX_KEYWORDLEN); 430 if(!fkeyword) 431 return -1; /* out of memory */ 432 433 i = ldns_bget_token(b, fkeyword, k_del, data_limit); 434 if(i==0 || i==-1) { 435 LDNS_FREE(fkeyword); 436 return -1; /* nothing read */ 437 } 438 439 /* case??? */ 440 if (strncmp(fkeyword, keyword, strlen(keyword)) == 0) { 441 LDNS_FREE(fkeyword); 442 /* whee, the match! */ 443 /* retrieve it's data */ 444 i = ldns_bget_token(b, data, d_del, 0); 445 return i; 446 } else { 447 LDNS_FREE(fkeyword); 448 return -1; 449 } 450 } 451 452