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

start support for java interface

Browse Source 
bug fixes


git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1093 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2004-07-15 15:47:08 +00:00
parent 33bd3a9385
commit 08b9f55f9c
10 changed files with 88 additions and 36 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
C/iopreds.c
View File

@@ -158,7 +158,6 @@ STATIC_PROTO (Int p_add_alias_to_stream, (void));
STATIC_PROTO (Int p_change_alias_to_stream, (void));
STATIC_PROTO (Int p_check_if_valid_new_alias, (void));
STATIC_PROTO (Int p_fetch_stream_alias, (void));
STATIC_PROTO (int format_print_str, (Int, Int, int, Term));
STATIC_PROTO (Int p_format, (void));
STATIC_PROTO (Int p_startline, (void));
STATIC_PROTO (Int p_change_type_of_char, (void));
@@ -3593,7 +3592,7 @@ static void fill_pads(int nchars)
}
static int
format_print_str (Int sno, Int size, Int has_size, Term args)
format_print_str (Int sno, Int size, Int has_size, Term args, int (* f_putc)(int, int))
{
Term arghd;
while (!has_size || size > 0) {
@@ -3616,7 +3615,7 @@ format_print_str (Int sno, Int size, Int has_size, Term args)
Yap_Error(TYPE_ERROR_LIST, arghd, "format/2");
return FALSE;
}
format_putc(sno, (int) IntOfTerm (arghd));
f_putc(sno, (int) IntOfTerm (arghd));
size--;
}
return TRUE;
@@ -4013,7 +4012,7 @@ format(Term tail, Term args, int sno)
if (targ > tnum-1)
goto do_consistency_error;
t = targs[targ++];
if (!format_print_str (sno, repeats, has_repeats, t)) {
if (!format_print_str (sno, repeats, has_repeats, t, f_putc)) {
goto do_default_error;
}
break;