summaryrefslogtreecommitdiff
path: root/Build/source/texk/bibtex8
diff options
context:
space:
mode:
authorPeter Breitenlohner <peb@mppmu.mpg.de>2010-03-02 15:38:12 +0000
committerPeter Breitenlohner <peb@mppmu.mpg.de>2010-03-02 15:38:12 +0000
commit03edfe7b22516d010a821b7b831685ac22ff5ae7 (patch)
treeba97aaa44547a6b09f8dbf8c9be217762dca7eec /Build/source/texk/bibtex8
parenta221d478c0af19226e1086b2d5381f6d3abdf2c9 (diff)
bibtex8 adapt to bibtex 0.99d-test1 from Oren
git-svn-id: svn://tug.org/texlive/trunk@17288 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/bibtex8')
-rw-r--r--Build/source/texk/bibtex8/ChangeLog5
-rw-r--r--Build/source/texk/bibtex8/bibtex-1.c74
-rw-r--r--Build/source/texk/bibtex8/bibtex.h4
3 files changed, 60 insertions, 23 deletions
diff --git a/Build/source/texk/bibtex8/ChangeLog b/Build/source/texk/bibtex8/ChangeLog
index 53539b10938..2663ff5eab2 100644
--- a/Build/source/texk/bibtex8/ChangeLog
+++ b/Build/source/texk/bibtex8/ChangeLog
@@ -1,3 +1,8 @@
+2010-03-02 Peter Breitenlohner <peb@mppmu.mpg.de>
+
+ * bibtex-1.c, bibtex.h: Adapt to bibtex.web 0.99d test 1
+ from Oren, breaking .bbl lines only at whitespace.
+
2010-02-18 Peter Breitenlohner <peb@mppmu.mpg.de>
* sysdep.h (IMPLEMENTATION): Define for MinGW32.
diff --git a/Build/source/texk/bibtex8/bibtex-1.c b/Build/source/texk/bibtex8/bibtex-1.c
index f951b9a1ee0..9a19d20b80b 100644
--- a/Build/source/texk/bibtex8/bibtex-1.c
+++ b/Build/source/texk/bibtex8/bibtex-1.c
@@ -292,14 +292,15 @@ END
* length of the current string in |out_buf|, and thus also gives the
* location for the next character. If there are enough characters
* present in the output buffer, it writes one or more lines out to the
- * .bbl file. It may break a line at any |white_space| character it
- * likes, but if it does, it will add two |space|s to the next output
- * line.
+ * .bbl file. It breaks a line only at a |white_space| character,
+ * and when it does, it adds two |space|s to the next output line.
***************************************************************************/
void add_out_pool (StrNumber_T p_str)
BEGIN
BufPointer_T break_ptr;
BufPointer_T end_ptr;
+ Boolean_T break_pt_found;
+ Boolean_T unbreakable_tail;
p_ptr1 = str_start[p_str];
p_ptr2 = str_start[p_str + 1];
@@ -315,7 +316,8 @@ BEGIN
INCR (out_buf_ptr);
END
out_buf_length = out_buf_ptr;
- while (out_buf_length > MAX_PRINT_LINE)
+ unbreakable_tail = FALSE;
+ while ((out_buf_length > MAX_PRINT_LINE) && ! unbreakable_tail)
/***************************************************************************
* WEB section number: 323
@@ -324,11 +326,15 @@ BEGIN
* backwards from |out_buf[max_print_line]| until
* |out_buf[min_print_line]|; we break at the |white_space| and indent
* the next line two |space|s. The next module handles things when
- * there's no |white_space| character to break at.
+ * there's no |white_space| character to break at. (It seems that the
+ * annoyances to the average user of a warning message when there's an
+ * output line longer than |max_print_line| outweigh the benefits, so we
+ * don't issue such warnings in the current code.)
***************************************************************************/
BEGIN
end_ptr = out_buf_length;
out_buf_ptr = MAX_PRINT_LINE;
+ break_pt_found = FALSE;
while ((lex_class[out_buf[out_buf_ptr]] != WHITE_SPACE)
&& (out_buf_ptr >= MIN_PRINT_LINE))
BEGIN
@@ -339,31 +345,57 @@ BEGIN
/***************************************************************************
* WEB section number: 324
* ~~~~~~~~~~~~~~~~~~~
- * If there's no |white_space| character to break the line at, we break
- * it at |out_buf[max_print_line-1]|, append a |comment| character, and
- * don't indent the next line.
+ * If there's no |white_space| character up through
+ * |out_buf[max_print_line]|, we instead break the line at the first
+ * following |white_space| character, if one exists. And if, starting
+ * with that |white_space| character, there are multiple consecutive
+ * |white_space| characters, |out_buf_ptr| points to the last of them.
+ * If no |white_space| character exists, we haven't found a viable break
+ * point, so we don't break the line (yet).
***************************************************************************/
BEGIN
- out_buf[end_ptr] = out_buf[MAX_PRINT_LINE - 1];
- out_buf[MAX_PRINT_LINE - 1] = COMMENT;
- out_buf_length = MAX_PRINT_LINE;
- break_ptr = out_buf_length - 1;
- output_bbl_line ();
- out_buf[MAX_PRINT_LINE - 1] = out_buf[end_ptr];
- out_buf_ptr = 0;
- tmp_ptr = break_ptr;
- while (tmp_ptr < end_ptr)
+ out_buf_ptr = MAX_PRINT_LINE + 1;
+ while (out_buf_ptr < end_ptr)
BEGIN
- out_buf[out_buf_ptr] = out_buf[tmp_ptr];
- INCR (out_buf_ptr);
- INCR (tmp_ptr);
+ if (lex_class[out_buf[out_buf_ptr]] != WHITE_SPACE)
+ BEGIN
+ INCR (out_buf_ptr);
+ END
+ else
+ BEGIN
+ goto Loop1_Exit;
+ END
+ END
+Loop1_Exit:
+ if (out_buf_ptr == end_ptr)
+ BEGIN
+ unbreakable_tail = TRUE;
+ END
+ else
+ BEGIN
+ break_pt_found = TRUE;
+ while (out_buf_ptr + 1 < end_ptr)
+ BEGIN
+ if (lex_class[out_buf[out_buf_ptr + 1]] == WHITE_SPACE)
+ BEGIN
+ INCR (out_buf_ptr);
+ END
+ else
+ BEGIN
+ goto Loop2_Exit;
+ END
+ END
+Loop2_Exit: DO_NOTHING;
END
- out_buf_length = end_ptr - break_ptr;
END
/*^^^^^^^^^^^^^^^^^^^^^^^^^^ END OF SECTION 324 ^^^^^^^^^^^^^^^^^^^^^^^^^^^*/
else
BEGIN
+ break_pt_found = TRUE;
+ END
+ if (break_pt_found)
+ BEGIN
out_buf_length = out_buf_ptr;
break_ptr = out_buf_length + 1;
output_bbl_line ();
diff --git a/Build/source/texk/bibtex8/bibtex.h b/Build/source/texk/bibtex8/bibtex.h
index 564bb71c3ac..c1b5b008ad0 100644
--- a/Build/source/texk/bibtex8/bibtex.h
+++ b/Build/source/texk/bibtex8/bibtex.h
@@ -100,9 +100,9 @@
* is modified.
***************************************************************************/
#ifdef SUPPORT_8BIT
-# define BANNER "This is 8-bit Big BibTeX version 0.99c"
+# define BANNER "This is 8-bit Big BibTeX version 0.99dtest"
#else /* NOT SUPPORT_8BIT */
-# define BANNER "This is Big BibTeX version 0.99c"
+# define BANNER "This is Big BibTeX version 0.99dtest"
#endif /* SUPPORT_8BIT */