texlive[73683] Build/source/texk/web2c/euptexdir: euptex:
commits+takuji at tug.org
commits+takuji at tug.org
Sun Feb 2 09:06:12 CET 2025
Revision: 73683
https://tug.org/svn/texlive?view=revision&revision=73683
Author: takuji
Date: 2025-02-02 09:06:12 +0100 (Sun, 02 Feb 2025)
Log Message:
-----------
euptex: eptex-250202 by H.Kitagawa
Modified Paths:
--------------
trunk/Build/source/texk/web2c/euptexdir/ChangeLog
trunk/Build/source/texk/web2c/euptexdir/eptex.ech
trunk/Build/source/texk/web2c/euptexdir/eptex_version.h
trunk/Build/source/texk/web2c/euptexdir/suppresserrors.ch
Modified: trunk/Build/source/texk/web2c/euptexdir/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/euptexdir/ChangeLog 2025-02-02 08:04:50 UTC (rev 73682)
+++ trunk/Build/source/texk/web2c/euptexdir/ChangeLog 2025-02-02 08:06:12 UTC (rev 73683)
@@ -1,3 +1,10 @@
+2025-02-02 Hironori Kitagawa <h_kitagawa2001 at yahoo.co.jp>
+
+ * suppresserrors.ch: Add \ignoreprimitiveerror
+ as in pdfTeX and XeTeX.
+ * eptex_version.h, eptex.ech:
+ Bump version to 250202.
+
2025-01-27 Karl Berry <karl at freefriends.org>
* am/euptex.am (euptex-pool.c): exit 1 if makecpool failed.
Modified: trunk/Build/source/texk/web2c/euptexdir/eptex.ech
===================================================================
--- trunk/Build/source/texk/web2c/euptexdir/eptex.ech 2025-02-02 08:04:50 UTC (rev 73682)
+++ trunk/Build/source/texk/web2c/euptexdir/eptex.ech 2025-02-02 08:06:12 UTC (rev 73683)
@@ -33,8 +33,8 @@
@y
@d eTeX_version_string=='-2.6' {current \eTeX\ version}
@#
- at d epTeX_version_string=='-241020'
- at d epTeX_version_number==241020
+ at d epTeX_version_string=='-250202'
+ at d epTeX_version_number==250202
@z
@x e-upTeX: banner
Modified: trunk/Build/source/texk/web2c/euptexdir/eptex_version.h
===================================================================
--- trunk/Build/source/texk/web2c/euptexdir/eptex_version.h 2025-02-02 08:04:50 UTC (rev 73682)
+++ trunk/Build/source/texk/web2c/euptexdir/eptex_version.h 2025-02-02 08:06:12 UTC (rev 73683)
@@ -1 +1 @@
-#define EPTEX_VERSION "241020"
+#define EPTEX_VERSION "250202"
Modified: trunk/Build/source/texk/web2c/euptexdir/suppresserrors.ch
===================================================================
--- trunk/Build/source/texk/web2c/euptexdir/suppresserrors.ch 2025-02-02 08:04:50 UTC (rev 73682)
+++ trunk/Build/source/texk/web2c/euptexdir/suppresserrors.ch 2025-02-02 08:06:12 UTC (rev 73683)
@@ -8,13 +8,56 @@
%% % \suppressfontnotfounderror -> we have an error from mktextfm etc. anyway
%% % \suppressprimitiveerror -> e-(u)pTeX does not produce errors in \pdfprimitive
+%% \ignoreprimitiveerror (from pdfTeX and XeTeX)
+
@x
+ at d print_err(#)==begin if interaction=error_stop_mode then wake_up_terminal;
+ if file_line_error_style_p then print_file_line
+ else print_nl("! ");
+ print(#);
+ end
+ at y
+ at d print_err(#)==begin if interaction=error_stop_mode then wake_up_terminal;
+ if file_line_error_style_p then print_file_line
+ else print_nl("! ");
+ print(#);
+ end
+ at d print_ignored_err(#)==begin if interaction=error_stop_mode then
+ wake_up_terminal;
+ if file_line_error_style_p then print_file_line
+ else print_nl("! ");
+ print_nl("ignored error: "); print(#);
+ end
+ at z
+
+ at x
+else begin xn_over_d:=-u; remainder:=-(v mod d);
+ end;
+end;
+ at y
+else begin xn_over_d:=-u; remainder:=-(v mod d);
+ end;
+end;
+
+function is_bit_set(n: integer; s: small_number): boolean;
+{check if $s$-th bit (one-based) of $n$ is set}
+var m, i: integer;
+begin
+ m := 1;
+ for i := 1 to s - 1 do
+ m := m * 2;
+ is_bit_set := (n div m) mod 2;
+end;
+ at z
+
+ at x
@d eTeX_state_code=etex_int_base+10 {\eTeX\ state variables}
@y
@d suppress_long_error_code=etex_int_base+10
@d suppress_outer_error_code=etex_int_base+11
@d suppress_mathpar_error_code=etex_int_base+12
- at d eTeX_state_code=etex_int_base+13 {\eTeX\ state variables}
+ at d ignore_primitive_error_code=etex_int_base+13 {ignore some primitive/engine errors}
+ at d eTeX_state_code=etex_int_base+14 {\eTeX\ state variables}
@z
@x
@@ -24,6 +67,7 @@
@d suppress_long_error==int_par(suppress_long_error_code)
@d suppress_outer_error==int_par(suppress_outer_error_code)
@d suppress_mathpar_error==int_par(suppress_mathpar_error_code)
+ at d ignore_primitive_error==int_par(ignore_primitive_error_code)
@z
@x @<Finish line, emit a \.{\\par}@>
@@ -79,6 +123,31 @@
@z
@x
+ print_err("Infinite glue shrinkage found in box being split");@/
+ at .Infinite glue shrinkage...@>
+ help4("The box you are \vsplitting contains some infinitely")@/
+ ("shrinkable glue, e.g., `\vss' or `\vskip 0pt minus 1fil'.")@/
+ ("Such glue doesn't belong there; but you can safely proceed,")@/
+ ("since the offensive shrinkability has been made finite.");
+ error; r:=new_spec(q); shrink_order(r):=normal; delete_glue_ref(q);
+ at y
+ if is_bit_set(ignore_primitive_error, 1) then
+ print_ignored_err("Infinite glue shrinkage found in box being split")
+ else begin
+ print_err("Infinite glue shrinkage found in box being split");@/
+ at .Infinite glue shrinkage...@>
+ help4("The box you are \vsplitting contains some infinitely")@/
+ ("shrinkable glue, e.g., `\vss' or `\vskip 0pt minus 1fil'.")@/
+ ("Such glue doesn't belong there; but you can safely proceed,")@/
+ ("since the offensive shrinkability has been made finite.");
+ error;
+ end;
+ r:=new_spec(q); shrink_order(r):=normal; delete_glue_ref(q);
+ at z
+
+
+
+ at x
@<Math-only cases in non-math modes, or vice versa@>: insert_dollar_sign;
@y
@<Math-only cases in non-math modes, or vice versa@>: insert_dollar_sign;
@@ -114,6 +183,8 @@
@!@:suppress_outer_error_}{\.{\\suppressoutererror} primitive@>
primitive("suppressmathparerror",assign_int,int_base+suppress_mathpar_error_code);@/
@!@:suppress_mathpar_error_}{\.{\\suppressmathparerror} primitive@>
+primitive("ignoreprimitiveerror",assign_int,int_base+ignore_primitive_error_code);@/
+@!@:ignore_primitive_error_}{\.{\\ignoreprimitiveerror} primitive@>
@z
@x
@@ -123,4 +194,5 @@
suppress_long_error_code: print_esc("suppresslongerror");
suppress_outer_error_code: print_esc("suppressoutererror");
suppress_mathpar_error_code: print_esc("suppressmathparerror");
+ignore_primitive_error_code:print_esc("ignoreprimitiveerror");
@z
More information about the tex-live-commits
mailing list.