Yet another Canna client for Emacs20/XEmacs

PR:		16060
Submitted by:	HONDA Yasuhiro <honda@kashio.info.mie-u.ac.jp>

6 files changed, 133 insertions, 0 deletions

diff --git a/japanese/yc.el/Makefile b/japanese/yc.el/Makefile
new file mode 100644
index 000000000000..6106bbc22632
--- /dev/null
+++ b/japanese/yc.el/Makefile
@@ -0,0 +1,37 @@
+# New ports collection makefile for:	yc.el
+# Version required:	19991203
+# Date created:		1999/12/05
+# Whom:			HONDA Yasuhiro <honda@kashio.info.mie-u.ac.jp>
+#
+# $FreeBSD$
+#
+
+DISTNAME=	yc.el
+PKGNAME?=	ja-yc.el-19991203
+CATEGORIES=	japanese elisp
+MASTER_SITES=	http://www.ceres.dti.ne.jp/~knak/
+EXTRACT_SUFX=	.gz
+
+MAINTAINER=	honda@kashio.info.mie-u.ac.jp
+
+NO_BUILD=	yes
+NO_WRKSUBDIR=	yes
+WRKSRC=		${WRKDIR}
+
+ELISPDIR=	${PREFIX}/share/emacs/site-lisp
+XELISPDIR=	${PREFIX}/lib/xemacs/site-lisp
+
+do-extract:
+	@${RM} -rf ${WRKDIR}
+	@${MKDIR} ${WRKDIR}
+	@${CP} ${DISTDIR}/yc.el.gz ${WRKSRC}
+	@(cd ${WRKSRC} ; ${GUNZIP_CMD} yc.el.gz)
+
+do-install:
+	${MKDIR} ${ELISPDIR}
+	${INSTALL_DATA} ${WRKSRC}/yc.el ${ELISPDIR}
+# for xemacs
+	${MKDIR} ${XELISPDIR}
+	${LN} -sf ${ELISPDIR}/yc.el ${XELISPDIR}
+
+.include <bsd.port.mk>
diff --git a/japanese/yc.el/distinfo b/japanese/yc.el/distinfo
new file mode 100644
index 000000000000..0dfca2f4d61d
--- /dev/null
+++ b/japanese/yc.el/distinfo
@@ -0,0 +1 @@
+MD5 (yc.el.gz) = e229c9f522918a8cdc1231e00066cc59
diff --git a/japanese/yc.el/files/patch-aa b/japanese/yc.el/files/patch-aa
new file mode 100644
index 000000000000..9f0717282b80
--- /dev/null
+++ b/japanese/yc.el/files/patch-aa
@@ -0,0 +1,70 @@
+*** yc.el.orig	Sun Dec  5 15:50:23 1999
+--- yc.el	Sun Dec  5 16:08:09 1999
+***************
+*** 251,257 ****
+  
+  (require 'cl)
+  
+! (defconst yc-canna-lib-path "/usr/lib/canna/dic/";"/usr/local/canna/lib/dic/"
+    "$B$+$s$J$N<-=q%Q%9$r@_Dj$9$k(B")
+  (defconst yc-select-count 2		; $B0lMw%b!<%I$K$J$k7+$jJV$7?t(B
+    "$B0lMw%b!<%I$K$J$k7+JV$7?t$r@_Dj$9$k!#%G%U%)%k%H$O(B3$B2s!#(B
+--- 251,257 ----
+  
+  (require 'cl)
+  
+! (defconst yc-canna-lib-path "/usr/local/lib/canna/dic/"
+    "$B$+$s$J$N<-=q%Q%9$r@_Dj$9$k(B")
+  (defconst yc-select-count 2		; $B0lMw%b!<%I$K$J$k7+$jJV$7?t(B
+    "$B0lMw%b!<%I$K$J$k7+JV$7?t$r@_Dj$9$k!#%G%U%)%k%H$O(B3$B2s!#(B
+***************
+*** 655,661 ****
+  (defvar yc-user-dic-list nil)
+  (defvar yc-default-bushu-dic-list '("bushu"))
+  (defvar yc-bushu-dic-list nil)
+! (defvar yc-rH-conv-dic "/usr/local/canna/lib/dic/default.cbp")
+  (defvar yc-default-rH-table
+    '(("~" "$B!1(B" "") ("}" "$B!Y(B" "") ("|" "$B!C(B" "") ("{" "$B!X(B" "") ("zz" "$B$C(B" "z")
+      ("zyu" "$B$8$e(B" "") ("zyo" "$B$8$g(B" "") ("zyi" "$B$8$#(B" "") ("zye" "$B$8$'(B" "")
+--- 655,661 ----
+  (defvar yc-user-dic-list nil)
+  (defvar yc-default-bushu-dic-list '("bushu"))
+  (defvar yc-bushu-dic-list nil)
+! (defvar yc-rH-conv-dic (concat (file-name-as-directory yc-canna-lib-path) "default.kp"))
+  (defvar yc-default-rH-table
+    '(("~" "$B!1(B" "") ("}" "$B!Y(B" "") ("|" "$B!C(B" "") ("{" "$B!X(B" "") ("zz" "$B$C(B" "z")
+      ("zyu" "$B$8$e(B" "") ("zyo" "$B$8$g(B" "") ("zyi" "$B$8$#(B" "") ("zye" "$B$8$'(B" "")
+***************
+*** 1603,1609 ****
+  (defun yc-read-string-from-file (file)
+    (let* (;; emacs-20.x
+  	 (auto-coding-alist
+! 	  (cons '("\\.cbp" . japanese-iso-8bit)
+  		(and (boundp 'auto-coding-alist)
+  		     auto-coding-alist)))
+  	 (auto-coding-alist
+--- 1603,1609 ----
+  (defun yc-read-string-from-file (file)
+    (let* (;; emacs-20.x
+  	 (auto-coding-alist
+! 	  (cons '("\\.kp" . japanese-iso-8bit)
+  		(and (boundp 'auto-coding-alist)
+  		     auto-coding-alist)))
+  	 (auto-coding-alist
+***************
+*** 1613,1619 ****
+  
+  	 ;; XEmacs-20.x
+  	 (file-coding-system-alist
+! 	  (cons '("\\.cbp" . euc-jp)
+  		(and (boundp 'file-coding-system-alist)
+  		     file-coding-system-alist)))
+  	 (file-coding-system-alist
+--- 1613,1619 ----
+  
+  	 ;; XEmacs-20.x
+  	 (file-coding-system-alist
+! 	  (cons '("\\.kp" . euc-jp)
+  		(and (boundp 'file-coding-system-alist)
+  		     file-coding-system-alist)))
+  	 (file-coding-system-alist
diff --git a/japanese/yc.el/pkg-comment b/japanese/yc.el/pkg-comment
new file mode 100644
index 000000000000..28c76a74858f
--- /dev/null
+++ b/japanese/yc.el/pkg-comment
@@ -0,0 +1 @@
+Yet another Canna client for Emacs20/XEmacs
diff --git a/japanese/yc.el/pkg-descr b/japanese/yc.el/pkg-descr
new file mode 100644
index 000000000000..c874ef2f1e52
--- /dev/null
+++ b/japanese/yc.el/pkg-descr
@@ -0,0 +1,22 @@
+Yet another Canna client
+
+YC is a Japanese input method on Emacs-20.x/XEmacs.  YC is written in
+emacs lisp and access to Canna server directly.  YC works well even if
+your Emacs does not support Canna.
+
+Configuration:
+  1. make user dictionary if you don't have your user dictionary
+      % mkdic user
+  2. specify your Canna server
+	  set enviroment variable CANNAHOST:
+		% setenv CANNAHOST hostname
+	  or add 
+		(setq yc-server-host "hostname")
+	  to ~/.emacs
+  3. add
+	  (load "yc")
+	 to ~/.emacs
+
+WWW: http://www.ceres.dti.ne.jp/~knak/yc.html
+
+- HONDA Yasuhiro <honda@kashio.info.mie-u.ac.jp>
diff --git a/japanese/yc.el/pkg-plist b/japanese/yc.el/pkg-plist
new file mode 100644
index 000000000000..739a37050002
--- /dev/null
+++ b/japanese/yc.el/pkg-plist
@@ -0,0 +1,2 @@
+share/emacs/site-lisp/yc.el
+lib/xemacs/site-lisp/yc.el