mainbranch fixes to:

- fix quoted characters output
- fix line position in read_term and friends
- make messages look a bit better
- CLP(BN) EM improvements.
This commit is contained in:
Vitor Santos Costa
2008-10-23 22:17:45 +01:00
parent 592fe9e366
commit 0dcf34b7bc
18 changed files with 195 additions and 100 deletions

View File

@@ -1781,7 +1781,7 @@ YAP_EndConsult(void)
X_API Term
YAP_Read(int (*mygetc)(void))
{
Term t;
Term t, tpos = TermNil;
int sno;
TokEntry *tokstart;
@@ -1794,7 +1794,8 @@ YAP_Read(int (*mygetc)(void))
return TermNil;
}
Stream[sno].stream_getc = do_yap_getc;
tokstart = Yap_tokptr = Yap_toktide = Yap_tokenizer(sno);
Stream[sno].status |= Tty_Stream_f;
tokstart = Yap_tokptr = Yap_toktide = Yap_tokenizer(sno, &tpos);
Stream[sno].status = Free_Stream_f;
if (Yap_ErrorMessage)
{