marrub
/
LithOS3
1
0
Fork 0
Code Releases Activity

Token: Improve string parsing

master
an 2017-04-24 06:18:03 -04:00
parent 7c8da17172
commit 7f3a6e222e
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lithos_c/src/token.c
View File

@ -84,15 +84,17 @@ void Lth_TokenGet(FILE *fp, Lth_Token *out)
while((ch = fgetc(fp)) != beg && ch != EOF)
{
if(ch != '\\')
ACS_PrintChar(ch);
else if((ch = fgetc(fp)) == beg)
ACS_PrintChar(ch);
else
if(ch == '\\')
{
ungetc(ch, fp);
ACS_PrintChar('\\');
switch((ch = fgetc(fp)))
{
case '\\': ACS_PrintChar(ch); break;
case 'C': ACS_PrintChar('\C'); break;
default: if(ch == beg) ACS_PrintChar(beg); break;
}
}
else
ACS_PrintChar(ch);
}
out->str = Lth_strdup_str(ACS_EndStrParam());