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

deb_fixing

Browse Source
This commit is contained in:
Vítor Santos Costa 2019-05-18 09:47:17 +01:00
parent 0949f6b494
commit c3a254e44d
6 changed files with 94 additions and 67 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
C/globals.c
View File

@ -1566,7 +1566,7 @@ static Int nb_queue(UInt arena_sz USES_REGS) {
return FALSE; return FALSE;
if (arena_sz < 32 * 1024) if (arena_sz < 32 * 1024)
arena_sz = 32 * 1024; arena_sz = 32 * 1024;
enter_cell_space(&cspace); enter_cell_space(&cspace);
queue_arena = NewArena(arena_sz, worker_id, 1, NULL, &cspace); queue_arena = NewArena(arena_sz, worker_id, 1, NULL, &cspace);
if (queue_arena == 0L) { if (queue_arena == 0L) {
return FALSE; return FALSE;

6
C/scanner.c
View File

@ -1337,7 +1337,7 @@ TokEntry *Yap_tokenizer(struct stream_desc *st,
och=ch; och=ch;
ch = getchr(st); ch = getchr(st);
} }
params->tp = Yap_StreamPosition(st - GLOBAL_Stream); params->tposOUTPUT = Yap_StreamPosition(st - GLOBAL_Stream);
Yap_setCurrentSourceLocation(st); Yap_setCurrentSourceLocation(st);
LOCAL_StartLineCount = st->linecount; LOCAL_StartLineCount = st->linecount;
LOCAL_StartLinePos = st->linepos; LOCAL_StartLinePos = st->linepos;
@ -1393,7 +1393,7 @@ TokEntry *Yap_tokenizer(struct stream_desc *st,
while (chtype(ch) == BS) { while (chtype(ch) == BS) {
ch = getchr(st); ch = getchr(st);
} }
params->tp = Yap_StreamPosition(st - GLOBAL_Stream); params->tposOUTPUT = Yap_StreamPosition(st - GLOBAL_Stream);
Yap_setCurrentSourceLocation(st); Yap_setCurrentSourceLocation(st);
} }
goto restart; goto restart;
@ -1734,7 +1734,7 @@ TokEntry *Yap_tokenizer(struct stream_desc *st,
ch = getchr(st); ch = getchr(st);
} }
CHECK_SPACE(); CHECK_SPACE();
params->tp = Yap_StreamPosition(st - GLOBAL_Stream); params->tposOUTPUT = Yap_StreamPosition(st - GLOBAL_Stream);
Yap_setCurrentSourceLocation(st); Yap_setCurrentSourceLocation(st);
} }
} }

36
H/YapFlags.h
View File

@ -386,9 +386,9 @@ static inline bool setReadTermBackQuotesFlag(Term val) {
return true; return true;
} }
static inline Term getReadTermBackQuotesFlag(void) { static inline Term getBackQuotesFlag(Term mod) {
Term val; Term val;
unsigned int flags = Yap_GetModuleEntry(CurrentModule)->flags; unsigned int flags = Yap_GetModuleEntry(mod)->flags;
if (flags & BCKQ_ATOM) { if (flags & BCKQ_ATOM) {
val = TermAtom; val = TermAtom;
} else if (flags & BCKQ_STRING) { } else if (flags & BCKQ_STRING) {
@ -398,7 +398,37 @@ static inline Term getReadTermBackQuotesFlag(void) {
} else { } else {
val = TermCodes; val = TermCodes;
} }
return GLOBAL_Flags[BACK_QUOTES_FLAG].at = val; return val;
}
static inline Term getSingleQuotesFlag(Term mod) {
Term val;
unsigned int flags = Yap_GetModuleEntry(mod)->flags;
if (flags & SNGQ_ATOM) {
val = TermAtom;
} else if (flags & SNGQ_STRING) {
val = TermString;
} else if (flags & SNGQ_CHARS) {
val = TermChars;
} else {
val = TermCodes;
}
return val;
}
static inline Term getDoubleQuotesFlag(Term mod) {
Term val;
unsigned int flags = Yap_GetModuleEntry(mod)->flags;
if (flags & DBLQ_ATOM) {
val = TermAtom;
} else if (flags & DBLQ_STRING) {
val = TermString;
} else if (flags & DBLQ_CHARS) {
val = TermChars;
} else {
val = TermCodes;
}
return val;
} }
static inline Term indexingMode(void) { return GLOBAL_Flags[INDEX_FLAG].at; } static inline Term indexingMode(void) { return GLOBAL_Flags[INDEX_FLAG].at; }

106
os/readterm.c
View File

@ -349,7 +349,6 @@ static Int scan_to_list(USES_REGS1)
int inp_stream; int inp_stream;
Term tout; Term tout;
scanner_params params; scanner_params params;
memset(&params,0,sizeof(params));
/* needs to change LOCAL_output_stream for write */ /* needs to change LOCAL_output_stream for write */
inp_stream = Yap_CheckTextStream(ARG1, Input_Stream_f, "read/3"); inp_stream = Yap_CheckTextStream(ARG1, Input_Stream_f, "read/3");
@ -554,12 +553,8 @@ static Term syntax_error(TokEntry *errtok, int sno, Term cmod, Int newpos, bool
fe->enc = GLOBAL_Stream[inp_stream].encoding; fe->enc = GLOBAL_Stream[inp_stream].encoding;
xarg *args = xarg *args =
Yap_ArgListToVector(opts, read_defs, READ_END, DOMAIN_ERROR_READ_OPTION); Yap_ArgListToVector(opts, read_defs, READ_END, DOMAIN_ERROR_READ_OPTION);
if (args == NULL)
{
return NULL;
}
if (args[READ_OUTPUT].used) if (args && args[READ_OUTPUT].used)
{ {
fe->t0 = args[READ_OUTPUT].tvalue; fe->t0 = args[READ_OUTPUT].tvalue;
} }
@ -567,7 +562,7 @@ static Term syntax_error(TokEntry *errtok, int sno, Term cmod, Int newpos, bool
{ {
fe->t0 = 0; fe->t0 = 0;
} }
if (args[READ_MODULE].used) if (args && args[READ_MODULE].used)
{ {
fe->cmod = args[READ_MODULE].tvalue; fe->cmod = args[READ_MODULE].tvalue;
} }
@ -577,25 +572,25 @@ static Term syntax_error(TokEntry *errtok, int sno, Term cmod, Int newpos, bool
if (fe->cmod == TermProlog) if (fe->cmod == TermProlog)
fe->cmod = PROLOG_MODULE; fe->cmod = PROLOG_MODULE;
} }
if (args[READ_BACKQUOTED_STRING].used) if (args && args[READ_BACKQUOTED_STRING].used)
{ {
fe->scanner.backquotes = args[READ_BACKQUOTED_STRING].tvalue; fe->scanner.backquotes = args[READ_BACKQUOTED_STRING].tvalue;
} else { } else {
fe->scanner.backquotes = getBackQuotesFlag(fe->cmod); fe->scanner.backquotes = getBackQuotesFlag(fe->cmod);
} }
if (args[READ_DOUBLEQUOTED_STRING].used) if (args && args[READ_DOUBLEQUOTED_STRING].used)
{ {
fe->scanner.doublequotes = args[READ_DOUBLEQUOTED_STRING].tvalue; fe->scanner.doublequotes = args[READ_DOUBLEQUOTED_STRING].tvalue;
} else { } else {
fe->scanner.doublequotes = getDoubleQuotesFlag(fe->cmod); fe->scanner.doublequotes = getDoubleQuotesFlag(fe->cmod);
} }
if (args[READ_SINGLEQUOTED_STRING].used) if (args && args[READ_SINGLEQUOTED_STRING].used)
{ {
fe->scanner.singlequotes = args[READ_SINGLEQUOTED_STRING].tvalue; fe->scanner.singlequotes = args[READ_SINGLEQUOTED_STRING].tvalue;
} else { } else {
fe->scanner.singlequotes = getSingleQuotesFlag(fe->cmod); fe->scanner.singlequotes = getSingleQuotesFlag(fe->cmod);
} }
if (args[READ_CHARACTER_ESCAPES].used) if (args && args[READ_CHARACTER_ESCAPES].used)
{ {
fe->scanner.ce = args[READ_CHARACTER_ESCAPES].tvalue == TermTrue; fe->scanner.ce = args[READ_CHARACTER_ESCAPES].tvalue == TermTrue;
} }
@ -603,7 +598,7 @@ static Term syntax_error(TokEntry *errtok, int sno, Term cmod, Int newpos, bool
{ {
fe->scanner.ce = Yap_CharacterEscapes(fe->cmod) == TermTrue; fe->scanner.ce = Yap_CharacterEscapes(fe->cmod) == TermTrue;
} }
if (args[READ_VAR_PREFIX].used) if (args && args[READ_VAR_PREFIX].used)
{ {
fe->scanner.vprefix = args[READ_VAR_PREFIX].tvalue == TermTrue; fe->scanner.vprefix = args[READ_VAR_PREFIX].tvalue == TermTrue;
} }
@ -611,7 +606,7 @@ static Term syntax_error(TokEntry *errtok, int sno, Term cmod, Int newpos, bool
{ {
fe->scanner.vprefix = false; fe->scanner.vprefix = false;
} }
if (args[READ_INPUT_CLOSING_BLANK].used) if (args && args[READ_INPUT_CLOSING_BLANK].used)
{ {
fe->scanner.get_eot_blank = args[READ_INPUT_CLOSING_BLANK].tvalue == TermTrue; fe->scanner.get_eot_blank = args[READ_INPUT_CLOSING_BLANK].tvalue == TermTrue;
} }
@ -619,21 +614,21 @@ static Term syntax_error(TokEntry *errtok, int sno, Term cmod, Int newpos, bool
{ {
fe->scanner.get_eot_blank = false; fe->scanner.get_eot_blank = false;
} }
if (args[READ_ALLOW_VARIABLE_NAME_AS_FUNCTOR].used) if (args && args[READ_ALLOW_VARIABLE_NAME_AS_FUNCTOR].used)
{ {
fe->scanner.vn_asfl = args[READ_ALLOW_VARIABLE_NAME_AS_FUNCTOR].tvalue == TermTrue; fe->scanner.vn_asfl = args[READ_ALLOW_VARIABLE_NAME_AS_FUNCTOR].tvalue == TermTrue;
} }
else else
{ {
fe->scanner.vn_asfl = trueLocalPrologFlag(ALLOW_VARIABLE_NAME_AS_FUNCTOR_FLAG); fe->scanner.vn_asfl = trueLocalPrologFlag(ALLOW_VARIABLE_NAME_AS_FUNCTOR_FLAG) == TermTrue;
} }
if (args[READ_COMMENTS].used) if (args && args[READ_COMMENTS].used)
{ {
fe->scanner.store_comments = args[READ_COMMENTS].tvalue; fe->scanner.store_comments = args[READ_COMMENTS].tvalue;
} else { } else {
fe->scanner.store_comments = 0; fe->scanner.store_comments = 0;
} }
if (args[READ_QUASI_QUOTATIONS].used) if (args && args[READ_QUASI_QUOTATIONS].used)
{ {
fe->qq = args[READ_QUASI_QUOTATIONS].tvalue; fe->qq = args[READ_QUASI_QUOTATIONS].tvalue;
} }
@ -641,7 +636,7 @@ static Term syntax_error(TokEntry *errtok, int sno, Term cmod, Int newpos, bool
{ {
fe->qq = 0; fe->qq = 0;
} }
if (args[READ_COMMENTS].used) if (args && args[READ_COMMENTS].used)
{ {
fe->scanner.tcomms = args[READ_COMMENTS].tvalue; fe->scanner.tcomms = args[READ_COMMENTS].tvalue;
} }
@ -649,15 +644,15 @@ static Term syntax_error(TokEntry *errtok, int sno, Term cmod, Int newpos, bool
{ {
fe->scanner.tcomms = 0; fe->scanner.tcomms = 0;
} }
if (args[READ_TERM_POSITION].used) if (args && args[READ_TERM_POSITION].used)
{ {
fe->scanner.tpos = args[READ_TERM_POSITION].tvalue; fe->scanner.tposINPUT = args[READ_TERM_POSITION].tvalue;
} }
else else
{ {
fe->scanner.tpos = 0; fe->scanner.tposINPUT = 0;
} }
if (args[READ_SINGLETONS].used) if (args && args[READ_SINGLETONS].used)
{ {
fe->sp = args[READ_SINGLETONS].tvalue; fe->sp = args[READ_SINGLETONS].tvalue;
} }
@ -665,7 +660,7 @@ static Term syntax_error(TokEntry *errtok, int sno, Term cmod, Int newpos, bool
{ {
fe->sp = 0; fe->sp = 0;
} }
if (args[READ_SYNTAX_ERRORS].used) if (args && args[READ_SYNTAX_ERRORS].used)
{ {
re->sy = args[READ_SYNTAX_ERRORS].tvalue; re->sy = args[READ_SYNTAX_ERRORS].tvalue;
} }
@ -673,7 +668,7 @@ static Term syntax_error(TokEntry *errtok, int sno, Term cmod, Int newpos, bool
{ {
re->sy = TermError; // getYapFlag( MkAtomTerm(AtomSyntaxErrors) ); re->sy = TermError; // getYapFlag( MkAtomTerm(AtomSyntaxErrors) );
} }
if (args[READ_VARIABLES].used) if (args && args[READ_VARIABLES].used)
{ {
fe->vprefix = args[READ_VARIABLES].tvalue; fe->vprefix = args[READ_VARIABLES].tvalue;
} }
@ -681,7 +676,7 @@ static Term syntax_error(TokEntry *errtok, int sno, Term cmod, Int newpos, bool
{ {
fe->vprefix = 0; fe->vprefix = 0;
} }
if (args[READ_VARIABLE_NAMES].used) if (args && args[READ_VARIABLE_NAMES].used)
{ {
fe->np = args[READ_VARIABLE_NAMES].tvalue; fe->np = args[READ_VARIABLE_NAMES].tvalue;
} }
@ -694,7 +689,7 @@ static Term syntax_error(TokEntry *errtok, int sno, Term cmod, Int newpos, bool
{ {
re->cpos = GLOBAL_Stream[inp_stream].charcount; re->cpos = GLOBAL_Stream[inp_stream].charcount;
} }
if (args[READ_PRIORITY].used) if (args && args[READ_PRIORITY].used)
{ {
re->prio = IntegerOfTerm(args[READ_PRIORITY].tvalue); re->prio = IntegerOfTerm(args[READ_PRIORITY].tvalue);
if (re->prio > GLOBAL_MaxPriority) if (re->prio > GLOBAL_MaxPriority)
@ -743,7 +738,8 @@ static Term syntax_error(TokEntry *errtok, int sno, Term cmod, Int newpos, bool
PUSHFET(sp); PUSHFET(sp);
PUSHFET(np); PUSHFET(np);
PUSHFET(vprefix); PUSHFET(vprefix);
PUSHFET(scanner.tpos); PUSHFET(scanner.tposINPUT);
PUSHFET(scanner.tposOUTPUT);
PUSHFET(t); PUSHFET(t);
HR = fe->old_H; HR = fe->old_H;
TR = (tr_fr_ptr)LOCAL_ScannerStack; TR = (tr_fr_ptr)LOCAL_ScannerStack;
@ -755,7 +751,8 @@ static Term syntax_error(TokEntry *errtok, int sno, Term cmod, Int newpos, bool
POPFET(vprefix); POPFET(vprefix);
POPFET(np); POPFET(np);
POPFET(sp); POPFET(sp);
POPFET(scanner.tpos); POPFET(scanner.tposOUTPUT);
POPFET(scanner.tposINPUT);
POPFET(qq); POPFET(qq);
} }
@ -868,7 +865,7 @@ static Term syntax_error(TokEntry *errtok, int sno, Term cmod, Int newpos, bool
CACHE_REGS CACHE_REGS
Term v; Term v;
if (fe->scanner.tpos) if (fe->scanner.tposOUTPUT)
{ {
while (true) while (true)
{ {
@ -876,7 +873,7 @@ static Term syntax_error(TokEntry *errtok, int sno, Term cmod, Int newpos, bool
if (setjmp(LOCAL_IOBotch) == 0) if (setjmp(LOCAL_IOBotch) == 0)
{ {
if ((v = Currenscanner.tposositionToTerm())) if ((v = CurrentPositionToTerm()))
{ {
return v; return v;
} }
@ -893,7 +890,7 @@ static Term syntax_error(TokEntry *errtok, int sno, Term cmod, Int newpos, bool
static bool complete_processing(FEnv *fe, TokEntry *tokstart) static bool complete_processing(FEnv *fe, TokEntry *tokstart)
{ {
CACHE_REGS CACHE_REGS
Term v1, v2, v3, vc, tp; Term v1, v2, v3, vc;
if (fe->t0 && fe->t && !(Yap_unify(fe->t, fe->t0))) if (fe->t0 && fe->t && !(Yap_unify(fe->t, fe->t0)))
return false; return false;
@ -914,19 +911,16 @@ static Term syntax_error(TokEntry *errtok, int sno, Term cmod, Int newpos, bool
vc = LOCAL_Comments; vc = LOCAL_Comments;
else else
vc = 0L; vc = 0L;
if (fe->t && fe->scanner.tpos) fe->scanner.tposOUTPUT = get_stream_position(fe, tokstart);
scanner.tpos = get_stream_position(fe, tokstart);
else
scanner.tpos = 0L;
Yap_clean_tokenizer(tokstart, LOCAL_VarTable, LOCAL_AnonVarTable); Yap_clean_tokenizer(tokstart, LOCAL_VarTable, LOCAL_AnonVarTable);
free(fe->args); free(fe->args);
// trail must be ok by now.] // trail must be ok by now.]
if (fe->t) if (fe->t)
{ {
return (!v1 || Yap_unify(v1, fe->vprefix)) && (!v2 || Yap_unify(v2, fe->np)) && return (!v1 || Yap_unify(v1, fe->vprefix)) && (!v2 || Yap_unify(v2, fe->np)) &&
(!v3 || Yap_unify(v3, fe->sp)) && (!tp || Yap_unify(tp, fe->tp)) && (!v3 || Yap_unify(v3, fe->sp)) && (!fe->scanner.tposINPUT || Yap_unify(fe->scanner.tposINPUT, fe->scanner.tposOUTPUT )) &&
(!vc || Yap_unify(vc, fe->scanner,tcomms)); (!vc ||Yap_unify(vc, fe->scanner.tcomms));
} }
return true; return true;
} }
@ -1022,7 +1016,7 @@ static Term syntax_error(TokEntry *errtok, int sno, Term cmod, Int newpos, bool
fe->t = 0; fe->t = 0;
if (fe->vprefix && !Yap_unify(TermNil, fe->vprefix)) if (fe->vprefix && !Yap_unify(TermNil, fe->vprefix))
fe->t = 0; fe->t = 0;
if (fe->tp && !Yap_unify(fe->tp, fe->tpos)) if (fe->scanner.tposINPUT && !Yap_unify(fe->scanner.tposINPUT, fe->scanner.tposOUTPUT))
fe->t = 0; fe->t = 0;
#if DEBUG #if DEBUG
if (GLOBAL_Option['p' - 'a' + 1]) if (GLOBAL_Option['p' - 'a' + 1])
@ -1042,7 +1036,7 @@ static Term syntax_error(TokEntry *errtok, int sno, Term cmod, Int newpos, bool
LOCAL_Error_TYPE = YAP_NO_ERROR; LOCAL_Error_TYPE = YAP_NO_ERROR;
LOCAL_SourceFileName = GLOBAL_Stream[inp_stream].name; LOCAL_SourceFileName = GLOBAL_Stream[inp_stream].name;
LOCAL_eot_before_eof = false; LOCAL_eot_before_eof = false;
fe->tpos = StreamPosition(inp_stream); fe->scanner.tposOUTPUT = StreamPosition(inp_stream);
fe->reading_clause = clause; fe->reading_clause = clause;
if (clause) if (clause)
{ {
@ -1082,7 +1076,7 @@ static Term syntax_error(TokEntry *errtok, int sno, Term cmod, Int newpos, bool
and floats */ and floats */
LOCAL_tokptr = LOCAL_toktide = LOCAL_tokptr = LOCAL_toktide =
Yap_tokenizer(GLOBAL_Stream + sno, false, &fe->tpos); Yap_tokenizer(GLOBAL_Stream + sno, &fe->scanner);
#if DEBUG #if DEBUG
if (GLOBAL_Option[2]) if (GLOBAL_Option[2])
@ -1375,12 +1369,8 @@ static Term syntax_error(TokEntry *errtok, int sno, Term cmod, Int newpos, bool
xarg *args = Yap_ArgListToVector(opts, read_clause_defs, READ_CLAUSE_END, xarg *args = Yap_ArgListToVector(opts, read_clause_defs, READ_CLAUSE_END,
DOMAIN_ERROR_READ_OPTION); DOMAIN_ERROR_READ_OPTION);
memset(fe,0,sizeof(*fe));
if (args == NULL) if (args && args[READ_CLAUSE_OUTPUT].used)
{
return NULL;
}
if (args[READ_CLAUSE_OUTPUT].used)
{ {
fe->t0 = args[READ_CLAUSE_OUTPUT].tvalue; fe->t0 = args[READ_CLAUSE_OUTPUT].tvalue;
} }
@ -1388,7 +1378,7 @@ static Term syntax_error(TokEntry *errtok, int sno, Term cmod, Int newpos, bool
{ {
fe->t0 = 0; fe->t0 = 0;
} }
if (args[READ_CLAUSE_MODULE].used) if (args && args[READ_CLAUSE_MODULE].used)
{ {
fe->cmod = args[READ_CLAUSE_MODULE].tvalue; fe->cmod = args[READ_CLAUSE_MODULE].tvalue;
} }
@ -1398,13 +1388,13 @@ static Term syntax_error(TokEntry *errtok, int sno, Term cmod, Int newpos, bool
if (fe->cmod == TermProlog) if (fe->cmod == TermProlog)
fe->cmod = PROLOG_MODULE; fe->cmod = PROLOG_MODULE;
} }
fe->scanner.backquotes = getReadTermBackQuotesFlag(); fe->scanner.backquotes = getBackQuotesFlag(fe->cmod);
fe->scanner.quotes = getReadTermQuotesFlag(); fe->scanner.singlequotes = getSingleQuotesFlag(fe->cmod);
fe->scanner.doublequotes = getReadTermDoubleQuotesFlag(); fe->scanner.doublequotes = getDoubleQuotesFlag(fe->cmod);
fe->enc = GLOBAL_Stream[sno].encoding; fe->enc = GLOBAL_Stream[sno].encoding;
fe->sp = 0; fe->sp = 0;
fe->qq = 0; fe->qq = 0;
if (args[READ_CLAUSE_OUTPUT].used) if (args && args[READ_CLAUSE_OUTPUT].used)
{ {
fe->t0 = args[READ_CLAUSE_OUTPUT].tvalue; fe->t0 = args[READ_CLAUSE_OUTPUT].tvalue;
} }
@ -1412,7 +1402,7 @@ static Term syntax_error(TokEntry *errtok, int sno, Term cmod, Int newpos, bool
{ {
fe->t0 = 0; fe->t0 = 0;
} }
if (args[READ_CLAUSE_TERM_POSITION].used) if (args && args[READ_CLAUSE_TERM_POSITION].used)
{ {
fe->tp = args[READ_CLAUSE_TERM_POSITION].tvalue; fe->tp = args[READ_CLAUSE_TERM_POSITION].tvalue;
} }
@ -1421,7 +1411,7 @@ static Term syntax_error(TokEntry *errtok, int sno, Term cmod, Int newpos, bool
fe->tp = 0; fe->tp = 0;
} }
fe->sp = 0; fe->sp = 0;
if (args[READ_CLAUSE_COMMENTS].used) if (args && args[READ_CLAUSE_COMMENTS].used)
{ {
fe->scanner.tcomms = args[READ_CLAUSE_COMMENTS].tvalue; fe->scanner.tcomms = args[READ_CLAUSE_COMMENTS].tvalue;
} }
@ -1429,7 +1419,7 @@ static Term syntax_error(TokEntry *errtok, int sno, Term cmod, Int newpos, bool
{ {
fe->scanner.tcomms = 0L; fe->scanner.tcomms = 0L;
} }
if (args[READ_CLAUSE_SYNTAX_ERRORS].used) if (args && args[READ_CLAUSE_SYNTAX_ERRORS].used)
{ {
re->sy = args[READ_CLAUSE_SYNTAX_ERRORS].tvalue; re->sy = args[READ_CLAUSE_SYNTAX_ERRORS].tvalue;
} }
@ -1438,7 +1428,7 @@ static Term syntax_error(TokEntry *errtok, int sno, Term cmod, Int newpos, bool
re->sy = TermDec10; re->sy = TermDec10;
} }
fe->vprefix = 0; fe->vprefix = 0;
if (args[READ_CLAUSE_VARIABLE_NAMES].used) if (args && args[READ_CLAUSE_VARIABLE_NAMES].used)
{ {
fe->np = args[READ_CLAUSE_VARIABLE_NAMES].tvalue; fe->np = args[READ_CLAUSE_VARIABLE_NAMES].tvalue;
} }
@ -1446,7 +1436,7 @@ static Term syntax_error(TokEntry *errtok, int sno, Term cmod, Int newpos, bool
{ {
fe->np = 0; fe->np = 0;
} }
if (args[READ_CLAUSE_VARIABLES].used) if (args && args[READ_CLAUSE_VARIABLES].used)
{ {
fe->vprefix = args[READ_CLAUSE_VARIABLES].tvalue; fe->vprefix = args[READ_CLAUSE_VARIABLES].tvalue;
} }
@ -1544,7 +1534,7 @@ static Term syntax_error(TokEntry *errtok, int sno, Term cmod, Int newpos, bool
/* preserve value of H after scanning: otherwise we may lose strings /* preserve value of H after scanning: otherwise we may lose strings
and floats */ and floats */
LOCAL_tokptr = LOCAL_toktide = LOCAL_tokptr = LOCAL_toktide =
x Yap_tokenizer(GLOBAL_Stream + sno, false, &tpos); x Yap_tokenizer(GLOBAL_Stream + sno, fe->scanner);
if (tokptr->Tok == Name_tok && (next = tokptr->TokNext) != NULL && if (tokptr->Tok == Name_tok && (next = tokptr->TokNext) != NULL &&
next->Tok == Ponctuation_tok && next->TokInfo == TermOpenBracket) next->Tok == Ponctuation_tok && next->TokInfo == TermOpenBracket)
{ {

2
os/yapio.h
View File

@ -47,7 +47,7 @@ typedef struct AliasDescS {
#define ParserAuxSp LOCAL_ScannerStack #define ParserAuxSp LOCAL_ScannerStack
typedef struct scanner_extra_params { typedef struct scanner_extra_params {
Term tpos; Term tposINPUT, tposOUTPUT;
Term backquotes, singlequotes, doublequotes; Term backquotes, singlequotes, doublequotes;
bool ce, vprefix, vn_asfl; bool ce, vprefix, vn_asfl;
Term tcomms; /// Access to comments Term tcomms; /// Access to comments

9
pl/top.yap
View File

@ -581,7 +581,14 @@ write_query_answer( Bindings ) :-
catch('$trace_query'(G, M, CP, G0), E, '$Error'(E)). catch('$trace_query'(G, M, CP, G0), E, '$Error'(E)).
'$user_call'(G, M) :- '$user_call'(G, M) :-
gated_call('$start_user_code',call(M:G),Port,'$reenter_debugger'(Port)). (
'$creep_is_off'(Module:G, GoalNo)
->
gated_call('$start_user_code',call(M:G),Port,'$reenter_debugger'(Port))
;
'$trace'(M:G)
).
'$cut_by'(CP) :- '$$cut_by'(CP). '$cut_by'(CP) :- '$$cut_by'(CP).