((u)p)bibtex: accept max_print_line

git-svn-id: svn://tug.org/texlive/trunk@63238 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 6 insertions, 0 deletions

diff --git a/Build/source/texk/web2c/bibtex.ch b/Build/source/texk/web2c/bibtex.ch
index 6e04e796d38..f8ab25b7eed 100644
--- a/Build/source/texk/web2c/bibtex.ch
+++ b/Build/source/texk/web2c/bibtex.ch
@@ -199,9 +199,13 @@ end.
 
 @x [still 14]
 @!buf_size=1000; {maximum number of characters in an input line (or string)}
+@!min_print_line=3; {minimum \.{.bbl} line length: must be |>=3|}
+@!max_print_line=79; {the maximum: must be |>min_print_line| and |<buf_size|}
 @y
 @!BUF_SIZE=20000; {initial maximum number of characters in an input line
                                                                 (or string)}
+@!min_print_line=3; {minimum \.{.bbl} line length: must be |>=3|}
+@!MAX_PRINT_LINE=60; {the maximum: must be |>min_print_line| and |<buf_size|}
 @z
 
 @x [still 14]
@@ -278,6 +282,7 @@ end.
 @y
 @<Globals in the outer block@>=
 @!pool_size: integer;
+@!max_print_line: integer;
 @!max_bib_files: integer;
 @!max_cites: integer;
 @!wiz_fn_space: integer;
@@ -1747,6 +1752,7 @@ begin kpse_set_program_name (argv[0], 'bibtex');
 setup_bound_var (ENT_STR_SIZE)('ent_str_size')(ent_str_size);
 setup_bound_var (GLOB_STR_SIZE)('glob_str_size')(glob_str_size);
 setup_bound_var (MAX_STRINGS)('max_strings')(max_strings);
+setup_bound_var (MAX_PRINT_LINE)('max_print_line')(max_print_line);
 @#
 hash_size := max_strings;
 if hash_size < HASH_SIZE then hash_size := HASH_SIZE;