diff options
Diffstat (limited to 'source3/lib/srprs.c')
| -rw-r--r-- | source3/lib/srprs.c | 228 |
1 files changed, 228 insertions, 0 deletions
diff --git a/source3/lib/srprs.c b/source3/lib/srprs.c new file mode 100644 index 0000000..67ada37 --- /dev/null +++ b/source3/lib/srprs.c @@ -0,0 +1,228 @@ +/* + * Samba Unix/Linux SMB client library + * + * Copyright (C) Gregor Beck 2010 + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 3 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see <http://www.gnu.org/licenses/>. + */ + +/** + * @file srprs.c + * @author Gregor Beck <gb@sernet.de> + * @date Aug 2010 + * @brief A simple recursive parser. + */ + +#include "replace.h" +#include "system/locale.h" +#include "srprs.h" +#include "cbuf.h" +#include <assert.h> + +bool srprs_skipws(const char** ptr) { + while (isspace(**ptr)) + ++(*ptr); + return true; +} + +bool srprs_char(const char** ptr, char c) { + if (**ptr == c) { + ++(*ptr); + return true; + } + return false; +} + +bool srprs_str(const char** ptr, const char* str, ssize_t len) +{ + /* By definition *ptr must be null terminated. */ + size_t ptr_len = strlen(*ptr); + + if (len == -1) + len = strlen(str); + + /* Don't memcmp read past end of buffer. */ + if (len > ptr_len) { + return false; + } + + if (memcmp(*ptr, str, len) == 0) { + *ptr += len; + return true; + } + return false; +} + +bool srprs_charset(const char** ptr, const char* set, cbuf* oss) +{ + const char* p = strchr(set, **ptr); + if (p != NULL && *p != '\0') { + cbuf_putc(oss, **ptr); + ++(*ptr); + return true; + } + return false; +} + +bool srprs_charsetinv(const char** ptr, const char* set, cbuf* oss) +{ + if ((**ptr != '\0') && (strchr(set, **ptr) == NULL)) { + cbuf_putc(oss, **ptr); + ++(*ptr); + return true; + } + return false; +} + + + +bool srprs_quoted_string(const char** ptr, cbuf* str, bool* cont) +{ + const char* pos = *ptr; + const size_t spos = cbuf_getpos(str); + + if (cont == NULL || *cont == false) { + if (!srprs_char(&pos, '\"')) + goto fail; + } + + while (true) { + while (srprs_charsetinv(&pos, "\\\"", str)) + ; + + switch (*pos) { + case '\0': + if (cont == NULL) { + goto fail; + } else { + *ptr = pos; + *cont = true; + return true; + } + case '\"': + *ptr = pos+1; + if (cont != NULL) { + *cont = false; + } + return true; + + case '\\': + pos++; + if (!srprs_charset(&pos, "\\\"", str)) + goto fail; + break; + + default: + assert(false); + } + } + +fail: + cbuf_setpos(str, spos); + return false; +} + +bool srprs_hex(const char** ptr, size_t len, unsigned* u) +{ + const char *str = *ptr; + const char *pos = *ptr; + int ret; + size_t i; + char buf[8+1] = {}; + + assert((len >= 1) && (len <= 8)); + + for (i=0; i<len; i++) { + if (!srprs_charset(&pos, "0123456789abcdefABCDEF", NULL)) { + break; + } + buf[i] = str[i]; + } + + ret = sscanf(buf, "%8x", u); + + if ( ret != 1 ) { + return false; + } + + *ptr = pos; + return true; +} + +bool srprs_nl(const char** ptr, cbuf* nl) +{ + static const char CRLF[] = "\r\n"; + if (srprs_str(ptr, CRLF, sizeof(CRLF) - 1)) { + cbuf_puts(nl, CRLF, sizeof(CRLF) - 1); + return true; + } + return srprs_charset(ptr, "\n\r", nl); +} + +bool srprs_eos(const char** ptr) +{ + return (**ptr == '\0'); +} + +bool srprs_eol(const char** ptr, cbuf* nl) +{ + return srprs_eos(ptr) || srprs_nl(ptr, nl); +} + +bool srprs_line(const char** ptr, cbuf* str) +{ + while (srprs_charsetinv(ptr, "\n\r", str)) + ; + return true; +} + +bool srprs_quoted(const char** ptr, cbuf* str) +{ + const char* pos = *ptr; + const size_t spos = cbuf_getpos(str); + + if (!srprs_char(&pos, '"')) { + goto fail; + } + + while (true) { + while (srprs_charsetinv(&pos, "\\\"", str)) + ; + + switch (*pos) { + case '\0': + goto fail; + case '"': + *ptr = pos+1; + return true; + + case '\\': + pos++; + if (!srprs_charset(&pos, "\\\"", str)) { + unsigned u; + if (!srprs_hex(&pos, 2, &u)) { + goto fail; + } + cbuf_putc(str, u); + } + break; + default: + assert(false); + } + } + +fail: + cbuf_setpos(str, spos); + return false; +} |