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

fix format_to_chars/4 (Ulrich Neumerkel #62)

Browse Source
This commit is contained in:
Vitor Santos Costa 2009-05-20 09:14:48 -07:00
parent 26a20fa74a
commit 2020a19e69
2 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
docs/yap.tex
View File

@ -10351,7 +10351,7 @@ Execute the built-in procedure @code{format/2} with form @var{Form} and
arguments @var{Args} outputting the result to the string of character arguments @var{Args} outputting the result to the string of character
codes @var{Result}. codes @var{Result}.
@item format_to_chars(+@var{Form}, +@var{Args}, -@var{Result0}, -@var{Result}) @item format_to_chars(+@var{Form}, +@var{Args}, -@var{Result}, -@var{Result0})
@findex format_to_chars/4 @findex format_to_chars/4
@syindex format_to_chars/4 @syindex format_to_chars/4
@cnindex format_to_chars/4 @cnindex format_to_chars/4
@ -11150,10 +11150,10 @@ Det = yes ;
This predicate is under consideration for inclusion into the ISO standard. This predicate is under consideration for inclusion into the ISO standard.
For compatibility with other Prolog implementations see @code{call_cleanup/2}. For compatibility with other Prolog implementations see @code{call_cleanup/2}.
@item setup_call_cleanup(:@var{Setup},:@var{Goal}, +@var{Catcher},:@var{CleanUpGoal}) @item setup_call_catcher_cleanup(:@var{Setup},:@var{Goal}, +@var{Catcher},:@var{CleanUpGoal})
@findex setup_call_cleanup/3 @findex setup_call_catcher_cleanup/4
@snindex setup_call_cleanup/3 @snindex setup_call_catcher_cleanup/4
@cnindex setup_call_cleanup/3 @cnindex setup_call_catcher_cleanup/4
Similar to @code{setup_call_cleanup}{@var{Setup},@var{ Goal}, @var{Cleanup}} with Similar to @code{setup_call_cleanup}{@var{Setup},@var{ Goal}, @var{Cleanup}} with
additional information on the reason of calling @var{Cleanup}. Prior additional information on the reason of calling @var{Cleanup}. Prior
to calling @var{Cleanup}, @var{Catcher} unifies with the termination to calling @var{Cleanup}, @var{Catcher} unifies with the termination

4
library/charsio.yap
View File

@ -32,9 +32,9 @@
]). ]).
format_to_chars(Form, Args, OUT) :- format_to_chars(Form, Args, OUT) :-
format_to_chars(Form, Args, [], OUT). format_to_chars(Form, Args, OUT, []).
format_to_chars(Form, Args, L0, OUT) :- format_to_chars(Form, Args, OUT, []) :-
open_mem_write_stream(Stream), open_mem_write_stream(Stream),
format(Stream,Form,Args), format(Stream,Form,Args),
peek_mem_write_stream(Stream, L0, O), peek_mem_write_stream(Stream, L0, O),