diff options
author | Hironobu Yamashita <h.y.acetaminophen@gmail.com> | 2022-02-13 14:23:47 +0000 |
---|---|---|
committer | Hironobu Yamashita <h.y.acetaminophen@gmail.com> | 2022-02-13 14:23:47 +0000 |
commit | c792c4fcd935edbc5fb78b4f5d1df84aee0ea1ba (patch) | |
tree | 7e1db9909dd253847182f3d7215fed929c73f8e3 /Build/source/texk/web2c/ptexdir/pbibtex.ch | |
parent | 7bbc9db598fce8e99ed1ac2b37e2eb4669f54afb (diff) |
ptexdir, uptexdir: sync with upstream
git-svn-id: svn://tug.org/texlive/trunk@62001 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/ptexdir/pbibtex.ch')
-rw-r--r-- | Build/source/texk/web2c/ptexdir/pbibtex.ch | 32 |
1 files changed, 29 insertions, 3 deletions
diff --git a/Build/source/texk/web2c/ptexdir/pbibtex.ch b/Build/source/texk/web2c/ptexdir/pbibtex.ch index 7911b7f0064..d1bcc9a554d 100644 --- a/Build/source/texk/web2c/ptexdir/pbibtex.ch +++ b/Build/source/texk/web2c/ptexdir/pbibtex.ch @@ -19,13 +19,20 @@ % 10/30/92 last update for JBibTeX 0.31 for bug fix by Shouichi Matsui % 11/02/94 Version 0.32 for use with web2c 6.1, by Takafumi Sakurai % +% 2002 Version 0.33 add kanji option by ASCII Corporation +% % 2009 pTeXenc, pbibtex N. Tsuchimura +% 2010 Version 0.99d of BibTeX for TeX Live +% +% 2022-02-08 Version 0.34 by H. Yamashita +% Do not break at white space after Japanese, to preserve spacing +% within BIB entry spacing to BBL for subsequent pTeX line-end operations @x [0] only print chnages \def\title{\BibTeX\ } @y \let\maybe=\iffalse -\def\title{J\BibTeX\ 0.33 Changes for C Version \BibTeX\ } +\def\title{J\BibTeX\ 0.34 Changes for C Version \BibTeX\ } @z @x @@ -35,7 +42,7 @@ @y \def\titlepage{F} \centerline{\:\titlefont The {\:\ttitlefont J\BibTeX} preprocessor} - \vskip 15pt \centerline{(Version 0.33 based on C Version \BibTeX 0.99d---\today)} \vfill} + \vskip 15pt \centerline{(Version 0.99d-j0.34---\today)} \vfill} @z %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% @@ -46,7 +53,7 @@ @d banner=='This is BibTeX, Version 0.99d' {printed when the program starts} @y @d my_name=='pbibtex' -@d banner=='This is pBibTeX, Version 0.99d-j0.33' +@d banner=='This is pBibTeX, Version 0.99d-j0.34' {printed when the program starts} @z @@ -233,6 +240,25 @@ init_kanji; parse_arguments; @z +% pBibTeX: do not break at |white_space| after Japanese characters +@x "Break that line" +while ((lex_class[out_buf[out_buf_ptr]] <> white_space) and + (out_buf_ptr >= min_print_line)) do + decr(out_buf_ptr); +@y +while (((lex_class[out_buf[out_buf_ptr]] <> white_space) or + (out_buf[out_buf_ptr-1] > 127)) and (out_buf_ptr >= min_print_line)) do + decr(out_buf_ptr); +@z +@x "Break that unbreakably long line" + if (lex_class[out_buf[out_buf_ptr]] <> white_space) then + incr(out_buf_ptr) +@y + if (lex_class[out_buf[out_buf_ptr]] <> white_space) or + (out_buf[out_buf_ptr-1] > 127) then + incr(out_buf_ptr) +@z + @x Changes for JBibTeX by Shouichi Matsui [332] @!b_write : hash_loc; {\.{write\$}} @!b_default : hash_loc; {either \.{skip\$} or \.{default.type}} |