-/* CANNA interface
+/* CANNA interface -*- coding: euc-jp -*-
Copyright (C) 1995 Free Software Foundation, Inc.
Copyright (C) 1995 Sun Microsystems, Inc.
static Lisp_Object storeResults (unsigned 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 *);
}
/* For whatever reason, calling Fding directly from libCanna loses */
-static void call_Fding()
+static void
+call_Fding (void)
{
- extern Lisp_Object Fding();
-
Fding (Qnil, Qnil, Qnil);
}
}
else
{
- extern void (*jrBeepFunc)();
- Lisp_Object CANNA_mode_keys ();
+ extern void (*jrBeepFunc) (void);
jrBeepFunc = call_Fding;
return val;
}
-Lisp_Object
+static Lisp_Object
CANNA_mode_keys (void)
{
#define CANNAWORKBUFSIZE 32
}
DEFUN ("canna-henkan-begin", Fcanna_henkan_begin, 1, 1, 0, /*
-¤«¤Ê´Á»úÊÑ´¹¤·¤¿·ë²Ì¤òÊÖ´Ô¤¹¤ë¡£Ê¸ÀáÀڤ꤬¤·¤Æ¤¢¤ë¡£
+Return the result of kana-to-kanji conversion.
+Clause separator is set.
*/
(yomi))
{
}
DEFUN ("canna-henkan-next", Fcanna_henkan_next, 1, 1, 0, /*
-¸õÊä°ìÍ÷¤òµá¤á¤ë¡£
+Return the list of candidates.
*/
(bunsetsu))
{
}
else
{
- endp = XCDR (endp) = Fcons (make_string (p, slen), Qnil);
+ endp = XCDR (res) = Fcons (make_string (p, slen), Qnil);
}
p += slen + 1;
}
}
DEFUN ("canna-bunsetu-henkou", Fcanna_bunsetu_henkou, 2, 2, 0, /*
-ʸÀá¤ÎŤµ¤ò»ØÄꤹ¤ë¡£
+Specify the length of a clause.
*/
(bunsetsu, bunlen))
{
}
DEFUN ("canna-henkan-kakutei", Fcanna_henkan_kakutei, 2, 2, 0, /*
-¸õÊäÁªÂò¡£
+Select a candidate.
*/
(bun, kouho))
{
}
DEFUN ("canna-henkan-end", Fcanna_henkan_end, 0, 0, 0, /*
-ÊÑ´¹½ªÎ»¡£
+End conversion.
*/
())
{
}
DEFUN ("canna-henkan-quit", Fcanna_henkan_quit, 0, 0, 0, /*
-ÊÑ´¹½ªÎ»¡£
+Quit conversion.
*/
())
{
/* EUC multibyte string to MULE internal string */
-#ifdef UTF2000
static void
c2mu (unsigned char *cp, int l, unsigned char *mp)
{
- Emchar chr;
unsigned char ch, *ep = cp+l;
+#ifdef UTF2000
+ Emchar chr;
while ((cp < ep) && (ch = *cp++))
{
}
else if (ch == ISO_CODE_SS3)
{
+ ch = *cp++;
chr = MAKE_CHAR (Vcharset_japanese_jisx0212,
- (*cp++) & 0x7f, (*cp++) & 0x7f);
+ ch & 0x7f, (*cp++) & 0x7f);
}
else if (ch & 0x80)
{
*mp++ = (chr & 0x3f) | 0x80;
}
}
- *mp = 0;
-}
#else
-static void
-c2mu (char *cp, int l, char *mp)
-{
- char ch, *ep = cp+l;
-
while ((cp < ep) && (ch = *cp))
{
if ((unsigned char) ch == ISO_CODE_SS2)
}
*mp++ = *cp++;
}
+#endif
*mp = 0;
}
-#endif
/* MULE internal string to EUC multibyte string */