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

just peek after a '.'

Browse Source
This commit is contained in:
Vítor Santos Costa 2015-10-11 04:20:57 +01:00
parent 68c29b3ab0
commit aaca416b93
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
C/scanner.c
View File

@ -1699,6 +1699,15 @@ quoted_string:
case SY: case SY:
if (ch == '`') if (ch == '`')
goto quoted_string; goto quoted_string;
if (ch == '.') {
int nch = Yap_peek(inp_stream-GLOBAL_Stream);
if (chtype(nch) == BS || chtype(nch) == EF || nch == '%') {
t->Tok = Ord(kind = eot_tok);
if (chtype(ch) == EF)
mark_eof(inp_stream);
return l;
}
}
och = ch; och = ch;
ch = getchr(inp_stream); ch = getchr(inp_stream);
if (och == '/' && ch == '*') { if (och == '/' && ch == '*') {