[groff] 01/04: Start dropping CCSID (code page) 1047 (EBCDIC).

[G. Branden Robinson]

gbranden pushed a commit to branch master
in repository groff.

commit 25b0662e69c1d63b910262deee61915c59f13dc5
Author: G. Branden Robinson <g.branden.robinson@gmail.com>
AuthorDate: Sat May 11 09:40:49 2024 -0500

    Start dropping CCSID (code page) 1047 (EBCDIC).
    
    Begin withdrawing support for CCSID (code page) 1047 (EBCDIC).
    
    * tmac/X.tmac:
    * tmac/Xps.tmac:
    * tmac/dvi.tmac:
    * tmac/html.tmac:
    * tmac/ps.tmac: Stop loading "latin1.tmac" or "cp1047.tmac" depending on
      the special character `\[char97]` matching "a".
    
    * tmac/troffrc: Simplify logic; map special character `\[char160]` to
      `\~` unconditionally.
    
    Begins fixing <https://savannah.gnu.org/bugs/?65724>.
---
 ChangeLog      | 14 ++++++++++++++
 tmac/X.tmac    |  5 -----
 tmac/Xps.tmac  |  5 -----
 tmac/dvi.tmac  |  5 -----
 tmac/html.tmac |  5 -----
 tmac/ps.tmac   |  5 -----
 tmac/troffrc   |  8 ++------
 7 files changed, 16 insertions(+), 31 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index babfd8e00..9f85f3143 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,17 @@
+2024-05-11  G. Branden Robinson <g.branden.robinson@gmail.com>
+
+       Begin withdrawing support for CCSID (code page) 1047 (EBCDIC).
+
+       * tmac/X.tmac:
+       * tmac/Xps.tmac:
+       * tmac/dvi.tmac:
+       * tmac/html.tmac:
+       * tmac/ps.tmac: Stop loading "latin1.tmac" or "cp1047.tmac"
+       depending on the special character `\[char97]` matching "a".
+
+       * tmac/troffrc: Simplify logic; map special character
+       `\[char160` to `\~` unconditionally.
+
 2024-05-09  G. Branden Robinson <g.branden.robinson@gmail.com>
 
        * src/roff/troff/node.cpp (class dbreak_node): Add `dump_node`
diff --git a/tmac/X.tmac b/tmac/X.tmac
index c5ef3293a..3a50c0afd 100644
--- a/tmac/X.tmac
+++ b/tmac/X.tmac
@@ -114,11 +114,6 @@
 .  char \[radicalex] \h'-\w'\[sr]'u'\[radicalex]\h'\w'\[sr]'u'
 .fchar \[sqrtex] \[radicalex]
 .
-.ie '\[char97]'a' \
-.  mso latin1.tmac
-.el \
-.  mso cp1047.tmac
-.
 .cp \n[*groff_X_tmac_C]
 .do rr *groff_X_tmac_C
 .
diff --git a/tmac/Xps.tmac b/tmac/Xps.tmac
index aaef0ce29..8502ca707 100644
--- a/tmac/Xps.tmac
+++ b/tmac/Xps.tmac
@@ -50,11 +50,6 @@
 .Xps-char \[lh] \[lA]
 .Xps-char \[rh] \[rA]
 .
-.ie '\[char97]'a' \
-.  mso latin1.tmac
-.el \
-.  mso cp1047.tmac
-.
 .cp \n[*groff_Xps_tmac_C]
 .do rr *groff_Xps_tmac_C
 .
diff --git a/tmac/dvi.tmac b/tmac/dvi.tmac
index 6fbf305ed..22a6c1122 100644
--- a/tmac/dvi.tmac
+++ b/tmac/dvi.tmac
@@ -778,11 +778,6 @@ D\v'-.33m'\s0\v'.33m'
 .defcolor yellow3 rgb #cdcd00
 .defcolor yellow4 rgb #8b8b00
 .
-.ie '\[char97]'a' \
-.  mso latin1.tmac
-.el \
-.  mso cp1047.tmac
-.
 .cp \n[*groff_dvi_tmac_C]
 .do rr *groff_dvi_tmac_C
 .
diff --git a/tmac/html.tmac b/tmac/html.tmac
index c67bd8776..2d3b6db3c 100644
--- a/tmac/html.tmac
+++ b/tmac/html.tmac
@@ -524,11 +524,6 @@
 .
 .mso www.tmac
 .
-.ie '\[char97]'a' \
-.  mso latin1.tmac
-.el \
-.  mso cp1047.tmac
-.
 .cp \n[*groff_html_tmac_C]
 .do rr *groff_html_tmac_C
 .
diff --git a/tmac/ps.tmac b/tmac/ps.tmac
index b67296206..462ec3569 100644
--- a/tmac/ps.tmac
+++ b/tmac/ps.tmac
@@ -658,11 +658,6 @@
 .defcolor yellow3 rgb #cdcd00
 .defcolor yellow4 rgb #8b8b00
 .
-.ie '\[char97]'a' \
-.  mso latin1.tmac
-.el \
-.  mso cp1047.tmac
-.
 .mso europs.tmac
 .
 .cp \n[*groff_ps_tmac_C]
diff --git a/tmac/troffrc b/tmac/troffrc
index a2784d78d..e42e821ce 100644
--- a/tmac/troffrc
+++ b/tmac/troffrc
@@ -47,12 +47,8 @@ troffrc!lj4 \
 troffrc!lbp \
 troffrc!html
 .
-.\" Test whether we work under EBCDIC and map the no-break space
-.\" character accordingly.
-.do ie '\[char97]'a' \
-.      do tr \[char160]\~
-.el \
-.      do tr \[char65]\~
+.\" Map no-break space character to an adjustable non-breaking space.
+.do tr \[char160]\~
 .
 .\" Set the input localization to English.
 .do mso en.tmac