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

simplify write

Browse Source
This commit is contained in:
Vitor Santos Costa
2018-05-15 12:36:18 +01:00
parent 65fa980773
commit 8a817a1dc4
6 changed files with 129 additions and 263 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
os/format.c
View File

@@ -476,8 +476,9 @@ static Int doformat(volatile Term otail, volatile Term oargs,
tnum = 0;
}
if ( !(GLOBAL_Stream[sno].status & InMemory_Stream_f))
sno = Yap_OpenBufWriteStream(PASS_REGS1);
if ( !(GLOBAL_Stream[sno].status & InMemory_Stream_f)) {
sno = Yap_OpenBufWriteStream(PASS_REGS1); \
}
if (sno < 0) {
if (!alloc_fstr)
fstr = NULL;
@@ -485,6 +486,7 @@ static Int doformat(volatile Term otail, volatile Term oargs,
format_clean_up(sno, sno0, finfo);
return false;
}
GLOBAL_Stream[sno].status |= CloseOnException_Stream_f;
f_putc = GLOBAL_Stream[sno].stream_wputc;
while ((fptr += get_utf8(fptr, -1, &ch)) && ch) {
Term t = TermNil;