qf/quakeforge
0
0
Fork 0
mirror of https://git.code.sf.net/p/quake/quakeforge synced 2025-01-18 06:51:47 +00:00
Code Issues Projects Releases Packages Wiki Activity

support all but \b, \< and \> of qccx' character escapes.

Browse source
This commit is contained in:
Bill Currie 2002-04-26 22:23:28 +00:00
parent 7121891895
commit fc6fb804d7
1 changed files with 40 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

40
tools/qfcc/source/qc-lex.l
View file

@ -440,6 +440,7 @@ make_string (char *token)
c = '\a'; c = '\a';
break; break;
case 'b': case 'b':
//XXX mask ^= 0x80;
c = '\b'; c = '\b';
break; break;
case 'e': case 'e':
@ -462,12 +463,51 @@ make_string (char *token)
error (0, "Unexpected end of string after \\^"); error (0, "Unexpected end of string after \\^");
boldnext = 1; boldnext = 1;
continue; continue;
case '[':
c = 0x90;
break;
case ']':
c = 0x91;
break;
case '.':
c = 28;
break;
case '<': case '<':
//XXX c = 29;
mask = 0x80; mask = 0x80;
continue; continue;
case '-':
c = 30;
break;
case '>': case '>':
//XXX c = 31;
mask = 0x00; mask = 0x00;
continue; continue;
case '(':
c = 128;
break;
case '=':
c = 129;
break;
case ')':
c = 130;
break;
case '{':
c = 0;
while (*token && *token != '}'
&& isdigit ((unsigned char)*token)) {
c *= 10;
c += *token - '0';
}
if (!*token)
error (0, "EOF inside quote");
if (*token != '}')
error (0, "non-digit inside \\{}");
else
token++;
if (c > 255)
warning (0, "\\{%d} > 255", c);
break;
default: default:
error (0, "Unknown escape char"); error (0, "Unknown escape char");
break; break;