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

fix tables in format

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