summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/ptexdir/pbibtex.ch
diff options
context:
space:
mode:
authorPeter Breitenlohner <peb@mppmu.mpg.de>2010-04-22 08:12:50 +0000
committerPeter Breitenlohner <peb@mppmu.mpg.de>2010-04-22 08:12:50 +0000
commit3c4e319b047a8eb727b15613680783c401085106 (patch)
treef36eede64b5966b63919a986d21f17bb5c5b811f /Build/source/texk/web2c/ptexdir/pbibtex.ch
parent721c5a9a097833f964cbc2084b105379648baf04 (diff)
minor [p]bibtex fixes
git-svn-id: svn://tug.org/texlive/trunk@17957 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/ptexdir/pbibtex.ch')
-rw-r--r--Build/source/texk/web2c/ptexdir/pbibtex.ch85
1 files changed, 1 insertions, 84 deletions
diff --git a/Build/source/texk/web2c/ptexdir/pbibtex.ch b/Build/source/texk/web2c/ptexdir/pbibtex.ch
index 184f504c087..b1cede95c60 100644
--- a/Build/source/texk/web2c/ptexdir/pbibtex.ch
+++ b/Build/source/texk/web2c/ptexdir/pbibtex.ch
@@ -216,95 +216,21 @@ begin
@<Process a possible command line@>
@z
-@x Changes for JBibTeX by Shouichi Matsui [321]
-procedure add_out_pool (@!p_str : str_number);
-label loop1_exit,loop2_exit;
-var break_ptr : buf_pointer; {the first character following the line break}
-@!end_ptr : buf_pointer; {temporary end-of-buffer pointer}
-break_pt_found : boolean; {a suitable |white_space| character}
-unbreakable_tail : boolean; {as it contains no |white_space| character}
-@y
-procedure add_out_pool (@!p_str : str_number);
-label loop1_exit,loop2_exit;
-var break_ptr : buf_pointer; {the first character following the line break}
-@!end_ptr : buf_pointer; {temporary end-of-buffer pointer}
-break_pt_found : boolean; {a suitable |white_space| character}
-unbreakable_tail : boolean; {because it contains no |white_space| character}
-@!in_mid_kanji:boolean; {flag if |max_print_line|-1 is in mid kanji}
-@!last_char_ptr : buf_pointer;
-@!t : buf_pointer;
-@z
-
-@x Changes for JBibTeX by Shouichi Matsui [324]
-@<Break that unbreakably long line@>=
-begin
-out_buf_ptr := max_print_line + 1; {|break_pt_found| is still |false|}
-while (out_buf_ptr < end_ptr) do
- if (lex_class[out_buf[out_buf_ptr]] <> white_space) then
- incr(out_buf_ptr)
- else
- goto loop1_exit;
-loop1_exit:
-if (out_buf_ptr = end_ptr) then
- unbreakable_tail := true {because no |white_space| character}
-else {at |white_space|, and |out_buf_ptr < end_ptr|}
- begin
- break_pt_found := true;
- while (out_buf_ptr+1 < end_ptr) do {look for more |white_space|}
- if (lex_class[out_buf[out_buf_ptr+1]] = white_space) then
- incr(out_buf_ptr) {which then points to |white_space|}
- else
- goto loop2_exit;
-loop2_exit:
- end;
-end
-@y
-@<Break that unbreakably long line@>=
-begin
-@<Check if |max_print_line|-1 is in mid kanji@>;
-if in_mid_kanji then last_char_ptr:=max_print_line-1
- else last_char_ptr:=max_print_line;
-out_buf[end_ptr] := out_buf[last_char_ptr-1]; {save this character}
-out_buf[last_char_ptr-1] := comment; {so \TeX\ does the thing right}
-out_buf_length := last_char_ptr;
-break_ptr := out_buf_length - 1; {the `|-1|' allows for the restoration}
-output_bbl_line; {output what we can,}
-out_buf[last_char_ptr-1] := out_buf[end_ptr]; {restore this character}
-out_buf_ptr := 0;
-tmp_ptr := break_ptr;
-while (tmp_ptr < end_ptr) do {and slide the rest down}
- begin
- out_buf[out_buf_ptr] := out_buf[tmp_ptr];
- incr(out_buf_ptr);
- incr(tmp_ptr);
- end;
-out_buf_length := end_ptr - break_ptr;
-end
-@z
-
@x Changes for JBibTeX by Shouichi Matsui [332]
-@!b_while : hash_loc; {\.{while\$}}
-@!b_width : hash_loc; {\.{width\$}}
@!b_write : hash_loc; {\.{write\$}}
@!b_default : hash_loc; {either \.{skip\$} or \.{default.type}}
@y
-@!b_while : hash_loc; {\.{while\$}}
-@!b_width : hash_loc; {\.{width\$}}
@!b_write : hash_loc; {\.{write\$}}
-@!b_default : hash_loc; {either \.{skip\$} or \.{default.type}}
@!b_is_kanji_str : hash_loc; {\.{is.kanji.str\$}}
+@!b_default : hash_loc; {either \.{skip\$} or \.{default.type}}
@z
@x Changes for JBibTeX by Shouichi Matsui [334]
-@d n_while = 34 {\.{while\$}}
-@d n_width = 35 {\.{width\$}}
@d n_write = 36 {\.{write\$}}
@<Constants in the outer block@>=
@!num_blt_in_fns = 37; {one more than the previous number}
@y
-@d n_while = 34 {\.{while\$}}
-@d n_width = 35 {\.{width\$}}
@d n_write = 36 {\.{write\$}}
@d n_is_kanji_str = 37 {\.{is.kanji.str\$}}
@@ -313,25 +239,18 @@ end
@z
@x Changes for JBibTeX by Shouichi Matsui [335]
-build_in('width$ ',6,b_width,n_width);
-build_in('while$ ',6,b_while,n_while);
-build_in('width$ ',6,b_width,n_width);
build_in('write$ ',6,b_write,n_write);
@y
-build_in('while$ ',6,b_while,n_while);
-build_in('width$ ',6,b_width,n_width);
build_in('write$ ',6,b_write,n_write);
build_in('is.kanji.str$',13,b_is_kanji_str,n_is_kanji_str);
@z
@x Changes for JBibTeX by Shouichi Matsui [342]
- n_width : x_width;
n_write : x_write;
othercases confusion ('Unknown built-in function')
endcases;
end
@y
- n_width : x_width;
n_write : x_write;
n_is_kanji_str: x_is_kanji_str;
othercases confusion ('Unknown built-in function')
@@ -340,11 +259,9 @@ end
@z
@x Changes for JBibTeX by Shouichi Matsui [343]
-@<|execute_fn|({\.{width\$}})@>@;
@<|execute_fn|({\.{write\$}})@>@;
@<|execute_fn| itself@>
@y
-@<|execute_fn|({\.{width\$}})@>@;
@<|execute_fn|({\.{write\$}})@>@;
@<|execute_fn|({\.{is.kanji.str\$}})@>@;
@<|execute_fn| itself@>