diff options
author | Akira Kakuto <kakuto@fuk.kindai.ac.jp> | 2021-02-01 02:15:42 +0000 |
---|---|---|
committer | Akira Kakuto <kakuto@fuk.kindai.ac.jp> | 2021-02-01 02:15:42 +0000 |
commit | 9d694205709f79666458dc2ee685767b28bcd9ac (patch) | |
tree | 0a41d56fdbc60977f75435deb3a43f155f48322e /Build/source/texk/web2c/luatexdir/tex/printing.c | |
parent | 6b626266b690e8f626829f7029a0b15b767fdfd1 (diff) |
sync with the upstream
git-svn-id: svn://tug.org/texlive/trunk@57587 c570f23f-e606-0410-a88d-b1316a301751
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 |