From 630c59ca678020c79b59c2f429b85cd9c819b75a Mon Sep 17 00:00:00 2001 From: Edwin Groothuis Date: Tue, 29 Nov 2005 22:09:27 +0000 Subject: [MAINTAINER] editors/xemacs-devel-mule: add windows-1251 support. * Added windows-1251 code system, removed from upstream XEmacs 21.5 PR: ports/89734 Submitted by: Andrey Slusar --- editors/xemacs-devel-mule/Makefile | 4 + .../files/extra-patch-cyrillic.el | 117 +++++++++++++++++++++ 2 files changed, 121 insertions(+) create mode 100644 editors/xemacs-devel-mule/files/extra-patch-cyrillic.el (limited to 'editors/xemacs-devel-mule') diff --git a/editors/xemacs-devel-mule/Makefile b/editors/xemacs-devel-mule/Makefile index 9c67a75564dc..62b0366f5ffb 100644 --- a/editors/xemacs-devel-mule/Makefile +++ b/editors/xemacs-devel-mule/Makefile @@ -167,6 +167,10 @@ PLIST_SUB+= WITH_PGSQL="" PLIST_SUB+= WITH_PGSQL="@comment " .endif +.if defined(WITH_WINDOWS1251) +EXTRA_PATCHES+= ${FILESDIR}/extra-patch-cyrillic.el +.endif + BINNAMEEXT= -mule .if defined(CANNA) && defined(FREEWNN) CONFIGURE_ARGS+= --with-canna --with-wnn --with-wnn6=no diff --git a/editors/xemacs-devel-mule/files/extra-patch-cyrillic.el b/editors/xemacs-devel-mule/files/extra-patch-cyrillic.el new file mode 100644 index 000000000000..275b08951812 --- /dev/null +++ b/editors/xemacs-devel-mule/files/extra-patch-cyrillic.el @@ -0,0 +1,117 @@ +--- lisp/mule/cyrillic.el 2004-03-10 15:05:21.000000000 +0300 ++++ lisp/mule/cyrillic.el 2004-03-11 19:19:17.000000000 +0300 +@@ -30,6 +30,9 @@ + ;; converted to ISO8859-5 internally. + + ;; Windows-1251 support deleted because XEmacs has automatic support. ++;; WINDOWS-1251 was deleted by Ben Wing. Put back by Nickolay Pakoulin, ++;; , see comment below. ++ + + ;;; Code: + +@@ -188,6 +191,104 @@ + + ;;; WINDOWS-1251 deleted; we support it automatically in XEmacs + ++;;; WINDOWS-1251 was deleted by Ben Wing. Put back by Nickolay Pakoulin, ++;;; , see comment below. ++ ++;;; WINDOWS-1251 ++;; On Windows platforms `windows-1251' coding system is defined in ++;; mule-win32-init.el using support for codepages provided by Microsoft ++;; libraries. But on Unixes we have no built-in support for windows-1251, so ++;; we have define it here using ccl. ++ ++;; '#-FEXP' is a special syntax for lisp reader. Means 'ignore the next sexp ++;; when the FEXP is true'. Here reader ignores code for windows-1251 when ++;; (featurep '(or windows-nt cygwin32)) is true. ++ ++#-(or windows-nt cygwin32) ++(eval-and-compile ++ ++(defvar cyrillic-windows-1251-decode-table ++ [ ++ 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 ++ 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 ++ 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 ++ 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 ++ 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 ++ 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 ++ 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 ++ 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 ++ ?,L"(B ?,L#(B 32 ?,Ls(B 32 32 32 32 32 32 ?,L)(B 32 ?,L*(B ?,L,(B ?,L+(B ?,L/(B ;" ++ ?,Lr(B 32 32 32 32 32 32 32 32 32 ?,Ly(B 32 ?,Lz(B ?,L|(B ?,L{(B ?,L(B ++ ?,L (B ?,L.(B ?,L~(B ?,L((B ?,A$(B 32 ?,A&(B ?,L}(B ?,L!(B ?,A)(B ?,L$(B ?,A+(B ?,A,(B ?,L-(B ?,A.(B ?,L'(B ++ ?,A0(B ?,A1(B ?,L&(B ?,Lv(B 32 ?,A5(B ?,A6(B ?,A7(B ?,Lq(B ?,Lp(B ?,Lt(B ?,A;(B ?,Lx(B ?,L%(B ?,Lu(B ?,Lw(B ++ ?,L0(B ?,L1(B ?,L2(B ?,L3(B ?,L4(B ?,L5(B ?,L6(B ?,L7(B ?,L8(B ?,L9(B ?,L:(B ?,L;(B ?,L<(B ?,L=(B ?,L>(B ?,L?(B ++ ?,L@(B ?,LA(B ?,LB(B ?,LC(B ?,LD(B ?,LE(B ?,LF(B ?,LG(B ?,LH(B ?,LI(B ?,LJ(B ?,LK(B ?,LL(B ?,LM(B ?,LN(B ?,LO(B ++ ?,LP(B ?,LQ(B ?,LR(B ?,LS(B ?,LT(B ?,LU(B ?,LV(B ?,LW(B ?,LX(B ?,LY(B ?,LZ(B ?,L[(B ?,L\(B ?,L](B ?,L^(B ?,L_(B ++ ?,L`(B ?,La(B ?,Lb(B ?,Lc(B ?,Ld(B ?,Le(B ?,Lf(B ?,Lg(B ?,Lh(B ?,Li(B ?,Lj(B ?,Lk(B ?,Ll(B ?,Lm(B ?,Ln(B ?,Lo(B ] ++ "Cyrillic Windows-1251 decoding table.") ++ ++(defvar cyrillic-windows-1251-encode-table ++ (let ((table (make-vector 256 32)) ++ (i 0)) ++ (while (< i 256) ++ (let* ((ch (aref cyrillic-windows-1251-decode-table i)) ++ (split (split-char ch))) ++ (cond ((eq (car split) 'cyrillic-iso8859-5) ++ (aset table (logior (nth 1 split) 128) i) ++ ) ++ ((eq ch 32)) ++ ((eq (car split) 'ascii) ++ (aset table ch i) ++ ))) ++ (setq i (1+ i))) ++ table) ++ "Cyrillic Windows-1251 encoding table.") ++ ++) ++ ++#-(or windows-nt cygwin32) ++(define-ccl-program ccl-decode-windows1251 ++ `(3 ++ ((read r0) ++ (loop ++ (write-read-repeat r0 ,cyrillic-windows-1251-decode-table)))) ++ "CCL program to decode Windows-1251.") ++ ++#-(or windows-nt cygwin32) ++(define-ccl-program ccl-encode-windows1251 ++ `(1 ++ ((read r0) ++ (loop ++ (if (r0 != ,(charset-id 'cyrillic-iso8859-5)) ++ (write-read-repeat r0) ++ ((read r0) ++ (write-read-repeat r0 , cyrillic-windows-1251-encode-table)))))) ++ "CCL program to encode Windows-1251.") ++ ++#-(or windows-nt cygwin32) ++(make-coding-system ++ 'windows-1251 'ccl ++ "Coding-system used for Windows-1251." ++ '(decode ccl-decode-windows1251 ++ encode ccl-encode-windows1251 ++ mnemonic "CyrW")) ++ ++;; `iso-8-1' is not correct, but XEmacs doesn't have a `ccl' category ++#-(or windows-nt cygwin32) ++(coding-system-put 'windows-1251 'category 'iso-8-1) ++ ++#-(or windows-nt cygwin32) ++(set-language-info-alist ++ "Cyrillic-Win" '((charset cyrillic-iso8859-5) ++ (coding-system windows-1251) ++ (coding-priority windows-1251) ++ (input-method . "cyrillic-yawerty") ++ (features cyril-util) ++ (tutorial . "TUTORIAL.ru") ++ (sample-text . "Russian (,L@caaZXY(B) ,L7T`PRabRcYbU(B!") ++ (documentation . "Support for Cyrillic Windows-1251.")) ++ '("Cyrillic")) ++ + ;;; ALTERNATIVNYJ + + (eval-and-compile -- cgit v1.2.3