diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix \newline in ISO mode (ROberto Bagnara).

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@534 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2002-06-14 22:04:40 +00:00
parent f48a21bbcb
commit 9809cca4d5
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
C/scanner.c
View File

@ -257,6 +257,7 @@ get_num(void)
} }
might_be_float = FALSE; might_be_float = FALSE;
*sp++ = ch; *sp++ = ch;
restart:
my_getch(); my_getch();
if (base == 0) { if (base == 0) {
Int ascii = ch; Int ascii = ch;
@ -266,6 +267,8 @@ get_num(void)
/* escape sequence */ /* escape sequence */
ch = my_get_quoted_ch(); ch = my_get_quoted_ch();
switch (ch) { switch (ch) {
case 10:
goto restart;
case 'a': case 'a':
ascii = '\a'; ascii = '\a';
break; break;
@ -570,6 +573,11 @@ token(void)
/* escape sequence */ /* escape sequence */
ch = my_get_quoted_ch(); ch = my_get_quoted_ch();
switch (ch) { switch (ch) {
case 10:
/* don't add characters */
printf("I am here\n");
my_get_quoted_ch();
break;
case 'a': case 'a':
*charp++ = '\a'; *charp++ = '\a';
my_get_quoted_ch(); my_get_quoted_ch();
@ -978,6 +986,7 @@ fast_tokenizer(void)
if (ch == '\'') { if (ch == '\'') {
might_be_float = FALSE; might_be_float = FALSE;
*sp++ = ch; *sp++ = ch;
restart:
my_fgetch(); my_fgetch();
if (base == 0) { if (base == 0) {
Int ascii = ch; Int ascii = ch;
@ -991,6 +1000,8 @@ fast_tokenizer(void)
/* escape sequence */ /* escape sequence */
ch = my_fgetch(); ch = my_fgetch();
switch (ch) { switch (ch) {
case 10:
goto restart;
case 'a': case 'a':
ascii = '\a'; ascii = '\a';
break; break;
@ -1305,6 +1316,10 @@ fast_tokenizer(void)
/* escape sequence */ /* escape sequence */
ch = my_fgetch(); ch = my_fgetch();
switch (ch) { switch (ch) {
case 10:
/* just skip */
my_fgetch();
break;
case 'a': case 'a':
*charp++ = '\a'; *charp++ = '\a';
my_fgetch(); my_fgetch();