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

fixes for upcast and lowercase

Browse Source
This commit is contained in:
Vítor Santos Costa 2015-10-22 11:51:07 +01:00
parent aaa9aa2b7b
commit f1c9952c77
1 changed files with 13 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
os/charsio.c
View File

@ -58,24 +58,6 @@ static Int skip(USES_REGS1);
static Int flush_output(USES_REGS1); static Int flush_output(USES_REGS1);
static Int flush_all_streams(USES_REGS1); static Int flush_all_streams(USES_REGS1);
INLINE_ONLY inline EXTERN Term MkCharTerm(Int c);
/**
* MkCharTerm: convert a character into a single atom.
*
* @param c the character code
*
* @return the term.
*/
INLINE_ONLY inline EXTERN Term MkCharTerm(Int c) {
wchar_t cs[2];
if (c < 0)
return MkAtomTerm(AtomEof);
cs[0] = c;
cs[1] = '\0';
return MkAtomTerm(Yap_LookupMaybeWideAtom(cs));
}
/** /**
* CharOfAtom: convert an atom into a single character. * CharOfAtom: convert an atom into a single character.
* *