hyung-hwan/qse
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
hyung-hwan 2006-07-01 16:24:36 +00:00
parent ea31037b6d
commit 638d7ebd15
2 changed files with 45 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
ase/awk/parse.c
View File

@ -1,5 +1,5 @@
/* /*
* $Id: parse.c,v 1.131 2006-07-01 16:07:06 bacon Exp $ * $Id: parse.c,v 1.132 2006-07-01 16:24:36 bacon Exp $
*/ */
#include <xp/awk/awk_i.h> #include <xp/awk/awk_i.h>
@ -3464,7 +3464,7 @@ static int __get_number (xp_awk_t* awk)
static int __get_string (xp_awk_t* awk) static int __get_string (xp_awk_t* awk)
{ {
xp_cint_t c; xp_cint_t c;
xp_bool_t escaped = xp_false; int escaped = 0;
GET_CHAR_TO (awk, c); GET_CHAR_TO (awk, c);
while (1) while (1)
@ -3475,27 +3475,59 @@ static int __get_string (xp_awk_t* awk)
return -1; return -1;
} }
if (escaped == xp_false && c == XP_T('\"')) if (escaped == 0 && c == XP_T('\"'))
{ {
GET_CHAR_TO (awk, c); GET_CHAR_TO (awk, c);
break; break;
} }
if (escaped == xp_false && c == XP_T('\\')) if (escaped == 0 && c == XP_T('\\'))
{ {
GET_CHAR_TO (awk, c); GET_CHAR_TO (awk, c);
escaped = xp_true; escaped = 1;
continue; continue;
} }
if (escaped == xp_true) if (escaped == 1)
{ {
if (c == XP_T('n')) c = XP_T('\n'); if (c == XP_T('n')) c = XP_T('\n');
else if (c == XP_T('r')) c = XP_T('\r'); else if (c == XP_T('r')) c = XP_T('\r');
else if (c == XP_T('t')) c = XP_T('\t'); else if (c == XP_T('t')) c = XP_T('\t');
/* TODO: add more escape characters */ else if (c == XP_T('f')) c = XP_T('\f');
escaped = xp_false; else if (c == XP_T('b')) c = XP_T('\b');
else if (c == XP_T('v')) c = XP_T('\v');
else if (c == XP_T('a')) c = XP_T('\a');
else if (c == XP_T('0')) escaped = 2;
else if (c == XP_T('x')) escaped = 3;
#ifdef XP_CHAR_IS_WCHAR
else if (c == XP_T('u')) escaped = 4;
else if (c == XP_T('U')) escaped = 5;
#endif
if (escaped == 1) escaped = 0;
} }
else if (escaped == 2)
{
/* 3-digit octal code */
/* TODO */
}
else if (escaped == 3)
{
/* 2-digit hex code */
/* TODO */
}
#ifdef XP_CHAR_IS_WCHAR
else if (escaped == 4)
{
/* 4-digit hex unicode */
/* TODO */
}
else if (escaped == 5)
{
/* 8-digit hex unicode */
/* TODO */
}
#endif
ADD_TOKEN_CHAR (awk, c); ADD_TOKEN_CHAR (awk, c);
GET_CHAR_TO (awk, c); GET_CHAR_TO (awk, c);

5
ase/test/awk/t14.awk
View File

@ -10,3 +10,8 @@
{ {
print "33333333333333333"; print "33333333333333333";
} }
END
{
print "\a";
}