aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat
-rw-r--r--editors/tamago/Makefile3
-rw-r--r--editors/tamago/distinfo6
-rw-r--r--editors/tamago/files/patch-make-coding-system237
-rw-r--r--editors/tamago/pkg-descr1
4 files changed, 4 insertions, 243 deletions
diff --git a/editors/tamago/Makefile b/editors/tamago/Makefile
index f820fb0357ca..921d0d9d90d7 100644
--- a/editors/tamago/Makefile
+++ b/editors/tamago/Makefile
@@ -1,9 +1,8 @@
# Created by: tetsushi NAKAI <nakai@tsl.pe.u-tokyo.ac.jp>
PORTNAME= tamago
-PORTVERSION= 4.0.6.0.20041122.19.14
+PORTVERSION= 4.0.6.0.20041122.19.15
DISTVERSIONPREFIX= v
-PORTREVISION= 8
CATEGORIES= editors elisp
PKGNAMESUFFIX= ${EMACS_PKGNAMESUFFIX}
diff --git a/editors/tamago/distinfo b/editors/tamago/distinfo
index 2ea05e640dd6..6ebe8c61e979 100644
--- a/editors/tamago/distinfo
+++ b/editors/tamago/distinfo
@@ -1,3 +1,3 @@
-TIMESTAMP = 1463347411
-SHA256 (hrs-allbsd-tamago-v4.0.6.0.20041122.19.14_GH0.tar.gz) = c9ffa59b5d56c1dc97c09fb2fc0a7b0abde1b1cb25cb338cc976c6c59689f5cd
-SIZE (hrs-allbsd-tamago-v4.0.6.0.20041122.19.14_GH0.tar.gz) = 365797
+TIMESTAMP = 1651752248
+SHA256 (hrs-allbsd-tamago-v4.0.6.0.20041122.19.15_GH0.tar.gz) = 8b8964d8c8120825c7ac5d59d8b17824e775d79dae0305f084987a893fa2136a
+SIZE (hrs-allbsd-tamago-v4.0.6.0.20041122.19.15_GH0.tar.gz) = 365402
diff --git a/editors/tamago/files/patch-make-coding-system b/editors/tamago/files/patch-make-coding-system
deleted file mode 100644
index 6de81e8bcacd..000000000000
--- a/editors/tamago/files/patch-make-coding-system
+++ /dev/null
@@ -1,237 +0,0 @@
-diff --git egg-com.el egg-com.el
-index 63ebdb5..daab668 100644
---- egg-com.el
-+++ egg-com.el
-@@ -99,135 +99,38 @@
- (prog1 (- (point) pos)
- (goto-char pos))))
-
--(if (and (fboundp 'make-coding-system)
-- (null (get 'make-coding-system 'byte-obsolete-info)))
--;; since Emacs 23.1, make-coding-system has been marked as obsolete.
-- (eval-and-compile
-- (define-ccl-program ccl-decode-fixed-euc-jp
-- `(2
-- ((r2 = ,(charset-id 'japanese-jisx0208))
-- (r3 = ,(charset-id 'japanese-jisx0212))
-- (r4 = ,(charset-id 'katakana-jisx0201))
-- (read r0)
-- (loop
-- (read r1)
-- (if (r0 < ?\x80)
-- ((r0 = r1)
-- (if (r1 < ?\x80)
-- (write-read-repeat r0))
-- (write r4)
-- (write-read-repeat r0))
-- ((if (r1 > ?\x80)
-- ((write r2 r0)
-- (r0 = r1)
-- (write-read-repeat r0))
-- ((write r3 r0)
-- (r0 = (r1 | ?\x80))
-- (write-read-repeat r0)))))))))
--
-- (define-ccl-program ccl-encode-fixed-euc-jp
-- `(2
-- ((read r0)
-- (loop
-- (if (r0 == ,(charset-id 'latin-jisx0201)) ; Unify
-- ((read r0)
-- (r0 &= ?\x7f)))
-- (if (r0 < ?\x80) ;G0
-- ((write 0)
-- (write-read-repeat r0)))
-- (r6 = (r0 == ,(charset-id 'japanese-jisx0208)))
-- (r6 |= (r0 == ,(charset-id 'japanese-jisx0208-1978)))
-- (if r6 ;G1
-- ((read r0)
-- (write r0)
-- (read r0)
-- (write-read-repeat r0)))
-- (if (r0 == ,(charset-id 'katakana-jisx0201)) ;G2
-- ((read r0)
-- (write 0)
-- (write-read-repeat r0)))
-- (if (r0 == ,(charset-id 'japanese-jisx0212)) ;G3
-- ((read r0)
-- (write r0)
-- (read r0)
-- (r0 &= ?\x7f)
-- (write-read-repeat r0)))
-- (read r0)
-- (repeat)))))
-- (make-coding-system 'fixed-euc-jp 4 ?W "Coding System for fixed EUC Japanese"
-- (cons ccl-decode-fixed-euc-jp ccl-encode-fixed-euc-jp))
-- )
-- (eval-and-compile
-- ;; since Emacs 23.1, make-coding-system has been marked as obsolete.
-- ;; From Handa-san. [mule-ja : No.09414]
-- (define-charset 'fixed-euc-jp
-- "Fixed EUC Japanese"
-- :dimension 2
-- :superset '(ascii
-- (katakana-jisx0201 . #x80)
-- (japanese-jisx0208 . #x8080)
-- (japanese-jisx0212 . #x8000)))
-- (define-coding-system 'fixed-euc-jp
-- "Coding System for fixed EUC Japanese"
-- :mnemonic ?W
-- :coding-type 'charset
-- :charset-list '(fixed-euc-jp))
-- )
-+(eval-and-compile
-+ (define-charset 'fixed-euc-jp
-+ "Fixed EUC Japanese"
-+ :dimension 2
-+ :superset '(ascii
-+ (katakana-jisx0201 . #x80)
-+ (japanese-jisx0208 . #x8080)
-+ (japanese-jisx0212 . #x8000)))
-+ (define-coding-system 'fixed-euc-jp
-+ "Coding System for fixed EUC Japanese"
-+ :mnemonic ?W
-+ :coding-type 'charset
-+ :charset-list '(fixed-euc-jp))
- )
-
- ;; Korean
--
--(if (and (fboundp 'make-coding-system)
-- (null (get 'make-coding-system 'byte-obsolete-info)))
--;; since Emacs 23.1, make-coding-system has been marked as obsolete.
-- (eval-and-compile
--(define-ccl-program ccl-decode-fixed-euc-kr
-- `(2
-- ((r2 = ,(charset-id 'korean-ksc5601))
-- (read r0)
-- (loop
-- (read r1)
-- (if (r0 < ?\x80)
-- (r0 = r1 & ?\x7f)
-- ((write r2 r0)
-- (r0 = r1 | ?\x80)))
-- (write-read-repeat r0)))))
--
--(define-ccl-program ccl-encode-fixed-euc-kr
-- `(2
-- ((read r0)
-- (loop
-- (if (r0 < ?\x80)
-- ((write 0)
-- (write-read-repeat r0)))
-- (if (r0 == ,(charset-id 'korean-ksc5601))
-- ((read r0)
-- (write r0)
-- (read r0)
-- (write-read-repeat r0)))
-- (read r0)
-- (repeat)))))
--(make-coding-system 'fixed-euc-kr 4 ?W "Coding System for fixed EUC Korean"
-- (cons ccl-decode-fixed-euc-kr ccl-encode-fixed-euc-kr)))
-- (eval-and-compile
-- ;; since Emacs 23.1, make-coding-system has been marked as obsolete.
-- (define-charset 'fixed-euc-kr
-- "Fixed EUC Korean"
-- :dimension 2
-- :superset '(ascii
-- (korean-ksc5601 . #x8080)))
-- (define-coding-system 'fixed-euc-kr
-- "Coding System for fixed EUC Korean"
-- :mnemonic ?W
-- :coding-type 'charset
-- :charset-list '(fixed-euc-kr))
-- )
--)
-+(eval-and-compile
-+ (define-charset 'fixed-euc-kr
-+ "Fixed EUC Korean"
-+ :dimension 2
-+ :superset '(ascii
-+ (korean-ksc5601 . #x8080)))
-+ (define-coding-system 'fixed-euc-kr
-+ "Coding System for fixed EUC Korean"
-+ :mnemonic ?W
-+ :coding-type 'charset
-+ :charset-list '(fixed-euc-kr))
-+ )
-
-
- ;; Chinese
- ;;
--;; TODO: convert an obsolete make-coding-system to define-coding-system.
-
- (defconst egg-pinyin-shengmu
- '(("" . 0) ("B" . 1) ("C" . 2) ("Ch" . 3) ("D" . 4)
-@@ -687,29 +590,33 @@ Return the length of resulting text."
- (defun post-read-decode-euc-zy-tw (len)
- (post-read-decode-fixed-euc-china len 'tw t))
-
--(make-coding-system 'fixed-euc-py-cn 0 ?W
-- "Coding System for fixed EUC Chinese-gb2312")
-+(define-coding-system
-+ 'fixed-euc-py-cn "Coding System for fixed EUC Chinese-gb2312"
-+ :mnemonic ?W :coding-type 'emacs-mule)
- (coding-system-put 'fixed-euc-py-cn
- 'pre-write-conversion 'pre-write-encode-euc-cn)
- (coding-system-put 'fixed-euc-py-cn
- 'post-read-conversion 'post-read-decode-euc-py-cn)
-
--(make-coding-system 'fixed-euc-zy-cn 0 ?W
-- "Coding System for fixed EUC Chinese-gb2312")
-+(define-coding-system
-+ 'fixed-euc-zy-cn "Coding System for fixed EUC Chinese-gb2312"
-+ :mnemonic ?W :coding-type 'emacs-mule)
- (coding-system-put 'fixed-euc-zy-cn
- 'pre-write-conversion 'pre-write-encode-euc-cn)
- (coding-system-put 'fixed-euc-zy-cn
- 'post-read-conversion 'post-read-decode-euc-zy-cn)
-
--(make-coding-system 'fixed-euc-py-tw 0 ?W
-- "Coding System for fixed EUC Chinese-cns11643")
-+(define-coding-system
-+ 'fixed-euc-py-tw "Coding System for fixed EUC Chinese-cns11643"
-+ :mnemonic ?W :coding-type 'emacs-mule)
- (coding-system-put 'fixed-euc-py-tw
- 'pre-write-conversion 'pre-write-encode-euc-tw)
- (coding-system-put 'fixed-euc-py-tw
- 'post-read-conversion 'post-read-decode-euc-py-tw)
-
--(make-coding-system 'fixed-euc-zy-tw 0 ?W
-- "Coding System for fixed EUC Chinese-cns11643")
-+(define-coding-system
-+ 'fixed-euc-zy-tw "Coding System for fixed EUC Chinese-cns11643"
-+ :mnemonic ?W :coding-type 'emacs-mule)
- (coding-system-put 'fixed-euc-zy-tw
- 'pre-write-conversion 'pre-write-encode-euc-tw)
- (coding-system-put 'fixed-euc-zy-tw
-@@ -735,8 +642,9 @@ Return the length of resulting text."
- (r0 = 0)))
- (write-read-repeat r0))))))
-
--(make-coding-system 'egg-binary 4 ?W "Coding System for binary data"
-- (cons ccl-decode-egg-binary ccl-encode-egg-binary))
-+(define-coding-system 'egg-binary "Coding System for binary data"
-+ :mnemonic ?W :coding-type 'ccl :ccl-decoder ccl-decode-egg-binary
-+ :ccl-encoder ccl-encode-egg-binary)
-
-
- (defun comm-format-u32c (uint32c)
-diff --git egg-x0213.el egg-x0213.el
-index ce13eb3..bb44584 100644
---- egg-x0213.el
-+++ egg-x0213.el
-@@ -104,8 +104,10 @@
- (repeat)))
- (repeat)))))
-
-- (make-coding-system
-- 'fixed-euc-jisx0213 4 ?W "Coding System for fixed EUC Japanese"
-- (cons ccl-decode-fixed-euc-jisx0213 ccl-encode-fixed-euc-jisx0213))))
-+ (define-coding-system
-+ 'fixed-euc-jisx0213 "Coding System for fixed EUC Japanese"
-+ :mnemonic ?W :coding-type 'ccl
-+ :ccl-decoder ccl-decode-fixed-euc-jisx0213
-+ :ccl-encoder ccl-encode-fixed-euc-jisx0213)))
-
- (provide 'egg-x0213)
diff --git a/editors/tamago/pkg-descr b/editors/tamago/pkg-descr
index b022185c5bef..718912d377bc 100644
--- a/editors/tamago/pkg-descr
+++ b/editors/tamago/pkg-descr
@@ -3,5 +3,4 @@ written in only Emacs-Lisp. It supports the following translating servers:
jserver, cserver, tserver, Wnn6, SJ3 ver 1 and ver 2, cannaserver, wxgserver,
and anthy.
-WWW: http://git.chise.org/gitweb/?p=elisp/tamago.git;a=summary
WWW: https://github.com/hrs-allbsd/tamago
generated by cgit v1.2.3 (git 2.25.1) at 2024-11-15 21:44:12 +0000