Support IBM038 (a.k.a. "EBCDIC-INT") encoding

* lisp/international/mule-conf.el (ibm038): New charset.
(ebcdic-int, cp038): Alias charsets of ibm038.
* lisp/language/english.el (ibm038): New coding-system.
(ebcdic-int, cp038): Alias coding-systems of ibm038.
(Bug#33612)

* etc/NEWS: Announce the new coding system ibm038.

diff --git a/etc/NEWS b/etc/NEWS
index 206f0fc1e6e0e39d5589edbc8a052e4c7e13a9b8..60cba9ed469a0a8d1789b218837ff1574cc9dec8 100644 (file)
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -1307,6 +1307,11 @@ a multibyte string even if its second argument is an ASCII character.
 ** '(format "%d" X)' no longer mishandles a floating-point number X that
 does not fit in a machine integer.
 
+---
+** New coding-system 'ibm038'.
+This is the International EBCDIC encoding, also available as aliases
+'ebcdic-int' and 'cp038'.
+
 +++
 ** In the DST slot, 'encode-time' and 'parse-time-string' now return -1
 if it is not known whether daylight saving time is in effect.

diff --git a/lisp/international/mule-conf.el b/lisp/international/mule-conf.el
index b08150a1499808ad169da2246129e3c625176397..02323ea479e0fbbb4a2912b9d794abcca6c16bd4 100644 (file)
--- a/lisp/international/mule-conf.el
+++ b/lisp/international/mule-conf.el
@@ -1066,6 +1066,15 @@
   :mime-charset 'ebcdic-uk
   :map "EBCDICUK")
 
+(define-charset 'ibm038
+  "International version of EBCDIC"
+  :short-name "IBM038"
+  :code-space [0 255]
+  :mime-charset 'ibm038
+  :map "IBM038")
+(define-charset-alias 'ebcdic-int 'ibm038)
+(define-charset-alias 'cp038 'ibm038)
+
 (define-charset 'ibm1047
   ;; Says groff:
   "IBM1047, `EBCDIC Latin 1/Open Systems' used by OS/390 Unix."

diff --git a/lisp/language/english.el b/lisp/language/english.el
index 72a85eb10885ac9c5afd25c8e53948007f0749af..d3fdbfed200eb55b40bdb5e2946dd433cb7bb5f6 100644 (file)
--- a/lisp/language/english.el
+++ b/lisp/language/english.el
@@ -62,6 +62,14 @@ Nothing special is needed to handle English.")
   :mnemonic ?*)
 (define-coding-system-alias 'cp1047 'ibm1047)
 
+(define-coding-system 'ibm038
+  "International version of EBCDIC"
+  :coding-type 'charset
+  :charset-list '(ibm038)
+  :mnemonic ?*)
+(define-coding-system-alias 'ebcdic-int 'ibm038)
+(define-coding-system-alias 'cp038 'ibm038)
+
 ;; Make "ASCII" an alias of "English" language environment.
 (set-language-info-alist
  "ASCII" (cdr (assoc "English" language-info-alist)))