# HG changeset patch # User Ben Wing # Date 1265451969 21600 # Node ID c0934cef10c6392e028ee0fbb6c679ccd0cbe1b1 # Parent 4cfb6aeb989da4aa64ced3ef6c551258e8cfbfeb convert some source files to utf-8 -------------------- ChangeLog entries follow: -------------------- lisp/ChangeLog addition: 2010-02-06 Ben Wing * unicode.el: * unicode.el (for): Convert file to utf-8. modules/ChangeLog addition: 2010-02-06 Ben Wing * canna/canna_api.c: * canna/canna_api.c (storeResults): * canna/canna_api.c (Fcanna_set_bunsetsu): * canna/canna_api.c (Fcanna_initialize): * canna/canna_api.c (Fcanna_store_yomi): * canna/canna_api.c (Fcanna_henkan_end): Convert file to utf-8. src/ChangeLog addition: 2010-02-06 Ben Wing * mule-wnnfns.c: Convert file to utf-8. diff -r 4cfb6aeb989d -r c0934cef10c6 lisp/ChangeLog --- a/lisp/ChangeLog Fri Feb 05 23:22:59 2010 -0600 +++ b/lisp/ChangeLog Sat Feb 06 04:26:09 2010 -0600 @@ -1,3 +1,9 @@ +2010-02-06 Ben Wing + + * unicode.el: + * unicode.el (for): + Convert file to utf-8. + 2010-01-28 Ben Wing * lisp-mode.el: Finish documenting `lisp-indent-specform', diff -r 4cfb6aeb989d -r c0934cef10c6 lisp/unicode.el --- a/lisp/unicode.el Fri Feb 05 23:22:59 2010 -0600 +++ b/lisp/unicode.el Sat Feb 06 04:26:09 2010 -0600 @@ -1,4 +1,4 @@ -;;; unicode.el --- Unicode support -*- coding: iso-2022-7bit; -*- +;;; unicode.el --- Unicode support -*- coding: utf-8; -*- ;; Copyright (C) 2001, 2002 Ben Wing. @@ -424,14 +424,14 @@ (#x2534 ?|) ;; U+2534 BOX DRAWINGS LIGHT UP AND HORIZONTAL (#x253c ?|) ;; U+253C BOX DRAWINGS LIGHT VERTICAL AND HORIZONTAL (#x02da ?^) ;; U+02DA RING ABOVE - (#x2122 ?\xa9) ;; U+2122 TRADE MARK SIGN, ?,A)(B + (#x2122 ?\xa9) ;; U+2122 TRADE MARK SIGN, ?© - (#x0132 ?\xe6) ;; U+0132 LATIN CAPITAL LIGATURE IJ, ?,Af(B - (#x013f ?\xe6) ;; U+013F LATIN CAPITAL LETTER L WITH MIDDLE DOT, ?,Af(B + (#x0132 ?\xe6) ;; U+0132 LATIN CAPITAL LIGATURE IJ, ?æ + (#x013f ?\xe6) ;; U+013F LATIN CAPITAL LETTER L WITH MIDDLE DOT, ?æ - (#x0133 ?\xe6) ;; U+0133 LATIN SMALL LIGATURE IJ, ?,Af(B - (#x0140 ?\xe6) ;; U+0140 LATIN SMALL LETTER L WITH MIDDLE DOT, ?,Af(B - (#x0149 ?\xe6) ;; U+0149 LATIN SMALL LETTER N PRECEDED BY APOSTROPH,?,Af(B + (#x0133 ?\xe6) ;; U+0133 LATIN SMALL LIGATURE IJ, ?æ + (#x0140 ?\xe6) ;; U+0140 LATIN SMALL LETTER L WITH MIDDLE DOT, ?æ + (#x0149 ?\xe6) ;; U+0149 LATIN SMALL LETTER N PRECEDED BY APOSTROPH,?æ (#x2194 ?|) ;; U+2194 LEFT RIGHT ARROW (#x2660 ?*) ;; U+2660 BLACK SPADE SUIT @@ -440,12 +440,12 @@ (#x2592 ?|) ;; U+2592 MEDIUM SHADE (#x2195 ?|) ;; U+2195 UP DOWN ARROW - (#x2113 ?\xb9) ;; U+2113 SCRIPT SMALL L, ?,A9(B - (#x215b ?\xbe) ;; U+215B VULGAR FRACTION ONE EIGHTH, ?,A>(B - (#x215c ?\xbe) ;; U+215C VULGAR FRACTION THREE EIGHTHS, ?,A>(B - (#x215d ?\xbe) ;; U+215D VULGAR FRACTION FIVE EIGHTHS, ?,A>(B - (#x215e ?\xbe) ;; U+215E VULGAR FRACTION SEVEN EIGHTHS, ?,A>(B - (#x207f ?\xbe) ;; U+207F SUPERSCRIPT LATIN SMALL LETTER N, ?,A>(B + (#x2113 ?\xb9) ;; U+2113 SCRIPT SMALL L, ?¹ + (#x215b ?\xbe) ;; U+215B VULGAR FRACTION ONE EIGHTH, ?¾ + (#x215c ?\xbe) ;; U+215C VULGAR FRACTION THREE EIGHTHS, ?¾ + (#x215d ?\xbe) ;; U+215D VULGAR FRACTION FIVE EIGHTHS, ?¾ + (#x215e ?\xbe) ;; U+215E VULGAR FRACTION SEVEN EIGHTHS, ?¾ + (#x207f ?\xbe) ;; U+207F SUPERSCRIPT LATIN SMALL LETTER N, ?¾ ;; These are not in WGL 4, but are IPA characters that should not ;; be double width. They are the only IPA characters that both @@ -455,7 +455,7 @@ (#x2197 ?|) ;; U+2197 NORTH EAST ARROW (#x2199 ?|) ;; U+2199 SOUTH WEST ARROW (#x2191 ?|) ;; U+2191 UPWARDS ARROW - (#x207f ?\xb9)) ;; U+207F SUPERSCRIPT LATIN SMALL LETTER N, ?,A9(B + (#x207f ?\xb9)) ;; U+207F SUPERSCRIPT LATIN SMALL LETTER N, ?¹ with decoded = nil with syntax-table = (standard-syntax-table) initially (unless (featurep 'mule) (return)) diff -r 4cfb6aeb989d -r c0934cef10c6 modules/ChangeLog --- a/modules/ChangeLog Fri Feb 05 23:22:59 2010 -0600 +++ b/modules/ChangeLog Sat Feb 06 04:26:09 2010 -0600 @@ -1,3 +1,13 @@ +2010-02-06 Ben Wing + + * canna/canna_api.c: + * canna/canna_api.c (storeResults): + * canna/canna_api.c (Fcanna_set_bunsetsu): + * canna/canna_api.c (Fcanna_initialize): + * canna/canna_api.c (Fcanna_store_yomi): + * canna/canna_api.c (Fcanna_henkan_end): + Convert file to utf-8. + 2010-02-05 Ben Wing * postgresql/postgresql.c: diff -r 4cfb6aeb989d -r c0934cef10c6 modules/canna/canna_api.c --- a/modules/canna/canna_api.c Fri Feb 05 23:22:59 2010 -0600 +++ b/modules/canna/canna_api.c Sat Feb 06 04:26:09 2010 -0600 @@ -1,4 +1,4 @@ -/* CANNA interface -*- coding: euc-jp -*- +/* CANNA interface -*- coding: utf-8 -*- Copyright (C) 1995 Free Software Foundation, Inc. Copyright (C) 1995 Sun Microsystems, Inc. @@ -237,10 +237,10 @@ } else { - /* ꤷʸ (the confirmed string) */ + /* 確定した文字列 (the confirmed string) */ Vcanna_kakutei_string = make_euc_string (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) @@ -253,20 +253,20 @@ int yomilen2; Vcanna_kakutei_yomi = - make_euc_string (p, yomilen); /* ɤ (reading) */ + make_euc_string (p, yomilen); /* 読み (reading) */ p += yomilen + 1; yomilen2 = strlen (p); if (len + yomilen + yomilen2 + 2 < KEYTOSTRSIZE) { Vcanna_kakutei_romaji = make_euc_string (p, yomilen2); - /* ޻ (romanization) */ + /* ローマ字 (romanization) */ } } } - /* ɽʸǤ + /* 候補表示の文字列です。 (string for displaying candidate translations) */ Vcanna_henkan_string = Qnil; if (ks->length >= 0) @@ -293,7 +293,7 @@ #endif /* CANNA_MULE */ } - /* ξ (information about the echo area menu) */ + /* 一覧の情報 (information about the echo area menu) */ Vcanna_ichiran_string = Qnil; if (ks->info & KanjiGLineInfo && ks->gline.length >= 0) { @@ -311,14 +311,14 @@ #endif /* CANNA_MULE */ } - /* ⡼ɤξ (mode information) */ + /* モードの情報 (mode information) */ Vcanna_mode_string = Qnil; if (ks->info & KanjiModeInfo) { Vcanna_mode_string = build_euc_string ((Extbyte *) ks->mode); } - /* ¾ξ (other information) */ + /* その他の情報 (other information) */ canna_empty_info = (ks->info & KanjiEmptyInfo) ? 1 : 0; canna_through_info = (ks->info & KanjiThroughInfo) ? 1 : 0; } @@ -334,7 +334,7 @@ (num)) { /* This is actually a Boolean! */ - char *kugiri; /* ʸڤ򤹤뤫 (display clause separator?) */ + char *kugiri; /* 文節区切りをするか？ (display clause separator?) */ kugiri = NILP (num) ? (char *) 0 : (char *) 1; @@ -367,7 +367,7 @@ char **p, **q; /* This is actually a Boolean! */ - char *kugiri; /* ʸڤ򤹤뤫 (display clause separator?) */ + char *kugiri; /* 文節区切りをするか？ (display clause separator?) */ IRCP_context = -1; @@ -424,7 +424,7 @@ if (res == -1) { val = Fcons (build_euc_string (jrKanjiError), val); - /* ˥饤ǼԤ硣 (on initialization failure) */ + /* イニシャライズで失敗した場合。 (on initialization failure) */ return Fcons (Qnil, val); } else @@ -444,12 +444,12 @@ #ifndef CANNA_MULE jrKanjiControl (0, KC_INHIBITHANKAKUKANA, (char *) 1); #else - /* mule äȾѥʤȤ + /* mule だったら半角カタカナも使える (Mule can use half-width katakana) */ if (canna_inhibit_hankakukana) jrKanjiControl (0, KC_INHIBITHANKAKUKANA, (char *) 1); #endif - jrKanjiControl (0, KC_YOMIINFO, (char *) 2); /* : ޻ޤ֤ + jrKanjiControl (0, KC_YOMIINFO, (char *) 2); /* ※２: ローマ字まで返す (*2: return to romanized form) */ val = Fcons (Qnil, val); @@ -581,7 +581,7 @@ } ks.echoStr = (unsigned char *) key_buffer; - ksv.buffer = (unsigned char *) key_buffer; /* (return value) */ + ksv.buffer = (unsigned char *) key_buffer; /* 返値用 (return value) */ ksv.bytes_buffer = KEYTOSTRSIZE; ksv.ks = &ks; @@ -836,7 +836,7 @@ { return Qnil; } - RkEndBun (IRCP_context, 1); /* ؽϤĤǤԤäɤΤʤΤ + RkEndBun (IRCP_context, 1); /* 学習はいつでも行って良いものなのか？ (is it OK to invoke learning function at arbitrary times?) */ return Qt; diff -r 4cfb6aeb989d -r c0934cef10c6 src/ChangeLog --- a/src/ChangeLog Fri Feb 05 23:22:59 2010 -0600 +++ b/src/ChangeLog Sat Feb 06 04:26:09 2010 -0600 @@ -1,3 +1,8 @@ +2010-02-06 Ben Wing + + * mule-wnnfns.c: + Convert file to utf-8. + 2010-02-05 Ben Wing * syswindows.h (LOCAL_FILE_FORMAT_TO_TSTR): diff -r 4cfb6aeb989d -r c0934cef10c6 src/mule-wnnfns.c --- a/src/mule-wnnfns.c Fri Feb 05 23:22:59 2010 -0600 +++ b/src/mule-wnnfns.c Sat Feb 06 04:26:09 2010 -0600 @@ -1,4 +1,4 @@ -/* -*- coding: iso-2022-jp -*- +/* -*- coding: utf-8 -*- Copyright (C) 1995 Free Software Foundation, Inc. Copyright (C) 1995 Sun Microsystems, Inc. @@ -35,13 +35,13 @@ * login-name: STRING * RETURNS: BOOLEAN * DESCRIPTION: - * jserver $B$H@\B3$7!"%5!<%P!!"IQEY%U%!%$%kL>!"M%@hEY!"<-=q%U%!%$%k%b!<%I(B - * $BIQEY%U%!%$%k%b!<%I$G;XDj$7$?<-=q$r%P%C%U%!$KDI2C$9$k!#(B - * pw1, pw2 $B$O<-=q%U%!%$%k!"IQEY%U%!%$%k$N%Q%9%o!<%I!#(B + * 辞書ファイル名、頻度ファイル名、優先度、辞書ファイルモード + * 頻度ファイルモードで指定した辞書をバッファに追加する。 + * pw1, pw2 は辞書ファイル、頻度ファイルのパスワード。 * * (wnn-server-dict-delete dic-no) * dic-no: INTEGER - * RETURNS: $B%(%i!<$N;~(B nil - * DESCRIPTION: dic-no $B$N<-=qHV9f$N<-=q$r!"%P%C%U%!$+$i(B - * $B:o=|$9$k!#(B + * RETURNS: エラーの時 nil + * DESCRIPTION: dic-no の辞書番号の辞書を、バッファから + * 削除する。 * * (wnn-server-dict-list) * RETURNS: ((dic-no1 file-name1 comment1 word-no1 nice1) * (dic-no2 file-name2 comment2 word-no2 nice2)...) - * DESCRIPTION: $B%P%C%U%!>e$N<-=q$N%j%9%H$rF@$k!#(B + * DESCRIPTION: バッファ上の辞書のリストを得る。 * * (wnn-server-dict-comment dic-no comment) - * RETURNS: $B%(%i!<$N;~(B nil - * DESCRIPTION: dic-no $B$N<-=q$K%3%a%s%H$r$D$1$k!#(B + * RETURNS: エラーの時 nil + * DESCRIPTION: dic-no の辞書にコメントをつける。 * * (wnn-server-set-rev rev) * rev: BOOLEAN - * rev $B$,(B nil $B$N;~$O@5JQ49!"$=$l0J30$N;~$O5UJQ49(B + * rev が nil の時は正変換、それ以外の時は逆変換 * * (wnn-server-henkan-begin henkan-string) * henkan-string: STRING * RETURNS: bunsetu-suu * DESCRIPTION: - * $B2>L>4A;zJQ49$r$7!"Bh0l8uJd$NJ8@a?t$rJV$9!#(B + * 仮名漢字変換をし、第一候補の文節数を返す。 * * (wnn-server-zenkouho bunsetu-no dai) * bunsetu-no: INTEGER * dai: BOOLEAN * RETURNS: offset * DESCRIPTION: - * $BJ8@aHV9f$G;XDj$5$l$?J8@a$NA48uJd$r$H$j$@$7(B - * $B!"8=:_$N%*%U%;%C%H$rJV$9!#(B + * 文節番号で指定された文節の全候補をとりだし + * 、現在のオフセットを返す。 * * (wnn-server-get-zenkouho offset) * bunsetu-no: INTEGER * dai: BOOLEAN * RETURNS: list of zenkouho * DESCRIPTION: - * $B%*%U%;%C%H$G;XDj$5$l$?8uJd$rF@$k!#(B + * オフセットで指定された候補を得る。 * * (wnn-server-zenkouho-bun) * RETURNS: INTEGER * DESCRIPTION: - * $BA48uJd$rI=<($7$F$$$kJ8@aHV9f$rF@$k!#(B + * 全候補を表示している文節番号を得る。 * * (wnn-server-zenkouho-suu) * RETURNS: INTEGER * DESCRIPTION: - * $BA48uJd$rI=<($7$F$$$kJ8@a$NA48uJd?t$rF@$k!#(B + * 全候補を表示している文節の全候補数を得る。 * * (wnn-server-dai-top bun-no) * bun-no: INTEGER * RETURNS: BOOLEAN * DESCRIPTION: - * $BJ8@a$,BgJ8@a$N@hF,$J$i(B t + * 文節が大文節の先頭なら t * * (wnn-server-dai-end bun-no) * bun-no: INTEGER * RETURNS: INTEGER * DESCRIPTION: - * $BpJs$rJQ49%P%C%U%!$+$i$H$j=P$9!#(B + * 文節の色々な情報を変換バッファからとり出す。 * * (wnn-server-henkan-quit) * RETURNS: BOOLEAN * DESCRIPTION: - * $B2?$b$7$J$$!#(B + * 何もしない。 * * (wnn-server-bunsetu-kanji bun-no) * RETURNS: (bunsetu-kanji length) @@ -163,7 +163,7 @@ * bunsetu-no: INTEGER * RETURNS: BOOLEAN * DESCRIPTION: - * $BIQEY>pJs$r99?7$9$k!#(B + * 頻度情報を更新する。 * * (wnn-server-word-add dic-no tango yomi comment hinsi) * dic-no: INTEGER @@ -173,28 +173,28 @@ * hinsi: INTEGER * RETURNS: BOOLEAN * DESCRIPTION: - * $B<-=q$KC18l$rEPO?$9$k!#(B + * 辞書に単語を登録する。 * * (wnn-server-word-delete dic-no entry) * dic-no: INTEGER * entry: INTEGER * RETURNS: BOOLEAN * DESCRIPTION: - * $B<-=q$+$i%(%s%H%jHV9f$G<($5$l$kC18l$r:o=|$9$k!#(B + * 辞書からエントリ番号で示される単語を削除する。 * * (wnn-server-word-use dic-no entry) * dic-no: INTEGER * entry: INTEGER * RETURNS: BOOLEAN * DESCRIPTION: - * $B<-=q$+$i%(%s%H%jHV9f$G<($5$l$kC18l$NM-8z!?L58z$r%H%0%k$9$k!#(B + * 辞書からエントリ番号で示される単語の有効／無効をトグルする。 * * (wnn-server-word-info dic-no entry) * dic-no: INTEGER * entry: INTEGER * RETURNS: (yomi kanji comment hindo hinsi) * DESCRIPTION: - * $B<-=q$+$i%(%s%H%jHV9f$G<($5$l$kC18l$N>pJs$rF@$k!#(B + * 辞書からエントリ番号で示される単語の情報を得る。 * * (wnn-server-word-hindo-set dic-no entry hindo) * dic-no: INTEGER @@ -202,61 +202,61 @@ * hindo: INTEGER * RETURNS: BOOLEAN * DESCRIPTION: - * $B<-=q$+$i%(%s%H%jHV9f$G<($5$l$kC18l$NIQEY$r@_Dj$9$k!#(B + * 辞書からエントリ番号で示される単語の頻度を設定する。 * * (wnn-server-word-search yomi) * yomi: STRING * RETURNS: a LIST of dict-joho * DESCRIPTION: - * $BA4$F$N<-=q$+$iC18l8!:w$r9T$J$&!#(B + * 全ての辞書から単語検索を行なう。 * * (wnn-server-dict-save) * RETURNS: BOOLEAN * DESCRIPTION: - * $BA4$F$N<-=q$HIQEY%U%!%$%k$r%;!<%V$9$k!#(B + * 全ての辞書と頻度ファイルをセーブする。 * * (wnn-server-get-param) * RETURNS: (n nsho p1 p2 p3 ... p15) - * DESCRIPTION: $BJQ49%Q%i%a!<%?$rF@$k!#(B + * DESCRIPTION: 変換パラメータを得る。 * * (wnn-server-set-param n sho p1 ... p15) - * RETURNS: $B%(%i!<$N;~(B nil - * DESCRIPTION: $BJQ49%Q%i%a!<%?$r@_Dj$9$k!#(B + * RETURNS: エラーの時 nil + * DESCRIPTION: 変換パラメータを設定する。 * * (wnn-server-get-msg error-no) - * RETURNS: $B%(%i!<%a225;!<%8(B - * DESCRIPTION: $B%(%i!(B - * DESCRIPTION: $B%P%C%U%!$NImB08l%U%!%$%kL>$rF@$k!#(B + * RETURNS: ファイル名 + * DESCRIPTION: バッファの附属語ファイル名を得る。 * * (wnn-server-isconnect) - * RETURNS: $B%3%M%/%H$7$F$l$P(B t, $B$7$F$J$1$l$P(B nil - * DESCRIPTION: $B%5!<%P$H7Q$C$F$$$k$+D4$Y$k!#(B + * RETURNS: コネクトしてれば t, してなければ nil + * DESCRIPTION: サーバと継っているか調べる。 * * (wnn-server-hinsi-dicts hinsi-no) * RETURNS: (dic-no1 dic-no2 ...) - * DESCRIPTION: hinsi-no $B$NIJ;l$,EPO?$G$-$k<-=q$N%j%9%H$rF@$k!#(B - * hinsi-no = -1 $B$N$H$-$K$O!"EPO?2DG=$JA4<-=q$rF@$k!#(B + * DESCRIPTION: hinsi-no の品詞が登録できる辞書のリストを得る。 + * hinsi-no = -1 のときには、登録可能な全辞書を得る。 * * (wnn-server-hinsi-list dic-no name) * RETURNS: (name1 name2 ... ) - * DESCRIPTION: dic-no $B$N<-=q$G!"IJ;l%N!<%I$KB0$9$k(B - * $BIJ;l%N!<%I!JL>!K$N%j%9%H$rF@$k!#(B - * $BIJ;lL>$rM?$($?;~$O!"#0$rJV$9!#(B + * DESCRIPTION: dic-no の辞書で、品詞ノードに属する + * 品詞ノード（名）のリストを得る。 + * 品詞名を与えた時は、０を返す。 * * (wnn-server-hinsi-name hinsi-no) * RETURNS: hinsi-name - * DESCRIPTION: $BIJ;lHV9f$+$iL>A0$r$rIJ;lHV9f$KJQ49$9$k!#(B + * DESCRIPTION: 品詞名を品詞番号に変換する。 * * (wnn-server-version) * RETURNS: version ID(int) @@ -275,7 +275,7 @@ #include "wnn/jllib.h" #include "wnn/cplib.h" -/* UCHAR $B$,Fs=EDj5A$5$l$k$N$G(B */ +/* UCHAR が二重定義されるので */ #define _UCHAR_T #define EGG_TIMEOUT 5