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

fix tables in format 

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@987 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2004-02-13 22:10:10 +00:00
parent 039655b767
commit 97c809d955
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
C/iopreds.c
View File

@ -3773,6 +3773,7 @@ format(Term tail, Term args, int sno)
goto do_consistency_error;
} else if (ch == '`') {
/* next character is kept as code */
has_repeats = TRUE;
repeats = *fptr++;
ch = *fptr++;
} else if (ch >= '0' && ch <= '9') {
@ -4038,19 +4039,20 @@ format(Term tail, Term args, int sno)
/* padding */
case '|':
if (has_repeats) {
fill_pads(has_repeats-(format_ptr-format_base));
fill_pads(repeats-(format_ptr-format_base));
}
pad_max = pad_entries;
column_boundary = has_repeats;
column_boundary = repeats;
break;
case '+':
if (has_repeats) {
fill_pads((has_repeats+column_boundary)-(format_ptr-format_base));
fill_pads((repeats+column_boundary)-(format_ptr-format_base));
} else {
repeats = 8;
fill_pads(8);
}
pad_max = pad_entries;
column_boundary = has_repeats+column_boundary;
column_boundary = repeats+column_boundary;
break;
case 't':
if (!has_repeats)