Ispell Problems
18 years, 7 months
Ernst Joachim Weniger
Ernst Joachim Weniger
24 September 2005
Dear Mike,
it seems that the problems with XEmacs are not over yet. Ispell does not
work. When I start Ispell under XEmacs, I first get the message
Starting new ispell process
and then
Can't open /usr/lib/ispell/english.hash
At the end of this message, you find the system info of my XEmacs
installation.
Best regards
Ernst Joachim
#-------------------------------------------------------|
| PD Dr. Ernst Joachim Weniger |
| Institut für Physikalische und Theoretische Chemie |
| Universität Regensburg |
| D-93040 Regensburg, Germany |
| Tel: +49 (0)941-943-4722 |
| Fax: +49 (0)941-943-4719 |
| Email: Joachim.Weniger(a)chemie.uni-regensburg.de |
| Private Phone: +49 {0)89-647377 |
#-------------------------------------------------------|
System Info to help track down your bug:
---------------------------------------
uname -a: Linux barry 2.6.9 #1 SMP Thu Jan 27 09:19:29 UTC 2005 i686 athlon i386 GNU/Linux
./configure 'i386-suse-linux' '--with-gcc' '--with-dynamic' '--enable-debug=no' '--enable-error-checking=none' '--with-cflags=-O2 -march=i586 -mcpu=i686 -fmessage-length=0 -Wall -g -Wall -Wno-switch -pipe -O2 -march=i586 -mcpu=i686 -fmessage-length=0 -Wall -g -fno-strict-aliasing' '--with-ldflags=' '--prefix=/usr' '--exec-prefix=/usr' '--bindir=/usr/X11R6/bin' '--datadir=/usr/share' '--with-archlibdir=/usr/lib/xemacs/21.5.22/i386-suse-linux' '--with-docdir=/usr/lib/xemacs/21.5.22/i386-suse-linux' '--with-lispdir=/usr/share/xemacs/21.5.22/lisp' '--with-etcdir=/usr/share/xemacs/21.5.22/etc' '--with-statedir=/var/lib/xemacs' '--with-moduledir=/usr/lib/xemacs/21.5.22/i386-suse-linux/modules' '--infodir=/usr/share/xemacs/info' '--mandir=/usr/share/man/man1' '--enable-database=gdbm,berkdb' '--with-ncurses' '--with-tty=yes' '--with-site-lisp' '--disable-mc-alloc' '--disable-kkcc' '--enable-sound=native' '--with-gpm' '--enable-pdump' '--disable-dump-in-exec' '--with-xpm' '--with-gif'
'--with-tiff' '--with-jpeg' '--with-png' '--with-x' '--with-athena=3d' '--enable--menubars=lucid' '--enable-scrollbars=lucid' '--enable-dialogs=athena' '--enable-widgets=athena' '--x-includes=/usr/X11R6/include' '--x-libraries=/usr/X11R6/lib' '--enable-mule' '--with-xim=xlib' '--with-xfs' '--enable-clash-detection' '--with-ldap' '--with-pop' 'CFLAGS=-O2 -march=i586 -mcpu=i686 -fmessage-length=0 -Wall -g -Wall -Wno-switch -pipe -O2 -march=i586 -mcpu=i686 -fmessage-length=0 -Wall -g -fno-strict-aliasing' 'LDFLAGS=' 'build_alias=i386-suse-linux' 'host_alias=i386-suse-linux' 'target_alias=i386-suse-linux'
XEmacs 21.5-b22 "cucumber" (+CVS-20050913) configured for `i386-suse-linux'.
WARNING: --------------------------------------------------------------
WARNING: This was produced from a new autoconf-2.5 based configuration.
WARNING: If this configuration seems buggy then copy etc/configure-2.13
WARNING: to configure and try again. Also please report the bug.
WARNING: --------------------------------------------------------------
Compilation Environment and Installation Defaults:
Source code location: /usr/src/packages/BUILD/xemacs-21.5.22
Installation prefix: /usr
Operating system description file: `s/linux.h'
Machine description file: `m/intel386.h'
Compiler version: gcc (GCC) 3.3.5 20050117 (prerelease) (SUSE Linux)
- GCC specs file: /usr/lib/gcc-lib/i586-suse-linux/3.3.5/specs
- Compiler command: gcc -Wall -Wno-switch -Wundef -Wsign-compare -Wno-char-subscripts -Wpacked -Wunused-parameter -g -O2 -march=i586 -mcpu=i686 -fmessage-length=0 -Wall -g -Wall -Wno-switch -pipe -O2 -march=i586 -mcpu=i686 -fmessage-length=0 -Wall -g -fno-strict-aliasing
libc version:
Relocating allocator for buffers: no
GNU version of malloc: yes
- Using Doug Lea's new malloc from the GNU C Library.
Window System:
Compiling in support for the X window system:
- X Windows headers location: /usr/X11R6/include
- X Windows libraries location: /usr/X11R6/lib
- Handling WM_COMMAND properly.
Compiling in support for the Athena widget set:
- Athena headers location: X11/Xaw3d
- Athena library to link: Xaw3d
Using Lucid menubars.
Using Lucid scrollbars.
Using Athena dialog boxes.
Using Athena native widgets.
TTY:
Compiling in support for ncurses.
Compiling in support for GPM (General Purpose Mouse).
Images:
Compiling in support for GIF images (builtin).
Compiling in support for XPM images.
Compiling in support for PNG images.
Compiling in support for JPEG images.
Compiling in support for TIFF images.
Compiling in support for X-Face message headers.
Sound:
Compiling in support for sound (native).
Databases:
Compiling in support for Berkeley database.
Compiling in support for GNU DBM.
Compiling in support for LDAP.
Internationalization:
Compiling in support for Mule (multi-lingual Emacs).
Compiling in support for XIM (X11R5+ I18N input method).
- Using raw Xlib to provide XIM support.
- Using XFontSet to provide bilingual menubar.
Compiling in support for Canna on Mule.
Compiling in support for the WNN input method on Mule.
Mail:
Compiling in support for POP mail retrieval.
Compiling in support for "file" mail spool file locking method.
Other Features:
Inhibiting IPv6 canonicalization at startup.
Compiling in support for dynamic shared object modules.
Using the new portable dumper.
Load-Path Lisp Shadows:
----------------------
(/usr/share/xemacs/site-packages/lisp/flim/std11
/usr/share/xemacs/xemacs-packages/lisp/apel/std11
/usr/share/xemacs/site-packages/lisp/flim/sha1
/usr/share/xemacs/xemacs-packages/lisp/ecrypto/sha1
/usr/share/xemacs/site-packages/lisp/flim/md5
/usr/share/xemacs/xemacs-packages/lisp/ecrypto/md5
/usr/share/xemacs/site-packages/lisp/flim/md4
/usr/share/xemacs/xemacs-packages/lisp/ecrypto/md4
/usr/share/xemacs/site-packages/lisp/flim/hex-util
/usr/share/xemacs/xemacs-packages/lisp/ecrypto/hex-util
/usr/share/xemacs/site-packages/lisp/flim/sasl
/usr/share/xemacs/xemacs-packages/lisp/sasl/sasl
/usr/share/xemacs/site-packages/lisp/flim/sasl-scram
/usr/share/xemacs/xemacs-packages/lisp/sasl/sasl-scram
/usr/share/xemacs/site-packages/lisp/flim/sasl-ntlm
/usr/share/xemacs/xemacs-packages/lisp/sasl/sasl-ntlm
/usr/share/xemacs/site-packages/lisp/flim/sasl-digest
/usr/share/xemacs/xemacs-packages/lisp/sasl/sasl-digest
/usr/share/xemacs/site-packages/lisp/flim/sasl-cram
/usr/share/xemacs/xemacs-packages/lisp/sasl/sasl-cram
/usr/share/xemacs/site-packages/lisp/flim/ntlm
/usr/share/xemacs/xemacs-packages/lisp/sasl/ntlm
/usr/share/xemacs/site-packages/lisp/flim/hmac-sha1
/usr/share/xemacs/xemacs-packages/lisp/sasl/hmac-sha1
/usr/share/xemacs/site-packages/lisp/flim/hmac-md5
/usr/share/xemacs/xemacs-packages/lisp/sasl/hmac-md5
/usr/share/xemacs/site-packages/lisp/flim/hmac-def
/usr/share/xemacs/xemacs-packages/lisp/sasl/hmac-def
/usr/share/xemacs/site-packages/lisp/flim/mel-u
/usr/share/xemacs/xemacs-packages/lisp/tm/mel-u
/usr/share/xemacs/site-packages/lisp/flim/mel-q
/usr/share/xemacs/xemacs-packages/lisp/tm/mel-q
/usr/share/xemacs/site-packages/lisp/flim/mel-g
/usr/share/xemacs/xemacs-packages/lisp/tm/mel-g
/usr/share/xemacs/site-packages/lisp/flim/mel
/usr/share/xemacs/xemacs-packages/lisp/tm/mel
/usr/share/xemacs/mule-packages/lisp/mule-base/viet-util
/usr/share/xemacs/21.5.22/lisp/mule/viet-util
/usr/share/xemacs/mule-packages/lisp/mule-base/korea-util
/usr/share/xemacs/21.5.22/lisp/mule/korea-util
/usr/share/xemacs/mule-packages/lisp/mule-base/japan-util
/usr/share/xemacs/21.5.22/lisp/mule/japan-util
/usr/share/xemacs/mule-packages/lisp/mule-base/ethio-util
/usr/share/xemacs/21.5.22/lisp/mule/ethio-util
/usr/share/xemacs/mule-packages/lisp/mule-base/cyril-util
/usr/share/xemacs/21.5.22/lisp/mule/cyril-util
/usr/share/xemacs/mule-packages/lisp/mule-base/china-util
/usr/share/xemacs/21.5.22/lisp/mule/china-util
/usr/share/xemacs/mule-packages/lisp/mule-ucs/unicode
/usr/share/xemacs/21.5.22/lisp/unicode
/usr/share/xemacs/xemacs-packages/lisp/xemacs-base/regexp-opt
/usr/share/xemacs/21.5.22/lisp/regexp-opt
/usr/share/xemacs/site-packages/lisp/term/gnome
/usr/share/xemacs/21.5.22/lisp/gnome
/usr/share/xemacs/xemacs-packages/lisp/xemacs-base/easy-mmode
/usr/share/xemacs/21.5.22/lisp/easy-mmode
/usr/share/xemacs/xemacs-packages/lisp/build/build-report
/usr/share/xemacs/21.5.22/lisp/build-report)
Installed XEmacs Packages:
-------------------------
Installed Modules:
-----------------
Features:
--------
(mail-abbrevs xemacsbug shadow sendmail rfc822 efs-cu blink-cursor
fast-lock font-lock paren blink-paren pending-del font cus-face tex-site
un-define latin-euro-input quail overlay latin-unity-tables
latin-euro-standards latin-euro-latin10 latin-euro-latin9
latin-euro-latin7 latin-unity-vars latin-unity ispell latin-euro-latin8
x-compose zenirc-autoloads xwem-autoloads edmacro xslt-process-autoloads
xslide-autoloads xlib-autoloads xetla-autoloads xemacs-devel-autoloads
xemacs-base-autoloads x-symbol-autoloads w3-autoloads vm-autoloads
viper-autoloads view-process-autoloads vhdl-autoloads vc-autoloads
tramp-autoloads tpu-autoloads tm-autoloads time-autoloads
textools-autoloads text-modes-autoloads texinfo-autoloads
supercite-autoloads strokes-autoloads speedbar-autoloads slider-autoloads
sieve-autoloads sh-script-autoloads sgml-autoloads semantic-autoloads
scheme-autoloads ruby-modes-autoloads rmail-autoloads riece-autoloads
reftex-autoloads re-builder-autoloads python-modes-autoloads
psgml-autoloads ps-print-autoloads prog-modes-autoloads pgg-autoloads
perl-modes-autoloads pcomplete-autoloads pcl-cvs-autoloads pc-autoloads
os-utils-autoloads ocaml-autoloads net-utils-autoloads
misc-games-autoloads mine-autoloads mh-e-autoloads mew-autoloads
mailcrypt-autoloads mail-lib-autoloads liece-autoloads jde-autoloads
ispell-autoloads ilisp-autoloads igrep-autoloads idlwave-autoloads
ibuffer-autoloads hm--html-menus-autoloads haskell-mode-autoloads
gnus-autoloads gnats-autoloads games-autoloads fsf-compat-autoloads
fortran-modes-autoloads forms-autoloads footnote-autoloads eudc-autoloads
eterm-autoloads ess-autoloads eshell-autoloads escreen-autoloads
erc-autoloads emerge-autoloads eieio-autoloads efs-autoloads
edt-autoloads edit-utils-autoloads ediff-autoloads ediff-hook
edebug-autoloads ecrypto-autoloads ecb-autoloads docbookide-autoloads
dired-autoloads dictionary-autoloads debug-autoloads cookie-autoloads
clearcase-autoloads cc-mode-autoloads calendar-autoloads calc-autoloads
c-support-autoloads build-autoloads bbdb-autoloads auctex-autoloads
apel-autoloads ada-autoloads mule-ucs-autoloads mule-base-autoloads
leim-autoloads latin-unity-autoloads egg-its-autoloads edict-autoloads
flim-1.14.7-autoloads modules-autoloads mule-autoloads auto-autoloads
disp-table loadhist rsz-minibuf auto-show fontl-hooks canna-leim tibetan
lao devanagari indian slovenian czech romanian ccl code-cmds gutter-items
menubar-items x-menubar mode-motion mouse behavior itimer auto-save
lisp-mode easymenu easy-mmode iso8859-1 page buff-menu lib-complete
cus-file derived newcomment env text-props frame obsolete cus-start
custom widget cl-extra cl cl-19 packages backquote CANNA wnn unicode
lucid-scrollbars cut-buffer lucid-menubars athena-dialogs x
c-balloon-help tty-frames tty toolbar native-sound scrollbar
unix-processes multicast network-streams subprocesses modules
menu-accelerator-support menubar berkeley-db dbm md5 xemacs xim mule
gutter tiff png gif jpeg xface xpm xbm lisp-float-type file-coding linux
dialog devices window-system base64)
Recent keystrokes:
-----------------
SPC t h e SPC m e s s a g e down down left left left
left left left left left left left left left left left
left left left left left left left left left left left
left left SPC SPC down RET RET up a n d SPC t h e n
down down left left left left left left left left SPC
SPC end RET RET B e s t SPC r e g a r d s RET RET E
r n s t SPC J o a c h i m RET RET misc-user
Recent messages (most recent first):
-----------------------------------
Warning:
Defaulting to the GNU Emacs-derived `sendmail.el' mail client. This facility,
while part of base XEmacs, is heinously underfeatured, and not going to get
better in the medium term. We include it so that bug reports work without
packages; we suggest that you choose and/or install one of the other mail
clients from packages if you're doing something other than M-x
report-xemacs-bug , or even if you are reporting bugs regularly.
To choose a package from those installed, click on "Options" ->
"Internet" -> "Compose Mail With ..." and decide on one from the
list. Gnus and VM are full-featured and have active user communities.
To disable this warning and stick with the old behavior, you can explicitly
initialize `mail-user-agent' to 'sendmail-user-agent .
Loading xemacsbug...done
Loading xemacsbug...
Loading efs-cu...done
Loading efs-cu...
Paren mode is blink-paren
Error setting enabled-behavior-list: (invalid-argument Not a behavior resize-minibuffer)
Loading font...done
Loading font...
Loading cus-face...done
Loading cus-face...
Loading /home/jo/.xemacs/Auctex.EJW...done
Loading /home/jo/.xemacs/Auctex.EJW...
Loading /home/jo/.xemacs/Latex.MACS...done
Loading /home/jo/.xemacs/Latex.MACS...
Loading ~/.abbrev_defs...done
Loading ~/.abbrev_defs...
Loading edmacro...done
Loading edmacro...
- 2 participants
- 1 comments
[21.5 AC sjt-xft] Convert Canna to ELL, but crashes with MC_ALLOC
18 years, 7 months
Stephen J. Turnbull
Stephen J. Turnbull
21.5 APPROVE COMMIT sjt-xft
I plan to commit this and the companion patch disabling use of Canna
with MC_ALLOC about Wednesday or so, unless somebody objects.
I've finally finished a draft of a module version of Canna support.
Canna is an input method for Japanese, and (especially for distros) I
think it's unfortunate to depend on and pull in that package for
people who aren't gonna need it. This remedies that; with this
version, a distro can build a binary which can load the module that
actually links to cannalib at runtime, thus avoiding both a dependency
on the canna package for non-Japanese-speaking users and a separate
binary for Canna users. (I plan to do the same for Wnn in the near
future.)
My compliments to the authors of the module support, it was actually
fairly easy; the hard parts are in figuring out how to let the user
down gently if Canna isn't available as a module or built in.
Jerry, any time you can spare to look this over would be useful; the
more I know, the more questions I can answer without bugging you. So
tell me what I got wrong. ;-)
Unfortunately, Canna-as-a-module conflicts with MC_ALLOC, and I can't
figure out why. My Linux box went up in a puff of smoke, and my Mac's
gdb doesn't seem to be able to catch the crash; it tells me that the
program doesn't exist when I try to get a backtrace. I eyeballed the
code, but the usual suspect (missing lcrecord->lrecord translations)
wasn't found. It is hitting the assert in mc-alloc.c, l. 567 in
get_page_header():
assert (LEVEL2 (l2, L2_INDEX (ptr)));
Marcus, any help you can give here as to what to look for? I'll be
working on getting a backtrace, but it may take some time. No, I
can't set a breakpoint there, either, as the Mac's gdb doesn't handle
keyboard interrupt correctly. Sorry. I would not assume that the bug
is in MC_ALLOC, the Canna code is over ten years old.
The buggy version can be checked out from CVS with -r canna-mc-alloc-crash.
Although this tag is on the sjt-xft branch, you can build a very close
facsimile of current CVS simply by configuring --with-xft=none.
To replicate the crash, I start XEmacs on an X display with "xemacs
-vanilla", invoke M-x toggle-input-method RET japanese-canna RET, and
that's all she wrote.
WARNING, WARNING! DANGER WILL ROBINSON!
By default this version will configure both MC_ALLOC and HAVE_CANNA if
the Canna libraries are available.
Once I've tagged this version, I will immediate commit a patch (to
sjt-xft branch, I'll be waiting for discussion for the mainline) to
arrange that you can't configure Canna without explicitly disabling
MC_ALLOC. I think that makes this at worst a PG-13 feature. :-)
Here's the modularization patch:
Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/ChangeLog,v
retrieving revision 1.418.2.16
diff -u -r1.418.2.16 ChangeLog
--- ChangeLog 23 Sep 2005 18:20:27 -0000 1.418.2.16
+++ ChangeLog 24 Sep 2005 13:25:33 -0000
＠＠ -0,0 +1,6 ＠＠
+2005-09-22 Stephen J. Turnbull <stephen(a)xemacs.org>
+
+ * configure.ac (Canna): Configure as module if appropriate.
+
+ * Makefile.in.in (modules/canna): Add dependency on lib-src (ellcc).
+
Index: lisp/ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/ChangeLog,v
retrieving revision 1.599.2.9
diff -u -r1.599.2.9 ChangeLog
--- lisp/ChangeLog 24 Sep 2005 13:15:17 -0000 1.599.2.9
+++ lisp/ChangeLog 24 Sep 2005 13:25:37 -0000
＠＠ -0,0 +1,8 ＠＠
+2005-09-22 Stephen J. Turnbull <stephen(a)xemacs.org>
+
+ * mule/canna-leim.el: Add comment on autoloading strategy.
+ (canna-activate): Handle CANNA in ELL.
+
+ * dumped-lisp.el (preloaded-file-list): Remove dependency of
+ canna-leim on CANNA. Canna may be an ELL.
+
Index: modules/ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/modules/ChangeLog,v
retrieving revision 1.36.2.3
diff -u -r1.36.2.3 ChangeLog
--- modules/ChangeLog 20 Sep 2005 16:05:48 -0000 1.36.2.3
+++ modules/ChangeLog 24 Sep 2005 13:25:44 -0000
＠＠ -0,0 +1,13 ＠＠
+2005-09-22 Stephen J. Turnbull <stephen(a)xemacs.org>
+
+ * canna: New module.
+
+ * canna/canna_api.c: Move from $srcdir/src/mule-canna.c. Add module
+ initialization function and some boilerplate. Change name to
+ canna_api to reflect changed role.
+
+ * canna/configure.ac:
+ * canna/Makefile.in.in:
+ * canna/install-sh:
+ Standard module boilerplate, adapted to Canna.
+
Index: src/ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/ChangeLog,v
retrieving revision 1.758.2.29
diff -u -r1.758.2.29 ChangeLog
--- src/ChangeLog 24 Sep 2005 13:04:16 -0000 1.758.2.29
+++ src/ChangeLog 24 Sep 2005 13:25:50 -0000
＠＠ -0,0 +1,12 ＠＠
+2005-09-22 Stephen J. Turnbull <stephen(a)xemacs.org>
+
+ * Makefile.in.in (HAVE_CANNA): Handle Canna as a module.
+
+ * emacs.c (main_1): Update Canna initializers to *_canna_api names.
+
+ * mule-canna.c: Moved to modules/canna/canna_api.c.
+
+ * symsinit.h (syms_of_mule_canna):
+ (vars_of_mule_canna):
+ Rename to *_of_canna_api.
+
Index: Makefile.in.in
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/Makefile.in.in,v
retrieving revision 1.22.2.3
diff -u -r1.22.2.3 Makefile.in.in
--- Makefile.in.in 13 Jul 2005 04:42:45 -0000 1.22.2.3
+++ Makefile.in.in 24 Sep 2005 13:25:33 -0000
＠＠ -313,7 +313,8 ＠＠
cd ./$＠ && $(MAKE) $(RECURSIVE_MAKE_ARGS) all
## Building modules depends on ellcc, found in lib-src.
-modules/sample modules/ldap modules/zlib modules/base64 modules/postgresql: lib-src
+modules/sample modules/ldap modules/zlib modules/base64: lib-src
+modules/postgresql modules/canna: lib-src
Makefile: ${srcdir}/Makefile.in.in config.status
./config.status
Index: configure.ac
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/configure.ac,v
retrieving revision 1.1.14.12
diff -u -r1.1.14.12 configure.ac
--- configure.ac 23 Sep 2005 18:20:28 -0000 1.1.14.12
+++ configure.ac 24 Sep 2005 13:25:34 -0000
＠＠ -4379,6 +4379,7 ＠＠
fi
dnl Autodetect canna
+ canna_libs=
canna_includes_found=no
if test "$with_canna" != "no"; then
AC_CHECK_HEADER(canna/jrkanji.h,canna_includes_found=yes)
＠＠ -4400,8 +4401,14 ＠＠
test -z "$with_canna" && with_canna=yes
if test "$with_canna" = "yes"; then
AC_DEFINE(HAVE_CANNA)
- XE_PREPEND(-lcanna -lRKC, libs_x)
+ XE_APPEND(modules/canna, MAKE_SUBDIR)
+ need_modules_common=yes
+ if test "$with_modules" = "yes"; then
+ XE_APPEND(modules/canna, INSTALL_ARCH_DEP_SUBDIR)
+ fi
+ XE_PREPEND(-lcanna -lRKC, canna_libs)
fi
+AC_SUBST(canna_libs)
else dnl "$enable_mule" = "no"
for feature in xim canna wnn; do
Index: lisp/dumped-lisp.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/dumped-lisp.el,v
retrieving revision 1.49.2.3
diff -u -r1.49.2.3 dumped-lisp.el
--- lisp/dumped-lisp.el 20 Sep 2005 16:05:24 -0000 1.49.2.3
+++ lisp/dumped-lisp.el 24 Sep 2005 13:25:37 -0000
＠＠ -220,7 +220,7 ＠＠
))
;; Specialized language support
- (when (featurep '(and mule CANNA)) "mule/canna-leim")
+ (when (featurep 'mule) "mule/canna-leim")
;; Egg/Its is now a package
; (when (featurep '(and mule wnn))
; '("egg-leim" "egg-kwnn-leim" "egg-cwnn-leim"))
Index: lisp/mule/canna-leim.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/mule/canna-leim.el,v
retrieving revision 1.7
diff -u -r1.7 canna-leim.el
--- lisp/mule/canna-leim.el 16 Mar 2002 10:39:05 -0000 1.7
+++ lisp/mule/canna-leim.el 24 Sep 2005 13:25:38 -0000
＠＠ -35,10 +35,22 ＠＠
(globally-declare-boundp 'canna:*japanese-mode*)
(globally-declare-fboundp '(canna canna-toggle-japanese-mode))
+;; use (locate-file "canna/canna_api" module-load-path module-extensions)
+;; to locate the module without loading it.
+;; then we could autoload canna-activate and dump and/or autoload:
+;; (and (locate-file "canna/canna_api" module-load-path module-extensions)
+;; (locate-library "canna")
+;; (register-input-method 'japanese-canna "Japanese" 'canna-activate nil
+;; "Canna - a kana to kanji conversion program"))
+
(defun canna-activate (&optional name)
- (if (featurep 'CANNA)
- (require 'canna)
- (error "Canna is not built into this XEmacs"))
+ ;; XEmacs 21.5.10 and later have 3-argument require.
+ (unless (require 'CANNA "canna/canna_api" 'no-error)
+ (error file-error
+ "Neither built-in nor ELL support for the Canna API was found."))
+ (unless (require 'canna nil 'no-error)
+ (error file-error
+ "Canna LISP support not found. Is the mule-base package missing?"))
(setq inactivate-current-input-method-function 'canna-inactivate)
(unless (featurep 'leim-canna-initialized)
(canna)
Index: modules/canna/Makefile.in.in
===================================================================
RCS file: modules/canna/Makefile.in.in
diff -N modules/canna/Makefile.in.in
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ modules/canna/Makefile.in.in 24 Sep 2005 13:25:44 -0000
＠＠ -0,0 +1,36 ＠＠
+## Makefile for the sample module in XEmacs.
+## Copyright (C) 2002 Jerry James.
+
+## This file is part of XEmacs.
+
+## XEmacs is free software; you can redistribute it and/or modify it
+## under the terms of the GNU General Public License as published by the
+## Free Software Foundation; either version 2, or (at your option) any
+## later version.
+
+## XEmacs is distributed in the hope that it will be useful, but WITHOUT
+## ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
+## FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
+## for more details.
+
+## You should have received a copy of the GNU General Public License
+## along with XEmacs; see the file COPYING. If not, write to
+## the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+## Boston, MA 02111-1307, USA.
+
+## Synched up with: Not synched with FSF.
+
+## This is more complicated than would normally be the case, as this makefile
+## has been tailored to work both inside and independently of the XEmacs
+## source tree, and to support both module and non-module building inside the
+## source tree.
+
+### Specialize this part for your module
+MODNAME=canna_api
+MODVER=0.0.1
+MODTITLE="Module wrapping Canna libraries for XEmacs"
+CFLAGS=＠CFLAGS＠
+LDFLAGS=＠LDFLAGS＠ ＠ld_switch_all＠ ＠canna_libs＠
+SRCS=canna_api.c
+
+## Note: modules/common/Makefile.common will be appended by configure
Index: modules/canna/canna_api.c
===================================================================
RCS file: modules/canna/canna_api.c
diff -N modules/canna/canna_api.c
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ modules/canna/canna_api.c 24 Sep 2005 13:25:44 -0000
＠＠ -0,0 +1,1987 ＠＠
+/* CANNA interface -*- coding: euc-jp -*-
+
+ Copyright (C) 1995 Free Software Foundation, Inc.
+ Copyright (C) 1995 Sun Microsystems, Inc.
+
+This file is part of XEmacs.
+
+XEmacs is free software; you can redistribute it and/or modify it
+under the terms of the GNU General Public License as published by the
+Free Software Foundation; either version 2, or (at your option) any
+later version.
+
+XEmacs is distributed in the hope that it will be useful, but WITHOUT
+ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
+FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
+for more details.
+
+You should have received a copy of the GNU General Public License
+along with XEmacs; see the file COPYING. If not, write to
+the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+Boston, MA 02111-1307, USA. */
+
+/* Synched up with: Mule 2.3. Not in FSF. */
+
+/* Japanese comments were translated 2000-12-06 by Stephen Turnbull
+ <stephen(a)xemacs.org>. I haven't verified that the Japanese comments
+ were correct. YMMV, NO WARRANTY, not even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. (^^;;; as the
+ Japanese say. */
+
+/*
+
+ Authors: Akira Kon (kon(a)uxd.fc.nec.co.jp)
+ Ichiro Hirakura (hirakura(a)uxd.fc.nec.co.jp)
+
+ Functions defined in this file are
+
+ (canna-key-proc key)
+ key: single STRING
+ RETURNS:
+ Length of converted string if no error occurs.
+ Error string if error occurs.
+ DESCRIPTION:
+ Convert a key input to a set of strings. The
+ strings contain both well-formed string and a
+ intermediate result to show the translation
+ information to a user. converted strings are
+ stored in specific variables.
+
+ (canna-initialize)
+ RETURNS:
+ List of the following things:
+ - list of keys to toggle Japanese-mode
+ - error message
+ - list of warning messages
+ DESCRIPTION:
+ Initialize ``canna'', which is a kana-to-kanji
+ converter for XEmacs. The first arg
+ specifies if inserting space character between
+ BUNSETSU when candidates are displayed. The
+ second arg specifies server. The third arg
+ specifies a file which will be used as a
+ customization description. If nil is
+ specified for each arg, the default value will
+ be used.
+
+ (canna-finalize)
+ RETURNS:
+ list of warning messages
+ DESCRIPTION:
+ finalize ``canna'', which is a kana-to-kanji
+ converter for XEmacs. This cause to write
+ miscellaneous informations to kana-to-kanji
+ dictionary.
+
+ (canna-touroku-string string)
+ string:
+ String to register to a dictionary.
+ RETURNS:
+ The same thing returns as canna-key-proc does.
+ DESCRIPTION:
+ Register Kanji words into kana-to-kanji
+ conversion dictionary.
+
+ (canna-set-width width)
+ width:
+ Column width of the place where the candidates
+ of kana-to-kanji conversion will be shown.
+ RETURNS:
+ nil
+ DESCRIPTION:
+ Set status-line width information, which is
+ used to display kanji candidates.
+
+ (canna-change-mode num)
+ num:
+ The mode number of Canna.
+ RETURNS:
+ The same thing returns as canna-key-proc does.
+ DESCRIPTION:
+ Change Japanese pre-edit mode.
+
+ (canna-store-yomi yomi roma)
+ yomi:
+ ``Yomi'' to be stored.
+ roma:
+ ``Romaji'' which corresponds to the ``Yomi''.
+ RETURNS:
+ The same thing returns as canna-key-proc does.
+ DESCRIPTION:
+ Store yomi characters as a YOMI of
+ kana-to-kanji conversion.
+
+ (canna-do-function num ch)
+ num:
+ A function number to be called.
+ ch:
+ A character will be specified in order to feed
+ the character to the function if the function
+ needs a input character.
+ RETURNS:
+ The same thing returns as canna-key-proc does.
+ DESCRIPTION:
+ Do specified function at current mode.
+
+ (canna-parse string)
+ string:
+ To be parsed.
+ RETURNS:
+ List of warning messages.
+ DESCRIPTION:
+ Parse customize string.
+
+ (canna-query-mode)
+ RETURNS:
+ A string which indicate the current mode.
+ DESCRIPTION:
+ Get current mode string.
+
+ Functions below are used for KKCP compatible library. These
+ functions provides a base kana-to-kanji conversion system for EGG.
+ These functions may be used when users want to change the engine
+ from Wnn to Canna without changing user interface of Japanese input.
+
+ (canna-henkan-begin)
+ (canna-henkan-next)
+ (canna-bunsetu-henkou)
+ (canna-henkan-kakutei)
+ (canna-henkan-end)
+ (canna-henkan-quit)
+
+ */
+
+#include <config.h>
+#include "lisp.h"
+#ifdef HAVE_SHLIB
+#include "emodules.h"
+#endif
+
+#include "buffer.h"
+#include "file-coding.h"
+
+#ifdef CANNA2
+#define IROHA_BC
+#define CANNA_NEW_WCHAR_AWARE
+#include "canna/jrkanji.h"
+#include "canna/RK.h"
+#else /* !CANNA2 */
+#include "iroha/jrkanji.h"
+#include "iroha/RK.h"
+#endif /* !CANNA2 */
+extern char *jrKanjiError;
+
+extern int (*jrBeepFunc) (void);
+
+/* #### is this global really necessary? */
+#define KEYTOSTRSIZE 2048
+static char key_buffer[KEYTOSTRSIZE];
+static char **warning;
+
+static int canna_empty_info, canna_through_info;
+static int canna_underline;
+static int canna_inhibit_hankakukana;
+
+static Lisp_Object Vcanna_kakutei_string;
+static Lisp_Object Vcanna_kakutei_yomi;
+static Lisp_Object Vcanna_kakutei_romaji;
+static Lisp_Object Vcanna_henkan_string;
+static Fixnum canna_henkan_length;
+static Fixnum canna_henkan_revPos;
+static Fixnum canna_henkan_revLen;
+static Lisp_Object Vcanna_ichiran_string;
+static Fixnum canna_ichiran_length;
+static Fixnum canna_ichiran_revPos;
+static Fixnum canna_ichiran_revLen;
+static Lisp_Object Vcanna_mode_string;
+
+static int IRCP_context;
+
+static Lisp_Object storeResults (char *, int, jrKanjiStatus *);
+static Lisp_Object kanjiYomiList (int, int);
+static Lisp_Object CANNA_mode_keys (void);
+
+#ifdef CANNA_MULE
+static void m2c (unsigned char *, int, unsigned char *);
+static Lisp_Object mule_make_string (unsigned char *, int);
+static int mule_strlen (unsigned char *, int);
+static void count_char (unsigned char *,int, int, int, Fixnum *, Fixnum *, Fixnum *);
+#define make_string mule_make_string
+#endif
+
+/* Lisp functions definition */
+
+DEFUN ("canna-key-proc", Fcanna_key_proc, 1, 1, 0, /*
+Translate a key input to a set of strings. The strings contain both
+well-formed string and intermediate result to show the translation
+information to a user. Converted strings are stored in specific
+variables.
+*/
+ (ch))
+{
+ jrKanjiStatus ks;
+ int len;
+
+ CHECK_CHAR_COERCE_INT (ch);
+ len = jrKanjiString (0, XCHAR (ch), key_buffer, KEYTOSTRSIZE, &ks);
+ return storeResults (key_buffer, len, &ks);
+}
+
+static Lisp_Object
+storeResults (char *buf, int len, jrKanjiStatus *ks)
+{
+ Lisp_Object val = Qnil;
+
+ if (len < 0)
+ { /* Error detected */
+ val = make_string ((unsigned char*) jrKanjiError, strlen (jrKanjiError));
+ }
+ else
+ {
+ /* ³΄〓¤¿〓»〓the confirmed string) */
+ Vcanna_kakutei_string = make_string ((unsigned char *) buf, len);
+ val = make_int (len);
+ /* ³΄〓¤¿〓»〓〓¤〓ξ〓..
+ (info about the reading of the confirmed string) */
+ Vcanna_kakutei_yomi = Vcanna_kakutei_romaji = Qnil;
+ if (ks->info & KanjiYomiInfo)
+ {
+ char *p = buf + len + 1;
+ int yomilen = strlen (p);
+
+ if (len + yomilen + 1 < KEYTOSTRSIZE)
+ {
+ int yomilen2;
+
+ Vcanna_kakutei_yomi =
+ make_string ((unsigned char *) p, yomilen); /* 〓¤〓(reading) */
+ p += yomilen + 1;
+ yomilen2 = strlen (p);
+ if (len + yomilen + yomilen2 + 2 < KEYTOSTRSIZE)
+ {
+ Vcanna_kakutei_romaji =
+ make_string ((unsigned char *) p, yomilen2);
+ /* ¥〓¥〓〓manization) */
+ }
+ }
+ }
+
+
+ /* ¸〓½¼¨¤Ί¸»〓¤¹¡£
+ (string for displaying candidate translations) */
+ Vcanna_henkan_string = Qnil;
+ if (ks->length >= 0)
+ {
+ Vcanna_henkan_string = make_string (ks->echoStr, ks->length);
+#ifndef CANNA_MULE
+ canna_henkan_length = ks->length;
+ canna_henkan_revPos = ks->revPos;
+ canna_henkan_revLen = ks->revLen;
+#else /* CANNA_MULE */
+ if (canna_underline)
+ {
+ canna_henkan_length = mule_strlen (ks->echoStr,ks->length);
+ canna_henkan_revPos = mule_strlen (ks->echoStr,ks->revPos);
+ canna_henkan_revLen = mule_strlen (ks->echoStr+ks->revPos,
+ ks->revLen);
+ }
+ else
+ {
+ count_char (ks->echoStr, ks->length, ks->revPos, ks->revLen,
+ &canna_henkan_length, &canna_henkan_revPos,
+ &canna_henkan_revLen);
+ }
+#endif /* CANNA_MULE */
+ }
+
+ /* °〓¤ξ고(information about the echo area menu) */
+ Vcanna_ichiran_string = Qnil;
+ if (ks->info & KanjiGLineInfo && ks->gline.length >= 0)
+ {
+ Vcanna_ichiran_string = make_string (ks->gline.line,
+ ks->gline.length);
+#ifndef CANNA_MULE
+ canna_ichiran_length = ks->gline.length;
+ canna_ichiran_revPos = ks->gline.revPos;
+ canna_ichiran_revLen = ks->gline.revLen;
+#else /* CANNA_MULE */
+ count_char (ks->gline.line, ks->gline.length,
+ ks->gline.revPos, ks->gline.revLen,
+ &canna_ichiran_length,
+ &canna_ichiran_revPos, &canna_ichiran_revLen);
+#endif /* CANNA_MULE */
+ }
+
+ /* ¥〓¥ɤξ고(mode information) */
+ Vcanna_mode_string = Qnil;
+ if (ks->info & KanjiModeInfo)
+ {
+ Vcanna_mode_string =
+ make_string (ks->mode, strlen ((const char *) ks->mode));
+ }
+
+ /* ¤½¤〓¾¤ξ고(other information) */
+ canna_empty_info = (ks->info & KanjiEmptyInfo) ? 1 : 0;
+ canna_through_info = (ks->info & KanjiThroughInfo) ? 1 : 0;
+ }
+
+ return val;
+}
+
+DEFUN ("canna-set-bunsetsu-kugiri", Fcanna_set_bunsetsu, 0, 1, 0, /*
+This function sets the clause separator.
+If non-nil value is specified, the white space separator will be used.
+No separator will be used otherwise.
+*/
+ (num))
+{
+ int kugiri; /* 〓!¶〓¤〓¤¹¤〓¡© (display clause separator?) */
+
+ kugiri = NILP (num) ? 0 : 1;
+
+ jrKanjiControl (0, KC_SETBUNSETSUKUGIRI, (char *) kugiri);
+
+ return Qnil;
+}
+
+/* For whatever reason, calling Fding directly from libCanna loses */
+static int
+call_Fding (void)
+{
+ Fding (Qnil, Qnil, Qnil);
+ return 0;
+}
+
+DEFUN ("canna-initialize", Fcanna_initialize, 0, 3, 0, /*
+Initialize ``canna'', which is a kana-to-kanji converter for XEmacs.
+The first arg specifies if inserting space character between BUNSETSU when
+candidates are displayed.
+The second arg specifies server.
+The third arg specifies a file which will be used as a customization
+description.
+If nil is specified for each arg, the default value will be used.
+*/
+ (num, server, rcfile))
+{
+ Lisp_Object val;
+ int res;
+ unsigned char **p, **q;
+
+ int kugiri; /* 〓!¶〓¤〓¤¹¤〓¡© (display clause separator?) */
+
+ IRCP_context = -1;
+
+ if (NILP (num))
+ {
+ kugiri = 1;
+ }
+ else
+ {
+ CHECK_INT (num);
+ kugiri = XINT (num);
+ kugiri = (kugiri == 1) ? 1 : 0;
+ }
+
+ if (NILP (server))
+ {
+ jrKanjiControl (0, KC_SETSERVERNAME, (char *) 0);
+ }
+ else
+ {
+ char servername[256];
+
+ CHECK_STRING (server);
+ strncpy (servername, (const char *) XSTRING_DATA (server),
+ XSTRING_LENGTH (server));
+ servername[XSTRING_LENGTH (server)] = '\0';
+ jrKanjiControl (0, KC_SETSERVERNAME, servername);
+ }
+
+ if (NILP (rcfile))
+ {
+ jrKanjiControl (0, KC_SETINITFILENAME, (char *) 0);
+ }
+ else
+ {
+ char rcname[256];
+
+ CHECK_STRING (rcfile);
+ strncpy (rcname, (const char *) XSTRING_DATA (rcfile),
+ XSTRING_LENGTH (rcfile));
+ rcname[XSTRING_LENGTH (rcfile)] = '\0';
+ jrKanjiControl (0, KC_SETINITFILENAME, rcname);
+ }
+
+ warning = (char **) 0;
+#ifdef nec_ews_svr4
+ stop_polling ();
+#endif /* nec_ews_svr4 */
+ res = jrKanjiControl (0, KC_INITIALIZE, (char *)&warning);
+#ifdef nec_ews_svr4
+ start_polling ();
+#endif /* nec_ews_svr4 */
+ val = Qnil;
+ if (warning)
+ {
+ for (p = q = (unsigned char **) warning ; *q ; q++)
+ ;
+ while (p < q)
+ {
+ q--;
+ val = Fcons (make_string (*q, strlen ((const char *) *q)), val);
+ }
+ }
+ val = Fcons (val, Qnil);
+
+ if (res == -1)
+ {
+ val = Fcons (make_string ((unsigned char *) jrKanjiError,
+ strlen (jrKanjiError)), val);
+ /* ¥¤¥〓·¥〓¥¤¥º¤〓ºǔ¤·¤¿¾〓¡£ (on initialization failure) */
+ return Fcons (Qnil, val);
+ }
+ else
+ {
+ jrBeepFunc = call_Fding;
+
+#ifdef KC_SETAPPNAME
+#ifndef CANNA_MULE
+ jrKanjiControl (0, KC_SETAPPNAME, "nemacs");
+#else /* CANNA_MULE */
+ jrKanjiControl (0, KC_SETAPPNAME, "mule");
+#endif /* CANNA_MULE */
+#endif /* KC_SETAPPNAME */
+
+ jrKanjiControl (0, KC_SETBUNSETSUKUGIRI, (char *) kugiri);
+ jrKanjiControl (0, KC_SETWIDTH, (char *) 78);
+#ifndef CANNA_MULE
+ jrKanjiControl (0, KC_INHIBITHANKAKUKANA, (char *) 1);
+#else
+ /* mule ¤$俤鈾³〓«¥¿¥«¥〓〓¤¨¤〓 (Mule can use half-width katakana) */
+ if (canna_inhibit_hankakukana)
+ jrKanjiControl (0, KC_INHIBITHANKAKUKANA, (char *) 1);
+#endif
+ jrKanjiControl (0, KC_YOMIINFO, (char *) 2); /* ¢¨£²: ¥〓¥〓〓〓¤¹
+ (*2: return to
+ romanized form) */
+ val = Fcons (Qnil, val);
+ return Fcons (CANNA_mode_keys (), val);
+ }
+}
+
+DEFUN ("canna-finalize", Fcanna_finalize, 0, 0, 0, /*
+finalize ``canna'', which is a kana-to-kanji converter for XEmacs.
+This cause to write miscellaneous informations to kana-to-kanji dictionary.
+*/
+ ())
+{
+ Lisp_Object val;
+ unsigned char **p;
+
+ jrKanjiControl (0, KC_FINALIZE, (char *)&warning);
+
+ val = Qnil;
+ if (warning)
+ {
+ for (p = (unsigned char**) warning ; *p ; p++)
+ {
+ val = Fcons (make_string (*p, strlen ((const char *) *p)), val);
+ }
+ }
+ val = Fcons (val, Qnil);
+ IRCP_context = -1;
+ return val;
+}
+
+DEFUN ("canna-touroku-string", Fcanna_touroku_string, 1, 1, 0, /*
+Register Kanji words into kana-to-kanji conversion dictionary.
+*/
+ (str))
+{
+ jrKanjiStatusWithValue ksv;
+ jrKanjiStatus ks;
+#ifdef CANNA_MULE
+ unsigned char cbuf[4096];
+#endif
+
+ CHECK_STRING (str);
+ ksv.buffer = (unsigned char *) key_buffer;
+ ksv.bytes_buffer = KEYTOSTRSIZE;
+#ifndef CANNA_MULE
+ ks.echoStr = XSTRING_DATA (str);
+ ks.length = XSTRING_LENGTH (str);
+#else /* CANNA_MULE */
+ m2c (XSTRING_DATA (str), XSTRING_LENGTH (str), cbuf);
+ ks.echoStr = cbuf;
+ ks.length = strlen ((const char *) cbuf);
+#endif /* CANNA_MULE */
+ ksv.ks = &ks;
+ jrKanjiControl (0, KC_DEFINEKANJI, (char *)&ksv);
+ return storeResults (key_buffer, ksv.val, ksv.ks);
+}
+
+DEFUN ("canna-set-width", Fcanna_set_width, 1, 1, 0, /*
+Set status-line width information, which is used to display
+kanji candidates.
+*/
+ (num))
+{
+ CHECK_INT (num);
+
+ jrKanjiControl (0, KC_SETWIDTH, (char *) XINT (num));
+ return Qnil;
+}
+
+DEFUN ("canna-change-mode", Fcanna_change_mode, 1, 1, 0, /*
+Change Japanese pre-edit mode.
+*/
+ (num))
+{
+ jrKanjiStatusWithValue ksv;
+ jrKanjiStatus ks;
+
+ CHECK_INT (num);
+
+ ksv.buffer = (unsigned char *) key_buffer;
+ ksv.bytes_buffer = KEYTOSTRSIZE;
+ ksv.ks = &ks;
+ ksv.val = XINT (num);
+ jrKanjiControl (0, KC_CHANGEMODE, (char *)&ksv);
+ return storeResults (key_buffer, ksv.val, ksv.ks);
+}
+
+static Lisp_Object
+CANNA_mode_keys (void)
+{
+#define CANNAWORKBUFSIZE 32
+ char xxx[CANNAWORKBUFSIZE];
+ Lisp_Object val;
+ int i, n;
+
+ n = jrKanjiControl (0, KC_MODEKEYS, xxx);
+ val = Qnil;
+ for (i = n ; i > 0 ;)
+ {
+ --i;
+ /* !!#### something fucked here */
+ val = Fcons (make_char ((int)(0xFF & (unsigned char) xxx[i])), val);
+ }
+ return val;
+}
+
+DEFUN ("canna-store-yomi", Fcanna_store_yomi, 1, 2, 0, /*
+Store yomi characters as a YOMI of kana-to-kanji conversion.
+*/
+ (yomi, roma))
+{
+ jrKanjiStatusWithValue ksv;
+ jrKanjiStatus ks;
+
+ CHECK_STRING (yomi);
+#ifndef CANNA_MULE
+ strncpy (key_buffer, XSTRING_DATA (yomi), XSTRING_LENGTH (yomi));
+ ks.length = XSTRING_LENGTH (yomi);
+ key_buffer[ks.length] = '\0';
+#else /* CANNA_MULE */
+ m2c (XSTRING_DATA (yomi), XSTRING_LENGTH (yomi),
+ (unsigned char *) key_buffer);
+ ks.length = strlen (key_buffer);
+#endif /* CANNA_MULE */
+
+ if (NILP (roma))
+ {
+ ks.mode = 0;
+ }
+ else
+ {
+ CHECK_STRING (roma);
+
+#ifndef CANNA_MULE
+ strncpy (key_buffer + XSTRING_LENGTH (yomi) + 1, XSTRING_DATA (roma),
+ XSTRING_LENGTH (roma));
+ key_buffer[XSTRING_LENGTH (yomi) + 1 + XSTRING_LENGTH (roma)] = '\0';
+ ks.mode = (unsigned char *)(key_buffer + XSTRING_LENGTH (yomi) + 1);
+#else /* CANNA_MULE */
+ ks.mode = (unsigned char *)(key_buffer + ks.length + 1);
+ m2c (XSTRING_DATA (roma), XSTRING_LENGTH (roma),
+ (unsigned char *) ks.mode);
+#endif /* CANNA_MULE */
+ }
+
+ ks.echoStr = (unsigned char *) key_buffer;
+ ksv.buffer = (unsigned char *) key_buffer; /* 〓Í〓 (return value) */
+ ksv.bytes_buffer = KEYTOSTRSIZE;
+ ksv.ks = &ks;
+
+ jrKanjiControl (0, KC_STOREYOMI, (char *)&ksv);
+
+ return storeResults (key_buffer, ksv.val, ksv.ks);
+}
+
+DEFUN ("canna-do-function", Fcanna_do_function, 1, 2, 0, /*
+Do specified function at current mode.
+*/
+ (num, ch))
+{
+ jrKanjiStatusWithValue ksv;
+ jrKanjiStatus ks;
+
+ CHECK_INT (num);
+
+ if (NILP (ch))
+ {
+ *key_buffer = '＠';
+ }
+ else
+ {
+ CHECK_CHAR (ch);
+ *key_buffer = XCHAR (ch);
+ }
+
+ ksv.buffer = (unsigned char *) key_buffer;
+ ksv.bytes_buffer = KEYTOSTRSIZE;
+ ksv.ks = &ks;
+ ksv.val = XINT (num);
+ jrKanjiControl (0, KC_DO, (char *) &ksv);
+ return storeResults (key_buffer, ksv.val, ksv.ks);
+}
+
+DEFUN ("canna-parse", Fcanna_parse, 1, 1, 0, /*
+Parse customize string.
+*/
+ (str))
+{
+ Lisp_Object val;
+ unsigned char **p;
+ int n;
+
+ CHECK_STRING (str);
+
+#ifndef CANNA_MULE
+ strncpy (key_buffer, XSTRING_DATA (str), XSTRING_LENGTH (str));
+ key_buffer[XSTRING_LENGTH (str)] = '\0';
+#else /* CANNA_MULE */
+ m2c (XSTRING_DATA (str), XSTRING_LENGTH (str), (unsigned char *) key_buffer);
+#endif /* CANNA_MULE */
+ p = (unsigned char**) key_buffer;
+ n = jrKanjiControl (0, KC_PARSE, (char *) &p);
+ val = Qnil;
+ while (n > 0)
+ {
+ n--;
+ val = Fcons (make_string (p[n], strlen ((const char *) p[n])), val);
+ }
+ return val;
+}
+
+DEFUN ("canna-query-mode", Fcanna_query_mode, 0, 0, 0, /*
+Get current mode string.
+*/
+ ())
+{
+ char buf[256];
+
+ jrKanjiControl (0, KC_QUERYMODE, buf);
+ return make_string ((unsigned char *) buf, strlen (buf));
+}
+
+/*
+ * Functions following this line are for KKCP interface compatible
+ * library. These functions may be used by MILK system.
+ */
+
+#define RKBUFSIZE 1024
+
+static unsigned char yomibuf[RKBUFSIZE];
+static short kugiri[RKBUFSIZE / 2];
+
+static int
+confirmContext (void)
+{
+ if (IRCP_context < 0)
+ {
+ int context;
+
+ if ((context = jrKanjiControl (0, KC_GETCONTEXT, (char *) 0)) == -1)
+ {
+ return 0;
+ }
+ IRCP_context = context;
+ }
+ return 1;
+}
+
+static int
+byteLen (int bun, int len)
+{
+ int i = 0, offset = 0, ch;
+
+ if (0 <= bun && bun < RKBUFSIZE)
+ {
+ offset = kugiri[bun];
+ }
+
+ while (len-- > 0 && (ch = (int) yomibuf[offset + i]))
+ {
+ i++;
+ if (ch & 0x80)
+ {
+ i++;
+ }
+ }
+ return i;
+}
+
+DEFUN ("canna-henkan-begin", Fcanna_henkan_begin, 1, 1, 0, /*
+Return the result of kana-to-kanji conversion.
+Clause separator is set.
+*/
+ (yomi))
+{
+ int nbun;
+
+ CHECK_STRING (yomi);
+ if (confirmContext () == 0)
+ {
+ return Qnil;
+ }
+#ifndef CANNA_MULE
+ strncpy (yomibuf, XSTRING_DATA (yomi), XSTRING_LENGTH (yomi));
+ yomibuf[XSTRING_LENGTH (yomi)] = '\0';
+ nbun = RkBgnBun (IRCP_context, XSTRING_DATA (yomi), XSTRING_LENGTH (yomi),
+ (RK_XFER << RK_XFERBITS) | RK_KFER);
+#else /* CANNA_MULE */
+ m2c (XSTRING_DATA (yomi), XSTRING_LENGTH (yomi), yomibuf);
+ nbun = RkBgnBun (IRCP_context, (char *) yomibuf,
+ strlen ((const char *) yomibuf),
+ (RK_XFER << RK_XFERBITS) | RK_KFER);
+#endif /* CANNA_MULE */
+
+ return kanjiYomiList (IRCP_context, nbun);
+}
+
+static Lisp_Object
+kanjiYomiList (int context, int nbun)
+{
+ Lisp_Object val, res = Qnil;
+ unsigned char RkBuf[RKBUFSIZE];
+ int len, i, total;
+
+ for (i = nbun ; i > 0 ; )
+ {
+ i--;
+ RkGoTo (context, i);
+ len = RkGetKanji (context, RkBuf, RKBUFSIZE);
+ val = make_string (RkBuf, len);
+ len = RkGetYomi (context, RkBuf, RKBUFSIZE);
+ res = Fcons (Fcons (val, make_string (RkBuf, len)), res);
+ if (i < RKBUFSIZE / 2)
+ {
+ kugiri[i] = len;
+ }
+ }
+ for (i = 0, total = 0 ; i < nbun ; i++)
+ {
+ int temp = kugiri[i];
+ kugiri[i] = total;
+ total += temp;
+ }
+ return res;
+}
+
+DEFUN ("canna-henkan-next", Fcanna_henkan_next, 1, 1, 0, /*
+Return the list of candidates.
+*/
+ (bunsetsu))
+{
+ int i, slen, len;
+ unsigned char *p, RkBuf[RKBUFSIZE];
+ Lisp_Object res = Qnil;
+
+ CHECK_INT (bunsetsu);
+ if (confirmContext () == 0)
+ {
+ return Qnil;
+ }
+ RkGoTo (IRCP_context, XINT (bunsetsu));
+ len = RkGetKanjiList (IRCP_context, RkBuf, RKBUFSIZE);
+ p = RkBuf;
+ for (i = 0 ; i < len ; i++)
+ {
+ slen = strlen ((const char *) p);
+ if (NILP(res))
+ {
+ res = Fcons (make_string (p, slen), Qnil);
+ }
+ else
+ {
+ XCDR (res) = Fcons (make_string (p, slen), Qnil);
+ }
+ p += slen + 1;
+ }
+ return res;
+}
+
+DEFUN ("canna-bunsetu-henkou", Fcanna_bunsetu_henkou, 2, 2, 0, /*
+Specify the length of a clause.
+*/
+ (bunsetsu, bunlen))
+{
+ int nbun, len;
+
+ CHECK_INT (bunsetsu);
+ CHECK_INT (bunlen);
+
+ nbun = XINT (bunsetsu);
+ if (confirmContext () == 0)
+ {
+ return Qnil;
+ }
+ RkGoTo (IRCP_context, nbun);
+ len = byteLen (nbun, XINT (bunlen));
+ return kanjiYomiList (IRCP_context, RkResize (IRCP_context, len));
+}
+
+DEFUN ("canna-henkan-kakutei", Fcanna_henkan_kakutei, 2, 2, 0, /*
+Select a candidate.
+*/
+ (bun, kouho))
+{
+ int nbun, nkouho;
+
+ if (confirmContext () == 0)
+ {
+ return Qnil;
+ }
+ nbun = XINT(bun);
+ RkGoTo (IRCP_context, nbun);
+
+ nkouho = XINT(kouho);
+ RkXfer (IRCP_context, nkouho);
+ return Qt;
+}
+
+DEFUN ("canna-henkan-end", Fcanna_henkan_end, 0, 0, 0, /*
+End conversion.
+*/
+ ())
+{
+ if (confirmContext () == 0)
+ {
+ return Qnil;
+ }
+ RkEndBun (IRCP_context, 1); /* ³〓¬¤〓¤¤Ĥ〓〓¤ä〓ɤ¤¤〓¤〓Τ«¡©
+ (is it OK to invoke learning function
+ at arbitrary times?) */
+ return Qt;
+}
+
+DEFUN ("canna-henkan-quit", Fcanna_henkan_quit, 0, 0, 0, /*
+Quit conversion.
+*/
+ ())
+{
+ if (confirmContext () == 0)
+ {
+ return Qnil;
+ }
+ RkEndBun (IRCP_context, 0);
+ return Qt;
+}
+
+/* variables below this line is constants of Canna */
+
+static Fixnum canna_mode_AlphaMode;
+static Fixnum canna_mode_EmptyMode;
+static Fixnum canna_mode_KigoMode;
+static Fixnum canna_mode_YomiMode;
+static Fixnum canna_mode_JishuMode;
+static Fixnum canna_mode_TankouhoMode;
+static Fixnum canna_mode_IchiranMode;
+static Fixnum canna_mode_YesNoMode;
+static Fixnum canna_mode_OnOffMode;
+#ifdef CANNA_MODE_AdjustBunsetsuMode
+static Fixnum canna_mode_AdjustBunsetsuMode;
+#endif
+#ifdef CANNA_MODE_ChikujiYomiMode
+static Fixnum canna_mode_ChikujiYomiMode;
+static Fixnum canna_mode_ChikujiTanMode;
+#endif
+
+static Fixnum canna_mode_HenkanMode;
+#ifdef CANNA_MODE_HenkanNyuryokuMode
+static Fixnum canna_mode_HenkanNyuryokuMode;
+#endif
+#ifdef CANNA_MODE_ZenHiraHenkanMode
+static Fixnum canna_mode_ZenHiraHenkanMode;
+#ifdef CANNA_MODE_HanHiraHenkanMode
+static Fixnum canna_mode_HanHiraHenkanMode;
+#endif
+static Fixnum canna_mode_ZenKataHenkanMode;
+static Fixnum canna_mode_HanKataHenkanMode;
+static Fixnum canna_mode_ZenAlphaHenkanMode;
+static Fixnum canna_mode_HanAlphaHenkanMode;
+#endif
+static Fixnum canna_mode_ZenHiraKakuteiMode;
+#ifdef CANNA_MODE_HanHiraKakuteiMode
+static Fixnum canna_mode_HanHiraKakuteiMode;
+#endif
+static Fixnum canna_mode_ZenKataKakuteiMode;
+static Fixnum canna_mode_HanKataKakuteiMode;
+static Fixnum canna_mode_ZenAlphaKakuteiMode;
+static Fixnum canna_mode_HanAlphaKakuteiMode;
+static Fixnum canna_mode_HexMode;
+static Fixnum canna_mode_BushuMode;
+static Fixnum canna_mode_ExtendMode;
+static Fixnum canna_mode_RussianMode;
+static Fixnum canna_mode_GreekMode;
+static Fixnum canna_mode_LineMode;
+static Fixnum canna_mode_ChangingServerMode;
+static Fixnum canna_mode_HenkanMethodMode;
+static Fixnum canna_mode_DeleteDicMode;
+static Fixnum canna_mode_TourokuMode;
+static Fixnum canna_mode_TourokuEmptyMode;
+static Fixnum canna_mode_TourokuHinshiMode;
+static Fixnum canna_mode_TourokuDicMode;
+static Fixnum canna_mode_QuotedInsertMode;
+static Fixnum canna_mode_BubunMuhenkanMode;
+static Fixnum canna_mode_MountDicMode;
+
+static Fixnum canna_fn_SelfInsert;
+static Fixnum canna_fn_FunctionalInsert;
+static Fixnum canna_fn_QuotedInsert;
+static Fixnum canna_fn_JapaneseMode;
+static Fixnum canna_fn_AlphaMode;
+static Fixnum canna_fn_HenkanNyuryokuMode;
+static Fixnum canna_fn_Forward;
+static Fixnum canna_fn_Backward;
+static Fixnum canna_fn_Next;
+static Fixnum canna_fn_Prev;
+static Fixnum canna_fn_BeginningOfLine;
+static Fixnum canna_fn_EndOfLine;
+static Fixnum canna_fn_DeleteNext;
+static Fixnum canna_fn_DeletePrevious;
+static Fixnum canna_fn_KillToEndOfLine;
+static Fixnum canna_fn_Henkan;
+static Fixnum canna_fn_Kakutei;
+static Fixnum canna_fn_Extend;
+static Fixnum canna_fn_Shrink;
+#ifdef CANNA_FN_AdjustBunsetsu
+static Fixnum canna_fn_AdjustBunsetsu;
+#endif
+static Fixnum canna_fn_Quit;
+static Fixnum canna_fn_ConvertAsHex;
+static Fixnum canna_fn_ConvertAsBushu;
+static Fixnum canna_fn_KouhoIchiran;
+static Fixnum canna_fn_BubunMuhenkan;
+static Fixnum canna_fn_Zenkaku;
+static Fixnum canna_fn_Hankaku;
+static Fixnum canna_fn_ToUpper;
+static Fixnum canna_fn_Capitalize;
+static Fixnum canna_fn_ToLower;
+static Fixnum canna_fn_Hiragana;
+static Fixnum canna_fn_Katakana;
+static Fixnum canna_fn_Romaji;
+#ifdef CANNA_FN_BaseHiragana
+static Fixnum canna_fn_BaseHiragana;
+static Fixnum canna_fn_BaseKatakana;
+static Fixnum canna_fn_BaseEisu;
+static Fixnum canna_fn_BaseZenkaku;
+static Fixnum canna_fn_BaseHankaku;
+static Fixnum canna_fn_BaseKana;
+static Fixnum canna_fn_BaseKakutei;
+static Fixnum canna_fn_BaseHenkan;
+static Fixnum canna_fn_BaseHiraKataToggle;
+static Fixnum canna_fn_BaseZenHanToggle;
+static Fixnum canna_fn_BaseKanaEisuToggle;
+static Fixnum canna_fn_BaseKakuteiHenkanToggle;
+static Fixnum canna_fn_BaseRotateForward;
+static Fixnum canna_fn_BaseRotateBackward;
+#endif
+static Fixnum canna_fn_ExtendMode;
+static Fixnum canna_fn_Touroku;
+static Fixnum canna_fn_HexMode;
+static Fixnum canna_fn_BushuMode;
+static Fixnum canna_fn_KigouMode;
+#ifdef CANNA_FN_Mark
+static Fixnum canna_fn_Mark;
+#endif
+#ifdef CANNA_FN_TemporalMode
+static Fixnum canna_fn_TemporalMode;
+#endif
+
+static Fixnum canna_key_Nfer;
+static Fixnum canna_key_Xfer;
+static Fixnum canna_key_Up;
+static Fixnum canna_key_Left;
+static Fixnum canna_key_Right;
+static Fixnum canna_key_Down;
+static Fixnum canna_key_Insert;
+static Fixnum canna_key_Rollup;
+static Fixnum canna_key_Rolldown;
+static Fixnum canna_key_Home;
+static Fixnum canna_key_Help;
+static Fixnum canna_key_KP_Key;
+static Fixnum canna_key_Shift_Nfer;
+static Fixnum canna_key_Shift_Xfer;
+static Fixnum canna_key_Shift_Up;
+static Fixnum canna_key_Shift_Left;
+static Fixnum canna_key_Shift_Right;
+static Fixnum canna_key_Shift_Down;
+static Fixnum canna_key_Cntrl_Nfer;
+static Fixnum canna_key_Cntrl_Xfer;
+static Fixnum canna_key_Cntrl_Up;
+static Fixnum canna_key_Cntrl_Left;
+static Fixnum canna_key_Cntrl_Right;
+static Fixnum canna_key_Cntrl_Down;
+
+Lisp_Object VCANNA; /* by MORIOKA Tomohiko <morioka(a)jaist.ac.jp>
+ 1996/6/7 */
+
+/*
+ * Each dynamically loaded Emacs module is given a name at compile
+ * time. This is a short name, and must be a valid part of a C
+ * identifier. This name is used to construct the name of several
+ * functions which must appear in the module source code.
+ * The first such function, modules_of_XXXX, should load in any dependent
+ * modules. This function is optional, and the module will still load if
+ * it is not present in the module.
+ *
+ * The second function, which is NOT optional, is syms_of_XXXX, in which
+ * all functions that the module will be provided are declared. This
+ * function will contain calls to DEFSUBR().
+ *
+ * The third function, which is also NOT optional, is vars_of_XXXX, in
+ * which you declare all variables that the module provides. This
+ * function will contain calls to DEFVAR_LISP(), DEFVAR_BOOL() etc.
+ *
+ * When declaring functions and variables in the syms_of_XXXX and
+ * vars_of_XXXX functions, you use the exact same syntax that you
+ * would as if this module were being compiled into the pure Emacs.
+ *
+ * The fourth function, which is optional, is unload_XXXX, in which actions
+ * that must be taken to unload the module are listed. XEmacs will unbind
+ * functions and variables for you. Anything else that must be done should
+ * appear in this function.
+ *
+ * All four of these functions are declared as void functions,
+ * taking no parameters. Since this sample module is called 'sample',
+ * the functions will be named 'modules_of_sample', 'syms_of_sample',
+ * 'vars_of_sample', and 'unload_sample'.
+ */
+
+#if 0
+void
+modules_of_canna_api (void)
+{
+ /*
+ * This function isn't actually required as we will not be loading
+ * in any dependent modules, but if we were, we would do something like:
+ * emodules_load ("dependent.ell", "canna2", "1.0.0");
+ */
+}
+#endif
+
+void
+syms_of_canna_api (void)
+{
+ DEFSUBR (Fcanna_key_proc);
+ DEFSUBR (Fcanna_initialize);
+ DEFSUBR (Fcanna_finalize);
+ DEFSUBR (Fcanna_touroku_string);
+ DEFSUBR (Fcanna_set_width);
+ DEFSUBR (Fcanna_change_mode);
+ DEFSUBR (Fcanna_store_yomi);
+ DEFSUBR (Fcanna_do_function);
+ DEFSUBR (Fcanna_parse);
+ DEFSUBR (Fcanna_query_mode);
+ DEFSUBR (Fcanna_set_bunsetsu);
+
+ DEFSUBR (Fcanna_henkan_begin);
+ DEFSUBR (Fcanna_henkan_next);
+ DEFSUBR (Fcanna_bunsetu_henkou);
+ DEFSUBR (Fcanna_henkan_kakutei);
+ DEFSUBR (Fcanna_henkan_end);
+ DEFSUBR (Fcanna_henkan_quit);
+}
+
+void
+vars_of_canna_api (void)
+{
+ DEFVAR_LISP ("CANNA", &VCANNA); /* hir＠nec, 1992.5.21 */
+ VCANNA = Qt; /* hir＠nec, 1992.5.21 */
+
+ DEFVAR_LISP ("canna-kakutei-string", &Vcanna_kakutei_string /*
+
+*/ );
+ Vcanna_kakutei_string = Qnil;
+
+ DEFVAR_LISP ("canna-kakutei-yomi", &Vcanna_kakutei_yomi /*
+
+*/ );
+ Vcanna_kakutei_yomi = Qnil;
+
+ DEFVAR_LISP ("canna-kakutei-romaji", &Vcanna_kakutei_romaji /*
+
+*/ );
+ Vcanna_kakutei_romaji = Qnil;
+
+ DEFVAR_LISP ("canna-henkan-string", &Vcanna_henkan_string /*
+
+*/ );
+ Vcanna_henkan_string = Qnil;
+
+ DEFVAR_INT ("canna-henkan-length", &canna_henkan_length /*
+
+*/ );
+ canna_henkan_length = 0;
+
+ DEFVAR_INT ("canna-henkan-revpos", &canna_henkan_revPos /*
+
+*/ );
+ canna_henkan_revPos = 0;
+
+ DEFVAR_INT ("canna-henkan-revlen", &canna_henkan_revLen /*
+
+*/ );
+ canna_henkan_revLen = 0;
+
+ DEFVAR_LISP ("canna-ichiran-string", &Vcanna_ichiran_string /*
+
+*/ );
+ Vcanna_ichiran_string = Qnil;
+
+ DEFVAR_INT ("canna-ichiran-length", &canna_ichiran_length /*
+
+*/ );
+ canna_ichiran_length = 0;
+
+ DEFVAR_INT ("canna-ichiran-revpos", &canna_ichiran_revPos /*
+
+*/ );
+ canna_ichiran_revPos = 0;
+
+ DEFVAR_INT ("canna-ichiran-revlen", &canna_ichiran_revLen /*
+
+*/ );
+ canna_ichiran_revLen = 0;
+
+ DEFVAR_LISP ("canna-mode-string", &Vcanna_mode_string /*
+
+*/ );
+ Vcanna_mode_string = Qnil;
+
+ DEFVAR_BOOL ("canna-empty-info", &canna_empty_info /*
+For canna
+*/ );
+ canna_empty_info = 0;
+
+ DEFVAR_BOOL ("canna-through-info", &canna_through_info /*
+For canna
+*/ );
+ canna_through_info = 0;
+
+ DEFVAR_BOOL ("canna-underline", &canna_underline /*
+For canna
+*/ );
+ canna_underline = 0;
+
+ DEFVAR_BOOL ("canna-inhibit-hankakukana", &canna_inhibit_hankakukana /*
+For canna
+*/ );
+ canna_inhibit_hankakukana = 0;
+
+ DEFVAR_INT ("canna-mode-alpha-mode", &canna_mode_AlphaMode /*
+
+*/ );
+ canna_mode_AlphaMode = IROHA_MODE_AlphaMode;
+
+ DEFVAR_INT ("canna-mode-empty-mode", &canna_mode_EmptyMode /*
+
+*/ );
+ canna_mode_EmptyMode = IROHA_MODE_EmptyMode;
+
+ DEFVAR_INT ("canna-mode-kigo-mode", &canna_mode_KigoMode /*
+
+*/ );
+ canna_mode_KigoMode = IROHA_MODE_KigoMode;
+
+ DEFVAR_INT ("canna-mode-yomi-mode", &canna_mode_YomiMode /*
+
+*/ );
+ canna_mode_YomiMode = IROHA_MODE_YomiMode;
+
+ DEFVAR_INT ("canna-mode-jishu-mode", &canna_mode_JishuMode /*
+
+*/ );
+ canna_mode_JishuMode = IROHA_MODE_JishuMode;
+
+ DEFVAR_INT ("canna-mode-tankouho-mode", &canna_mode_TankouhoMode /*
+
+*/ );
+ canna_mode_TankouhoMode = IROHA_MODE_TankouhoMode;
+
+ DEFVAR_INT ("canna-mode-ichiran-mode", &canna_mode_IchiranMode /*
+
+*/ );
+ canna_mode_IchiranMode = IROHA_MODE_IchiranMode;
+
+ DEFVAR_INT ("canna-mode-yes-no-mode", &canna_mode_YesNoMode /*
+
+*/ );
+ canna_mode_YesNoMode = IROHA_MODE_YesNoMode;
+
+ DEFVAR_INT ("canna-mode-on-off-mode", &canna_mode_OnOffMode /*
+
+*/ );
+ canna_mode_OnOffMode = IROHA_MODE_OnOffMode;
+
+#ifdef CANNA_MODE_AdjustBunsetsuMode
+ DEFVAR_INT ("canna-mode-adjust-bunsetsu-mode",
+ &canna_mode_AdjustBunsetsuMode /*
+
+*/ );
+ canna_mode_AdjustBunsetsuMode = CANNA_MODE_AdjustBunsetsuMode;
+#endif
+#ifdef CANNA_MODE_ChikujiYomiMode
+ DEFVAR_INT ("canna-mode-chikuji-yomi-mode", &canna_mode_ChikujiYomiMode /*
+
+*/ );
+ canna_mode_ChikujiYomiMode = CANNA_MODE_ChikujiYomiMode;
+
+ DEFVAR_INT ("canna-mode-chikuji-bunsetsu-mode",
+ &canna_mode_ChikujiTanMode /*
+
+*/ );
+ canna_mode_ChikujiTanMode = CANNA_MODE_ChikujiTanMode;
+#endif
+
+ DEFVAR_INT ("canna-mode-henkan-mode", &canna_mode_HenkanMode /*
+
+*/ );
+ canna_mode_HenkanMode = IROHA_MODE_HenkanMode;
+
+#ifdef CANNA_MODE_HenkanNyuryokuMode
+ DEFVAR_INT ("canna-mode-henkan-nyuuryoku-mode",
+ &canna_mode_HenkanNyuryokuMode /*
+
+*/ );
+ canna_mode_HenkanNyuryokuMode = CANNA_MODE_HenkanNyuryokuMode;
+#endif
+#ifdef CANNA_MODE_ZenHiraHenkanMode
+ DEFVAR_INT ("canna-mode-zen-hira-henkan-mode",
+ &canna_mode_ZenHiraHenkanMode /*
+
+*/ );
+ canna_mode_ZenHiraHenkanMode = CANNA_MODE_ZenHiraHenkanMode;
+#ifdef CANNA_MODE_HanHiraHenkanMode
+ DEFVAR_INT ("canna-mode-han-hira-henkan-mode",
+ &canna_mode_HanHiraHenkanMode /*
+
+*/ );
+ canna_mode_HanHiraHenkanMode = CANNA_MODE_HanHiraHenkanMode;
+#endif
+ DEFVAR_INT ("canna-mode-zen-kata-henkan-mode",
+ &canna_mode_ZenKataHenkanMode /*
+
+*/ );
+ canna_mode_ZenKataHenkanMode = CANNA_MODE_ZenKataHenkanMode;
+
+ DEFVAR_INT ("canna-mode-han-kata-henkan-mode",
+ &canna_mode_HanKataHenkanMode /*
+
+*/ );
+ canna_mode_HanKataHenkanMode = CANNA_MODE_HanKataHenkanMode;
+
+ DEFVAR_INT ("canna-mode-zen-alpha-henkan-mode",
+ &canna_mode_ZenAlphaHenkanMode /*
+
+*/ );
+ canna_mode_ZenAlphaHenkanMode = CANNA_MODE_ZenAlphaHenkanMode;
+
+ DEFVAR_INT ("canna-mode-han-alpha-henkan-mode",
+ &canna_mode_HanAlphaHenkanMode /*
+
+*/ );
+ canna_mode_HanAlphaHenkanMode = CANNA_MODE_HanAlphaHenkanMode;
+#endif
+ DEFVAR_INT ("canna-mode-zen-hira-kakutei-mode",
+ &canna_mode_ZenHiraKakuteiMode /*
+
+*/ );
+ canna_mode_ZenHiraKakuteiMode = IROHA_MODE_ZenHiraKakuteiMode;
+#ifdef CANNA_MODE_HanHiraKakuteiMode
+ DEFVAR_INT ("canna-mode-han-hira-kakutei-mode",
+ &canna_mode_HanHiraKakuteiMode /*
+
+*/ );
+ canna_mode_HanHiraKakuteiMode = CANNA_MODE_HanHiraKakuteiMode;
+#endif
+ DEFVAR_INT ("canna-mode-zen-kata-kakutei-mode",
+ &canna_mode_ZenKataKakuteiMode /*
+
+*/ );
+ canna_mode_ZenKataKakuteiMode = IROHA_MODE_ZenKataKakuteiMode;
+
+ DEFVAR_INT ("canna-mode-han-kata-kakutei-mode",
+ &canna_mode_HanKataKakuteiMode /*
+
+*/ );
+ canna_mode_HanKataKakuteiMode = IROHA_MODE_HanKataKakuteiMode;
+
+ DEFVAR_INT ("canna-mode-zen-alpha-kakutei-mode",
+ &canna_mode_ZenAlphaKakuteiMode /*
+
+*/ );
+ canna_mode_ZenAlphaKakuteiMode = IROHA_MODE_ZenAlphaKakuteiMode;
+
+ DEFVAR_INT ("canna-mode-han-alpha-kakutei-mode",
+ &canna_mode_HanAlphaKakuteiMode /*
+
+*/ );
+ canna_mode_HanAlphaKakuteiMode = IROHA_MODE_HanAlphaKakuteiMode;
+
+ DEFVAR_INT ("canna-mode-hex-mode", &canna_mode_HexMode /*
+
+*/ );
+ canna_mode_HexMode = IROHA_MODE_HexMode;
+
+ DEFVAR_INT ("canna-mode-bushu-mode", &canna_mode_BushuMode /*
+
+*/ );
+ canna_mode_BushuMode = IROHA_MODE_BushuMode;
+
+ DEFVAR_INT ("canna-mode-extend-mode", &canna_mode_ExtendMode /*
+
+*/ );
+ canna_mode_ExtendMode = IROHA_MODE_ExtendMode;
+
+ DEFVAR_INT ("canna-mode-russian-mode", &canna_mode_RussianMode /*
+
+*/ );
+ canna_mode_RussianMode = IROHA_MODE_RussianMode;
+
+ DEFVAR_INT ("canna-mode-greek-mode", &canna_mode_GreekMode /*
+
+*/ );
+ canna_mode_GreekMode = IROHA_MODE_GreekMode;
+
+ DEFVAR_INT ("canna-mode-line-mode", &canna_mode_LineMode /*
+
+*/ );
+ canna_mode_LineMode = IROHA_MODE_LineMode;
+
+ DEFVAR_INT ("canna-mode-changing-server-mode",
+ &canna_mode_ChangingServerMode /*
+
+*/ );
+ canna_mode_ChangingServerMode = IROHA_MODE_ChangingServerMode;
+
+ DEFVAR_INT ("canna-mode-henkan-method-mode",
+ &canna_mode_HenkanMethodMode /*
+
+*/ );
+ canna_mode_HenkanMethodMode = IROHA_MODE_HenkanMethodMode;
+
+ DEFVAR_INT ("canna-mode-delete-dic-mode", &canna_mode_DeleteDicMode /*
+
+*/ );
+ canna_mode_DeleteDicMode = IROHA_MODE_DeleteDicMode;
+
+ DEFVAR_INT ("canna-mode-touroku-mode", &canna_mode_TourokuMode /*
+
+*/ );
+ canna_mode_TourokuMode = IROHA_MODE_TourokuMode;
+
+ DEFVAR_INT ("canna-mode-touroku-empty-mode",
+ &canna_mode_TourokuEmptyMode /*
+
+*/ );
+ canna_mode_TourokuEmptyMode = IROHA_MODE_TourokuEmptyMode;
+
+ DEFVAR_INT ("canna-mode-touroku-hinshi-mode",
+ &canna_mode_TourokuHinshiMode /*
+
+*/ );
+ canna_mode_TourokuHinshiMode = IROHA_MODE_TourokuHinshiMode;
+
+ DEFVAR_INT ("canna-mode-touroku-dic-mode", &canna_mode_TourokuDicMode /*
+
+*/ );
+ canna_mode_TourokuDicMode = IROHA_MODE_TourokuDicMode;
+
+ DEFVAR_INT ("canna-mode-quoted-insert-mode",
+ &canna_mode_QuotedInsertMode /*
+
+*/ );
+ canna_mode_QuotedInsertMode = IROHA_MODE_QuotedInsertMode;
+
+ DEFVAR_INT ("canna-mode-bubun-muhenkan-mode",
+ &canna_mode_BubunMuhenkanMode /*
+
+*/ );
+ canna_mode_BubunMuhenkanMode = IROHA_MODE_BubunMuhenkanMode;
+
+ DEFVAR_INT ("canna-mode-mount-dic-mode", &canna_mode_MountDicMode /*
+
+*/ );
+ canna_mode_MountDicMode = IROHA_MODE_MountDicMode;
+
+ DEFVAR_INT ("canna-func-self-insert", &canna_fn_SelfInsert /*
+
+*/ );
+ canna_fn_SelfInsert = IROHA_FN_SelfInsert;
+
+ DEFVAR_INT ("canna-func-functional-insert", &canna_fn_FunctionalInsert /*
+
+*/ );
+ canna_fn_FunctionalInsert = IROHA_FN_FunctionalInsert;
+
+ DEFVAR_INT ("canna-func-quoted-insert", &canna_fn_QuotedInsert /*
+
+*/ );
+ canna_fn_QuotedInsert = IROHA_FN_QuotedInsert;
+
+ DEFVAR_INT ("canna-func-japanese-mode", &canna_fn_JapaneseMode /*
+
+*/ );
+ canna_fn_JapaneseMode = IROHA_FN_JapaneseMode;
+
+ DEFVAR_INT ("canna-func-alpha-mode", &canna_fn_AlphaMode /*
+
+*/ );
+ canna_fn_AlphaMode = IROHA_FN_AlphaMode;
+
+ DEFVAR_INT ("canna-func-henkan-nyuryoku-mode",
+ &canna_fn_HenkanNyuryokuMode /*
+
+*/ );
+ canna_fn_HenkanNyuryokuMode = IROHA_FN_HenkanNyuryokuMode;
+
+ DEFVAR_INT ("canna-func-forward", &canna_fn_Forward /*
+
+*/ );
+ canna_fn_Forward = IROHA_FN_Forward;
+
+ DEFVAR_INT ("canna-func-backward", &canna_fn_Backward /*
+
+*/ );
+ canna_fn_Backward = IROHA_FN_Backward;
+
+ DEFVAR_INT ("canna-func-next", &canna_fn_Next /*
+
+*/ );
+ canna_fn_Next = IROHA_FN_Next;
+
+ DEFVAR_INT ("canna-func-previous", &canna_fn_Prev /*
+
+*/ );
+ canna_fn_Prev = IROHA_FN_Prev;
+
+ DEFVAR_INT ("canna-func-beginning-of-line", &canna_fn_BeginningOfLine /*
+
+*/ );
+ canna_fn_BeginningOfLine = IROHA_FN_BeginningOfLine;
+
+ DEFVAR_INT ("canna-func-end-of-line", &canna_fn_EndOfLine /*
+
+*/ );
+ canna_fn_EndOfLine = IROHA_FN_EndOfLine;
+
+ DEFVAR_INT ("canna-func-delete-next", &canna_fn_DeleteNext /*
+
+*/ );
+ canna_fn_DeleteNext = IROHA_FN_DeleteNext;
+
+ DEFVAR_INT ("canna-func-delete-previous", &canna_fn_DeletePrevious /*
+
+*/ );
+ canna_fn_DeletePrevious = IROHA_FN_DeletePrevious;
+
+ DEFVAR_INT ("canna-func-kill-to-end-of-line", &canna_fn_KillToEndOfLine /*
+
+*/ );
+ canna_fn_KillToEndOfLine = IROHA_FN_KillToEndOfLine;
+
+ DEFVAR_INT ("canna-func-henkan", &canna_fn_Henkan /*
+
+*/ );
+ canna_fn_Henkan = IROHA_FN_Henkan;
+
+ DEFVAR_INT ("canna-func-kakutei", &canna_fn_Kakutei /*
+
+*/ );
+ canna_fn_Kakutei = IROHA_FN_Kakutei;
+
+ DEFVAR_INT ("canna-func-extend", &canna_fn_Extend /*
+
+*/ );
+ canna_fn_Extend = IROHA_FN_Extend;
+
+ DEFVAR_INT ("canna-func-shrink", &canna_fn_Shrink /*
+
+*/ );
+ canna_fn_Shrink = IROHA_FN_Shrink;
+
+#ifdef CANNA_FN_AdjustBunsetsu
+ DEFVAR_INT ("canna-func-adjust-bunsetsu", &canna_fn_AdjustBunsetsu /*
+
+*/ );
+ canna_fn_AdjustBunsetsu = CANNA_FN_AdjustBunsetsu;
+#endif
+ DEFVAR_INT ("canna-func-quit", &canna_fn_Quit /*
+
+*/ );
+ canna_fn_Quit = IROHA_FN_Quit;
+
+ DEFVAR_INT ("canna-func-convert-as-hex", &canna_fn_ConvertAsHex /*
+
+*/ );
+ canna_fn_ConvertAsHex = IROHA_FN_ConvertAsHex;
+
+ DEFVAR_INT ("canna-func-convert-as-bushu", &canna_fn_ConvertAsBushu /*
+
+*/ );
+ canna_fn_ConvertAsBushu = IROHA_FN_ConvertAsBushu;
+
+ DEFVAR_INT ("canna-func-kouho-ichiran", &canna_fn_KouhoIchiran /*
+
+*/ );
+ canna_fn_KouhoIchiran = IROHA_FN_KouhoIchiran;
+
+ DEFVAR_INT ("canna-func-bubun-muhenkan", &canna_fn_BubunMuhenkan /*
+
+*/ );
+ canna_fn_BubunMuhenkan = IROHA_FN_BubunMuhenkan;
+
+ DEFVAR_INT ("canna-func-zenkaku", &canna_fn_Zenkaku /*
+
+*/ );
+ canna_fn_Zenkaku = IROHA_FN_Zenkaku;
+
+ DEFVAR_INT ("canna-func-hankaku", &canna_fn_Hankaku /*
+
+*/ );
+ canna_fn_Hankaku = IROHA_FN_Hankaku;
+
+ DEFVAR_INT ("canna-func-to-upper", &canna_fn_ToUpper /*
+
+*/ );
+ canna_fn_ToUpper = IROHA_FN_ToUpper;
+
+ DEFVAR_INT ("canna-func-capitalize", &canna_fn_Capitalize /*
+
+*/ );
+ canna_fn_Capitalize = IROHA_FN_Capitalize;
+
+ DEFVAR_INT ("canna-func-to-lower", &canna_fn_ToLower /*
+
+*/ );
+ canna_fn_ToLower = IROHA_FN_ToLower;
+
+ DEFVAR_INT ("canna-func-hiragana", &canna_fn_Hiragana /*
+
+*/ );
+ canna_fn_Hiragana = IROHA_FN_Hiragana;
+
+ DEFVAR_INT ("canna-func-katakana", &canna_fn_Katakana /*
+
+*/ );
+ canna_fn_Katakana = IROHA_FN_Katakana;
+
+ DEFVAR_INT ("canna-func-romaji", &canna_fn_Romaji /*
+
+*/ );
+ canna_fn_Romaji = IROHA_FN_Romaji;
+
+#ifdef CANNA_FN_BaseHiragana
+ DEFVAR_INT ("canna-func-base-hiragana", &canna_fn_BaseHiragana /*
+
+*/ );
+ canna_fn_BaseHiragana = CANNA_FN_BaseHiragana;
+
+ DEFVAR_INT ("canna-func-base-katakana", &canna_fn_BaseKatakana /*
+
+*/ );
+ canna_fn_BaseKatakana = CANNA_FN_BaseKatakana;
+
+ DEFVAR_INT ("canna-func-base-eisu", &canna_fn_BaseEisu /*
+
+*/ );
+ canna_fn_BaseEisu = CANNA_FN_BaseEisu;
+
+ DEFVAR_INT ("canna-func-base-zenkaku", &canna_fn_BaseZenkaku /*
+
+*/ );
+ canna_fn_BaseZenkaku = CANNA_FN_BaseZenkaku;
+
+ DEFVAR_INT ("canna-func-base-hankaku", &canna_fn_BaseHankaku /*
+
+*/ );
+ canna_fn_BaseHankaku = CANNA_FN_BaseHankaku;
+
+ DEFVAR_INT ("canna-func-base-kana", &canna_fn_BaseKana /*
+
+*/ );
+ canna_fn_BaseKana = CANNA_FN_BaseKana;
+
+ DEFVAR_INT ("canna-func-base-kakutei", &canna_fn_BaseKakutei /*
+
+*/ );
+ canna_fn_BaseKakutei = CANNA_FN_BaseKakutei;
+
+ DEFVAR_INT ("canna-func-base-henkan", &canna_fn_BaseHenkan /*
+
+*/ );
+ canna_fn_BaseHenkan = CANNA_FN_BaseHenkan;
+
+ DEFVAR_INT ("canna-func-base-hiragana-katakana-toggle",
+ &canna_fn_BaseHiraKataToggle /*
+
+*/ );
+ canna_fn_BaseHiraKataToggle = CANNA_FN_BaseHiraKataToggle;
+
+ DEFVAR_INT ("canna-func-base-zenkaku-hankaku-toggle",
+ &canna_fn_BaseZenHanToggle /*
+
+*/ );
+ canna_fn_BaseZenHanToggle = CANNA_FN_BaseZenHanToggle;
+
+ DEFVAR_INT ("canna-func-base-kana-eisu-toggle",
+ &canna_fn_BaseKanaEisuToggle /*
+
+*/ );
+ canna_fn_BaseKanaEisuToggle = CANNA_FN_BaseKanaEisuToggle;
+
+ DEFVAR_INT ("canna-func-base-kakutei-henkan-toggle",
+ &canna_fn_BaseKakuteiHenkanToggle /*
+
+*/ );
+ canna_fn_BaseKakuteiHenkanToggle = CANNA_FN_BaseKakuteiHenkanToggle;
+
+ DEFVAR_INT ("canna-func-base-rotate-forward",
+ &canna_fn_BaseRotateForward /*
+
+*/ );
+ canna_fn_BaseRotateForward = CANNA_FN_BaseRotateForward;
+
+ DEFVAR_INT ("canna-func-base-rotate-backward",
+ &canna_fn_BaseRotateBackward /*
+
+*/ );
+ canna_fn_BaseRotateBackward = CANNA_FN_BaseRotateBackward;
+
+#endif
+ DEFVAR_INT ("canna-func-extend-mode", &canna_fn_ExtendMode /*
+
+*/ );
+ canna_fn_ExtendMode = IROHA_FN_ExtendMode;
+
+ DEFVAR_INT ("canna-func-touroku", &canna_fn_Touroku /*
+
+*/ );
+ canna_fn_Touroku = IROHA_FN_Touroku;
+
+ DEFVAR_INT ("canna-func-hex-mode", &canna_fn_HexMode /*
+
+*/ );
+ canna_fn_HexMode = IROHA_FN_HexMode;
+
+ DEFVAR_INT ("canna-func-bushu-mode", &canna_fn_BushuMode /*
+
+*/ );
+ canna_fn_BushuMode = IROHA_FN_BushuMode;
+
+ DEFVAR_INT ("canna-func-kigo-mode", &canna_fn_KigouMode /*
+
+*/ );
+ canna_fn_KigouMode = IROHA_FN_KigouMode;
+
+#ifdef CANNA_FN_Mark
+ DEFVAR_INT ("canna-func-mark", &canna_fn_Mark /*
+
+*/ );
+ canna_fn_Mark = CANNA_FN_Mark;
+#endif
+#ifdef CANNA_FN_TemporalMode
+ DEFVAR_INT ("canna-func-temporal-mode", &canna_fn_TemporalMode /*
+
+*/ );
+ canna_fn_TemporalMode = CANNA_FN_TemporalMode;
+#endif
+
+ DEFVAR_INT ("canna-key-nfer", &canna_key_Nfer /*
+
+*/ );
+ canna_key_Nfer = IROHA_KEY_Nfer;
+
+ DEFVAR_INT ("canna-key-xfer", &canna_key_Xfer /*
+
+*/ );
+ canna_key_Xfer = IROHA_KEY_Xfer;
+
+ DEFVAR_INT ("canna-key-up", &canna_key_Up /*
+
+*/ );
+ canna_key_Up = IROHA_KEY_Up;
+
+ DEFVAR_INT ("canna-key-left", &canna_key_Left /*
+
+*/ );
+ canna_key_Left = IROHA_KEY_Left;
+
+ DEFVAR_INT ("canna-key-right", &canna_key_Right /*
+
+*/ );
+ canna_key_Right = IROHA_KEY_Right;
+
+ DEFVAR_INT ("canna-key-down", &canna_key_Down /*
+
+*/ );
+ canna_key_Down = IROHA_KEY_Down;
+
+ DEFVAR_INT ("canna-key-insert", &canna_key_Insert /*
+
+*/ );
+ canna_key_Insert = IROHA_KEY_Insert;
+
+ DEFVAR_INT ("canna-key-rollup", &canna_key_Rollup /*
+
+*/ );
+ canna_key_Rollup = IROHA_KEY_Rollup;
+
+ DEFVAR_INT ("canna-key-rolldown", &canna_key_Rolldown /*
+
+*/ );
+ canna_key_Rolldown = IROHA_KEY_Rolldown;
+
+ DEFVAR_INT ("canna-key-home", &canna_key_Home /*
+
+*/ );
+ canna_key_Home = IROHA_KEY_Home;
+
+ DEFVAR_INT ("canna-key-help", &canna_key_Help /*
+
+*/ );
+ canna_key_Help = IROHA_KEY_Help;
+
+ DEFVAR_INT ("canna-key-kp-key", &canna_key_KP_Key /*
+
+*/ );
+ canna_key_KP_Key = IROHA_KEY_KP_Key;
+
+ DEFVAR_INT ("canna-key-shift-nfer", &canna_key_Shift_Nfer /*
+
+*/ );
+ canna_key_Shift_Nfer = IROHA_KEY_Shift_Nfer;
+
+ DEFVAR_INT ("canna-key-shift-xfer", &canna_key_Shift_Xfer /*
+
+*/ );
+ canna_key_Shift_Xfer = IROHA_KEY_Shift_Xfer;
+
+ DEFVAR_INT ("canna-key-shift-up", &canna_key_Shift_Up /*
+
+*/ );
+ canna_key_Shift_Up = IROHA_KEY_Shift_Up;
+
+ DEFVAR_INT ("canna-key-shift-left", &canna_key_Shift_Left /*
+
+*/ );
+ canna_key_Shift_Left = IROHA_KEY_Shift_Left;
+
+ DEFVAR_INT ("canna-key-shift-right", &canna_key_Shift_Right /*
+
+*/ );
+ canna_key_Shift_Right = IROHA_KEY_Shift_Right;
+
+ DEFVAR_INT ("canna-key-shift-down", &canna_key_Shift_Down /*
+
+*/ );
+ canna_key_Shift_Down = IROHA_KEY_Shift_Down;
+
+ DEFVAR_INT ("canna-key-control-nfer", &canna_key_Cntrl_Nfer /*
+
+*/ );
+ canna_key_Cntrl_Nfer = IROHA_KEY_Cntrl_Nfer;
+
+ DEFVAR_INT ("canna-key-control-xfer", &canna_key_Cntrl_Xfer /*
+
+*/ );
+ canna_key_Cntrl_Xfer = IROHA_KEY_Cntrl_Xfer;
+
+ DEFVAR_INT ("canna-key-control-up", &canna_key_Cntrl_Up /*
+
+*/ );
+ canna_key_Cntrl_Up = IROHA_KEY_Cntrl_Up;
+
+ DEFVAR_INT ("canna-key-control-left", &canna_key_Cntrl_Left /*
+
+*/ );
+ canna_key_Cntrl_Left = IROHA_KEY_Cntrl_Left;
+
+ DEFVAR_INT ("canna-key-control-right", &canna_key_Cntrl_Right /*
+
+*/ );
+ canna_key_Cntrl_Right = IROHA_KEY_Cntrl_Right;
+
+ DEFVAR_INT ("canna-key-control-down", &canna_key_Cntrl_Down /*
+
+*/ );
+ canna_key_Cntrl_Down = IROHA_KEY_Cntrl_Down;
+
+ Fprovide (intern ("CANNA"));
+}
+
+#if 0
+#ifdef HAVE_SHLIB
+void unload_canna_api (void);
+void
+unload_canna_api (void)
+{
+ /* We don't need to do anything here in the sample case. However, if you
+ create any new types with INIT_LRECORD_IMPLEMENTATION (sample_type), then
+ UNDEF_LRECORD_IMPLEMENTATION (sample_type) must appear here. Also, any
+ symbols declared with DEFSYMBOL (Qsample_var), or one of its variants,
+ must have a corresponding unstaticpro_nodump (&Qsample_var) here. */
+}
+#endif
+#endif
+
+#ifdef CANNA_MULE
+/* To handle MULE internal code and EUC.
+ I assume CANNA can handle only Japanese EUC. */
+
+/* EUC multibyte string to MULE internal string */
+
+static void
+c2mu (unsigned char *cp, int l, unsigned char *mp)
+{
+ unsigned char ch, *ep = cp+l;
+
+ while ((cp < ep) && (ch = *cp))
+ {
+ if ((unsigned char) ch == ISO_CODE_SS2)
+ {
+ *mp++ = LEADING_BYTE_KATAKANA_JISX0201;
+ cp++;
+ }
+ else if ((unsigned char) ch == ISO_CODE_SS3)
+ {
+ *mp++ = LEADING_BYTE_JAPANESE_JISX0212;
+ cp++;
+ *mp++ = *cp++;
+ }
+ else if (ch & 0x80)
+ {
+ *mp++ = LEADING_BYTE_JAPANESE_JISX0208;
+ *mp++ = *cp++;
+ }
+ *mp++ = *cp++;
+ }
+ *mp = 0;
+}
+
+/* MULE internal string to EUC multibyte string */
+
+static void
+m2c (unsigned char *mp, int l, unsigned char *cp)
+{
+ unsigned char ch, *ep = mp + l;
+
+ while ((mp < ep) && (ch = *mp++))
+ {
+ switch (ch)
+ {
+ case LEADING_BYTE_KATAKANA_JISX0201:
+ *cp++ = ISO_CODE_SS2;
+ *cp++ = *mp++;
+ break;
+ case LEADING_BYTE_JAPANESE_JISX0212:
+ *cp++ = ISO_CODE_SS3;
+ case LEADING_BYTE_JAPANESE_JISX0208:
+ *cp++ = *mp++;
+ *cp++ = *mp++;
+ break;
+ default:
+ *cp++ = ch;
+ break;
+ }
+ }
+ *cp = 0;
+}
+
+#undef make_string
+
+/* make_string after converting EUC string to MULE internal string */
+static Lisp_Object
+mule_make_string (unsigned char *p, int l)
+{
+ unsigned char cbuf[4096];
+
+ c2mu (p,l,cbuf);
+ return (make_string (cbuf, strlen ((const char *) cbuf)));
+}
+
+/* return the MULE internal string length of EUC string */
+/* Modified by sb to return a character count not byte count. */
+static int
+mule_strlen (unsigned char *p, int l)
+{
+ unsigned char ch, *cp = p;
+ int len = 0;
+
+ while ((cp < p + l) && (ch = *cp))
+ {
+ if ((unsigned char) ch == ISO_CODE_SS2)
+ {
+ len++;
+ cp += 2;
+ }
+ else if ((unsigned char) ch == ISO_CODE_SS3)
+ {
+ len++;
+ cp += 3;
+ }
+ else if (ch & 0x80)
+ {
+ len++;
+ cp += 2;
+ }
+ else
+ {
+ len++;
+ cp++;
+ }
+ }
+ return (len);
+}
+
+/* count number of characters */
+static void
+count_char (unsigned char *p, int len, int pos, int rev,
+ Fixnum *clen, Fixnum *cpos, Fixnum *crev)
+{
+ unsigned char *q = p;
+
+ *clen = *cpos = *crev = 0;
+ if (len == 0) return;
+ while (q < p + pos)
+ {
+ (*clen)++;
+ (*cpos)++;
+ if (*q++ & 0x80) q++;
+ }
+ while (q < p + pos + rev)
+ {
+ (*clen)++;
+ (*crev)++;
+ if (*q++ & 0x80) q++;
+ }
+ while (q < p + len)
+ {
+ (*clen)++;
+ if (*q++ & 0x80) q++;
+ }
+}
+#endif /* CANNA_MULE */
Index: modules/canna/configure.ac
===================================================================
RCS file: modules/canna/configure.ac
diff -N modules/canna/configure.ac
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ modules/canna/configure.ac 24 Sep 2005 13:25:44 -0000
＠＠ -0,0 +1,79 ＠＠
+# Process this file with autoconf to produce a configure script.
+# This is only used for independent module building.
+AC_INIT([Sample module], [1.0], [xemacs-beta(a)xemacs.org])
+AC_PREREQ(2.53)
+AC_REVISION($Revision: 1.1 $)
+AC_COPYRIGHT([Configuration script for the sample module.
+Copyright (C) 2002 Jerry James.
+
+This file is part of XEmacs.
+
+XEmacs is free software; you can redistribute it and/or modify it
+under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your
+option) any later version.
+
+XEmacs is distributed in the hope that it will be useful, but
+WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with XEmacs; see the file COPYING. If not, write to the Free
+Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
+02111-1307, USA.])
+
+AC_CONFIG_SRCDIR([sample.c])
+AC_PROG_CC
+AC_PROG_INSTALL
+AC_SUBST(CFLAGS)
+AC_SUBST(LDFLAGS)
+
+# Find ELLCC
+AC_ARG_VAR([ELLCC], [The path to the ellcc module compiler])
+AC_PATH_PROG([ELLCC], [ellcc], ["FAIL"])
+AS_IF([test "$ELLCC" = "FAIL"], [AS_ERROR([Cannot find ellcc])])
+
+# Insert autoconf macros here to find the headers, libraries, other
+# programs, etc. needed by your module. If other libraries will be linked
+# with your module, then after detecting them, use a line of this form last:
+
+# detect canna
+canna_includes_found=no
+if test "$with_canna" != "no"; then
+ AC_CHECK_HEADER(canna/jrkanji.h,canna_includes_found=yes)
+fi
+if test "$canna_includes_found" = "no" -a "$with_canna" != "no" -a \
+ -d "/usr/local/canna/include"; then
+ save_c_switch_site="$c_switch_site"
+ c_switch_site="$c_switch_site -I/usr/local/canna/include"
+ AC_CHECK_HEADER(canna/jrkanji.h,canna_includes_found=yes)
+ if test "$canna_includes_found" != "yes"; then
+ c_switch_site="$save_c_switch_site"
+ with_canna="no"
+ fi
+fi
+
+test -z "$with_canna" && { AC_CHECK_HEADER(canna/RK.h, , with_canna=no) }
+test -z "$with_canna" && { AC_CHECK_LIB(RKC, RkBgnBun, [:],with_canna=no) }
+test -z "$with_canna" && { AC_CHECK_LIB(canna,jrKanjiControl,[:],with_canna=no) }
+test -z "$with_canna" && with_canna=yes
+if test "$with_canna" = "yes"; then
+ AC_DEFINE(HAVE_CANNA)
+ LIBS="-lcanna -lRKC"
+fi
+
+AC_SUBST(canna_libs, "$LIBS")
+
+# This part should appear unchanged in every module configure.ac
+AC_SUBST(PROGNAME, "module")
+AC_SUBST(MOD_CC, "＠ELLCC＠")
+AC_SUBST(MODARCHDIR, "\$(shell ＠ELLCC＠ --mod-archdir)")
+AC_SUBST(MAKE_DOCFILE, "\$(MODARCHDIR)/make-docfile")
+AC_SUBST(MODCFLAGS, "\$(CFLAGS) --mode=compile --mod-output=\$＠ -I\$(MODARCHDIR)/include")
+AC_SUBST(INSTALLPATH, "\$(shell ＠ELLCC＠ --mod-site-location)")
+AC_SUBST(MOD_INSTALL_PROGRAM, "＠INSTALL_PROGRAM＠")
+AC_SUBST(OBJECT_TO_BUILD, "\$(MODNAME).ell")
+
+AC_CONFIG_FILES([Makefile.in Makefile])
+AC_OUTPUT
Index: modules/canna/install-sh
===================================================================
RCS file: modules/canna/install-sh
diff -N modules/canna/install-sh
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ modules/canna/install-sh 24 Sep 2005 13:25:44 -0000
＠＠ -0,0 +1,251 ＠＠
+#!/bin/sh
+#
+# install - install a program, script, or datafile
+# This comes from X11R5 (mit/util/scripts/install.sh).
+#
+# Copyright 1991 by the Massachusetts Institute of Technology
+#
+# Permission to use, copy, modify, distribute, and sell this software and its
+# documentation for any purpose is hereby granted without fee, provided that
+# the above copyright notice appear in all copies and that both that
+# copyright notice and this permission notice appear in supporting
+# documentation, and that the name of M.I.T. not be used in advertising or
+# publicity pertaining to distribution of the software without specific,
+# written prior permission. M.I.T. makes no representations about the
+# suitability of this software for any purpose. It is provided "as is"
+# without express or implied warranty.
+#
+# Calling this script install-sh is preferred over install.sh, to prevent
+# `make' implicit rules from creating a file called install from it
+# when there is no Makefile.
+#
+# This script is compatible with the BSD install script, but was written
+# from scratch. It can only install one file at a time, a restriction
+# shared with many OS's install programs.
+
+
+# set DOITPROG to echo to test this script
+
+# Don't use :- since 4.3BSD and earlier shells don't like it.
+doit="${DOITPROG-}"
+
+
+# put in absolute paths if you don't have them in your path; or use env. vars.
+
+mvprog="${MVPROG-mv}"
+cpprog="${CPPROG-cp}"
+chmodprog="${CHMODPROG-chmod}"
+chownprog="${CHOWNPROG-chown}"
+chgrpprog="${CHGRPPROG-chgrp}"
+stripprog="${STRIPPROG-strip}"
+rmprog="${RMPROG-rm}"
+mkdirprog="${MKDIRPROG-mkdir}"
+
+transformbasename=""
+transform_arg=""
+instcmd="$mvprog"
+chmodcmd="$chmodprog 0755"
+chowncmd=""
+chgrpcmd=""
+stripcmd=""
+rmcmd="$rmprog -f"
+mvcmd="$mvprog"
+src=""
+dst=""
+dir_arg=""
+
+while [ x"$1" != x ]; do
+ case $1 in
+ -c) instcmd="$cpprog"
+ shift
+ continue;;
+
+ -d) dir_arg=true
+ shift
+ continue;;
+
+ -m) chmodcmd="$chmodprog $2"
+ shift
+ shift
+ continue;;
+
+ -o) chowncmd="$chownprog $2"
+ shift
+ shift
+ continue;;
+
+ -g) chgrpcmd="$chgrpprog $2"
+ shift
+ shift
+ continue;;
+
+ -s) stripcmd="$stripprog"
+ shift
+ continue;;
+
+ -t=*) transformarg=`echo $1 | sed 's/-t=//'`
+ shift
+ continue;;
+
+ -b=*) transformbasename=`echo $1 | sed 's/-b=//'`
+ shift
+ continue;;
+
+ *) if [ x"$src" = x ]
+ then
+ src=$1
+ else
+ # this colon is to work around a 386BSD /bin/sh bug
+ :
+ dst=$1
+ fi
+ shift
+ continue;;
+ esac
+done
+
+if [ x"$src" = x ]
+then
+ echo "install: no input file specified"
+ exit 1
+else
+ :
+fi
+
+if [ x"$dir_arg" != x ]; then
+ dst=$src
+ src=""
+
+ if [ -d $dst ]; then
+ instcmd=:
+ chmodcmd=""
+ else
+ instcmd=$mkdirprog
+ fi
+else
+
+# Waiting for this to be detected by the "$instcmd $src $dsttmp" command
+# might cause directories to be created, which would be especially bad
+# if $src (and thus $dsttmp) contains '*'.
+
+ if [ -f "$src" ] || [ -d "$src" ]
+ then
+ :
+ else
+ echo "install: $src does not exist"
+ exit 1
+ fi
+
+ if [ x"$dst" = x ]
+ then
+ echo "install: no destination specified"
+ exit 1
+ else
+ :
+ fi
+
+# If destination is a directory, append the input filename; if your system
+# does not like double slashes in filenames, you may need to add some logic
+
+ if [ -d $dst ]
+ then
+ dst="$dst"/`basename $src`
+ else
+ :
+ fi
+fi
+
+## this sed command emulates the dirname command
+dstdir=`echo $dst | sed -e 's,[^/]*$,,;s,/$,,;s,^$,.,'`
+
+# Make sure that the destination directory exists.
+# this part is taken from Noah Friedman's mkinstalldirs script
+
+# Skip lots of stat calls in the usual case.
+if [ ! -d "$dstdir" ]; then
+defaultIFS='
+ '
+IFS="${IFS-${defaultIFS}}"
+
+oIFS="${IFS}"
+# Some sh's can't handle IFS=/ for some reason.
+IFS='%'
+set - `echo ${dstdir} | sed -e 's＠/＠%＠g' -e 's＠^%＠/＠'`
+IFS="${oIFS}"
+
+pathcomp=''
+
+while [ $# -ne 0 ] ; do
+ pathcomp="${pathcomp}${1}"
+ shift
+
+ if [ ! -d "${pathcomp}" ] ;
+ then
+ $mkdirprog "${pathcomp}"
+ else
+ :
+ fi
+
+ pathcomp="${pathcomp}/"
+done
+fi
+
+if [ x"$dir_arg" != x ]
+then
+ $doit $instcmd $dst &&
+
+ if [ x"$chowncmd" != x ]; then $doit $chowncmd $dst; else : ; fi &&
+ if [ x"$chgrpcmd" != x ]; then $doit $chgrpcmd $dst; else : ; fi &&
+ if [ x"$stripcmd" != x ]; then $doit $stripcmd $dst; else : ; fi &&
+ if [ x"$chmodcmd" != x ]; then $doit $chmodcmd $dst; else : ; fi
+else
+
+# If we're going to rename the final executable, determine the name now.
+
+ if [ x"$transformarg" = x ]
+ then
+ dstfile=`basename $dst`
+ else
+ dstfile=`basename $dst $transformbasename |
+ sed $transformarg`$transformbasename
+ fi
+
+# don't allow the sed command to completely eliminate the filename
+
+ if [ x"$dstfile" = x ]
+ then
+ dstfile=`basename $dst`
+ else
+ :
+ fi
+
+# Make a temp file name in the proper directory.
+
+ dsttmp=$dstdir/#inst.$$#
+
+# Move or copy the file name to the temp name
+
+ $doit $instcmd $src $dsttmp &&
+
+ trap "rm -f ${dsttmp}" 0 &&
+
+# and set any options; do chmod last to preserve setuid bits
+
+# If any of these fail, we abort the whole thing. If we want to
+# ignore errors from any of these, just make sure not to ignore
+# errors from the above "$doit $instcmd $src $dsttmp" command.
+
+ if [ x"$chowncmd" != x ]; then $doit $chowncmd $dsttmp; else :;fi &&
+ if [ x"$chgrpcmd" != x ]; then $doit $chgrpcmd $dsttmp; else :;fi &&
+ if [ x"$stripcmd" != x ]; then $doit $stripcmd $dsttmp; else :;fi &&
+ if [ x"$chmodcmd" != x ]; then $doit $chmodcmd $dsttmp; else :;fi &&
+
+# Now rename the file to the real destination.
+
+ $doit $rmcmd -f $dstdir/$dstfile &&
+ $doit $mvcmd $dsttmp $dstdir/$dstfile
+
+fi &&
+
+
+exit 0
Index: src/Makefile.in.in
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/Makefile.in.in,v
retrieving revision 1.112.2.4
diff -u -r1.112.2.4 Makefile.in.in
--- src/Makefile.in.in 13 Jul 2005 04:46:22 -0000 1.112.2.4
+++ src/Makefile.in.in 24 Sep 2005 13:25:50 -0000
＠＠ -199,8 +199,8 ＠＠
mule_objs=mule-ccl.o mule-charset.o mule-coding.o
#endif
-#ifdef HAVE_CANNA
-mule_canna_objs=mule-canna.o
+#if defined(HAVE_CANNA) && !defined(HAVE_SHLIB)
+mule_canna_objs=$(BLDMODULES)/canna/cannamod.o
#endif
#ifdef HAVE_WNN
Index: src/emacs.c
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/emacs.c,v
retrieving revision 1.150.2.6
diff -u -r1.150.2.6 emacs.c
--- src/emacs.c 13 Jul 2005 04:46:34 -0000 1.150.2.6
+++ src/emacs.c 24 Sep 2005 13:25:51 -0000
＠＠ -1649,8 +1649,8 ＠＠
#ifdef HAVE_WNN
syms_of_mule_wnn ();
#endif
-#ifdef HAVE_CANNA
- syms_of_mule_canna ();
+#if defined(HAVE_CANNA) && !defined (HAVE_SHLIB)
+ syms_of_canna_api ();
#endif /* HAVE_CANNA */
#endif /* MULE */
＠＠ -2223,8 +2223,8 ＠＠
#ifdef HAVE_WNN
vars_of_mule_wnn ();
#endif
-#ifdef HAVE_CANNA
- vars_of_mule_canna ();
+#if defined(HAVE_CANNA) && !defined (HAVE_SHLIB)
+ vars_of_canna_api ();
#endif /* HAVE_CANNA */
#endif /* MULE */
Index: src/mule-canna.c
===================================================================
RCS file: src/mule-canna.c
diff -N src/mule-canna.c
--- src/mule-canna.c 25 Nov 2004 12:44:15 -0000 1.20.2.1
+++ /dev/null 1 Jan 1970 00:00:00 -0000
＠＠ -1,1924 +0,0 ＠＠
-/* CANNA interface -*- coding: euc-jp -*-
-
- Copyright (C) 1995 Free Software Foundation, Inc.
- Copyright (C) 1995 Sun Microsystems, Inc.
-
-This file is part of XEmacs.
-
-XEmacs is free software; you can redistribute it and/or modify it
-under the terms of the GNU General Public License as published by the
-Free Software Foundation; either version 2, or (at your option) any
-later version.
-
-XEmacs is distributed in the hope that it will be useful, but WITHOUT
-ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
-FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
-for more details.
-
-You should have received a copy of the GNU General Public License
-along with XEmacs; see the file COPYING. If not, write to
-the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-Boston, MA 02111-1307, USA. */
-
-/* Synched up with: Mule 2.3. Not in FSF. */
-
-/* Japanese comments were translated 2000-12-06 by Stephen Turnbull
- <stephen(a)xemacs.org>. I haven't verified that the Japanese comments
- were correct. YMMV, NO WARRANTY, not even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. (^^;;; as the
- Japanese say. */
-
-/*
-
- Authors: Akira Kon (kon(a)uxd.fc.nec.co.jp)
- Ichiro Hirakura (hirakura(a)uxd.fc.nec.co.jp)
-
- Functions defined in this file are
-
- (canna-key-proc key)
- key: single STRING
- RETURNS:
- Length of converted string if no error occurs.
- Error string if error occurs.
- DESCRIPTION:
- Convert a key input to a set of strings. The
- strings contain both well-formed string and a
- intermediate result to show the translation
- information to a user. converted strings are
- stored in specific variables.
-
- (canna-initialize)
- RETURNS:
- List of the following things:
- - list of keys to toggle Japanese-mode
- - error message
- - list of warning messages
- DESCRIPTION:
- Initialize ``canna'', which is a kana-to-kanji
- converter for XEmacs. The first arg
- specifies if inserting space character between
- BUNSETSU when candidates are displayed. The
- second arg specifies server. The third arg
- specifies a file which will be used as a
- customization description. If nil is
- specified for each arg, the default value will
- be used.
-
- (canna-finalize)
- RETURNS:
- list of warning messages
- DESCRIPTION:
- finalize ``canna'', which is a kana-to-kanji
- converter for XEmacs. This cause to write
- miscellaneous informations to kana-to-kanji
- dictionary.
-
- (canna-touroku-string string)
- string:
- String to register to a dictionary.
- RETURNS:
- The same thing returns as canna-key-proc does.
- DESCRIPTION:
- Register Kanji words into kana-to-kanji
- conversion dictionary.
-
- (canna-set-width width)
- width:
- Column width of the place where the candidates
- of kana-to-kanji conversion will be shown.
- RETURNS:
- nil
- DESCRIPTION:
- Set status-line width information, which is
- used to display kanji candidates.
-
- (canna-change-mode num)
- num:
- The mode number of Canna.
- RETURNS:
- The same thing returns as canna-key-proc does.
- DESCRIPTION:
- Change Japanese pre-edit mode.
-
- (canna-store-yomi yomi roma)
- yomi:
- ``Yomi'' to be stored.
- roma:
- ``Romaji'' which corresponds to the ``Yomi''.
- RETURNS:
- The same thing returns as canna-key-proc does.
- DESCRIPTION:
- Store yomi characters as a YOMI of
- kana-to-kanji conversion.
-
- (canna-do-function num ch)
- num:
- A function number to be called.
- ch:
- A character will be specified in order to feed
- the character to the function if the function
- needs a input character.
- RETURNS:
- The same thing returns as canna-key-proc does.
- DESCRIPTION:
- Do specified function at current mode.
-
- (canna-parse string)
- string:
- To be parsed.
- RETURNS:
- List of warning messages.
- DESCRIPTION:
- Parse customize string.
-
- (canna-query-mode)
- RETURNS:
- A string which indicate the current mode.
- DESCRIPTION:
- Get current mode string.
-
- Functions below are used for KKCP compatible library. These
- functions provides a base kana-to-kanji conversion system for EGG.
- These functions may be used when users want to change the engine
- from Wnn to Canna without changing user interface of Japanese input.
-
- (canna-henkan-begin)
- (canna-henkan-next)
- (canna-bunsetu-henkou)
- (canna-henkan-kakutei)
- (canna-henkan-end)
- (canna-henkan-quit)
-
- */
-
-#include <config.h>
-#include "lisp.h"
-
-#include "buffer.h"
-#include "file-coding.h"
-
-#ifdef CANNA2
-#define IROHA_BC
-#define CANNA_NEW_WCHAR_AWARE
-#include "canna/jrkanji.h"
-#include "canna/RK.h"
-#else /* !CANNA2 */
-#include "iroha/jrkanji.h"
-#include "iroha/RK.h"
-#endif /* !CANNA2 */
-extern char *jrKanjiError;
-extern int (*jrBeepFunc) (void);
-
-/* #### is this global really necessary? */
-#define KEYTOSTRSIZE 2048
-static char key_buffer[KEYTOSTRSIZE];
-static char **warning;
-
-static int canna_empty_info, canna_through_info;
-static int canna_underline;
-static int canna_inhibit_hankakukana;
-
-static Lisp_Object Vcanna_kakutei_string;
-static Lisp_Object Vcanna_kakutei_yomi;
-static Lisp_Object Vcanna_kakutei_romaji;
-static Lisp_Object Vcanna_henkan_string;
-static Fixnum canna_henkan_length;
-static Fixnum canna_henkan_revPos;
-static Fixnum canna_henkan_revLen;
-static Lisp_Object Vcanna_ichiran_string;
-static Fixnum canna_ichiran_length;
-static Fixnum canna_ichiran_revPos;
-static Fixnum canna_ichiran_revLen;
-static Lisp_Object Vcanna_mode_string;
-
-static int IRCP_context;
-
-static Lisp_Object storeResults (char *, int, jrKanjiStatus *);
-static Lisp_Object kanjiYomiList (int, int);
-static Lisp_Object CANNA_mode_keys (void);
-
-#ifdef CANNA_MULE
-static void m2c (unsigned char *, int, unsigned char *);
-static Lisp_Object mule_make_string (unsigned char *, int);
-static int mule_strlen (unsigned char *, int);
-static void count_char (unsigned char *,int, int, int, Fixnum *, Fixnum *, Fixnum *);
-#define make_string mule_make_string
-#endif
-
-/* Lisp functions definition */
-
-DEFUN ("canna-key-proc", Fcanna_key_proc, 1, 1, 0, /*
-Translate a key input to a set of strings. The strings contain both
-well-formed string and intermediate result to show the translation
-information to a user. Converted strings are stored in specific
-variables.
-*/
- (ch))
-{
- jrKanjiStatus ks;
- int len;
-
- CHECK_CHAR_COERCE_INT (ch);
- len = jrKanjiString (0, XCHAR (ch), key_buffer, KEYTOSTRSIZE, &ks);
- return storeResults (key_buffer, len, &ks);
-}
-
-static Lisp_Object
-storeResults (char *buf, int len, jrKanjiStatus *ks)
-{
- Lisp_Object val = Qnil;
-
- if (len < 0)
- { /* Error detected */
- val = make_string ((unsigned char*) jrKanjiError, strlen (jrKanjiError));
- }
- else
- {
- /* ³΄〓¤¿〓»〓the confirmed string) */
- Vcanna_kakutei_string = make_string ((unsigned char *) buf, len);
- val = make_int (len);
- /* ³΄〓¤¿〓»〓〓¤〓ξ〓..
- (info about the reading of the confirmed string) */
- Vcanna_kakutei_yomi = Vcanna_kakutei_romaji = Qnil;
- if (ks->info & KanjiYomiInfo)
- {
- char *p = buf + len + 1;
- int yomilen = strlen (p);
-
- if (len + yomilen + 1 < KEYTOSTRSIZE)
- {
- int yomilen2;
-
- Vcanna_kakutei_yomi =
- make_string ((unsigned char *) p, yomilen); /* 〓¤〓(reading) */
- p += yomilen + 1;
- yomilen2 = strlen (p);
- if (len + yomilen + yomilen2 + 2 < KEYTOSTRSIZE)
- {
- Vcanna_kakutei_romaji =
- make_string ((unsigned char *) p, yomilen2);
- /* ¥〓¥〓〓manization) */
- }
- }
- }
-
-
- /* ¸〓½¼¨¤Ί¸»〓¤¹¡£
- (string for displaying candidate translations) */
- Vcanna_henkan_string = Qnil;
- if (ks->length >= 0)
- {
- Vcanna_henkan_string = make_string (ks->echoStr, ks->length);
-#ifndef CANNA_MULE
- canna_henkan_length = ks->length;
- canna_henkan_revPos = ks->revPos;
- canna_henkan_revLen = ks->revLen;
-#else /* CANNA_MULE */
- if (canna_underline)
- {
- canna_henkan_length = mule_strlen (ks->echoStr,ks->length);
- canna_henkan_revPos = mule_strlen (ks->echoStr,ks->revPos);
- canna_henkan_revLen = mule_strlen (ks->echoStr+ks->revPos,
- ks->revLen);
- }
- else
- {
- count_char (ks->echoStr, ks->length, ks->revPos, ks->revLen,
- &canna_henkan_length, &canna_henkan_revPos,
- &canna_henkan_revLen);
- }
-#endif /* CANNA_MULE */
- }
-
- /* °〓¤ξ고(information about the echo area menu) */
- Vcanna_ichiran_string = Qnil;
- if (ks->info & KanjiGLineInfo && ks->gline.length >= 0)
- {
- Vcanna_ichiran_string = make_string (ks->gline.line,
- ks->gline.length);
-#ifndef CANNA_MULE
- canna_ichiran_length = ks->gline.length;
- canna_ichiran_revPos = ks->gline.revPos;
- canna_ichiran_revLen = ks->gline.revLen;
-#else /* CANNA_MULE */
- count_char (ks->gline.line, ks->gline.length,
- ks->gline.revPos, ks->gline.revLen,
- &canna_ichiran_length,
- &canna_ichiran_revPos, &canna_ichiran_revLen);
-#endif /* CANNA_MULE */
- }
-
- /* ¥〓¥ɤξ고(mode information) */
- Vcanna_mode_string = Qnil;
- if (ks->info & KanjiModeInfo)
- {
- Vcanna_mode_string =
- make_string (ks->mode, strlen ((const char *) ks->mode));
- }
-
- /* ¤½¤〓¾¤ξ고(other information) */
- canna_empty_info = (ks->info & KanjiEmptyInfo) ? 1 : 0;
- canna_through_info = (ks->info & KanjiThroughInfo) ? 1 : 0;
- }
-
- return val;
-}
-
-DEFUN ("canna-set-bunsetsu-kugiri", Fcanna_set_bunsetsu, 0, 1, 0, /*
-This function sets the clause separator.
-If non-nil value is specified, the white space separator will be used.
-No separator will be used otherwise.
-*/
- (num))
-{
- int kugiri; /* 〓!¶〓¤〓¤¹¤〓¡© (display clause separator?) */
-
- kugiri = NILP (num) ? 0 : 1;
-
- jrKanjiControl (0, KC_SETBUNSETSUKUGIRI, (char *) kugiri);
-
- return Qnil;
-}
-
-/* For whatever reason, calling Fding directly from libCanna loses */
-static int
-call_Fding (void)
-{
- Fding (Qnil, Qnil, Qnil);
- return 0;
-}
-
-DEFUN ("canna-initialize", Fcanna_initialize, 0, 3, 0, /*
-Initialize ``canna'', which is a kana-to-kanji converter for XEmacs.
-The first arg specifies if inserting space character between BUNSETSU when
-candidates are displayed.
-The second arg specifies server.
-The third arg specifies a file which will be used as a customization
-description.
-If nil is specified for each arg, the default value will be used.
-*/
- (num, server, rcfile))
-{
- Lisp_Object val;
- int res;
- unsigned char **p, **q;
-
- int kugiri; /* 〓!¶〓¤〓¤¹¤〓¡© (display clause separator?) */
-
- IRCP_context = -1;
-
- if (NILP (num))
- {
- kugiri = 1;
- }
- else
- {
- CHECK_INT (num);
- kugiri = XINT (num);
- kugiri = (kugiri == 1) ? 1 : 0;
- }
-
- if (NILP (server))
- {
- jrKanjiControl (0, KC_SETSERVERNAME, (char *) 0);
- }
- else
- {
- char servername[256];
-
- CHECK_STRING (server);
- strncpy (servername, (const char *) XSTRING_DATA (server),
- XSTRING_LENGTH (server));
- servername[XSTRING_LENGTH (server)] = '\0';
- jrKanjiControl (0, KC_SETSERVERNAME, servername);
- }
-
- if (NILP (rcfile))
- {
- jrKanjiControl (0, KC_SETINITFILENAME, (char *) 0);
- }
- else
- {
- char rcname[256];
-
- CHECK_STRING (rcfile);
- strncpy (rcname, (const char *) XSTRING_DATA (rcfile),
- XSTRING_LENGTH (rcfile));
- rcname[XSTRING_LENGTH (rcfile)] = '\0';
- jrKanjiControl (0, KC_SETINITFILENAME, rcname);
- }
-
- warning = (char **) 0;
-#ifdef nec_ews_svr4
- stop_polling ();
-#endif /* nec_ews_svr4 */
- res = jrKanjiControl (0, KC_INITIALIZE, (char *)&warning);
-#ifdef nec_ews_svr4
- start_polling ();
-#endif /* nec_ews_svr4 */
- val = Qnil;
- if (warning)
- {
- for (p = q = (unsigned char **) warning ; *q ; q++)
- ;
- while (p < q)
- {
- q--;
- val = Fcons (make_string (*q, strlen ((const char *) *q)), val);
- }
- }
- val = Fcons (val, Qnil);
-
- if (res == -1)
- {
- val = Fcons (make_string ((unsigned char *) jrKanjiError,
- strlen (jrKanjiError)), val);
- /* ¥¤¥〓·¥〓¥¤¥º¤〓ºǔ¤·¤¿¾〓¡£ (on initialization failure) */
- return Fcons (Qnil, val);
- }
- else
- {
- jrBeepFunc = call_Fding;
-
-#ifdef KC_SETAPPNAME
-#ifndef CANNA_MULE
- jrKanjiControl (0, KC_SETAPPNAME, "nemacs");
-#else /* CANNA_MULE */
- jrKanjiControl (0, KC_SETAPPNAME, "mule");
-#endif /* CANNA_MULE */
-#endif /* KC_SETAPPNAME */
-
- jrKanjiControl (0, KC_SETBUNSETSUKUGIRI, (char *) kugiri);
- jrKanjiControl (0, KC_SETWIDTH, (char *) 78);
-#ifndef CANNA_MULE
- jrKanjiControl (0, KC_INHIBITHANKAKUKANA, (char *) 1);
-#else
- /* mule ¤$俤鈾³〓«¥¿¥«¥〓〓¤¨¤〓 (Mule can use half-width katakana) */
- if (canna_inhibit_hankakukana)
- jrKanjiControl (0, KC_INHIBITHANKAKUKANA, (char *) 1);
-#endif
- jrKanjiControl (0, KC_YOMIINFO, (char *) 2); /* ¢¨£²: ¥〓¥〓〓〓¤¹
- (*2: return to
- romanized form) */
- val = Fcons (Qnil, val);
- return Fcons (CANNA_mode_keys (), val);
- }
-}
-
-DEFUN ("canna-finalize", Fcanna_finalize, 0, 0, 0, /*
-finalize ``canna'', which is a kana-to-kanji converter for XEmacs.
-This cause to write miscellaneous informations to kana-to-kanji dictionary.
-*/
- ())
-{
- Lisp_Object val;
- unsigned char **p;
-
- jrKanjiControl (0, KC_FINALIZE, (char *)&warning);
-
- val = Qnil;
- if (warning)
- {
- for (p = (unsigned char**) warning ; *p ; p++)
- {
- val = Fcons (make_string (*p, strlen ((const char *) *p)), val);
- }
- }
- val = Fcons (val, Qnil);
- IRCP_context = -1;
- return val;
-}
-
-DEFUN ("canna-touroku-string", Fcanna_touroku_string, 1, 1, 0, /*
-Register Kanji words into kana-to-kanji conversion dictionary.
-*/
- (str))
-{
- jrKanjiStatusWithValue ksv;
- jrKanjiStatus ks;
-#ifdef CANNA_MULE
- unsigned char cbuf[4096];
-#endif
-
- CHECK_STRING (str);
- ksv.buffer = (unsigned char *) key_buffer;
- ksv.bytes_buffer = KEYTOSTRSIZE;
-#ifndef CANNA_MULE
- ks.echoStr = XSTRING_DATA (str);
- ks.length = XSTRING_LENGTH (str);
-#else /* CANNA_MULE */
- m2c (XSTRING_DATA (str), XSTRING_LENGTH (str), cbuf);
- ks.echoStr = cbuf;
- ks.length = strlen ((const char *) cbuf);
-#endif /* CANNA_MULE */
- ksv.ks = &ks;
- jrKanjiControl (0, KC_DEFINEKANJI, (char *)&ksv);
- return storeResults (key_buffer, ksv.val, ksv.ks);
-}
-
-DEFUN ("canna-set-width", Fcanna_set_width, 1, 1, 0, /*
-Set status-line width information, which is used to display
-kanji candidates.
-*/
- (num))
-{
- CHECK_INT (num);
-
- jrKanjiControl (0, KC_SETWIDTH, (char *) XINT (num));
- return Qnil;
-}
-
-DEFUN ("canna-change-mode", Fcanna_change_mode, 1, 1, 0, /*
-Change Japanese pre-edit mode.
-*/
- (num))
-{
- jrKanjiStatusWithValue ksv;
- jrKanjiStatus ks;
-
- CHECK_INT (num);
-
- ksv.buffer = (unsigned char *) key_buffer;
- ksv.bytes_buffer = KEYTOSTRSIZE;
- ksv.ks = &ks;
- ksv.val = XINT (num);
- jrKanjiControl (0, KC_CHANGEMODE, (char *)&ksv);
- return storeResults (key_buffer, ksv.val, ksv.ks);
-}
-
-static Lisp_Object
-CANNA_mode_keys (void)
-{
-#define CANNAWORKBUFSIZE 32
- char xxx[CANNAWORKBUFSIZE];
- Lisp_Object val;
- int i, n;
-
- n = jrKanjiControl (0, KC_MODEKEYS, xxx);
- val = Qnil;
- for (i = n ; i > 0 ;)
- {
- --i;
- /* !!#### something fucked here */
- val = Fcons (make_char ((int)(0xFF & (unsigned char) xxx[i])), val);
- }
- return val;
-}
-
-DEFUN ("canna-store-yomi", Fcanna_store_yomi, 1, 2, 0, /*
-Store yomi characters as a YOMI of kana-to-kanji conversion.
-*/
- (yomi, roma))
-{
- jrKanjiStatusWithValue ksv;
- jrKanjiStatus ks;
-
- CHECK_STRING (yomi);
-#ifndef CANNA_MULE
- strncpy (key_buffer, XSTRING_DATA (yomi), XSTRING_LENGTH (yomi));
- ks.length = XSTRING_LENGTH (yomi);
- key_buffer[ks.length] = '\0';
-#else /* CANNA_MULE */
- m2c (XSTRING_DATA (yomi), XSTRING_LENGTH (yomi),
- (unsigned char *) key_buffer);
- ks.length = strlen (key_buffer);
-#endif /* CANNA_MULE */
-
- if (NILP (roma))
- {
- ks.mode = 0;
- }
- else
- {
- CHECK_STRING (roma);
-
-#ifndef CANNA_MULE
- strncpy (key_buffer + XSTRING_LENGTH (yomi) + 1, XSTRING_DATA (roma),
- XSTRING_LENGTH (roma));
- key_buffer[XSTRING_LENGTH (yomi) + 1 + XSTRING_LENGTH (roma)] = '\0';
- ks.mode = (unsigned char *)(key_buffer + XSTRING_LENGTH (yomi) + 1);
-#else /* CANNA_MULE */
- ks.mode = (unsigned char *)(key_buffer + ks.length + 1);
- m2c (XSTRING_DATA (roma), XSTRING_LENGTH (roma),
- (unsigned char *) ks.mode);
-#endif /* CANNA_MULE */
- }
-
- ks.echoStr = (unsigned char *) key_buffer;
- ksv.buffer = (unsigned char *) key_buffer; /* 〓Í〓 (return value) */
- ksv.bytes_buffer = KEYTOSTRSIZE;
- ksv.ks = &ks;
-
- jrKanjiControl (0, KC_STOREYOMI, (char *)&ksv);
-
- return storeResults (key_buffer, ksv.val, ksv.ks);
-}
-
-DEFUN ("canna-do-function", Fcanna_do_function, 1, 2, 0, /*
-Do specified function at current mode.
-*/
- (num, ch))
-{
- jrKanjiStatusWithValue ksv;
- jrKanjiStatus ks;
-
- CHECK_INT (num);
-
- if (NILP (ch))
- {
- *key_buffer = '＠';
- }
- else
- {
- CHECK_CHAR (ch);
- *key_buffer = XCHAR (ch);
- }
-
- ksv.buffer = (unsigned char *) key_buffer;
- ksv.bytes_buffer = KEYTOSTRSIZE;
- ksv.ks = &ks;
- ksv.val = XINT (num);
- jrKanjiControl (0, KC_DO, (char *) &ksv);
- return storeResults (key_buffer, ksv.val, ksv.ks);
-}
-
-DEFUN ("canna-parse", Fcanna_parse, 1, 1, 0, /*
-Parse customize string.
-*/
- (str))
-{
- Lisp_Object val;
- unsigned char **p;
- int n;
-
- CHECK_STRING (str);
-
-#ifndef CANNA_MULE
- strncpy (key_buffer, XSTRING_DATA (str), XSTRING_LENGTH (str));
- key_buffer[XSTRING_LENGTH (str)] = '\0';
-#else /* CANNA_MULE */
- m2c (XSTRING_DATA (str), XSTRING_LENGTH (str), (unsigned char *) key_buffer);
-#endif /* CANNA_MULE */
- p = (unsigned char**) key_buffer;
- n = jrKanjiControl (0, KC_PARSE, (char *) &p);
- val = Qnil;
- while (n > 0)
- {
- n--;
- val = Fcons (make_string (p[n], strlen ((const char *) p[n])), val);
- }
- return val;
-}
-
-DEFUN ("canna-query-mode", Fcanna_query_mode, 0, 0, 0, /*
-Get current mode string.
-*/
- ())
-{
- char buf[256];
-
- jrKanjiControl (0, KC_QUERYMODE, buf);
- return make_string ((unsigned char *) buf, strlen (buf));
-}
-
-/*
- * Functions following this line are for KKCP interface compatible
- * library. These functions may be used by MILK system.
- */
-
-#define RKBUFSIZE 1024
-
-static unsigned char yomibuf[RKBUFSIZE];
-static short kugiri[RKBUFSIZE / 2];
-
-static int
-confirmContext (void)
-{
- if (IRCP_context < 0)
- {
- int context;
-
- if ((context = jrKanjiControl (0, KC_GETCONTEXT, (char *) 0)) == -1)
- {
- return 0;
- }
- IRCP_context = context;
- }
- return 1;
-}
-
-static int
-byteLen (int bun, int len)
-{
- int i = 0, offset = 0, ch;
-
- if (0 <= bun && bun < RKBUFSIZE)
- {
- offset = kugiri[bun];
- }
-
- while (len-- > 0 && (ch = (int) yomibuf[offset + i]))
- {
- i++;
- if (ch & 0x80)
- {
- i++;
- }
- }
- return i;
-}
-
-DEFUN ("canna-henkan-begin", Fcanna_henkan_begin, 1, 1, 0, /*
-Return the result of kana-to-kanji conversion.
-Clause separator is set.
-*/
- (yomi))
-{
- int nbun;
-
- CHECK_STRING (yomi);
- if (confirmContext () == 0)
- {
- return Qnil;
- }
-#ifndef CANNA_MULE
- strncpy (yomibuf, XSTRING_DATA (yomi), XSTRING_LENGTH (yomi));
- yomibuf[XSTRING_LENGTH (yomi)] = '\0';
- nbun = RkBgnBun (IRCP_context, XSTRING_DATA (yomi), XSTRING_LENGTH (yomi),
- (RK_XFER << RK_XFERBITS) | RK_KFER);
-#else /* CANNA_MULE */
- m2c (XSTRING_DATA (yomi), XSTRING_LENGTH (yomi), yomibuf);
- nbun = RkBgnBun (IRCP_context, (char *) yomibuf,
- strlen ((const char *) yomibuf),
- (RK_XFER << RK_XFERBITS) | RK_KFER);
-#endif /* CANNA_MULE */
-
- return kanjiYomiList (IRCP_context, nbun);
-}
-
-static Lisp_Object
-kanjiYomiList (int context, int nbun)
-{
- Lisp_Object val, res = Qnil;
- unsigned char RkBuf[RKBUFSIZE];
- int len, i, total;
-
- for (i = nbun ; i > 0 ; )
- {
- i--;
- RkGoTo (context, i);
- len = RkGetKanji (context, RkBuf, RKBUFSIZE);
- val = make_string (RkBuf, len);
- len = RkGetYomi (context, RkBuf, RKBUFSIZE);
- res = Fcons (Fcons (val, make_string (RkBuf, len)), res);
- if (i < RKBUFSIZE / 2)
- {
- kugiri[i] = len;
- }
- }
- for (i = 0, total = 0 ; i < nbun ; i++)
- {
- int temp = kugiri[i];
- kugiri[i] = total;
- total += temp;
- }
- return res;
-}
-
-DEFUN ("canna-henkan-next", Fcanna_henkan_next, 1, 1, 0, /*
-Return the list of candidates.
-*/
- (bunsetsu))
-{
- int i, slen, len;
- unsigned char *p, RkBuf[RKBUFSIZE];
- Lisp_Object res = Qnil;
-
- CHECK_INT (bunsetsu);
- if (confirmContext () == 0)
- {
- return Qnil;
- }
- RkGoTo (IRCP_context, XINT (bunsetsu));
- len = RkGetKanjiList (IRCP_context, RkBuf, RKBUFSIZE);
- p = RkBuf;
- for (i = 0 ; i < len ; i++)
- {
- slen = strlen ((const char *) p);
- if (NILP(res))
- {
- res = Fcons (make_string (p, slen), Qnil);
- }
- else
- {
- XCDR (res) = Fcons (make_string (p, slen), Qnil);
- }
- p += slen + 1;
- }
- return res;
-}
-
-DEFUN ("canna-bunsetu-henkou", Fcanna_bunsetu_henkou, 2, 2, 0, /*
-Specify the length of a clause.
-*/
- (bunsetsu, bunlen))
-{
- int nbun, len;
-
- CHECK_INT (bunsetsu);
- CHECK_INT (bunlen);
-
- nbun = XINT (bunsetsu);
- if (confirmContext () == 0)
- {
- return Qnil;
- }
- RkGoTo (IRCP_context, nbun);
- len = byteLen (nbun, XINT (bunlen));
- return kanjiYomiList (IRCP_context, RkResize (IRCP_context, len));
-}
-
-DEFUN ("canna-henkan-kakutei", Fcanna_henkan_kakutei, 2, 2, 0, /*
-Select a candidate.
-*/
- (bun, kouho))
-{
- int nbun, nkouho;
-
- if (confirmContext () == 0)
- {
- return Qnil;
- }
- nbun = XINT(bun);
- RkGoTo (IRCP_context, nbun);
-
- nkouho = XINT(kouho);
- RkXfer (IRCP_context, nkouho);
- return Qt;
-}
-
-DEFUN ("canna-henkan-end", Fcanna_henkan_end, 0, 0, 0, /*
-End conversion.
-*/
- ())
-{
- if (confirmContext () == 0)
- {
- return Qnil;
- }
- RkEndBun (IRCP_context, 1); /* ³〓¬¤〓¤¤Ĥ〓〓¤ä〓ɤ¤¤〓¤〓Τ«¡©
- (is it OK to invoke learning function
- at arbitrary times?) */
- return Qt;
-}
-
-DEFUN ("canna-henkan-quit", Fcanna_henkan_quit, 0, 0, 0, /*
-Quit conversion.
-*/
- ())
-{
- if (confirmContext () == 0)
- {
- return Qnil;
- }
- RkEndBun (IRCP_context, 0);
- return Qt;
-}
-
-/* variables below this line is constants of Canna */
-
-static Fixnum canna_mode_AlphaMode;
-static Fixnum canna_mode_EmptyMode;
-static Fixnum canna_mode_KigoMode;
-static Fixnum canna_mode_YomiMode;
-static Fixnum canna_mode_JishuMode;
-static Fixnum canna_mode_TankouhoMode;
-static Fixnum canna_mode_IchiranMode;
-static Fixnum canna_mode_YesNoMode;
-static Fixnum canna_mode_OnOffMode;
-#ifdef CANNA_MODE_AdjustBunsetsuMode
-static Fixnum canna_mode_AdjustBunsetsuMode;
-#endif
-#ifdef CANNA_MODE_ChikujiYomiMode
-static Fixnum canna_mode_ChikujiYomiMode;
-static Fixnum canna_mode_ChikujiTanMode;
-#endif
-
-static Fixnum canna_mode_HenkanMode;
-#ifdef CANNA_MODE_HenkanNyuryokuMode
-static Fixnum canna_mode_HenkanNyuryokuMode;
-#endif
-#ifdef CANNA_MODE_ZenHiraHenkanMode
-static Fixnum canna_mode_ZenHiraHenkanMode;
-#ifdef CANNA_MODE_HanHiraHenkanMode
-static Fixnum canna_mode_HanHiraHenkanMode;
-#endif
-static Fixnum canna_mode_ZenKataHenkanMode;
-static Fixnum canna_mode_HanKataHenkanMode;
-static Fixnum canna_mode_ZenAlphaHenkanMode;
-static Fixnum canna_mode_HanAlphaHenkanMode;
-#endif
-static Fixnum canna_mode_ZenHiraKakuteiMode;
-#ifdef CANNA_MODE_HanHiraKakuteiMode
-static Fixnum canna_mode_HanHiraKakuteiMode;
-#endif
-static Fixnum canna_mode_ZenKataKakuteiMode;
-static Fixnum canna_mode_HanKataKakuteiMode;
-static Fixnum canna_mode_ZenAlphaKakuteiMode;
-static Fixnum canna_mode_HanAlphaKakuteiMode;
-static Fixnum canna_mode_HexMode;
-static Fixnum canna_mode_BushuMode;
-static Fixnum canna_mode_ExtendMode;
-static Fixnum canna_mode_RussianMode;
-static Fixnum canna_mode_GreekMode;
-static Fixnum canna_mode_LineMode;
-static Fixnum canna_mode_ChangingServerMode;
-static Fixnum canna_mode_HenkanMethodMode;
-static Fixnum canna_mode_DeleteDicMode;
-static Fixnum canna_mode_TourokuMode;
-static Fixnum canna_mode_TourokuEmptyMode;
-static Fixnum canna_mode_TourokuHinshiMode;
-static Fixnum canna_mode_TourokuDicMode;
-static Fixnum canna_mode_QuotedInsertMode;
-static Fixnum canna_mode_BubunMuhenkanMode;
-static Fixnum canna_mode_MountDicMode;
-
-static Fixnum canna_fn_SelfInsert;
-static Fixnum canna_fn_FunctionalInsert;
-static Fixnum canna_fn_QuotedInsert;
-static Fixnum canna_fn_JapaneseMode;
-static Fixnum canna_fn_AlphaMode;
-static Fixnum canna_fn_HenkanNyuryokuMode;
-static Fixnum canna_fn_Forward;
-static Fixnum canna_fn_Backward;
-static Fixnum canna_fn_Next;
-static Fixnum canna_fn_Prev;
-static Fixnum canna_fn_BeginningOfLine;
-static Fixnum canna_fn_EndOfLine;
-static Fixnum canna_fn_DeleteNext;
-static Fixnum canna_fn_DeletePrevious;
-static Fixnum canna_fn_KillToEndOfLine;
-static Fixnum canna_fn_Henkan;
-static Fixnum canna_fn_Kakutei;
-static Fixnum canna_fn_Extend;
-static Fixnum canna_fn_Shrink;
-#ifdef CANNA_FN_AdjustBunsetsu
-static Fixnum canna_fn_AdjustBunsetsu;
-#endif
-static Fixnum canna_fn_Quit;
-static Fixnum canna_fn_ConvertAsHex;
-static Fixnum canna_fn_ConvertAsBushu;
-static Fixnum canna_fn_KouhoIchiran;
-static Fixnum canna_fn_BubunMuhenkan;
-static Fixnum canna_fn_Zenkaku;
-static Fixnum canna_fn_Hankaku;
-static Fixnum canna_fn_ToUpper;
-static Fixnum canna_fn_Capitalize;
-static Fixnum canna_fn_ToLower;
-static Fixnum canna_fn_Hiragana;
-static Fixnum canna_fn_Katakana;
-static Fixnum canna_fn_Romaji;
-#ifdef CANNA_FN_BaseHiragana
-static Fixnum canna_fn_BaseHiragana;
-static Fixnum canna_fn_BaseKatakana;
-static Fixnum canna_fn_BaseEisu;
-static Fixnum canna_fn_BaseZenkaku;
-static Fixnum canna_fn_BaseHankaku;
-static Fixnum canna_fn_BaseKana;
-static Fixnum canna_fn_BaseKakutei;
-static Fixnum canna_fn_BaseHenkan;
-static Fixnum canna_fn_BaseHiraKataToggle;
-static Fixnum canna_fn_BaseZenHanToggle;
-static Fixnum canna_fn_BaseKanaEisuToggle;
-static Fixnum canna_fn_BaseKakuteiHenkanToggle;
-static Fixnum canna_fn_BaseRotateForward;
-static Fixnum canna_fn_BaseRotateBackward;
-#endif
-static Fixnum canna_fn_ExtendMode;
-static Fixnum canna_fn_Touroku;
-static Fixnum canna_fn_HexMode;
-static Fixnum canna_fn_BushuMode;
-static Fixnum canna_fn_KigouMode;
-#ifdef CANNA_FN_Mark
-static Fixnum canna_fn_Mark;
-#endif
-#ifdef CANNA_FN_TemporalMode
-static Fixnum canna_fn_TemporalMode;
-#endif
-
-static Fixnum canna_key_Nfer;
-static Fixnum canna_key_Xfer;
-static Fixnum canna_key_Up;
-static Fixnum canna_key_Left;
-static Fixnum canna_key_Right;
-static Fixnum canna_key_Down;
-static Fixnum canna_key_Insert;
-static Fixnum canna_key_Rollup;
-static Fixnum canna_key_Rolldown;
-static Fixnum canna_key_Home;
-static Fixnum canna_key_Help;
-static Fixnum canna_key_KP_Key;
-static Fixnum canna_key_Shift_Nfer;
-static Fixnum canna_key_Shift_Xfer;
-static Fixnum canna_key_Shift_Up;
-static Fixnum canna_key_Shift_Left;
-static Fixnum canna_key_Shift_Right;
-static Fixnum canna_key_Shift_Down;
-static Fixnum canna_key_Cntrl_Nfer;
-static Fixnum canna_key_Cntrl_Xfer;
-static Fixnum canna_key_Cntrl_Up;
-static Fixnum canna_key_Cntrl_Left;
-static Fixnum canna_key_Cntrl_Right;
-static Fixnum canna_key_Cntrl_Down;
-
-Lisp_Object VCANNA; /* by MORIOKA Tomohiko <morioka(a)jaist.ac.jp>
- 1996/6/7 */
-
-void
-syms_of_mule_canna (void)
-{
- DEFSUBR (Fcanna_key_proc);
- DEFSUBR (Fcanna_initialize);
- DEFSUBR (Fcanna_finalize);
- DEFSUBR (Fcanna_touroku_string);
- DEFSUBR (Fcanna_set_width);
- DEFSUBR (Fcanna_change_mode);
- DEFSUBR (Fcanna_store_yomi);
- DEFSUBR (Fcanna_do_function);
- DEFSUBR (Fcanna_parse);
- DEFSUBR (Fcanna_query_mode);
- DEFSUBR (Fcanna_set_bunsetsu);
-
- DEFSUBR (Fcanna_henkan_begin);
- DEFSUBR (Fcanna_henkan_next);
- DEFSUBR (Fcanna_bunsetu_henkou);
- DEFSUBR (Fcanna_henkan_kakutei);
- DEFSUBR (Fcanna_henkan_end);
- DEFSUBR (Fcanna_henkan_quit);
-}
-
-void
-vars_of_mule_canna (void)
-{
- DEFVAR_LISP ("CANNA", &VCANNA); /* hir＠nec, 1992.5.21 */
- VCANNA = Qt; /* hir＠nec, 1992.5.21 */
-
- DEFVAR_LISP ("canna-kakutei-string", &Vcanna_kakutei_string /*
-
-*/ );
- Vcanna_kakutei_string = Qnil;
-
- DEFVAR_LISP ("canna-kakutei-yomi", &Vcanna_kakutei_yomi /*
-
-*/ );
- Vcanna_kakutei_yomi = Qnil;
-
- DEFVAR_LISP ("canna-kakutei-romaji", &Vcanna_kakutei_romaji /*
-
-*/ );
- Vcanna_kakutei_romaji = Qnil;
-
- DEFVAR_LISP ("canna-henkan-string", &Vcanna_henkan_string /*
-
-*/ );
- Vcanna_henkan_string = Qnil;
-
- DEFVAR_INT ("canna-henkan-length", &canna_henkan_length /*
-
-*/ );
- canna_henkan_length = 0;
-
- DEFVAR_INT ("canna-henkan-revpos", &canna_henkan_revPos /*
-
-*/ );
- canna_henkan_revPos = 0;
-
- DEFVAR_INT ("canna-henkan-revlen", &canna_henkan_revLen /*
-
-*/ );
- canna_henkan_revLen = 0;
-
- DEFVAR_LISP ("canna-ichiran-string", &Vcanna_ichiran_string /*
-
-*/ );
- Vcanna_ichiran_string = Qnil;
-
- DEFVAR_INT ("canna-ichiran-length", &canna_ichiran_length /*
-
-*/ );
- canna_ichiran_length = 0;
-
- DEFVAR_INT ("canna-ichiran-revpos", &canna_ichiran_revPos /*
-
-*/ );
- canna_ichiran_revPos = 0;
-
- DEFVAR_INT ("canna-ichiran-revlen", &canna_ichiran_revLen /*
-
-*/ );
- canna_ichiran_revLen = 0;
-
- DEFVAR_LISP ("canna-mode-string", &Vcanna_mode_string /*
-
-*/ );
- Vcanna_mode_string = Qnil;
-
- DEFVAR_BOOL ("canna-empty-info", &canna_empty_info /*
-For canna
-*/ );
- canna_empty_info = 0;
-
- DEFVAR_BOOL ("canna-through-info", &canna_through_info /*
-For canna
-*/ );
- canna_through_info = 0;
-
- DEFVAR_BOOL ("canna-underline", &canna_underline /*
-For canna
-*/ );
- canna_underline = 0;
-
- DEFVAR_BOOL ("canna-inhibit-hankakukana", &canna_inhibit_hankakukana /*
-For canna
-*/ );
- canna_inhibit_hankakukana = 0;
-
- DEFVAR_INT ("canna-mode-alpha-mode", &canna_mode_AlphaMode /*
-
-*/ );
- canna_mode_AlphaMode = IROHA_MODE_AlphaMode;
-
- DEFVAR_INT ("canna-mode-empty-mode", &canna_mode_EmptyMode /*
-
-*/ );
- canna_mode_EmptyMode = IROHA_MODE_EmptyMode;
-
- DEFVAR_INT ("canna-mode-kigo-mode", &canna_mode_KigoMode /*
-
-*/ );
- canna_mode_KigoMode = IROHA_MODE_KigoMode;
-
- DEFVAR_INT ("canna-mode-yomi-mode", &canna_mode_YomiMode /*
-
-*/ );
- canna_mode_YomiMode = IROHA_MODE_YomiMode;
-
- DEFVAR_INT ("canna-mode-jishu-mode", &canna_mode_JishuMode /*
-
-*/ );
- canna_mode_JishuMode = IROHA_MODE_JishuMode;
-
- DEFVAR_INT ("canna-mode-tankouho-mode", &canna_mode_TankouhoMode /*
-
-*/ );
- canna_mode_TankouhoMode = IROHA_MODE_TankouhoMode;
-
- DEFVAR_INT ("canna-mode-ichiran-mode", &canna_mode_IchiranMode /*
-
-*/ );
- canna_mode_IchiranMode = IROHA_MODE_IchiranMode;
-
- DEFVAR_INT ("canna-mode-yes-no-mode", &canna_mode_YesNoMode /*
-
-*/ );
- canna_mode_YesNoMode = IROHA_MODE_YesNoMode;
-
- DEFVAR_INT ("canna-mode-on-off-mode", &canna_mode_OnOffMode /*
-
-*/ );
- canna_mode_OnOffMode = IROHA_MODE_OnOffMode;
-
-#ifdef CANNA_MODE_AdjustBunsetsuMode
- DEFVAR_INT ("canna-mode-adjust-bunsetsu-mode",
- &canna_mode_AdjustBunsetsuMode /*
-
-*/ );
- canna_mode_AdjustBunsetsuMode = CANNA_MODE_AdjustBunsetsuMode;
-#endif
-#ifdef CANNA_MODE_ChikujiYomiMode
- DEFVAR_INT ("canna-mode-chikuji-yomi-mode", &canna_mode_ChikujiYomiMode /*
-
-*/ );
- canna_mode_ChikujiYomiMode = CANNA_MODE_ChikujiYomiMode;
-
- DEFVAR_INT ("canna-mode-chikuji-bunsetsu-mode",
- &canna_mode_ChikujiTanMode /*
-
-*/ );
- canna_mode_ChikujiTanMode = CANNA_MODE_ChikujiTanMode;
-#endif
-
- DEFVAR_INT ("canna-mode-henkan-mode", &canna_mode_HenkanMode /*
-
-*/ );
- canna_mode_HenkanMode = IROHA_MODE_HenkanMode;
-
-#ifdef CANNA_MODE_HenkanNyuryokuMode
- DEFVAR_INT ("canna-mode-henkan-nyuuryoku-mode",
- &canna_mode_HenkanNyuryokuMode /*
-
-*/ );
- canna_mode_HenkanNyuryokuMode = CANNA_MODE_HenkanNyuryokuMode;
-#endif
-#ifdef CANNA_MODE_ZenHiraHenkanMode
- DEFVAR_INT ("canna-mode-zen-hira-henkan-mode",
- &canna_mode_ZenHiraHenkanMode /*
-
-*/ );
- canna_mode_ZenHiraHenkanMode = CANNA_MODE_ZenHiraHenkanMode;
-#ifdef CANNA_MODE_HanHiraHenkanMode
- DEFVAR_INT ("canna-mode-han-hira-henkan-mode",
- &canna_mode_HanHiraHenkanMode /*
-
-*/ );
- canna_mode_HanHiraHenkanMode = CANNA_MODE_HanHiraHenkanMode;
-#endif
- DEFVAR_INT ("canna-mode-zen-kata-henkan-mode",
- &canna_mode_ZenKataHenkanMode /*
-
-*/ );
- canna_mode_ZenKataHenkanMode = CANNA_MODE_ZenKataHenkanMode;
-
- DEFVAR_INT ("canna-mode-han-kata-henkan-mode",
- &canna_mode_HanKataHenkanMode /*
-
-*/ );
- canna_mode_HanKataHenkanMode = CANNA_MODE_HanKataHenkanMode;
-
- DEFVAR_INT ("canna-mode-zen-alpha-henkan-mode",
- &canna_mode_ZenAlphaHenkanMode /*
-
-*/ );
- canna_mode_ZenAlphaHenkanMode = CANNA_MODE_ZenAlphaHenkanMode;
-
- DEFVAR_INT ("canna-mode-han-alpha-henkan-mode",
- &canna_mode_HanAlphaHenkanMode /*
-
-*/ );
- canna_mode_HanAlphaHenkanMode = CANNA_MODE_HanAlphaHenkanMode;
-#endif
- DEFVAR_INT ("canna-mode-zen-hira-kakutei-mode",
- &canna_mode_ZenHiraKakuteiMode /*
-
-*/ );
- canna_mode_ZenHiraKakuteiMode = IROHA_MODE_ZenHiraKakuteiMode;
-#ifdef CANNA_MODE_HanHiraKakuteiMode
- DEFVAR_INT ("canna-mode-han-hira-kakutei-mode",
- &canna_mode_HanHiraKakuteiMode /*
-
-*/ );
- canna_mode_HanHiraKakuteiMode = CANNA_MODE_HanHiraKakuteiMode;
-#endif
- DEFVAR_INT ("canna-mode-zen-kata-kakutei-mode",
- &canna_mode_ZenKataKakuteiMode /*
-
-*/ );
- canna_mode_ZenKataKakuteiMode = IROHA_MODE_ZenKataKakuteiMode;
-
- DEFVAR_INT ("canna-mode-han-kata-kakutei-mode",
- &canna_mode_HanKataKakuteiMode /*
-
-*/ );
- canna_mode_HanKataKakuteiMode = IROHA_MODE_HanKataKakuteiMode;
-
- DEFVAR_INT ("canna-mode-zen-alpha-kakutei-mode",
- &canna_mode_ZenAlphaKakuteiMode /*
-
-*/ );
- canna_mode_ZenAlphaKakuteiMode = IROHA_MODE_ZenAlphaKakuteiMode;
-
- DEFVAR_INT ("canna-mode-han-alpha-kakutei-mode",
- &canna_mode_HanAlphaKakuteiMode /*
-
-*/ );
- canna_mode_HanAlphaKakuteiMode = IROHA_MODE_HanAlphaKakuteiMode;
-
- DEFVAR_INT ("canna-mode-hex-mode", &canna_mode_HexMode /*
-
-*/ );
- canna_mode_HexMode = IROHA_MODE_HexMode;
-
- DEFVAR_INT ("canna-mode-bushu-mode", &canna_mode_BushuMode /*
-
-*/ );
- canna_mode_BushuMode = IROHA_MODE_BushuMode;
-
- DEFVAR_INT ("canna-mode-extend-mode", &canna_mode_ExtendMode /*
-
-*/ );
- canna_mode_ExtendMode = IROHA_MODE_ExtendMode;
-
- DEFVAR_INT ("canna-mode-russian-mode", &canna_mode_RussianMode /*
-
-*/ );
- canna_mode_RussianMode = IROHA_MODE_RussianMode;
-
- DEFVAR_INT ("canna-mode-greek-mode", &canna_mode_GreekMode /*
-
-*/ );
- canna_mode_GreekMode = IROHA_MODE_GreekMode;
-
- DEFVAR_INT ("canna-mode-line-mode", &canna_mode_LineMode /*
-
-*/ );
- canna_mode_LineMode = IROHA_MODE_LineMode;
-
- DEFVAR_INT ("canna-mode-changing-server-mode",
- &canna_mode_ChangingServerMode /*
-
-*/ );
- canna_mode_ChangingServerMode = IROHA_MODE_ChangingServerMode;
-
- DEFVAR_INT ("canna-mode-henkan-method-mode",
- &canna_mode_HenkanMethodMode /*
-
-*/ );
- canna_mode_HenkanMethodMode = IROHA_MODE_HenkanMethodMode;
-
- DEFVAR_INT ("canna-mode-delete-dic-mode", &canna_mode_DeleteDicMode /*
-
-*/ );
- canna_mode_DeleteDicMode = IROHA_MODE_DeleteDicMode;
-
- DEFVAR_INT ("canna-mode-touroku-mode", &canna_mode_TourokuMode /*
-
-*/ );
- canna_mode_TourokuMode = IROHA_MODE_TourokuMode;
-
- DEFVAR_INT ("canna-mode-touroku-empty-mode",
- &canna_mode_TourokuEmptyMode /*
-
-*/ );
- canna_mode_TourokuEmptyMode = IROHA_MODE_TourokuEmptyMode;
-
- DEFVAR_INT ("canna-mode-touroku-hinshi-mode",
- &canna_mode_TourokuHinshiMode /*
-
-*/ );
- canna_mode_TourokuHinshiMode = IROHA_MODE_TourokuHinshiMode;
-
- DEFVAR_INT ("canna-mode-touroku-dic-mode", &canna_mode_TourokuDicMode /*
-
-*/ );
- canna_mode_TourokuDicMode = IROHA_MODE_TourokuDicMode;
-
- DEFVAR_INT ("canna-mode-quoted-insert-mode",
- &canna_mode_QuotedInsertMode /*
-
-*/ );
- canna_mode_QuotedInsertMode = IROHA_MODE_QuotedInsertMode;
-
- DEFVAR_INT ("canna-mode-bubun-muhenkan-mode",
- &canna_mode_BubunMuhenkanMode /*
-
-*/ );
- canna_mode_BubunMuhenkanMode = IROHA_MODE_BubunMuhenkanMode;
-
- DEFVAR_INT ("canna-mode-mount-dic-mode", &canna_mode_MountDicMode /*
-
-*/ );
- canna_mode_MountDicMode = IROHA_MODE_MountDicMode;
-
- DEFVAR_INT ("canna-func-self-insert", &canna_fn_SelfInsert /*
-
-*/ );
- canna_fn_SelfInsert = IROHA_FN_SelfInsert;
-
- DEFVAR_INT ("canna-func-functional-insert", &canna_fn_FunctionalInsert /*
-
-*/ );
- canna_fn_FunctionalInsert = IROHA_FN_FunctionalInsert;
-
- DEFVAR_INT ("canna-func-quoted-insert", &canna_fn_QuotedInsert /*
-
-*/ );
- canna_fn_QuotedInsert = IROHA_FN_QuotedInsert;
-
- DEFVAR_INT ("canna-func-japanese-mode", &canna_fn_JapaneseMode /*
-
-*/ );
- canna_fn_JapaneseMode = IROHA_FN_JapaneseMode;
-
- DEFVAR_INT ("canna-func-alpha-mode", &canna_fn_AlphaMode /*
-
-*/ );
- canna_fn_AlphaMode = IROHA_FN_AlphaMode;
-
- DEFVAR_INT ("canna-func-henkan-nyuryoku-mode",
- &canna_fn_HenkanNyuryokuMode /*
-
-*/ );
- canna_fn_HenkanNyuryokuMode = IROHA_FN_HenkanNyuryokuMode;
-
- DEFVAR_INT ("canna-func-forward", &canna_fn_Forward /*
-
-*/ );
- canna_fn_Forward = IROHA_FN_Forward;
-
- DEFVAR_INT ("canna-func-backward", &canna_fn_Backward /*
-
-*/ );
- canna_fn_Backward = IROHA_FN_Backward;
-
- DEFVAR_INT ("canna-func-next", &canna_fn_Next /*
-
-*/ );
- canna_fn_Next = IROHA_FN_Next;
-
- DEFVAR_INT ("canna-func-previous", &canna_fn_Prev /*
-
-*/ );
- canna_fn_Prev = IROHA_FN_Prev;
-
- DEFVAR_INT ("canna-func-beginning-of-line", &canna_fn_BeginningOfLine /*
-
-*/ );
- canna_fn_BeginningOfLine = IROHA_FN_BeginningOfLine;
-
- DEFVAR_INT ("canna-func-end-of-line", &canna_fn_EndOfLine /*
-
-*/ );
- canna_fn_EndOfLine = IROHA_FN_EndOfLine;
-
- DEFVAR_INT ("canna-func-delete-next", &canna_fn_DeleteNext /*
-
-*/ );
- canna_fn_DeleteNext = IROHA_FN_DeleteNext;
-
- DEFVAR_INT ("canna-func-delete-previous", &canna_fn_DeletePrevious /*
-
-*/ );
- canna_fn_DeletePrevious = IROHA_FN_DeletePrevious;
-
- DEFVAR_INT ("canna-func-kill-to-end-of-line", &canna_fn_KillToEndOfLine /*
-
-*/ );
- canna_fn_KillToEndOfLine = IROHA_FN_KillToEndOfLine;
-
- DEFVAR_INT ("canna-func-henkan", &canna_fn_Henkan /*
-
-*/ );
- canna_fn_Henkan = IROHA_FN_Henkan;
-
- DEFVAR_INT ("canna-func-kakutei", &canna_fn_Kakutei /*
-
-*/ );
- canna_fn_Kakutei = IROHA_FN_Kakutei;
-
- DEFVAR_INT ("canna-func-extend", &canna_fn_Extend /*
-
-*/ );
- canna_fn_Extend = IROHA_FN_Extend;
-
- DEFVAR_INT ("canna-func-shrink", &canna_fn_Shrink /*
-
-*/ );
- canna_fn_Shrink = IROHA_FN_Shrink;
-
-#ifdef CANNA_FN_AdjustBunsetsu
- DEFVAR_INT ("canna-func-adjust-bunsetsu", &canna_fn_AdjustBunsetsu /*
-
-*/ );
- canna_fn_AdjustBunsetsu = CANNA_FN_AdjustBunsetsu;
-#endif
- DEFVAR_INT ("canna-func-quit", &canna_fn_Quit /*
-
-*/ );
- canna_fn_Quit = IROHA_FN_Quit;
-
- DEFVAR_INT ("canna-func-convert-as-hex", &canna_fn_ConvertAsHex /*
-
-*/ );
- canna_fn_ConvertAsHex = IROHA_FN_ConvertAsHex;
-
- DEFVAR_INT ("canna-func-convert-as-bushu", &canna_fn_ConvertAsBushu /*
-
-*/ );
- canna_fn_ConvertAsBushu = IROHA_FN_ConvertAsBushu;
-
- DEFVAR_INT ("canna-func-kouho-ichiran", &canna_fn_KouhoIchiran /*
-
-*/ );
- canna_fn_KouhoIchiran = IROHA_FN_KouhoIchiran;
-
- DEFVAR_INT ("canna-func-bubun-muhenkan", &canna_fn_BubunMuhenkan /*
-
-*/ );
- canna_fn_BubunMuhenkan = IROHA_FN_BubunMuhenkan;
-
- DEFVAR_INT ("canna-func-zenkaku", &canna_fn_Zenkaku /*
-
-*/ );
- canna_fn_Zenkaku = IROHA_FN_Zenkaku;
-
- DEFVAR_INT ("canna-func-hankaku", &canna_fn_Hankaku /*
-
-*/ );
- canna_fn_Hankaku = IROHA_FN_Hankaku;
-
- DEFVAR_INT ("canna-func-to-upper", &canna_fn_ToUpper /*
-
-*/ );
- canna_fn_ToUpper = IROHA_FN_ToUpper;
-
- DEFVAR_INT ("canna-func-capitalize", &canna_fn_Capitalize /*
-
-*/ );
- canna_fn_Capitalize = IROHA_FN_Capitalize;
-
- DEFVAR_INT ("canna-func-to-lower", &canna_fn_ToLower /*
-
-*/ );
- canna_fn_ToLower = IROHA_FN_ToLower;
-
- DEFVAR_INT ("canna-func-hiragana", &canna_fn_Hiragana /*
-
-*/ );
- canna_fn_Hiragana = IROHA_FN_Hiragana;
-
- DEFVAR_INT ("canna-func-katakana", &canna_fn_Katakana /*
-
-*/ );
- canna_fn_Katakana = IROHA_FN_Katakana;
-
- DEFVAR_INT ("canna-func-romaji", &canna_fn_Romaji /*
-
-*/ );
- canna_fn_Romaji = IROHA_FN_Romaji;
-
-#ifdef CANNA_FN_BaseHiragana
- DEFVAR_INT ("canna-func-base-hiragana", &canna_fn_BaseHiragana /*
-
-*/ );
- canna_fn_BaseHiragana = CANNA_FN_BaseHiragana;
-
- DEFVAR_INT ("canna-func-base-katakana", &canna_fn_BaseKatakana /*
-
-*/ );
- canna_fn_BaseKatakana = CANNA_FN_BaseKatakana;
-
- DEFVAR_INT ("canna-func-base-eisu", &canna_fn_BaseEisu /*
-
-*/ );
- canna_fn_BaseEisu = CANNA_FN_BaseEisu;
-
- DEFVAR_INT ("canna-func-base-zenkaku", &canna_fn_BaseZenkaku /*
-
-*/ );
- canna_fn_BaseZenkaku = CANNA_FN_BaseZenkaku;
-
- DEFVAR_INT ("canna-func-base-hankaku", &canna_fn_BaseHankaku /*
-
-*/ );
- canna_fn_BaseHankaku = CANNA_FN_BaseHankaku;
-
- DEFVAR_INT ("canna-func-base-kana", &canna_fn_BaseKana /*
-
-*/ );
- canna_fn_BaseKana = CANNA_FN_BaseKana;
-
- DEFVAR_INT ("canna-func-base-kakutei", &canna_fn_BaseKakutei /*
-
-*/ );
- canna_fn_BaseKakutei = CANNA_FN_BaseKakutei;
-
- DEFVAR_INT ("canna-func-base-henkan", &canna_fn_BaseHenkan /*
-
-*/ );
- canna_fn_BaseHenkan = CANNA_FN_BaseHenkan;
-
- DEFVAR_INT ("canna-func-base-hiragana-katakana-toggle",
- &canna_fn_BaseHiraKataToggle /*
-
-*/ );
- canna_fn_BaseHiraKataToggle = CANNA_FN_BaseHiraKataToggle;
-
- DEFVAR_INT ("canna-func-base-zenkaku-hankaku-toggle",
- &canna_fn_BaseZenHanToggle /*
-
-*/ );
- canna_fn_BaseZenHanToggle = CANNA_FN_BaseZenHanToggle;
-
- DEFVAR_INT ("canna-func-base-kana-eisu-toggle",
- &canna_fn_BaseKanaEisuToggle /*
-
-*/ );
- canna_fn_BaseKanaEisuToggle = CANNA_FN_BaseKanaEisuToggle;
-
- DEFVAR_INT ("canna-func-base-kakutei-henkan-toggle",
- &canna_fn_BaseKakuteiHenkanToggle /*
-
-*/ );
- canna_fn_BaseKakuteiHenkanToggle = CANNA_FN_BaseKakuteiHenkanToggle;
-
- DEFVAR_INT ("canna-func-base-rotate-forward",
- &canna_fn_BaseRotateForward /*
-
-*/ );
- canna_fn_BaseRotateForward = CANNA_FN_BaseRotateForward;
-
- DEFVAR_INT ("canna-func-base-rotate-backward",
- &canna_fn_BaseRotateBackward /*
-
-*/ );
- canna_fn_BaseRotateBackward = CANNA_FN_BaseRotateBackward;
-
-#endif
- DEFVAR_INT ("canna-func-extend-mode", &canna_fn_ExtendMode /*
-
-*/ );
- canna_fn_ExtendMode = IROHA_FN_ExtendMode;
-
- DEFVAR_INT ("canna-func-touroku", &canna_fn_Touroku /*
-
-*/ );
- canna_fn_Touroku = IROHA_FN_Touroku;
-
- DEFVAR_INT ("canna-func-hex-mode", &canna_fn_HexMode /*
-
-*/ );
- canna_fn_HexMode = IROHA_FN_HexMode;
-
- DEFVAR_INT ("canna-func-bushu-mode", &canna_fn_BushuMode /*
-
-*/ );
- canna_fn_BushuMode = IROHA_FN_BushuMode;
-
- DEFVAR_INT ("canna-func-kigo-mode", &canna_fn_KigouMode /*
-
-*/ );
- canna_fn_KigouMode = IROHA_FN_KigouMode;
-
-#ifdef CANNA_FN_Mark
- DEFVAR_INT ("canna-func-mark", &canna_fn_Mark /*
-
-*/ );
- canna_fn_Mark = CANNA_FN_Mark;
-#endif
-#ifdef CANNA_FN_TemporalMode
- DEFVAR_INT ("canna-func-temporal-mode", &canna_fn_TemporalMode /*
-
-*/ );
- canna_fn_TemporalMode = CANNA_FN_TemporalMode;
-#endif
-
- DEFVAR_INT ("canna-key-nfer", &canna_key_Nfer /*
-
-*/ );
- canna_key_Nfer = IROHA_KEY_Nfer;
-
- DEFVAR_INT ("canna-key-xfer", &canna_key_Xfer /*
-
-*/ );
- canna_key_Xfer = IROHA_KEY_Xfer;
-
- DEFVAR_INT ("canna-key-up", &canna_key_Up /*
-
-*/ );
- canna_key_Up = IROHA_KEY_Up;
-
- DEFVAR_INT ("canna-key-left", &canna_key_Left /*
-
-*/ );
- canna_key_Left = IROHA_KEY_Left;
-
- DEFVAR_INT ("canna-key-right", &canna_key_Right /*
-
-*/ );
- canna_key_Right = IROHA_KEY_Right;
-
- DEFVAR_INT ("canna-key-down", &canna_key_Down /*
-
-*/ );
- canna_key_Down = IROHA_KEY_Down;
-
- DEFVAR_INT ("canna-key-insert", &canna_key_Insert /*
-
-*/ );
- canna_key_Insert = IROHA_KEY_Insert;
-
- DEFVAR_INT ("canna-key-rollup", &canna_key_Rollup /*
-
-*/ );
- canna_key_Rollup = IROHA_KEY_Rollup;
-
- DEFVAR_INT ("canna-key-rolldown", &canna_key_Rolldown /*
-
-*/ );
- canna_key_Rolldown = IROHA_KEY_Rolldown;
-
- DEFVAR_INT ("canna-key-home", &canna_key_Home /*
-
-*/ );
- canna_key_Home = IROHA_KEY_Home;
-
- DEFVAR_INT ("canna-key-help", &canna_key_Help /*
-
-*/ );
- canna_key_Help = IROHA_KEY_Help;
-
- DEFVAR_INT ("canna-key-kp-key", &canna_key_KP_Key /*
-
-*/ );
- canna_key_KP_Key = IROHA_KEY_KP_Key;
-
- DEFVAR_INT ("canna-key-shift-nfer", &canna_key_Shift_Nfer /*
-
-*/ );
- canna_key_Shift_Nfer = IROHA_KEY_Shift_Nfer;
-
- DEFVAR_INT ("canna-key-shift-xfer", &canna_key_Shift_Xfer /*
-
-*/ );
- canna_key_Shift_Xfer = IROHA_KEY_Shift_Xfer;
-
- DEFVAR_INT ("canna-key-shift-up", &canna_key_Shift_Up /*
-
-*/ );
- canna_key_Shift_Up = IROHA_KEY_Shift_Up;
-
- DEFVAR_INT ("canna-key-shift-left", &canna_key_Shift_Left /*
-
-*/ );
- canna_key_Shift_Left = IROHA_KEY_Shift_Left;
-
- DEFVAR_INT ("canna-key-shift-right", &canna_key_Shift_Right /*
-
-*/ );
- canna_key_Shift_Right = IROHA_KEY_Shift_Right;
-
- DEFVAR_INT ("canna-key-shift-down", &canna_key_Shift_Down /*
-
-*/ );
- canna_key_Shift_Down = IROHA_KEY_Shift_Down;
-
- DEFVAR_INT ("canna-key-control-nfer", &canna_key_Cntrl_Nfer /*
-
-*/ );
- canna_key_Cntrl_Nfer = IROHA_KEY_Cntrl_Nfer;
-
- DEFVAR_INT ("canna-key-control-xfer", &canna_key_Cntrl_Xfer /*
-
-*/ );
- canna_key_Cntrl_Xfer = IROHA_KEY_Cntrl_Xfer;
-
- DEFVAR_INT ("canna-key-control-up", &canna_key_Cntrl_Up /*
-
-*/ );
- canna_key_Cntrl_Up = IROHA_KEY_Cntrl_Up;
-
- DEFVAR_INT ("canna-key-control-left", &canna_key_Cntrl_Left /*
-
-*/ );
- canna_key_Cntrl_Left = IROHA_KEY_Cntrl_Left;
-
- DEFVAR_INT ("canna-key-control-right", &canna_key_Cntrl_Right /*
-
-*/ );
- canna_key_Cntrl_Right = IROHA_KEY_Cntrl_Right;
-
- DEFVAR_INT ("canna-key-control-down", &canna_key_Cntrl_Down /*
-
-*/ );
- canna_key_Cntrl_Down = IROHA_KEY_Cntrl_Down;
-
- Fprovide(intern("CANNA"));
-}
-
-#ifdef CANNA_MULE
-/* To handle MULE internal code and EUC.
- I assume CANNA can handle only Japanese EUC. */
-
-/* EUC multibyte string to MULE internal string */
-
-static void
-c2mu (unsigned char *cp, int l, unsigned char *mp)
-{
- unsigned char ch, *ep = cp+l;
-
- while ((cp < ep) && (ch = *cp))
- {
- if ((unsigned char) ch == ISO_CODE_SS2)
- {
- *mp++ = LEADING_BYTE_KATAKANA_JISX0201;
- cp++;
- }
- else if ((unsigned char) ch == ISO_CODE_SS3)
- {
- *mp++ = LEADING_BYTE_JAPANESE_JISX0212;
- cp++;
- *mp++ = *cp++;
- }
- else if (ch & 0x80)
- {
- *mp++ = LEADING_BYTE_JAPANESE_JISX0208;
- *mp++ = *cp++;
- }
- *mp++ = *cp++;
- }
- *mp = 0;
-}
-
-/* MULE internal string to EUC multibyte string */
-
-static void
-m2c (unsigned char *mp, int l, unsigned char *cp)
-{
- unsigned char ch, *ep = mp + l;
-
- while ((mp < ep) && (ch = *mp++))
- {
- switch (ch)
- {
- case LEADING_BYTE_KATAKANA_JISX0201:
- *cp++ = ISO_CODE_SS2;
- *cp++ = *mp++;
- break;
- case LEADING_BYTE_JAPANESE_JISX0212:
- *cp++ = ISO_CODE_SS3;
- case LEADING_BYTE_JAPANESE_JISX0208:
- *cp++ = *mp++;
- *cp++ = *mp++;
- break;
- default:
- *cp++ = ch;
- break;
- }
- }
- *cp = 0;
-}
-
-#undef make_string
-
-/* make_string after converting EUC string to MULE internal string */
-static Lisp_Object
-mule_make_string (unsigned char *p, int l)
-{
- unsigned char cbuf[4096];
-
- c2mu (p,l,cbuf);
- return (make_string (cbuf, strlen ((const char *) cbuf)));
-}
-
-/* return the MULE internal string length of EUC string */
-/* Modified by sb to return a character count not byte count. */
-static int
-mule_strlen (unsigned char *p, int l)
-{
- unsigned char ch, *cp = p;
- int len = 0;
-
- while ((cp < p + l) && (ch = *cp))
- {
- if ((unsigned char) ch == ISO_CODE_SS2)
- {
- len++;
- cp += 2;
- }
- else if ((unsigned char) ch == ISO_CODE_SS3)
- {
- len++;
- cp += 3;
- }
- else if (ch & 0x80)
- {
- len++;
- cp += 2;
- }
- else
- {
- len++;
- cp++;
- }
- }
- return (len);
-}
-
-/* count number of characters */
-static void
-count_char (unsigned char *p, int len, int pos, int rev,
- Fixnum *clen, Fixnum *cpos, Fixnum *crev)
-{
- unsigned char *q = p;
-
- *clen = *cpos = *crev = 0;
- if (len == 0) return;
- while (q < p + pos)
- {
- (*clen)++;
- (*cpos)++;
- if (*q++ & 0x80) q++;
- }
- while (q < p + pos + rev)
- {
- (*clen)++;
- (*crev)++;
- if (*q++ & 0x80) q++;
- }
- while (q < p + len)
- {
- (*clen)++;
- if (*q++ & 0x80) q++;
- }
-}
-#endif /* CANNA_MULE */
Index: src/symsinit.h
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/symsinit.h,v
retrieving revision 1.50.2.4
diff -u -r1.50.2.4 symsinit.h
--- src/symsinit.h 13 Jul 2005 04:47:02 -0000 1.50.2.4
+++ src/symsinit.h 24 Sep 2005 13:25:57 -0000
＠＠ -149,7 +149,7 ＠＠
void syms_of_menubar_x (void);
void syms_of_minibuf (void);
void syms_of_module (void);
-void syms_of_mule_canna (void);
+void syms_of_canna_api (void);
void syms_of_mule_ccl (void);
void syms_of_mule_charset (void);
void syms_of_mule_coding (void);
＠＠ -388,7 +388,7 ＠＠
void reinit_vars_of_minibuf (void);
void vars_of_module (void);
void reinit_vars_of_module (void);
-void vars_of_mule_canna (void);
+void vars_of_canna_api (void);
void vars_of_mule_ccl(void);
void vars_of_mule_charset (void);
void vars_of_mule_coding (void);
--
Graduate School of Systems and Information Engineering University of Tsukuba
http://turnbull.sk.tsukuba.ac.jp/ Tennodai 1-1-1 Tsukuba 305-8573 JAPAN
Economics of Information Communication and Computation Systems
Experimental Economics, Microeconomic Theory, Game Theory
- 3 participants
- 2 comments
XEmacs Packages have been pre-released (2005-09-26-08)
18 years, 7 months
Norbert Koch
Norbert Koch
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
Hey there everyone.
I have just added the following packages to the 'Pre-Releases'
directory:
New Packages in Pre-Release:
===========================
ecrypto-0.20-pkg.tar.gz upstream version: 2.0
mail-lib-1.74-pkg.tar.gz upstream version: none
pgg-1.06-pkg.tar.gz upstream version: 0.1
sasl-1.16-pkg.tar.gz upstream version: 1.14.4
sieve-1.18-pkg.tar.gz upstream version: none
texinfo-1.30-pkg.tar.gz upstream version: none
Previously Announced Packages Still in Pre-Release:
==================================================
bbdb-1.28-pkg.tar.gz upstream version: 2.34
c-support-1.22-pkg.tar.gz upstream version: none
ediff-1.55-pkg.tar.gz upstream version: 2.75
edit-utils-2.25-pkg.tar.gz upstream version: none
re-builder-1.05-pkg.tar.gz upstream version: 1.20
riece-1.20-pkg.tar.gz upstream version: 2.0.0
sml-mode-0.12-pkg.tar.gz upstream version: 3.9.5
speedbar-1.28-pkg.tar.gz upstream version: 0.14beta4
text-modes-1.89-pkg.tar.gz upstream version: none
tramp-1.26-pkg.tar.gz upstream version: 2.0.50
viper-1.43-pkg.tar.gz upstream version: 3.09
xemacs-base-1.98-pkg.tar.gz upstream version: none
xemacs-devel-1.71-pkg.tar.gz upstream version: none
xslt-process-1.12-pkg.tar.gz upstream version: 1.2.1
Detailed Changes:
================
- ------- ChangeLog Entries from xemacs-packages/ecrypto/ChangeLog -------
2005-09-26 Norbert Koch <viteno(a)xemacs.org>
* Makefile (VERSION): XEmacs package 0.20 released.
2005-05-30 Reiner Steib <Reiner.Steib(a)gmx.de>
* encrypt.el (encrypt-xor-process-buffer): Replace `string-to-int'
by `string-to-number'.
2005-05-17 Katsumi Yamaoka <yamaoka(a)jpl.org>
* encrypt.el (encrypt): Add :group.
2005-02-22 Simon Josefsson <jas(a)extundo.com>
* encrypt.el (encrypt-password-cache-expiry): Remove (use
`password-cache-expiry' instead). Reported by Arne Jørgensen
<arne(a)arnested.dk>.
(encrypt): Add password-cache and password-cache-expiry as group
members.
2004-01-05 Simon Josefsson <jas(a)extundo.com>
* md4.el (print-int32, print-string-hexa): Remove. Suggested by
Jesper Harder <harder(a)myrealbox.com>.
- ------- ChangeLog Entries from xemacs-packages/mail-lib/ChangeLog -------
2005-09-26 Norbert Koch <viteno(a)xemacs.org>
* Makefile (VERSION): XEmacs package 1.74 released.
2005-09-23 Simon Josefsson <jas(a)extundo.com>
* reporter.el: Change maintainer to FSF, since nobody from the
XEmacs camp has touched this file for ages and it has effectively
been maintained by the FSF for quite some time through syncing
anyway.
2005-08-08 Richard M. Stallman <rms(a)gnu.org>
* mail/reporter.el (reporter-dump-state): Use insert-buffer-substring.
2005-06-02 Katsumi Yamaoka <yamaoka(a)jpl.org>
* starttls.el (starttls-set-process-query-on-exit-flag):
Use eval-and-compile.
2005-05-31 Katsumi Yamaoka <yamaoka(a)jpl.org>
* starttls.el (starttls-set-process-query-on-exit-flag): Alias to
set-process-query-on-exit-flag or process-kill-without-query.
(starttls-open-stream-gnutls): Use it instead of
process-kill-without-query.
(starttls-open-stream): Ditto.
2001-11-22 Colin Walters <walters(a)debian.org>
* mail/reporter.el (reporter-submit-bug-report): Doc fixes.
- ------- ChangeLog Entries from xemacs-packages/pgg/ChangeLog -------
2005-09-26 Norbert Koch <viteno(a)xemacs.org>
* Makefile (VERSION): XEmacs package 1.06 released.
2005-08-15 Simon Josefsson <jas(a)extundo.com>
* pgg.el (url-insert-file-contents): Don't autoload it, Emacs has
it in url-handlers.el and XEmacs in url.el. Reported by Luca
Capello and Romain Francoise.
(pgg-fetch-key-function): Removed, not used?
(pgg-insert-url-with-w3): Require url, to get
url-insert-file-contents regardless of where it is defined.
2005-08-08 Simon Josefsson <jas(a)extundo.com>
* pgg.el: Autoload url-insert-file-contents instead of loading
w3/url.
(pgg-insert-url-with-w3): Don't load url here.
2005-08-05 Daiki Ueno <ueno(a)unixuser.org>
* pgg-parse.el (pgg-parse-hash-algorithm-alist): Add SHA-2.
2005-07-25 Simon Josefsson <jas(a)extundo.com>
* pgg.el (pgg-insert-url-with-w3): Don't load w3, it is possible
to have the url package without w3. Reported by Daiki Ueno
<ueno(a)unixuser.org> and Luigi Panzeri <matley(a)muppetslab.org>.
2005-07-04 Juanma Barranquero <lekktu(a)gmail.com>
* pgg-gpg.el (pgg-gpg):
* pgg-parse.el (pgg-parse):
* pgg-pgp.el (pgg-pgp):
* pgg-pgp5.el (pgg-pgp5): Finish `defgroup' description with period.
2005-06-29 Katsumi Yamaoka <yamaoka(a)jpl.org>
* pgg.el (pgg-verify): Return the verification result.
2005-05-30 Reiner Steib <Reiner.Steib(a)gmx.de>
* pgg-gpg.el (pgg-gpg-snarf-keys-region): Replace `string-to-int'
by `string-to-number'.
* pgg-parse.el (pgg-read-body, pgg-read-bytes)
(pgg-format-key-identifier): Ditto.
2005-05-09 Simon Josefsson <jas(a)extundo.com>
* pgg-gpg.el (pgg-gpg-possibly-cache-passphrase): Fix PIN caching,
tiny patch from "Georg C. F. Greve" <greve(a)gnu.org>.
2005-01-21 Derek Atkins <warlord(a)MIT.EDU> (tiny change)
* pgg-pgp.el (pgg-pgp-decrypt-region): Use passphrase cache.
- ------- ChangeLog Entries from xemacs-packages/sasl/ChangeLog -------
2005-09-26 Norbert Koch <viteno(a)xemacs.org>
* Makefile (VERSION): XEmacs package 1.16 released.
2005-09-23 Simon Josefsson <jas(a)extundo.com>
* hmac-def.el, hmac-md5.el, ntlm.el, sasl-cram.el, sasl-digest.el:
* sasl-ntlm.el, sasl.el: Update FSF address.
- ------- ChangeLog Entries from xemacs-packages/sieve/ChangeLog -------
2005-09-26 Norbert Koch <viteno(a)xemacs.org>
* Makefile (VERSION): XEmacs package 1.18 released.
2005-09-18 D Goel <deego(a)gnufans.org>
* sieve.el (sieve-help): Fix `message' call: first arg should be a
format spec.
2005-08-02 Katsumi Yamaoka <yamaoka(a)jpl.org>
* sieve-manage.el (sieve-manage-interactive-login): Use
make-local-variable rather than make-variable-buffer-local.
(sieve-manage-open): Ditto.
(sieve-manage-authenticate): Ditto.
2005-06-16 Miles Bader <miles(a)gnu.org>
* sieve-mode.el (sieve-control-commands, sieve-action-commands)
(sieve-test-commands, sieve-tagged-arguments):
Remove "-face" suffix from face names.
(sieve-control-commands-face, sieve-action-commands-face)
(sieve-test-commands-face, sieve-tagged-arguments-face):
New backward-compatibility aliases for renamed faces.
(sieve-control-commands-face, sieve-action-commands-face)
(sieve-test-commands-face, sieve-tagged-arguments-face):
Use renamed sieve faces.
2005-05-17 Katsumi Yamaoka <yamaoka(a)jpl.org>
* sieve-manage.el (sieve-manage-log): Add :group.
(sieve-manage-default-user): Diito.
(sieve-manage-server-eol, sieve-manage-client-eol): Ditto.
(sieve-manage-streams, sieve-manage-stream-alist): Ditto.
(sieve-manage-authenticators): Ditto.
(sieve-manage-authenticator-alist): Ditto.
(sieve-manage-default-port): Ditto.
* sieve-mode.el (sieve-control-commands-face): Add :group.
(sieve-action-commands-face): Ditto.
(sieve-test-commands-face): Ditto.
(sieve-tagged-arguments-face): Ditto.
- ------- ChangeLog Entries from xemacs-packages/texinfo/ChangeLog -------
2005-09-26 Norbert Koch <viteno(a)xemacs.org>
* Makefile (VERSION): XEmacs package 1.30 released.
2005-09-25 Adrian Aichner <adrian(a)xemacs.org>
* texinfmt.el: Minor sync with GNU Emacs texinfmt-version "2.41 of
1 Mar 2005".
* texinfmt.el (texinfmt-version): New.
* texinfmt.el (texinfo-format-buffer): Restore use of
coding-system-for-write (sync)
* texinfmt.el (texinfo-pre-format-hook): New.
* texinfmt.el (texinfo-format-region): Run texinfo-pre-format-hook
(sync).
* texinfmt.el (texinfo-format-buffer-1): Use buffer-disable-undo
(sync).
* texinfmt.el (texinfo-append-refill): Generalize refill regexp
(sync).
* texinfmt.el (texinfo-paragraphindent): Use string-to-number (sync).
* texinfmt.el (texinfo-format-printindex): My genuine fix for
Message-ID: <9ea6aaa80503091939552b5e23(a)mail.gmail.com>.
* texinfmt.el (texinfo-print-index): Adjust index entry format (sync).
* texinfo.el: Minor sync with GNU Emacs.
* texinfo.el (texinfo): Typo fix sync.
* texinfo.el (texinfo-mode-hook): New. Not used yet.
* texinfo.el (texinfo-imenu-generic-expression): Typo fix sync.
* texinfo.el (texinfo-environments): Ditto.
* texinfo.el (texinfo-environment-regexp): Ditto.
* texinfo.el (texinfo-font-lock-keywords): Ditto.
* texinfo.el (texinfo-insert-quote): Ditto.
* texinfo.el (texinfo-show-structure): Ditto.
Installing These:
================
Manually:
- --------
1) Download the packages that you want to install from:
/ftp.xemacs.org:/pub/xemacs/beta/experimental/packages/
2) Unpack them to: [1]
/usr/local/lib/xemacs/xemacs-packages/
3) Re-start XEmacs.
Using XEmacs Package Tools (XEmacs 21.[245].x):
- ----------------------------------------------
1) Tools -> Packages -> Add Download Site -> Pre-Releases
2) Tools -> Packages -> List and Install
3) Select the packages you wish to install (there are brief
instructions at the bottom of the packages buffer).
4) Packages -> Install/Remove Selected
5) Re-start XEmacs.
Using XEmacs Package Tools (XEmacs 21.1.14):
- -------------------------------------------
1) Options -> Manage Packages -> Add Download Site -> Pre-Releases
2) Options -> Manage Packages -> List and Install
3 - 5) As per XEmacs 21.[245].x.
norbert - XEmacs Package Release Manager.
Footnotes:
[1] Note: Mule packages should be installed into:
/usr/local/lib/xemacs/mule-packages/
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.2.7 (FreeBSD)
iD8DBQFDN5TTgu3ywdHdhM0RApK7AJ4k0ThHV1MDtmuX52PUeVtprl6K6ACdE+LM
MewWuWh/RCsRnQRYGQl73aU=
=YJNt
-----END PGP SIGNATURE-----
- 1 participants
- 0 comments
False Alarm [Was: Build error - 21.5.19 - optional-libs are bad]
18 years, 7 months
Matthew Persico
Matthew Persico
NEVER MIND.
Cygwin's link was being called instead of MS's link.
FWIW, I downladed and compiled zlib-1.2.2 and it seems ok to use in
place of the 1.2.1 version.
On Wed, 9 Mar 2005 19:40:23 -0500, Matthew Persico
<matthew.persico(a)gmail.com> wrote:
> FYI -
> Not an xemacs problem per-se but at
> http://ftp.za.xemacs.org/xemacs/aux/ it is recommended to download
> http://ftp.xemacs.org/pub/xemacs/aux/win32/optional-libs.exe for jpeg,
> zlib, etc.
>
> For starters, that link gets you
> 404
> Not Found
> The requested URL /pub/xemacs/aux/win32/optional-libs.exe was not
> found on this server.
>
> Poking around in http://ftp.xemacs.org/pub/xemacs/aux/win32/ directly
> reveals a readme that points to a page that leads to
> http://www.xemacs.org/Download/win32/optional-libs.exe.
>
> Upon downloading, expanding and starting the builb, I get this:
> D:\src\xemacs\xemacs-21.5.19\nt>nmake install /f xemacs.mak
>
> Microsoft (R) Program Maintenance Utility Version 6.00.8168.0
> Copyright (C) Microsoft Corp 1988-1998. All rights reserved.
>
> WARNING: Compiling without dependency information.
> Creating D:\src\xemacs\xemacs-21.5.19\lib-src\config.values
> --------------------------------------------------------------------
> OS version:
>
> Microsoft Windows XP [Version 5.1.2600]
> OS: Windows_NT
>
> XEmacs 21.5-b19 "chives" (+CVS-20050217) configured for `i586-pc-win32'.
>
> Building XEmacs using "NMAKE".
> Building XEmacs using make flags " ".
> Building XEmacs in source tree "D:\\src\\xemacs\\xemacs-21.5.19".
> For src, using compiler "cl -nologo -W3 -DSTRICT -Zi -Od -MDd -c -TP
> -ID:\src\xemacs\xemacs-21.5.19\nt\inc -ID:\src\xemacs\xemacs
> -21.5.19\src -I"D:\src\xemacs\optional-libs\xpm-3.4k"
> -I"D:\src\xemacs\optional-libs\xpm-3.4k\lib"
> -I"D:\src\xemacs\optional-libs\l
> ibpng-1.2.8" -I"D:\src\xemacs\optional-libs\zlib-1.2.1"
> -I"D:\src\xemacs\optional-libs\jpeg-6b"
> -I"D:\src\xemacs\optional-libs\zlib-
> 1.2.1" -DHAVE_MS_WINDOWS -DHAVE_XPM -DFOR_MSW -DHAVE_GIF -DHAVE_PNG
> -DHAVE_JPEG -DHAVE_ZLIB -DHAVE_MENUBARS -DHAVE_SCROLLBARS -DHAVE
> _TOOLBARS -DHAVE_WIDGETS -DHAVE_DIALOGS -DHAVE_NATIVE_SOUND -DPDUMP
> -DSYSTEM_MALLOC -DERROR_CHECK_ALL -DDEBUG_XEMACS -D_DEBUG
> -DWIN32_LEAN_AND_MEAN -DWIN32_NATIVE -Demacs -DHAVE_CONFIG_H
> -DPATH_VERSION=\"21.5-b19\" -DPATH_PROGNAME=\"xemacs\"
> -DEMACS_VERSION=\"21.5-b19\"
> -DEMACS_PROGNAME=\"xemacs\" -DSTACK_TRACE_EYE_CATCHER=xemacs_21_5_b
> 19_i586_pc_win32 -DPATH_PREFIX=\"..\" -DEMACS_MAJOR_VERSION=21
> -DEMACS_MINOR_VERSION=5 -DEMACS_BETA_VERSION=19 -DXEMACS_CODENAM
> E=\""chives"\" -DXEMACS_EXTRA_NAME=\"(+CVS-20050217)\"
> -DEMACS_CONFIGURATION=\"i586-pc-win32\"
> -DPATH_PACKAGEPATH=\""~\\.xemacs;;
> c:\\opt\\XEmacs\\site-packages;c:\\opt\\XEmacs\\xemacs-packages"\"".
> For lib-src, using compiler "cl -nologo -W3 -DSTRICT -Zi -Od -MDd
> -ID:\src\xemacs\xemacs-21.5.19\lib-src -ID:\src\xemacs\xemacs-21
> .5.19\src -DHAVE_CONFIG_H -DWIN32_NATIVE".
> Compiling as C++.
> Installing XEmacs in "c:\\opt\\XEmacs\\XEmacs-21.5-b19".
> Package path is
> "~\\.xemacs;;c:\\opt\\XEmacs\\site-packages;c:\\opt\\XEmacs\\xemacs-packages".
> Compiling in support for Microsoft Windows native GUI.
> Compiling in support for XPM images.
> Compiling in support for GIF images.
> Compiling in support for PNG images.
> Compiling in support for JPEG images.
> Compiling in support for GZIP compression/decompression.
> Compiling in support for toolbars.
> Compiling in support for dialogs.
> Compiling in support for widgets.
> Compiling in support for native sounds.
> Using portable dumper.
> Using system malloc.
> Using DLL version of C runtime library.
> Compiling in extra internal error-checking.
> NOTE: ---------------------------------------------------------
> NOTE: Compiling in support for runtime error-checking.
> NOTE: XEmacs will run noticeably more slowly as a result.
> NOTE: Error-checking is on by default for XEmacs beta releases.
> NOTE: ---------------------------------------------------------
> Compiling in debugging support (no slowdown).
> --------------------------------------------------------------------
> minitar.c
> D:\src\xemacs\optional-libs\zlib-1.2.1\zlib.lib : fatal error LNK1136:
> invalid or corrupt file
> NMAKE : fatal error U1077: 'cl' : return code '0x2'
> Stop.
> --
> Matthew O. Persico
>
--
Matthew O. Persico
- 3 participants
- 5 comments
Next problem compiling XEmacs .texi sources to .info with texinfmt.el
18 years, 7 months
Adrian Aichner
Adrian Aichner
Here is where I left off in case anybody wants to takes this up before me.
On Windows, just build XEmacs without MAKEINFO defined to use external
makeinfo.exe.
This will default to
MAKEINFO=$(XEMACS_BATCH_PACKAGES) -l texinfmt -f batch-texinfo-format
in xemacs.mak.
Best regards,
Adrian
cd c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\man\internals
"c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\lib-src\i" "c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\src\xemacs.exe" -vanilla -batch -l texinfmt -f batch-texinfo-format internals.texi
texinfo formatting c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\man\internals\internals.texi...
Formatting Info file...
Formatting Info file: ../../info/internals.info
Converting internals.texi to Info format...
Removing trailing whitespace from Info buffer...
Formatting: Introduction ...
Formatting: Authorship of XEmacs ...
Formatting: CODING ...
Formatting: SUPPORT ...
Formatting: A History of Emacs ...
Formatting: Through Version 18 ...
Formatting: Epoch ...
Formatting: Lucid Emacs ...
Formatting: GNU Emacs 19 ...
Formatting: GNU Emacs 20 ...
Formatting: XEmacs ...
Formatting: The XEmacs Split ...
Formatting: Ben Wing's attempts ...
Formatting: Jamie Zawinski's attempts ...
Formatting: XEmacs from the Outside ...
Formatting: The Lisp Language ...
Formatting: XEmacs from the Perspective of Building ...
Formatting: Build-Time Dependencies ...
Formatting: The Modules of XEmacs ...
Formatting: A Summary of the Various XEmacs Modules ...
>> Error: (error "Multi-column table width, 105 chars, is greater than page width, 70 chars.")
>> point at
>>
>> ＠item
>> ＠file{Emacs.ad.h} ＠tab ＠ref{Modules for Interfacing with X Windows}.
>> ＠item
>> ＠file{EmacsFrame
NMAKE: fatal error U1077: '"c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\lib-src\i"' : return code '0x1'
Stop.
Compilation exited abnormally with code 2 at Sun Sep 25 23:26:46
--
Adrian Aichner
mailto:adrian＠xemacs.org
http://www.xemacs.org/
- 1 participants
- 0 comments
[Bug: 21.5-b21] trapping problems with call-process-done
18 years, 7 months
clemens＠ghanima.endorphin.org
clemens＠ghanima.endorphin.org
================================================================
Dear Bug Team!
My XEmacs 21.5b21 installation has problems with trapping errors
correctly, especially in the process.el framework. Have a look
at this backtrace (edited a bit) :
(12) (error/warning) Error in `pre-idle-hook' (resetting to nil): Attempt to throw outside of function:To catch `call-process-done' with value `0'
^^^^^^^^^^^^^^^^^^ that's the symbol
Backtrace follows:
# bind (inhibit-quit)
throw(call-process-done 0)
# bind (status proc)
#<compiled-function (proc status) "...(64)" [status coding-system-for-write stderr errbuf proc process-synchronize-point write-region-internal 1 buffer-size nil major-rms-kludge-city process-status exit set-process-sentinel throw call-process-done process-exit-status signal] 8>(#<process "*call-process*" pid 10519 state:exit> "finished\n")
# (unwind-protect ...)
("execute_internal_event()" "[internal]")
dispatch-non-command-events()
# (condition-case ... . ((nil)))
progress-feedback-dispatch-non-command-events()
[...] cutted
font-lock-fontify-pending-extents()
#<compiled-function nil "...(10)" [font-lock-pending-buffer-table hash-table-count 0 font-lock-fontify-pending-extents] 2>()
# (unwind-protect ...)
call-with-condition-handler(#<compiled-function (__call_trapping_errors_arg__) "...(17)" [__call_trapping_errors_arg__ errstr error-message-string lwarn general warning "Error in %s: %s\n\nBacktrace follows:\n\n%s" "unknown" backtrace-in-condition-handler-eliminating-handler] 8> #<compiled-function nil "...(10)" [font-lock-pending-buffer-table hash-table-count 0 font-lock-fontify-pending-extents] 2>)
^^ Here we have the (with-trapping-errors ..) form that actually
catches the error (coming from font-lock.el), but should not because (see below)
# (condition-case ... . ((error)))
font-lock-pre-idle-hook()
# (unwind-protect ...)
# (catch #<INTERNAL OBJECT (XEmacs bug?) (opaque, size=0) 0x91d8020> ...)
# (unwind-protect ...)
# (unwind-protect ...)
# bind (inhibit-quit)
# (unwind-protect ...)
("execute_internal_event()" "[internal]")
# (unwind-protect ...)
accept-process-output(#<process "*call-process*" pid 10519 state:exit>)
byte-code("..." [display eof-sent end start inbuf proc process-send-region process-send-eof t accept-process-output process-synchronize-point sit-for 0] 5)
# (condition-case ... . ((quit (byte-code "ÃÄ\n\" ¬Å\n!Æ\n!Ç\n!«uÈÉ!ªo" [display eof-sent proc process-send-signal SIGINT process-send-eof accept-process-output process-synchronize-point sit-for 0] 3))))
# bind (eof-sent)
byte-code("..." [eof-sent inbuf stderr no-wait errbuf proc set-process-sentinel lambda (proc status) (set-process-sentinel proc nil) (process-synchronize-point proc) with-current-buffer write-region-internal 1 (1+ (buffer-size)) (nil (quote major-rms-kludge-city) nil coding-system-for-write) kill-buffer #<compiled-function (proc status) "...(64)" [status coding-system-for-write stderr errbuf proc process-synchronize-point write-region-internal 1 buffer-size nil major-rms-kludge-city process-status exit set-process-sentinel throw call-process-done process-exit-status signal] 8> nil (byte-code " «Æ
\n $Ç
!ÈÉ
!Ê
!«uËÌ!ªo" [display eof-sent end start inbuf proc process-send-region process-send-eof t accept-process-output process-synchronize-point sit-for 0] 5) ((quit (byte-code "ÃÄ\n\" ¬Å\n!Æ\n!Ç\n!«uÈÉ!ªo" [display eof-sent proc process-send-signal SIGINT process-send-eof accept-process-output process-synchronize-point sit-for 0] 3))) process-send-region proces
s-send-eof start end] 14)
# (catch call-process-done ...)
^^ Here we have the corresponding catch statement from process.el
# (unwind-protect ...)
# bind (stderr)
# (unwind-protect ...)
# bind (proc inbuf errbuf kill-inbuf kill-errbuf no-wait start end args display buffer infile program)
call-process-internal("/usr/bin/w3m" (#<buffer "show-+inbox"> 1413 8148) t nil "-halfdump" "-o" "ext_halfdump=1" "-o" "strict_iso2022=0" "-o" "fix_width_conv=1" "-o" "use_jisx0201=0" "-o" "ucs_conv=1" "-I" "UTF-8" "-O" "UTF-8" "-T" "text/html" "-t" "8" "-cols" "114" "-o" "display_image=on" "-ppl" "64" "-ppc" "10")
and so on...
So either there is no handler for 'call-process-done on the catchlist,
or the logic of Fsignal matches too early for the other handler. Any
wild guess from an inside developer what could be that cause
before I try to find the problem? (Please take good guesses, as
this debugging appears to be really time consuming).
Also, this error isn't triggered always. Probably it's a GC issue, so
that some handlers are GC'd or something before they are
activated.. but to be honest: no idea..
Regards, Clemens
The complete backtrace:
(12) (error/warning) Error in `pre-idle-hook' (resetting to nil): Attempt to throw outside of function:To catch `call-process-done' with value `0'
Backtrace follows:
# bind (inhibit-quit)
throw(call-process-done 0)
# bind (status proc)
#<compiled-function (proc status) "...(64)" [status coding-system-for-write stderr errbuf proc process-synchronize-point write-region-internal 1 buffer-size nil major-rms-kludge-city process-status exit set-process-sentinel throw call-process-done process-exit-status signal] 8>(#<process "*call-process*" pid 10519 state:exit> "finished\n")
# (unwind-protect ...)
("execute_internal_event()" "[internal]")
dispatch-non-command-events()
# (condition-case ... . ((nil)))
progress-feedback-dispatch-non-command-events()
# bind (ext gutter-string val inhibit-read-only frame value message)
raw-append-progress-feedback("Fontifying show-+inbox... (regexps)" 16 #<x-frame "XEmacs" 0x38b03d>)
# bind (tmsg top frame value message label)
append-progress-feedback(font-lock "Fontifying show-+inbox... (regexps)" 16 nil)
# bind (frame value message label)
display-progress-feedback(font-lock "Fontifying show-+inbox... (regexps)" 16)
# bind (str)
# (unwind-protect ...)
# bind (args value fmt label)
progress-feedback-with-label(font-lock "Fontifying %s... (regexps)" 16 "show-+inbox")
# bind (highlights matcher keyword nkeywords iter old-progress progress bufname keywords case-fold-search loudly loudvar end start)
font-lock-fontify-keywords-region(1 13996 nil)
# (unwind-protect ...)
# bind (modified buffer-undo-list inhibit-read-only old-syntax-table buffer-file-name buffer-file-truename loudly end beg)
font-lock-default-fontify-region(1 13996 nil)
# bind (loudly end beg)
font-lock-fontify-region(1 13996)
# bind (val end beg)
#<compiled-function (beg end val) "...(5)" [end beg font-lock-fontify-region] 3>(1 13996 t)
map-range-table(#<compiled-function (beg end val) "...(5)" [end beg font-lock-fontify-region] 3> #<range-table [1 13996) t 0x4b264>)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# bind (dummy buffer)
#<compiled-function (buffer dummy) "...(47)" [font-lock-pending-buffer-table font-lock-range-table buffer remhash buffer-live-p clear-range-table map-extents #<compiled-function (ex dummy-maparg) "...(32)" [font-lock-range-table ex end beg extent-start-position extent-end-position 0 1 put-range-table t] 5> nil font-lock-pending t put-text-property map-range-table #<compiled-function (beg end val) "...(5)" [end beg font-lock-fontify-region] 3>] 9>(#<buffer "show-+inbox"> t)
# (unwind-protect ...)
maphash(#<compiled-function (buffer dummy) "...(47)" [font-lock-pending-buffer-table font-lock-range-table buffer remhash buffer-live-p clear-range-table map-extents #<compiled-function (ex dummy-maparg) "...(32)" [font-lock-range-table ex end beg extent-start-position extent-end-position 0 1 put-range-table t] 5> nil font-lock-pending t put-text-property map-range-table #<compiled-function (beg end val) "...(5)" [end beg font-lock-fontify-region] 3>] 9> #<hash-table size 0/29 weakness key 0x4b262>)
# (unwind-protect ...)
# bind (match-data)
font-lock-fontify-pending-extents()
#<compiled-function nil "...(10)" [font-lock-pending-buffer-table hash-table-count 0 font-lock-fontify-pending-extents] 2>()
# (unwind-protect ...)
call-with-condition-handler(#<compiled-function (__call_trapping_errors_arg__) "...(17)" [__call_trapping_errors_arg__ errstr error-message-string lwarn general warning "Error in %s: %s\n\nBacktrace follows:\n\n%s" "unknown" backtrace-in-condition-handler-eliminating-handler] 8> #<compiled-function nil "...(10)" [font-lock-pending-buffer-table hash-table-count 0 font-lock-fontify-pending-extents] 2>)
# (condition-case ... . ((error)))
font-lock-pre-idle-hook()
# (unwind-protect ...)
# (catch #<INTERNAL OBJECT (XEmacs bug?) (opaque, size=0) 0x91d8020> ...)
# (unwind-protect ...)
# (unwind-protect ...)
# bind (inhibit-quit)
# (unwind-protect ...)
("execute_internal_event()" "[internal]")
# (unwind-protect ...)
accept-process-output(#<process "*call-process*" pid 10519 state:exit>)
byte-code("..." [display eof-sent end start inbuf proc process-send-region process-send-eof t accept-process-output process-synchronize-point sit-for 0] 5)
# (condition-case ... . ((quit (byte-code "ÃÄ\n\" ¬Å\n!Æ\n!Ç\n!«uÈÉ!ªo" [display eof-sent proc process-send-signal SIGINT process-send-eof accept-process-output process-synchronize-point sit-for 0] 3))))
# bind (eof-sent)
byte-code("..." [eof-sent inbuf stderr no-wait errbuf proc set-process-sentinel lambda (proc status) (set-process-sentinel proc nil) (process-synchronize-point proc) with-current-buffer write-region-internal 1 (1+ (buffer-size)) (nil (quote major-rms-kludge-city) nil coding-system-for-write) kill-buffer #<compiled-function (proc status) "...(64)" [status coding-system-for-write stderr errbuf proc process-synchronize-point write-region-internal 1 buffer-size nil major-rms-kludge-city process-status exit set-process-sentinel throw call-process-done process-exit-status signal] 8> nil (byte-code " «Æ
\n $Ç
!ÈÉ
!Ê
!«uËÌ!ªo" [display eof-sent end start inbuf proc process-send-region process-send-eof t accept-process-output process-synchronize-point sit-for 0] 5) ((quit (byte-code "ÃÄ\n\" ¬Å\n!Æ\n!Ç\n!«uÈÉ!ªo" [display eof-sent proc process-send-signal SIGINT process-send-eof accept-process-output process-synchronize-point sit-for 0] 3))) process-send-region proces
s-send-eof start end] 14)
# (catch call-process-done ...)
# (unwind-protect ...)
# bind (stderr)
# (unwind-protect ...)
# bind (proc inbuf errbuf kill-inbuf kill-errbuf no-wait start end args display buffer infile program)
call-process-internal("/usr/bin/w3m" (#<buffer "show-+inbox"> 1413 8148) t nil "-halfdump" "-o" "ext_halfdump=1" "-o" "strict_iso2022=0" "-o" "fix_width_conv=1" "-o" "use_jisx0201=0" "-o" "ucs_conv=1" "-I" "UTF-8" "-O" "UTF-8" "-T" "text/html" "-t" "8" "-cols" "114" "-o" "display_image=on" "-ppl" "64" "-ppc" "10")
apply(call-process-internal "/usr/bin/w3m" (#<buffer "show-+inbox"> 1413 8148) t nil ("-halfdump" "-o" "ext_halfdump=1" "-o" "strict_iso2022=0" "-o" "fix_width_conv=1" "-o" "use_jisx0201=0" "-o" "ucs_conv=1" "-I" "UTF-8" "-O" "UTF-8" "-T" "text/html" "-t" "8" "-cols" "114" "-o" "display_image=on" "-ppl" "64" "-ppc" "10"))
# bind (coding-system-for-read coding-system-for-write cs-r cs-w args displayp buffer infile program)
call-process("/usr/bin/w3m" (#<buffer "show-+inbox"> 1413 8148) t nil "-halfdump" "-o" "ext_halfdump=1" "-o" "strict_iso2022=0" "-o" "fix_width_conv=1" "-o" "use_jisx0201=0" "-o" "ucs_conv=1" "-I" "UTF-8" "-O" "UTF-8" "-T" "text/html" "-t" "8" "-cols" "114" "-o" "display_image=on" "-ppl" "64" "-ppc" "10")
apply(call-process "/usr/bin/w3m" (#<buffer "show-+inbox"> 1413 8148) t nil ("-halfdump" "-o" "ext_halfdump=1" "-o" "strict_iso2022=0" "-o" "fix_width_conv=1" "-o" "use_jisx0201=0" "-o" "ucs_conv=1" "-I" "UTF-8" "-O" "UTF-8" "-T" "text/html" "-t" "8" "-cols" "114" "-o" "display_image=on" "-ppl" "64" "-ppc" "10"))
# bind (args displayp buffer deletep program end start)
call-process-region(1413 8148 "/usr/bin/w3m" t t nil "-halfdump" "-o" "ext_halfdump=1" "-o" "strict_iso2022=0" "-o" "fix_width_conv=1" "-o" "use_jisx0201=0" "-o" "ucs_conv=1" "-I" "UTF-8" "-O" "UTF-8" "-T" "text/html" "-t" "8" "-cols" "114" "-o" "display_image=on" "-ppl" "64" "-ppc" "10")
apply(call-process-region 1413 8148 "/usr/bin/w3m" t t nil ("-halfdump" "-o" "ext_halfdump=1" "-o" "strict_iso2022=0" "-o" "fix_width_conv=1" "-o" "use_jisx0201=0" "-o" "ucs_conv=1" "-I" "UTF-8" "-O" "UTF-8" "-T" "text/html" "-t" "8" "-cols" "114" "-o" "display_image=on" "-ppl" "64" "-ppc" "10"))
# bind (default-directory temporary-file-directory process-environment)
(let ((process-environment (copy-sequence process-environment)) (temporary-file-directory (if (file-directory-p w3m-profile-directory) (file-name-as-directory w3m-profile-directory) (temp-directory))) (default-directory (cond ((file-directory-p w3m-profile-directory) (file-name-as-directory w3m-profile-directory)) ((file-directory-p (expand-file-name "~/")) (expand-file-name "~/")) (t temporary-file-directory)))) (setenv "TEMP" temporary-file-directory) (setenv "TMPDIR" temporary-file-directory) (dolist (pair w3m-command-environment) (setenv (car pair) (cdr pair))) (w3m-static-if (featurep (quote xemacs)) (goto-char (point-max))) (apply (quote call-process-region) (point-min) (point-max) (or w3m-halfdump-command w3m-command) t t nil (w3m-w3m-expand-arguments (append w3m-halfdump-command-arguments w3m-halfdump-command-common-arguments (when (member "image" w3m-compile-options) (if (and w3m-treat-image-size (or (w3m-display-graphic-p) (and w3m-pixels-per-line w3m-pixels-per-c
haracter))) (list "-o" "display_image=on" "-ppl" (number-to-string (or w3m-pixels-per-line (w3m-static-if (featurep (quote xemacs)) (font-height (face-font (quote default))) (frame-char-height)))) "-ppc" (number-to-string (or w3m-pixels-per-character (w3m-static-if (featurep (quote xemacs)) (font-width (face-font (quote default))) (frame-char-width))))) (list "-o" "display_image=off")))))))
(w3m-process-with-environment w3m-command-environment (w3m-static-if (featurep (quote xemacs)) (goto-char (point-max))) (apply (quote call-process-region) (point-min) (point-max) (or w3m-halfdump-command w3m-command) t t nil (w3m-w3m-expand-arguments (append w3m-halfdump-command-arguments w3m-halfdump-command-common-arguments (when (member "image" w3m-compile-options) (if (and w3m-treat-image-size (or (w3m-display-graphic-p) (and w3m-pixels-per-line w3m-pixels-per-character))) (list "-o" "display_image=on" "-ppl" (number-to-string (or w3m-pixels-per-line (w3m-static-if (featurep (quote xemacs)) (font-height (face-font (quote default))) (frame-char-height)))) "-ppc" (number-to-string (or w3m-pixels-per-character (w3m-static-if (featurep (quote xemacs)) (font-width (face-font (quote default))) (frame-char-width))))) (list "-o" "display_image=off")))))))
# bind (default-process-coding-system coding-system-for-write coding-system-for-read)
(let* ((coding-system-for-read w3m-output-coding-system) (coding-system-for-write (if (eq (quote binary) w3m-input-coding-system) w3m-current-coding-system w3m-input-coding-system)) (default-process-coding-system (cons coding-system-for-read coding-system-for-write))) (w3m-process-with-environment w3m-command-environment (w3m-static-if (featurep (quote xemacs)) (goto-char (point-max))) (apply (quote call-process-region) (point-min) (point-max) (or w3m-halfdump-command w3m-command) t t nil (w3m-w3m-expand-arguments (append w3m-halfdump-command-arguments w3m-halfdump-command-common-arguments (when (member "image" w3m-compile-options) (if (and w3m-treat-image-size (or (w3m-display-graphic-p) (and w3m-pixels-per-line w3m-pixels-per-character))) (list "-o" "display_image=on" "-ppl" (number-to-string (or w3m-pixels-per-line (w3m-static-if (featurep (quote xemacs)) (font-height (face-font (quote default))) (frame-char-height)))) "-ppc" (number-to-string (or w3m-pixels-per-characte
r (w3m-static-if (featurep (quote xemacs)) (font-width (face-font (quote default))) (frame-char-width))))) (list "-o" "display_image=off"))))))))
# bind (charset)
w3m-rendering-half-dump(nil)
# bind (charset)
w3m-rendering-buffer(nil)
================================================================
System Info to help track down your bug:
---------------------------------------
uname -a: Linux ghanima.endorphin.org 2.6.12 #5 Tue Jul 26 17:07:50 CEST 2005 i686 AMD Athlon(tm) 64 Processor 3000+ AuthenticAMD GNU/Linux
./configure '--with-cflags=-march=i686 -momit-leaf-frame-pointer -O2 -fno-strict-aliasing' '--with-png' '--with-jpeg' '--with-tiff' '--without-gnome' '--with-xpm' '--with-xft=emacs,gauges,menubars' '--with-zlib' '--with-xface' '--with-athena=3d' '--enable-pdump' '--enable-dump-in-exec' '--enable-bignum=gmp' '--enable-menubars=lucid' '--enable-scrollbars=lucid' '--enable-dialogs=athena' '--enable-widgets=athena' '--without-gtk' '--enable-mule'
XEmacs 21.5-b21 "corn" (+Xft+CVS-20050527) configured for `i686-pc-linux'.
WARNING: --------------------------------------------------------------
WARNING: This was produced from a new autoconf-2.5 based configuration.
WARNING: If this configuration seems buggy then copy etc/configure-2.13
WARNING: to configure and try again. Also please report the bug.
WARNING: --------------------------------------------------------------
Compilation Environment and Installation Defaults:
Source code location: /home/clemens/xemacs-cvs
Installation prefix: /usr/local
Operating system description file: `s/linux.h'
Machine description file: `m/intel386.h'
Compiler version: gcc (GCC) 3.4.4 (Gentoo 3.4.4, ssp-3.4.4-1.0, pie-8.7.8)
- GCC specs file: /usr/lib/gcc/i686-pc-linux-gnu/3.4.4/specs
- Compiler command: gcc -Wall -Wno-switch -Wundef -Wsign-compare -Wno-char-subscripts -Wpacked -Wunused-parameter -g -march=i686 -momit-leaf-frame-pointer -O2 -fno-strict-aliasing
libc version: 2.3.5
Relocating allocator for buffers: no
GNU version of malloc: yes
- Using Doug Lea's new malloc from the GNU C Library.
Window System:
Compiling in support for the X window system:
- X Windows headers location: /usr/X11R6/include
- X Windows libraries location: /usr/X11R6/lib
- Handling WM_COMMAND properly.
Compiling in support for the Athena widget set:
- Athena headers location: X11/Xaw3d
- Athena library to link: Xaw3d
Using Lucid menubars.
- Using Xft to render antialiased fonts in menubars.
WARNING: This feature will be replaced with a face.
Using Lucid scrollbars.
Using Athena dialog boxes.
Using Athena native widgets.
- Using Xft to render antialiased fonts in tab controls.
WARNING: This feature will be replaced with a face.
- Using Xft to render antialiased fonts in progress bars.
WARNING: This feature will be replaced with a face.
WARNING: This feature not yet implemented; setting ignored.
TTY:
Compiling in support for ncurses.
Compiling in support for GPM (General Purpose Mouse).
Images:
Compiling in support for GIF images (builtin).
Compiling in support for XPM images.
Compiling in support for PNG images.
Compiling in support for JPEG images.
Compiling in support for TIFF images.
Compiling in support for X-Face message headers.
Sound:
Compiling in support for sound (native).
Databases:
Compiling in support for LDAP.
Compiling in support for PostgreSQL.
- Using PostgreSQL header file: libpq-fe.h
- Using PostgreSQL V7 bindings.
Internationalization:
Compiling in support for Mule (multi-lingual Emacs).
Compiling in support for XIM (X11R5+ I18N input method).
- Using Motif to provide XIM support.
Compiling in support for the WNN input method on Mule.
Mail:
Compiling in support for "file" mail spool file locking method.
Other Features:
Inhibiting IPv6 canonicalization at startup.
Compiling in support for dynamic shared object modules.
Compiling in support for more number types using the GNU MP library.
Using the new GC algorithms.
WARNING: ---------------------------------------------------------
WARNING: The new algorithms are experimental. They are enabled by
WARNING: default for this release. Use `--disable-kkcc' to
WARNING: turn it off.
WARNING: ---------------------------------------------------------
Using the new allocator.
WARNING: ---------------------------------------------------------
WARNING: The new allocator is experimental. It is enabled by
WARNING: default for this release. Use `--disable-mc-alloc' to
WARNING: turn it off.
WARNING: ---------------------------------------------------------
Using the new portable dumper.
Dumping into executable.
Compiling in support for extra debugging code.
Compiling in support for runtime error checking.
WARNING: ---------------------------------------------------------
WARNING: XEmacs will run noticeably more slowly as a result.
WARNING: Error checking is on by default for XEmacs beta releases.
WARNING: ---------------------------------------------------------
Load-Path Lisp Shadows:
----------------------
(/home/clemens/.xemacs/emacs-w3m/w3m-hist
/usr/local/lib/xemacs/site-lisp/emacs-w3m/w3m-hist
/home/clemens/.xemacs/emacs-w3m/octet
/usr/local/lib/xemacs/site-lisp/emacs-w3m/octet
/home/clemens/.xemacs/emacs-w3m/w3m-lnum
/usr/local/lib/xemacs/site-lisp/emacs-w3m/w3m-lnum
/home/clemens/.xemacs/emacs-w3m/w3m-perldoc
/usr/local/lib/xemacs/site-lisp/emacs-w3m/w3m-perldoc
/home/clemens/.xemacs/emacs-w3m/w3m-proc
/usr/local/lib/xemacs/site-lisp/emacs-w3m/w3m-proc
/home/clemens/.xemacs/emacs-w3m/w3m-bitmap
/usr/local/lib/xemacs/site-lisp/emacs-w3m/w3m-bitmap
/home/clemens/.xemacs/emacs-w3m/w3m-cookie
/usr/local/lib/xemacs/site-lisp/emacs-w3m/w3m-cookie
/home/clemens/.xemacs/emacs-w3m/w3m-search
/usr/local/lib/xemacs/site-lisp/emacs-w3m/w3m-search
/home/clemens/.xemacs/emacs-w3m/w3m-namazu
/usr/local/lib/xemacs/site-lisp/emacs-w3m/w3m-namazu
/home/clemens/.xemacs/emacs-w3m/w3m-fsf
/usr/local/lib/xemacs/site-lisp/emacs-w3m/w3m-fsf
/home/clemens/.xemacs/emacs-w3m/w3m-form
/usr/local/lib/xemacs/site-lisp/emacs-w3m/w3m-form
/home/clemens/.xemacs/emacs-w3m/w3m-tabmenu
/usr/local/lib/xemacs/site-lisp/emacs-w3m/w3m-tabmenu
/home/clemens/.xemacs/emacs-w3m/w3m-image
/usr/local/lib/xemacs/site-lisp/emacs-w3m/w3m-image
/home/clemens/.xemacs/emacs-w3m/mime-w3m
/usr/local/lib/xemacs/site-lisp/emacs-w3m/mime-w3m
/home/clemens/.xemacs/emacs-w3m/w3m-filter
/usr/local/lib/xemacs/site-lisp/emacs-w3m/w3m-filter
/home/clemens/.xemacs/emacs-w3m/w3m-e21
/usr/local/lib/xemacs/site-lisp/emacs-w3m/w3m-e21
/home/clemens/.xemacs/emacs-w3m/w3m-weather
/usr/local/lib/xemacs/site-lisp/emacs-w3m/w3m-weather
/home/clemens/.xemacs/emacs-w3m/w3m-antenna
/usr/local/lib/xemacs/site-lisp/emacs-w3m/w3m-antenna
/home/clemens/.xemacs/emacs-w3m/w3m-om
/usr/local/lib/xemacs/site-lisp/emacs-w3m/w3m-om
/home/clemens/.xemacs/emacs-w3m/w3m
/usr/local/lib/xemacs/site-lisp/emacs-w3m/w3m
/home/clemens/.xemacs/emacs-w3m/w3m-favicon
/usr/local/lib/xemacs/site-lisp/emacs-w3m/w3m-favicon
/home/clemens/.xemacs/emacs-w3m/w3m-load
/usr/local/lib/xemacs/site-lisp/emacs-w3m/w3m-load
/home/clemens/.xemacs/emacs-w3m/w3m-rss
/usr/local/lib/xemacs/site-lisp/emacs-w3m/w3m-rss
/home/clemens/.xemacs/emacs-w3m/mew-w3m
/usr/local/lib/xemacs/site-lisp/emacs-w3m/mew-w3m
/home/clemens/.xemacs/emacs-w3m/w3m-dtree
/usr/local/lib/xemacs/site-lisp/emacs-w3m/w3m-dtree
/home/clemens/.xemacs/emacs-w3m/w3m-xmas
/usr/local/lib/xemacs/site-lisp/emacs-w3m/w3m-xmas
/home/clemens/.xemacs/emacs-w3m/w3m-symbol
/usr/local/lib/xemacs/site-lisp/emacs-w3m/w3m-symbol
/home/clemens/.xemacs/emacs-w3m/w3m-ucs
/usr/local/lib/xemacs/site-lisp/emacs-w3m/w3m-ucs
/home/clemens/.xemacs/emacs-w3m/w3m-bug
/usr/local/lib/xemacs/site-lisp/emacs-w3m/w3m-bug
/home/clemens/.xemacs/emacs-w3m/w3m-bookmark
/usr/local/lib/xemacs/site-lisp/emacs-w3m/w3m-bookmark
/home/clemens/.xemacs/emacs-w3m/w3m-util
/usr/local/lib/xemacs/site-lisp/emacs-w3m/w3m-util
/home/clemens/.xemacs/emacs-w3m/w3m-ccl
/usr/local/lib/xemacs/site-lisp/emacs-w3m/w3m-ccl
/home/clemens/.xemacs/emacs-w3m/w3m-e20
/usr/local/lib/xemacs/site-lisp/emacs-w3m/w3m-e20
/home/clemens/.xemacs/emacs-w3m/w3m-e19
/usr/local/lib/xemacs/site-lisp/emacs-w3m/w3m-e19
/home/clemens/.xemacs/apel-10.6/poem-ltn1
/usr/local/lib/xemacs/xemacs-packages/lisp/apel/poem-ltn1
/home/clemens/.xemacs/apel-10.6/poem
/usr/local/lib/xemacs/xemacs-packages/lisp/apel/poem
/home/clemens/.xemacs/apel-10.6/poe
/usr/local/lib/xemacs/xemacs-packages/lisp/apel/poe
/home/clemens/.xemacs/apel-10.6/pccl-20
/usr/local/lib/xemacs/xemacs-packages/lisp/apel/pccl-20
/home/clemens/.xemacs/apel-10.6/atype
/usr/local/lib/xemacs/xemacs-packages/lisp/apel/atype
/home/clemens/.xemacs/apel-10.6/calist
/usr/local/lib/xemacs/xemacs-packages/lisp/apel/calist
/home/clemens/.xemacs/apel-10.6/richtext
/usr/local/lib/xemacs/xemacs-packages/lisp/apel/richtext
/home/clemens/.xemacs/apel-10.6/mcs-xmu
/usr/local/lib/xemacs/xemacs-packages/lisp/apel/mcs-xmu
/home/clemens/.xemacs/apel-10.6/static
/usr/local/lib/xemacs/xemacs-packages/lisp/apel/static
/home/clemens/.xemacs/apel-10.6/pces
/usr/local/lib/xemacs/xemacs-packages/lisp/apel/pces
/home/clemens/.xemacs/apel-10.6/pccl
/usr/local/lib/xemacs/xemacs-packages/lisp/apel/pccl
/home/clemens/.xemacs/apel-10.6/pcustom
/usr/local/lib/xemacs/xemacs-packages/lisp/apel/pcustom
/home/clemens/.xemacs/apel-10.6/broken
/usr/local/lib/xemacs/xemacs-packages/lisp/apel/broken
/home/clemens/.xemacs/apel-10.6/pces-raw
/usr/local/lib/xemacs/xemacs-packages/lisp/apel/pces-raw
/home/clemens/.xemacs/apel-10.6/mcs-xm
/usr/local/lib/xemacs/xemacs-packages/lisp/apel/mcs-xm
/home/clemens/.xemacs/apel-10.6/mule-caesar
/usr/local/lib/xemacs/xemacs-packages/lisp/apel/mule-caesar
/home/clemens/.xemacs/apel-10.6/pces-xm
/usr/local/lib/xemacs/xemacs-packages/lisp/apel/pces-xm
/home/clemens/.xemacs/apel-10.6/mcs-ltn1
/usr/local/lib/xemacs/xemacs-packages/lisp/apel/mcs-ltn1
/home/clemens/.xemacs/apel-10.6/pces-xfc
/usr/local/lib/xemacs/xemacs-packages/lisp/apel/pces-xfc
/home/clemens/.xemacs/apel-10.6/mcs-20
/usr/local/lib/xemacs/xemacs-packages/lisp/apel/mcs-20
/home/clemens/.xemacs/apel-10.6/pym
/usr/local/lib/xemacs/xemacs-packages/lisp/apel/pym
/home/clemens/.xemacs/apel-10.6/poem-xm
/usr/local/lib/xemacs/xemacs-packages/lisp/apel/poem-xm
/home/clemens/.xemacs/apel-10.6/apel-ver
/usr/local/lib/xemacs/xemacs-packages/lisp/apel/apel-ver
/home/clemens/.xemacs/apel-10.6/pces-20
/usr/local/lib/xemacs/xemacs-packages/lisp/apel/pces-20
/home/clemens/.xemacs/apel-10.6/file-detect
/usr/local/lib/xemacs/xemacs-packages/lisp/apel/file-detect
/home/clemens/.xemacs/apel-10.6/path-util
/usr/local/lib/xemacs/xemacs-packages/lisp/apel/path-util
/home/clemens/.xemacs/apel-10.6/inv-xemacs
/usr/local/lib/xemacs/xemacs-packages/lisp/apel/inv-xemacs
/home/clemens/.xemacs/apel-10.6/poe-xemacs
/usr/local/lib/xemacs/xemacs-packages/lisp/apel/poe-xemacs
/home/clemens/.xemacs/apel-10.6/emu
/usr/local/lib/xemacs/xemacs-packages/lisp/apel/emu
/home/clemens/.xemacs/apel-10.6/invisible
/usr/local/lib/xemacs/xemacs-packages/lisp/apel/invisible
/home/clemens/.xemacs/apel-10.6/install
/usr/local/lib/xemacs/xemacs-packages/lisp/apel/install
/home/clemens/.xemacs/apel-10.6/filename
/usr/local/lib/xemacs/xemacs-packages/lisp/apel/filename
/home/clemens/.xemacs/apel-10.6/mcharset
/usr/local/lib/xemacs/xemacs-packages/lisp/apel/mcharset
/home/clemens/.xemacs/apel-10.6/product
/usr/local/lib/xemacs/xemacs-packages/lisp/apel/product
/home/clemens/.xemacs/slime-cvs/bridge
/usr/local/lib/xemacs/xemacs-packages/lisp/ilisp/bridge
/home/clemens/.xemacs/slime-cvs/tree-widget
/usr/local/lib/xemacs/xemacs-packages/lisp/jde/tree-widget
/home/clemens/.xemacs/apel-10.6/timezone
/usr/local/lib/xemacs/xemacs-packages/lisp/xemacs-base/timezone
/home/clemens/.xemacs/apel-10.6/time-stamp
/usr/local/lib/xemacs/xemacs-packages/lisp/xemacs-base/time-stamp
/home/clemens/.xemacs/apel-10.6/env
/usr/local/lib/xemacs/xemacs-packages/lisp/xemacs-base/env
/home/clemens/.xemacs/mule-packages/lisp/mule-base/ethio-util
/usr/local/lib/xemacs-21.5-b21/lisp/mule/ethio-util
/home/clemens/.xemacs/mule-packages/lisp/mule-base/china-util
/usr/local/lib/xemacs-21.5-b21/lisp/mule/china-util
/home/clemens/.xemacs/mule-packages/lisp/mule-base/japan-util
/usr/local/lib/xemacs-21.5-b21/lisp/mule/japan-util
/home/clemens/.xemacs/mule-packages/lisp/mule-base/korea-util
/usr/local/lib/xemacs-21.5-b21/lisp/mule/korea-util
/home/clemens/.xemacs/mule-packages/lisp/mule-base/cyril-util
/usr/local/lib/xemacs-21.5-b21/lisp/mule/cyril-util
/home/clemens/.xemacs/mule-packages/lisp/mule-base/viet-util
/usr/local/lib/xemacs-21.5-b21/lisp/mule/viet-util
/home/clemens/.xemacs/custom
/usr/local/lib/xemacs-21.5-b21/lisp/custom
/usr/local/lib/xemacs/xemacs-packages/lisp/xemacs-base/easy-mmode
/usr/local/lib/xemacs-21.5-b21/lisp/easy-mmode
/home/clemens/.xemacs/apel-10.6/alist
/usr/local/lib/xemacs-21.5-b21/lisp/alist
/usr/local/lib/xemacs/xemacs-packages/lisp/xemacs-base/regexp-opt
/usr/local/lib/xemacs-21.5-b21/lisp/regexp-opt)
Installed XEmacs Packages:
-------------------------
(bbdb ver: 1.26 upstream: 2.34)
(xlib ver: 1.14 upstream: lg(a)xwem.org--2005/xlib--main--2.1--version-0)
(xetla ver: 1.0 upstream: steve(a)eicq.org--2005/xetla--main--1.0--version-0)
(xemacs-devel ver: 1.7 upstream: No-Upstream-Ver)
(xemacs-base ver: 1.97 upstream: No-Upstream-Ver)
(w3 ver: 1.31 upstream: 4.0pre47)
(vm ver: 7.22 upstream: 7.17)
(tm ver: 1.38 upstream: No-Upstream-Ver)
(textools ver: 1.15 upstream: No-Upstream-Ver)
(text-modes ver: 1.88 upstream: No-Upstream-Ver)
(texinfo ver: 1.29 upstream: No-Upstream-Ver)
(speedbar ver: 1.27 upstream: 0.14beta4)
(sh-script ver: 1.18 upstream: 2.0e)
(rmail ver: 1.14 upstream: No-Upstream-Ver)
(reftex ver: 1.34 upstream: 4.21)
(re-builder ver: 1.02 upstream: 1.20)
(python-modes ver: 1.06 upstream: No-Upstream-Ver)
(psgml ver: 1.44 upstream: 1.3.1)
(ps-print ver: 1.11 upstream: 6.5.6)
(prog-modes ver: 2.05 upstream: No-Upstream-Ver)
(perl-modes ver: 1.08 upstream: No-Upstream-Ver)
(pcomplete ver: 1.04 upstream: 1.1.6)
(pcl-cvs ver: 1.66 upstream: R-2_9_9)
(pc ver: 1.28 upstream: No-Upstream-Ver)
(os-utils ver: 1.36 upstream: No-Upstream-Ver)
(oo-browser ver: 1.04 upstream: 4.08)
(net-utils ver: 1.46 upstream: N/A)
(mmm-mode ver: 1.02 upstream: 0.4.7)
(mailcrypt ver: 2.14 upstream: 3.5.8)
(mail-lib ver: 1.73 upstream: No-Upstream-Ver)
(jde ver: 1.48 upstream: 2.3.2)
(ispell ver: 1.31 upstream: 3.6)
(ilisp ver: 1.33 upstream: 5.12.0)
(igrep ver: 1.13 upstream: 2.111)
(ibuffer ver: 1.09 upstream: No-Upstream-Ver)
(hm--html-menus ver: 1.23 upstream: 5.9)
(gnus ver: 1.85 upstream: 5.10.7)
(general-docs ver: 1.04 upstream: No-Upstream-Ver)
(fsf-compat ver: 1.15 upstream: No-Upstream-Ver)
(eterm ver: 1.17 upstream: No-Upstream-Ver)
(eshell ver: 1.1 upstream: 2.4.1)
(escreen ver: 1.01 upstream: 1.16)
(emerge ver: 1.11 upstream: No-Upstream-Ver)
(elib ver: 1.11 upstream: 1.0)
(eieio ver: 1.05 upstream: 0.17)
(efs ver: 1.33 upstream: 1.23)
(edit-utils ver: 2.24 upstream: No-Upstream-Ver)
(ediff ver: 1.53 upstream: 2.75)
(edebug ver: 1.21 upstream: No-Upstream-Ver)
(ecrypto ver: 0.19 upstream: 2.0)
(ecb ver: 1.22 upstream: 2.31)
(docbookide ver: 0.07000000000000001 upstream: 0.1)
(dired ver: 1.17 upstream: 7.13)
(dictionary ver: 1.15 upstream: 1.8)
(cookie ver: 1.15 upstream: No-Upstream-Ver)
(cc-mode ver: 1.43 upstream: 5.30.9)
(calc ver: 1.26 upstream: 2.02fX3)
(c-support ver: 1.21 upstream: No-Upstream-Ver)
(auctex ver: 1.46 upstream: 11.55)
(apel ver: 1.29 upstream: 10.2)
(mule-base ver: 1.47 upstream: No-Upstream-Ver)
(latin-unity ver: 1.15 upstream: 1.15)
(latin-euro-standards ver: 1.07 upstream: 1.07)
Installed Modules:
-----------------
Features:
--------
(view-less view ehelp electric xemacsbug shadow make-mode makefile
efs-dired dired-faces dired-xemacs dired debug bbdb-vcard bbdb-snarf
bbdb-mhe eval-expr bbdb-hooks bbdb-gui bbdb-com w3-style tempo
sgml-mode psgml psgml-html url-gw bbdb bbdb-autoloads mailcrypt
efs-x19.15 efs-fnh efs-ovwrt efs-netrc efs-defun efs efs-dump
package-ui package-get package-admin config w3m-form w3m w3m-hist
w3m-xmas path-util w3m-ccl pccl pccl-20 w3m-favicon w3m-image w3m-proc
w3m-util poem poem-xm pces pces-xfc pces-20 broken pces-xm poe-xemacs
poe ethio-util w3-hot url-file url-cache w3-xemac w3-xemacs w3-toolbar
xbm-button xpm-button w3-script w3-jscript w3-elisp w3-forms images
url-http url-cookie timezone pym edebug static apel-ver product
urlauth w3 w3-menu cus-edit cus-load w3-emulate w3-auto w3-parse url
mm w3-display w3-mouse advice advice-preload w3-imap w3-widget w3-vars
w3-keyword w3-cus url-parse url-vars css font disp-table mule-sysdp
w3-cfg w3-sysdp mail-extr mh-mime efs-cu mh-seq mh-identity mh-comp
regexp-opt mh-gnus smiley annotations mh-init mh-xemacs mh-utils
gnus-cite gnus-art mm-uu mml2015 gpg gnus-sum nnoo gnus-group
gnus-undo nnmail mail-source format-spec gnus-start gnus-spec gnus-int
gnus-range message mml mml-sec mml-smime smime dig mail-abbrevs
mailheader canlock sha1 hex-util gnus-win gnus gnus-ems gnus-xmas
messagexmas nnheader nnheaderxm mail-utils sendmail executable vcard
mm-view mm-decode mm-bodies mm-encode mailcap lpr mail-parse rfc2045
rfc2231 rfc2047 qp ietf-drums mm-util mail-prsvr mh-inc rfc822
mh-customize mh-loaddefs mh-loaddefs-autoloads gnus-util netrc
time-date parse-time mh-e mh-e-autoloads pmwiki-mode http-post
http-get hexl slime byte-optimize bytecomp byte-compile tree-widget
wid-edit apropos edmacro timer-funcs overlay font-lock cus-face
hyperspec thingatpt browse-url hideshow pp timer comint ring
xlib-autoloads xetla-autoloads xemacs-devel-autoloads
xemacs-base-autoloads w3-autoloads vm-autoloads tm-autoloads
textools-autoloads text-modes-autoloads texinfo-autoloads
speedbar-autoloads sh-script-autoloads rmail-autoloads
reftex-autoloads re-builder-autoloads python-modes-autoloads
psgml-autoloads ps-print-autoloads prog-modes-autoloads
perl-modes-autoloads pcomplete-autoloads pcl-cvs-autoloads
pc-autoloads os-utils-autoloads oo-browser-autoloads
net-utils-autoloads mmm-mode-autoloads mailcrypt-autoloads
mail-lib-autoloads jde-autoloads ispell-autoloads ilisp-autoloads
igrep-autoloads ibuffer-autoloads hm--html-menus-autoloads
gnus-autoloads general-docs-autoloads fsf-compat-autoloads
eterm-autoloads eshell-autoloads escreen-autoloads emerge-autoloads
elib-autoloads eieio-autoloads efs-autoloads edit-utils-autoloads
ediff-autoloads edebug-autoloads ecrypto-autoloads ecb-autoloads
docbookide-autoloads dired-autoloads dictionary-autoloads
cookie-autoloads cc-mode-autoloads calc-autoloads c-support-autoloads
auctex-autoloads apel-autoloads mule-base-autoloads
latin-unity-autoloads latin-euro-standards-autoloads modules-autoloads
mule-autoloads auto-autoloads loadhist rsz-minibuf auto-show
fontl-hooks x-iso8859-1 tibetan lao devanagari indian slovenian czech
romanian ccl code-cmds gutter-items menubar-items x-menubar
mode-motion mouse behavior itimer auto-save lisp-mode easymenu
easy-mmode iso8859-1 page buff-menu lib-complete cus-file derived
newcomment env text-props fontconfig frame obsolete cus-start custom
widget cl-extra cl cl-19 packages backquote wnn unicode xft
lucid-scrollbars cut-buffer xft-fonts lucid-menubars athena-dialogs x
c-balloon-help tty-frames tty toolbar native-sound scrollbar
unix-processes multicast network-streams subprocesses bigfloat ratio
bignum number-types modules menu-accelerator-support menubar md5
xemacs xim mule gutter tiff png gif jpeg xface xpm xbm lisp-float-type
file-coding linux dialog devices window-system base64)
- 2 participants
- 1 comments
proper way to do autodetection
18 years, 7 months
Ben Wing
Ben Wing
I am currently taking a class in statistical machine learning and it
occurs to me that there is a well-understood method for doing
autodetection robustly. In particular, it is an instance of what is
known as a classification problem: Given a bunch of input (patient
symptoms, properties of the text, etc.), correctly classify the input in
one of a set of classes (the patient's disease, the encoding of the
text, etc.). There are general methods that learn how to optimally do
this, given a set of preclassified input. In our case, we'd
[1] create a corpus of correctly classified examples -- basically, a
whole bunch of pieces of text, hopefully as varied as possible, along
with the correct encoding (manually determined);
[2] pick a bunch of features that we think might be relevant. There
could potentially be a large number of them -- in principle, you could
just use the entire text itself as a set of features, one per byte, but
you'd run into problems with data sparseness. In practice these
features might be (I'm just guessing here; it doesn't totally matter
what you choose but I'm sure there has been work done on how you choose
features for document classification, which is exactly what this is) the
byte values of each of the first 8 or 10 bytes of the text; the total
number and/or proportion of printing ASCII bytes, ESC characters, ISO
designation sequences, invalid ISO ESC sequences, 80-9F bytes, sequences
of two 80-9F bytes, sequences of four 80-9F bytes, sequences of the form
XA, XAXA, XAXAXA, XAXAXAXA, XAXAXAXAXA, XAXAXAXAXAXA where X = 80-9F and
Y = non-80-9F, longest such sequence of XA's, null bytes, sequences of
two nulls, sequences of null and non-null, sequences of XA, XAXA, etc.
just as above where X = null and A = non-null, longest sequence of A0-FF
bytes, number of sequences of an odd number of A0-FF bytes, number of
sequences of an even number of A0-FF bytes, number of tabs, CR's, LF's,
CRLF sequences, spaces, whitespace in the 00-1F range, non-whitespace in
the 00-1F range, bytes in the 00-1F range used in ISO2022 (SI, SO, ...),
bytes in the 00-1F range not used in ISO2022 and not whitespace, bytes
that are legal in base-64-encoded text, bytes that aren't legal in
base-64-encoded text, = signs, sequences of = followed by two hex
digits, sequences of = not followed by two hex digits, etc. etc. The
point is, you want to choose features that will be applicable to the
various encodings: for example, shift-JIS encodes Kanji as 80-9F + some
other thing, so you're likely to see lots of alternating 80-9F with
non-80-9F; most other encodings won't have much 80-9F at all, except
binary. Unicode (i.e. UTF-16), similarly, tends to have 0 alternating
with non-zero. Most other encodings, however, have few or no null
bytes. The byte values of the first 8 or 10 bytes might contain magic
sequences indicating the type of encoding. The idea here is that we
just throw a bunch of features at the data, and the classification
algorithm learns which features are relevant and which ones aren't, and
how best to combine them to get a function that does a near-optimal job
at correct classification. These things do a *far* *far* better job
than pretty much any hand-tuned classifier that anyone can construct,
not to mention the nonchalant piece of crap we have.
[3] run the trainer -- once -- on all the data. it may take awhile, but
this only happens once, and afterwards, we should have a damn good
encoding autodetection process. note that you can throw all sorts of
things in there -- not just I18N encodings, but also whether it's
base64-encoded, quoted-printable-encoded, an EXE program, a shell
script, pure text with one or another line feed ending, text that
doesn't wrap (i.e. CR is only a paragraph separator), random binary data
(of course, you could have it look for different kinds of such data,
e.g. gzipped, bzipped, etc.), email, C code, Lisp code, etc. In some
cases it might make sense to have a tree of classifiers; e.g. the basic
one determines it's binary and then we have another one that just
classifies binary data using a corpus of classified binary data and its
own set of features.
[4] if you want to get more sophisticated, you allow it to continue to
learn as it sees new items. This is what SpamAssassin does
(SpamAssassin is also basically just a classifier, which classifies into
only two categories -- spam or non-spam, and uses the same sorts of
machine-learning algorithms) -- in its case it combines statistical
learning with some hand-coded rules (although fewer and fewer of them
over time) plus ancillary knowledge (e.g. whether the mail arrived
through a blacklisted relay or whether the mail is listed in one of the
dynamic spam databases). If it's very sure that something is or isn't
spam, it feeds that back into its learner. You can also feed it stuff
by hand; it's especially useful to do this on stuff it got wrong. In
the case of XEmacs, you could imagine doing that semi-automatically with
a menu or other command that basically means "This encoding is wrong,
let's choose another one;" it might have various kinds of options --
"pick the next best" (since the classifier will usually have an N-best
list of possibilities) or "pick the next best from this group of
encodings" (e.g. i know it's supposed to be CJK or maybe even just
Japanese, but i don't know what the right encoding is) or just "pick
this particular encoding". When we do that, we could learn from this.
You could also imagine creating specialized corpora (pl. of corpus) and
learning functions for particular tasks, like decoding known CJK text,
if this is important enough.
of course, [4] is "pie-in-the-sky" stuff that might never get done. but
1-3 is conceptually not too hard, and this stuff has been extremely well
studied and lots of high-quality, free code already exists (e.g. the
Maxent package for maximum-entropy learning or the Weka package, which
is a large, well-developed package with all sorts of machine learning
algorithms).
In fact, I may look into implementing something like this for a class
project, e.g. the final project for my machine-learning class.
ben
- 3 participants
- 5 comments
help cygwin
18 years, 7 months
pier_lomb＠virgilio.it
pier_lomb＠virgilio.it
hi,
i'm working to my thesis on Windows and i'm using g++. When i
execute the program ( it calls the malloc function) it give me an
STATUS_ACCESS_VIOLATION
i have read that g++ gives the errors like
this one and to solve it i have to use mmalloc but there is no change.
Help me!! I need either another function or another compiler (where
can i find it?? now I'm using g++ from cygwin-b20)
I post the dunping
stack trace:
[main] parse 1000 (0) exception: trapped!
[main] parse
1000 (0) exception: code 0xC0000005 at 0x404647
[main] parse 1000 (0)
exception: ax 0xA03A780 bx 0x5 cx 0x1 dx 0x0
[main] parse 1000 (1)
exception: si 0x0 di 0xC66CC490 bp 0x245FEE8 sp 0x245FED8
[main] parse
1000 (0) exception: exception is: STATUS_ACCESS_VIOLATION
[main] parse
1000 (0) stack: Stack trace:
[main] parse 1000 (0) stack: frame 0: sp =
0x245FAC8, pc = 0x6100A2C3
[main] parse 1000 (0) stack: frame 1: sp =
0x245FB04, pc = 0x7C9137BF
[main] parse 1000 (0) stack: frame 2: sp =
0x245FB28, pc = 0x7C91378B
[main] parse 1000 (0) stack: frame 3: sp =
0x245FBD8, pc = 0x7C91EAFA
[main] parse 1000 (0) stack: frame 4: sp =
0x245FEE8, pc = 0x404663
[main] parse 1000 (0) stack: frame 5: sp =
0x245FF08, pc = 0x403E64
[main] parse 1000 (0) stack: frame 6: sp =
0x245FF2C, pc = 0x402C68
[main] parse 1000 (0) stack: frame 7: sp =
0x245FF34, pc = 0x61004402
[main] parse 1000 (0) stack: frame 8: sp =
0x245FF88, pc = 0x61004420
[main] parse 1000 (0) stack: frame 9: sp =
0x245FF94, pc = 0x40623E
[main] parse 1000 (0) stack: frame 10: sp =
0x245FFA4, pc = 0x40103A
[main] parse 1000 (0) stack: frame 11: sp =
0x245FFC0, pc = 0x7C816D4F
[main] parse 1000 (0) stack: frame 12: sp =
0x245FFF0, pc = 0x0
[main] parse 1000 (0) stack: End of stack trace
- 2 participants
- 1 comments
Re: [Failure] XEmacs 21.5-b22 "cucumber" (+CVS-20050913) sparc-sun-solaris2.9
18 years, 7 months
Stephen J. Turnbull
Stephen J. Turnbull
>>>>> "Rodney" == Rodney Sparapani <rsparapa(a)mcw.edu> writes:
Rodney> make install fails unless you configure --without-ldap
> XEmacs Build Report generated by emacs-version
> 21.5 (beta22) "cucumber" (+CVS-20050913) XEmacs Lucid
> with system-configuration
> sparc-sun-solaris2.9
Can you be more specific? What doesn't happen that should? What
happens that shouldn't? Does the system display any error messages,
and if so, what are they (verbatim)?
--
School of Systems and Information Engineering http://turnbull.sk.tsukuba.ac.jp
University of Tsukuba Tennodai 1-1-1 Tsukuba 305-8573 JAPAN
Ask not how you can "do" free software business;
ask what your business can "do for" free software.
- 2 participants
- 1 comments
Re: Bug Report
18 years, 7 months
The XEmacs Package Smoketest
The XEmacs Package Smoketest
Stephen J. Turnbull wrote:
> We can always create a schedule, but whether we'll be able to produce
> something worthwhile on on that schedule depends on available
> developer effort.
A good thing with a schedule is that you need to think of what is to be scheduled. It
will make things clearer whether we are trying to get new features in or just are
finding those last bugs.
So before a schedule we will need a list of things that is supposed to be in the
release. Is there such a list or is it in the developers heads?
Yours
--
%% Mats
- 8 participants
- 14 comments