summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/luatexdir/tex/printing.c
diff options
context:
space:
mode:
authorAkira Kakuto <kakuto@fuk.kindai.ac.jp>2021-02-01 02:15:42 +0000
committerAkira Kakuto <kakuto@fuk.kindai.ac.jp>2021-02-01 02:15:42 +0000
commit9d694205709f79666458dc2ee685767b28bcd9ac (patch)
tree0a41d56fdbc60977f75435deb3a43f155f48322e /Build/source/texk/web2c/luatexdir/tex/printing.c
parent6b626266b690e8f626829f7029a0b15b767fdfd1 (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.c28
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