Chicken/toml
1
0
Fork 0
Code Issues Pull requests Projects Releases 2 Packages Wiki Activity Actions

restructure and clean up toml_rtos

Browse source
This commit is contained in:
CK Tan 2019-12-29 11:55:17 -08:00
parent 416be8de63
commit 4078d23a33
1 changed files with 27 additions and 41 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

62
toml.c
View file

@ -2093,61 +2093,47 @@ int toml_rtos(const char* src, char** ret)
const char* sp; const char* sp;
const char* sq; const char* sq;
if (!src) return -1;
if (*src != '\'' && *src != '"') return -1;
*ret = 0; *ret = 0;
if (!src) return -1;
int qchar = src[0];
int srclen = strlen(src); int srclen = strlen(src);
if (*src == '\'') { if (! (qchar == '\'' || qchar == '"')) {
if (0 == strncmp(src, "'''", 3)) { return -1;
multiline = 1;
sp = src + 3;
sq = src + srclen - 3;
/* last 3 chars in src must be ''' */
if (! (sp <= sq && 0 == strcmp(sq, "'''")))
return -1;
/* skip first new line right after ''' */
if (*sp == '\n')
sp++;
else if (sp[0] == '\r' && sp[1] == '\n')
sp += 2;
} else {
sp = src + 1;
sq = src + srclen - 1;
/* last char in src must be ' */
if (! (sp <= sq && *sq == '\''))
return -1;
}
*ret = norm_lit_str(sp, sq - sp,
multiline,
0, 0);
return *ret ? 0 : -1;
} }
if (0 == strncmp(src, "\"\"\"", 3)) { // triple quotes?
if (qchar == src[1] && qchar == src[2]) {
multiline = 1; multiline = 1;
sp = src + 3; sp = src + 3;
sq = src + srclen - 3; sq = src + srclen - 3;
if (! (sp <= sq && 0 == strcmp(sq, "\"\"\""))) /* last 3 chars in src must be qchar */
if (! (sp <= sq && sq[0] == qchar && sq[1] == qchar && sq[2] == qchar))
return -1; return -1;
/* skip first new line right after """ */ /* skip new line immediate after qchar */
if (*sp == '\n') if (sp[0] == '\n')
sp++; sp++;
else if (sp[0] == '\r' && sp[1] == '\n') else if (sp[0] == '\r' && sp[1] == '\n')
sp += 2; sp += 2;
} else { } else {
sp = src + 1; sp = src + 1;
sq = src + srclen - 1; sq = src + srclen - 1;
if (! (sp <= sq && *sq == '"')) /* last char in src must be qchar */
if (! (sp <= sq && *sq == qchar))
return -1; return -1;
} }
*ret = norm_basic_str(sp, sq - sp, if (qchar == '\'') {
multiline, *ret = norm_lit_str(sp, sq - sp,
0, 0); multiline,
0, 0);
} else {
*ret = norm_basic_str(sp, sq - sp,
multiline,
0, 0);
}
return *ret ? 0 : -1; return *ret ? 0 : -1;
} }