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:
parent
039655b767
commit
97c809d955
10
C/iopreds.c
10
C/iopreds.c
@ -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)
|
||||||
|
Reference in New Issue
Block a user