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

iYAP allows variables to be written as $VAR(-1) -> _

Browse Source
This commit is contained in:
Vítor Santos Costa 2011-02-15 18:24:35 +00:00
parent a40987b70d
commit 7b8a25d961
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
packages/PLStream/pl-write.c
View File

@ -1086,6 +1086,16 @@ writeTerm2(term_t t, int prec, write_options *options, bool arg)
term_t arg = PL_new_term_ref(); term_t arg = PL_new_term_ref();
_PL_get_arg(1, t, arg); _PL_get_arg(1, t, arg);
#if __YAP_PROLOG__
if ( PL_get_integer(arg, &n) && n == -1 )
{ char buf[16];
buf[0] = '_';
buf[1] = EOS;
return PutToken(buf, out);
}
#endif
if ( PL_get_integer(arg, &n) && n >= 0 ) if ( PL_get_integer(arg, &n) && n >= 0 )
{ int i = n % 26; { int i = n % 26;
int j = n / 26; int j = n / 26;