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

init spelling

Browse Source
This commit is contained in:
Vítor Santos Costa 2015-11-05 15:28:39 +00:00
parent 691f02816d
commit bc8541666a
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
C/scanner.c
View File

@ -313,7 +313,7 @@ specifies the used encoding that influence `get_code/2` and
`put_code/2` as well as all the other text I/O predicates. `put_code/2` as well as all the other text I/O predicates.
The default encoding for files is derived from the Prolog flag The default encoding for files is derived from the Prolog flag
`encoding`, which is initialised from the environment. If the `encoding`, which is initialized from the environment. If the
environment variable `LANG` ends in "UTF-8", this encoding is environment variable `LANG` ends in "UTF-8", this encoding is
assumed. Otherwise the default is `text` and the translation is assumed. Otherwise the default is `text` and the translation is
left to the wide-character functions of the C-library (note that the left to the wide-character functions of the C-library (note that the
@ -621,7 +621,7 @@ static void PopScannerMemory(char *block, unsigned int size) {
} }
char *Yap_AllocScannerMemory(unsigned int size) { char *Yap_AllocScannerMemory(unsigned int size) {
/* I assume memory has been initialised */ /* I assume memory has been initialized */
return AllocScannerMemory(size); return AllocScannerMemory(size);
} }
@ -1153,9 +1153,10 @@ Term Yap_scan_num(StreamDesc *inp) {
ef = (TokEntry *)AllocScannerMemory(sizeof(TokEntry)); ef = (TokEntry *)AllocScannerMemory(sizeof(TokEntry));
tokptr->TokNext = e; tokptr->TokNext = e;
e->Tok = Error_tok; e->Tok = Error_tok;
if (!LOCAL_ErrorMessage) if (!LOCAL_ErrorMessage) {
LOCAL_ErrorMessage = LOCAL_ErrorMessage =
"syntax error while converting from a string to a number"; "syntax error while converting from a string to a number";
}
e->TokInfo = MkAtomTerm(Yap_LookupAtom(LOCAL_ErrorMessage)); e->TokInfo = MkAtomTerm(Yap_LookupAtom(LOCAL_ErrorMessage));
e->TokPos = GetCurInpPos(inp); e->TokPos = GetCurInpPos(inp);
e->TokNext = ef; e->TokNext = ef;