make phrase/2 and phrase/3 meta-predicates
improve message in scanner.c git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@251 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
parent
e2b3d04a42
commit
666bb88a7e
@ -557,7 +557,7 @@ token(void)
|
|||||||
my_get_quoted_ch();
|
my_get_quoted_ch();
|
||||||
while (1) {
|
while (1) {
|
||||||
if (charp + 1024 > (char *)AuxSp) {
|
if (charp + 1024 > (char *)AuxSp) {
|
||||||
ErrorMessage = "Heap Overflow While Scanning: please increase heap";
|
ErrorMessage = "Heap Overflow While Scanning: please increase code space (-h)";
|
||||||
break;
|
break;
|
||||||
}
|
}
|
||||||
if (ch == quote) {
|
if (ch == quote) {
|
||||||
@ -1292,7 +1292,7 @@ fast_tokenizer(void)
|
|||||||
my_fgetch();
|
my_fgetch();
|
||||||
while (1) {
|
while (1) {
|
||||||
if (charp + 1024 > (char *)AuxSp) {
|
if (charp + 1024 > (char *)AuxSp) {
|
||||||
ErrorMessage = "Heap Overflow While Scanning: please increase heap";
|
ErrorMessage = "Heap Overflow While Scanning: please increase code space (-h)";
|
||||||
break;
|
break;
|
||||||
}
|
}
|
||||||
if (ch == quote) {
|
if (ch == quote) {
|
||||||
|
@ -551,6 +551,8 @@ source_module(Mod) :-
|
|||||||
listing(?),
|
listing(?),
|
||||||
nospy(:),
|
nospy(:),
|
||||||
not(:),
|
not(:),
|
||||||
|
phrase(:,?),
|
||||||
|
phrase(:,?,+),
|
||||||
retract(:),
|
retract(:),
|
||||||
retract(:,?),
|
retract(:,?),
|
||||||
retractall(:),
|
retractall(:),
|
||||||
|
Reference in New Issue
Block a user