Mercurial > hg > xemacs-beta

comparison src/mule-canna.c @ 197:acd284d43ca1 r20-3b25

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b25
author cvs
date Mon, 13 Aug 2007 10:00:02 +0200
parents e121b013d1f0
children e45d5e7c476e
comparison
equal deleted inserted replaced
196:58e0786448ca 197:acd284d43ca1
193 193
194 #ifdef CANNA_MULE 194 #ifdef CANNA_MULE
195 static void m2c (unsigned char *, int, unsigned char *); 195 static void m2c (unsigned char *, int, unsigned char *);
196 static Lisp_Object mule_make_string (unsigned char *, int); 196 static Lisp_Object mule_make_string (unsigned char *, int);
197 static mule_strlen (unsigned char *, int); 197 static mule_strlen (unsigned char *, int);
198 static count_char (unsigned char *,int, int, int, int *, int *, int *); 198 static void count_char (unsigned char *,int, int, int, int *, int *, int *);
199 #define make_string mule_make_string 199 #define make_string mule_make_string
200 #endif 200 #endif
201 201
202 /* Lisp functions definition */ 202 /* Lisp functions definition */
203 203
319 int kugiri; /* 文節区切りをするか？ */ 319 int kugiri; /* 文節区切りをするか？ */
320 320
321 kugiri = NILP (num) ? 0 : 1; 321 kugiri = NILP (num) ? 0 : 1;
322 322
323 jrKanjiControl (0, KC_SETBUNSETSUKUGIRI, (char *) kugiri); 323 jrKanjiControl (0, KC_SETBUNSETSUKUGIRI, (char *) kugiri);
324
325 return Qnil;
324 } 326 }
325 327
326 /* For whatever reason, calling Fding directly from libCanna loses */ 328 /* For whatever reason, calling Fding directly from libCanna loses */
327 static void call_Fding() 329 static void call_Fding()
328 { 330 {
632 DEFUN ("canna-parse", Fcanna_parse, 1, 1, 0, /* 634 DEFUN ("canna-parse", Fcanna_parse, 1, 1, 0, /*
633 Parse customize string. 635 Parse customize string.
634 */ 636 */
635 (str)) 637 (str))
636 { 638 {
637 jrKanjiStatusWithValue ksv;
638 jrKanjiStatus ks;
639 Lisp_Object val; 639 Lisp_Object val;
640 unsigned char **p; 640 unsigned char **p;
641 int n; 641 int n;
642 642
643 CHECK_STRING (str); 643 CHECK_STRING (str);
721 かな漢字変換した結果を返還する。文節切りがしてある。 721 かな漢字変換した結果を返還する。文節切りがしてある。
722 */ 722 */
723 (yomi)) 723 (yomi))
724 { 724 {
725 int nbun; 725 int nbun;
726 Lisp_Object res;
727 726
728 CHECK_STRING (yomi); 727 CHECK_STRING (yomi);
729 if (confirmContext () == 0) 728 if (confirmContext () == 0)
730 { 729 {
731 return Qnil; 730 return Qnil;
776 DEFUN ("canna-henkan-next", Fcanna_henkan_next, 1, 1, 0, /* 775 DEFUN ("canna-henkan-next", Fcanna_henkan_next, 1, 1, 0, /*
777 候補一覧を求める。 776 候補一覧を求める。
778 */ 777 */
779 (bunsetsu)) 778 (bunsetsu))
780 { 779 {
781 int i, nbun, slen, len; 780 int i, slen, len;
782 unsigned char *p, RkBuf[RKBUFSIZE]; 781 unsigned char *p, RkBuf[RKBUFSIZE];
783 Lisp_Object res = Qnil, endp; 782 Lisp_Object res = Qnil, endp;
784 783
785 CHECK_INT (bunsetsu); 784 CHECK_INT (bunsetsu);
786 if (confirmContext () == 0) 785 if (confirmContext () == 0)
1621 } 1620 }
1622 return (len); 1621 return (len);
1623 } 1622 }
1624 1623
1625 /* count number of characters */ 1624 /* count number of characters */
1626 static 1625 static void
1627 count_char (unsigned char *p, int len, int pos, int rev, int *clen, int *cpos, 1626 count_char (unsigned char *p, int len, int pos, int rev, int *clen, int *cpos,
1628 int *crev) 1627 int *crev)
1629 { 1628 {
1630 unsigned char *q = p; 1629 unsigned char *q = p;
1631 1630