diff options
Diffstat (limited to 'Build/source/texk/web2c/luatexdir/tex/printing.c')
-rw-r--r-- | Build/source/texk/web2c/luatexdir/tex/printing.c | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/Build/source/texk/web2c/luatexdir/tex/printing.c b/Build/source/texk/web2c/luatexdir/tex/printing.c index c85a6a5323c..9cfca1faf28 100644 --- a/Build/source/texk/web2c/luatexdir/tex/printing.c +++ b/Build/source/texk/web2c/luatexdir/tex/printing.c @@ -1297,6 +1297,34 @@ void end_diagnostic(boolean blank_line) selector = global_old_setting; } +/* + Indentation (based on a suggestion by PO on tex-implementors but adapted to + out situation and with built-in limits and so. +*/ + +void print_input_level(void) +{ + int m = level_max; + if (m) { + int l = input_ptr; + int c = level_chr > 0 ? level_chr : '.'; + if (l > m) { + tprint_nl("["); + print_int((l/m)*m); + print(']'); + l = l % m; + } else { + print_ln(); + } + while (l > 0) { + print(c); + l--; + } + } else { + print_ln(); + } +} + /*tex Of course we had better declare another global variable, if the previous routines |