texlive[62001] Build/source/texk/web2c: ptexdir, uptexdir: sync with
commits+hironobu at tug.org
commits+hironobu at tug.org
Sun Feb 13 15:23:47 CET 2022
Revision: 62001
http://tug.org/svn/texlive?view=revision&revision=62001
Author: hironobu
Date: 2022-02-13 15:23:47 +0100 (Sun, 13 Feb 2022)
Log Message:
-----------
ptexdir, uptexdir: sync with upstream
Modified Paths:
--------------
trunk/Build/source/texk/web2c/ptexdir/ChangeLog
trunk/Build/source/texk/web2c/ptexdir/pbibtex.ch
trunk/Build/source/texk/web2c/ptexdir/ptex-base.ch
trunk/Build/source/texk/web2c/uptexdir/ChangeLog
trunk/Build/source/texk/web2c/uptexdir/upbibtex.ch
Modified: trunk/Build/source/texk/web2c/ptexdir/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/ptexdir/ChangeLog 2022-02-13 03:20:19 UTC (rev 62000)
+++ trunk/Build/source/texk/web2c/ptexdir/ChangeLog 2022-02-13 14:23:47 UTC (rev 62001)
@@ -1,3 +1,10 @@
+2022-02-13 Hironobu Yamashita <h.y.acetaminophen at gmail.com>
+
+ * ptex-base.ch: \write18 in '^^' format. (Thanks Yukimasa Morimi)
+ * pbibtex.ch: Do not break at white_space after Japanese
+ characters. Version j0.34.
+ https://github.com/texjporg/pbibtex-manual/issues/1
+
2022-02-05 Hironori Kitagawa <h_kitagawa2001 at yahoo.co.jp>
* ptex-base.ch: Fix for \write18 with quotation.
Modified: trunk/Build/source/texk/web2c/ptexdir/pbibtex.ch
===================================================================
--- trunk/Build/source/texk/web2c/ptexdir/pbibtex.ch 2022-02-13 03:20:19 UTC (rev 62000)
+++ trunk/Build/source/texk/web2c/ptexdir/pbibtex.ch 2022-02-13 14:23:47 UTC (rev 62001)
@@ -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'
- at d banner=='This is pBibTeX, Version 0.99d-j0.33'
+ at d banner=='This is pBibTeX, Version 0.99d-j0.34'
{printed when the program starts}
@z
@@ -233,6 +240,25 @@
parse_arguments;
@z
+% pBibTeX: do not break at |white_space| after Japanese characters
+ at 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);
+ at 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);
+ at z
+ at x "Break that unbreakably long line"
+ if (lex_class[out_buf[out_buf_ptr]] <> white_space) then
+ incr(out_buf_ptr)
+ at y
+ if (lex_class[out_buf[out_buf_ptr]] <> white_space) or
+ (out_buf[out_buf_ptr-1] > 127) then
+ incr(out_buf_ptr)
+ at z
+
@x Changes for JBibTeX by Shouichi Matsui [332]
@!b_write : hash_loc; {\.{write\$}}
@!b_default : hash_loc; {either \.{skip\$} or \.{default.type}}
Modified: trunk/Build/source/texk/web2c/ptexdir/ptex-base.ch
===================================================================
--- trunk/Build/source/texk/web2c/ptexdir/ptex-base.ch 2022-02-13 03:20:19 UTC (rev 62000)
+++ trunk/Build/source/texk/web2c/ptexdir/ptex-base.ch 2022-02-13 14:23:47 UTC (rev 62001)
@@ -2868,7 +2868,7 @@
@d append_to_name(#)==begin c:=#; if not (c="""") then append_to_name_char(c); end
- at d append_to_name_str_pool(#)==begin
+ at d append_to_name_escape(#)==begin
if (#)>=@"100 then begin
c:=(#)-@"100;
append_to_name_char(c);
@@ -2879,10 +2879,12 @@
append_to_name_char("^");
append_to_name_hex(c div 16);
append_to_name_hex(c mod 16);
- end else if not (c="""") then
+ end else
append_to_name_char(c);
end
end
+
+ at d append_to_name_str_pool(#)==if not ((#)="""") then append_to_name_escape(#)
@z
@x l.10389
@@ -6743,7 +6745,7 @@
name_of_file := xmalloc(cur_length*4+1);
k := 0;
for d:=0 to cur_length-1 do
- append_to_name_char(str_pool[str_start[str_ptr]+d]); {do not remove quote}
+ append_to_name_escape(str_pool[str_start[str_ptr]+d]); {do not remove quote}
name_of_file[k+1] := 0;
runsystem_ret := runsystem(conststringcast(name_of_file+1));
@z
Modified: trunk/Build/source/texk/web2c/uptexdir/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/uptexdir/ChangeLog 2022-02-13 03:20:19 UTC (rev 62000)
+++ trunk/Build/source/texk/web2c/uptexdir/ChangeLog 2022-02-13 14:23:47 UTC (rev 62001)
@@ -1,3 +1,7 @@
+2022-02-13 Hironobu Yamashita <h.y.acetaminophen at gmail.com>
+
+ * upbibtex.ch: Adapt to pbibtex.ch (version number).
+
2022-02-05 Hironori Kitagawa <h_kitagawa2001 at yahoo.co.jp>
* uptex.defines: Add isterminalUTF8.
Modified: trunk/Build/source/texk/web2c/uptexdir/upbibtex.ch
===================================================================
--- trunk/Build/source/texk/web2c/uptexdir/upbibtex.ch 2022-02-13 03:20:19 UTC (rev 62000)
+++ trunk/Build/source/texk/web2c/uptexdir/upbibtex.ch 2022-02-13 14:23:47 UTC (rev 62001)
@@ -1,9 +1,9 @@
@x
@d my_name=='pbibtex'
- at d banner=='This is pBibTeX, Version 0.99d-j0.33'
+ at d banner=='This is pBibTeX, Version 0.99d-j0.34'
@y
@d my_name=='upbibtex'
- at d banner=='This is upBibTeX, Version 0.99d-j0.33-u1.28'
+ at d banner=='This is upBibTeX, Version 0.99d-j0.34-u1.28'
@z
@x
More information about the tex-live-commits
mailing list.