;ELC   
;;; Compiled by dan@wayne.mit.edu on Wed Apr 21 21:02:07 2004
;;; from file /usr/pkgsrc-current/inputmethod/skk/work.bondage/ddskk-12.2.0/skk-num.el
;;; in Emacs version 21.3.1
;;; with bytecomp version 2.85.4.1
;;; with all optimizations.

;;; This file contains multibyte non-ASCII characters
;;; and therefore cannot be loaded into Emacs 19.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "20")))
    (error "`skk-num.el' was compiled for Emacs 20 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(defalias 'skk-num-get-suuji #[(expression alist) "	\236A\207" [expression alist] 2])
(put 'skk-num-get-suuji 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'skk-num-int-p #[(num) "\301\302\"?\207" [num string-match "\\.[0-9]"] 3])
(put 'skk-num-int-p 'byte-optimizer 'byte-compile-inline-expand)
#@502 KEY ’¤Î’Ãæ’¤Î’Ï¢’Â³’¤¹’¤ë’¿ô’»ú’¤ò’¸½’¤ï’¤¹’Ê¸’»ú’Îó’¤ò "#" ’¤Ë’ÃÖ’¤­’´¹’¤¨’¤¿’Ê¸’»ú’Îó’¤ò’ÊÖ’¤¹’¡£
"12" ’¤ä "’£°’£¹" ’¤Ê’¤É’Ï¢’Â³’¤¹’¤ë’¿ô’»ú’¤ò 1 ’¤Ä’¤Î "#" ’¤Ë’ÃÖ’¤­’´¹’¤¨’¤ë’¤³’¤È’¤Ë’Ãí’°Õ’¡£
’ÃÖ’¤­’´¹’¤¨’¤¿’¿ô’»ú’¤ò `skk-num-list' ’¤Î’Ãæ’¤Ë’¥ê’¥¹’¥È’¤Î’·Á’¤Ç’ÊÝ’Â¸’¤¹’¤ë’¡£
’Îã’¤¨’¤Ð’¡¢KEY ’¤¬ "’¤Ø’¤¤’¤»’¤¤7’Ç¯12’¤¬’¤Ä" ’¤Ç’¤¢’¤ì’¤Ð’¡¢"’¤Ø’¤¤’¤»’¤¤#’¤Í’¤ó#’¤¬’¤Ä"
’¤È’ÊÑ’´¹’¤·’¡¢`skk-num-list' ’¤Ë ("7" "12") ’¤È’¤¤’¤¦’¥ê’¥¹’¥È’¤ò’Âå’Æþ’¤¹’¤ë’¡£
’¼­’½ñ’¤Î’¸«’½Ð’¤·’¸ì’¤Î’¸¡’º÷’¤Ë’»È’ÍÑ’¤¹’¤ë’¡£
(defalias 'skk-num-compute-henkan-key #[(key) "\203 \306\202	 \307\310 \311\216\312\313\"\203% \314\211\224O\314\225\315OP\202 \312\316\"\203D \317\314\"\314\211\224O\320\f!\314\225\315OQ)\202% \312	\"\203M \315\312	\"\203l \317\314\"C\244\314\211\224O\321\314\225\315OQ\202M +\207" [skk-num-convert-float numexp save-match-data-internal key zen-num skk-num-list "[.0-9]+" "[0-9]+" match-data ((set-match-data save-match-data-internal)) string-match "," 0 nil "[’£°-’£¹]" match-string skk-jisx0208-to-ascii "#"] 5 (#$ . 948)])
#@219 INDEX ’¤¬’»Ø’¤¹ `skk-henkan-list' ’¤Î’Í×’ÁÇ’¤ò’¿ô’ÃÍ’ÊÑ’´¹’¤Î’¤¿’¤á’¤Ë’²Ã’¹©’¤¹’¤ë’¡£
`skk-henkan-list' ’¤Î INDEX ’¤¬’»Ø’¤·’¤Æ’¤¤’¤ë’¸õ’Êä (’¿ô’ÃÍ’ÊÑ’´¹’¥­’¡¼’¤Î)’¤ò
  "#2" -> ("#2" ."’°ì")
’¤Î’¤è’¤¦’¤Ë’ÊÑ’´¹’¤¹’¤ë’¡£
(defalias 'skk-num-convert #[(index) "\211\206 \n\306	V\203 \307\310\203 \311\202 \312\"\210	\f8)\313\211\211:?\205\266 \314!\211\204: \313\202\266 \315\316\317\">\204\200 \320\321\322#\313\n\306	V\203b \307\310\203_ \311\202` \312\"\210	\f8)\203t \f\233B\240\202\266 \fBC\244\211\202\266 \316\323\324!\"\211@A\325V\203\256 \f8\203\256 \f\233@\240\210\326\fTA#\211\202\265 \f\244\327 )+\207" [index count skk-henkan-count skk-japanese-message-and-error skk-henkan-list current 0 error "%s" "’¸õ’Êä’¤ò’¼è’¤ê’½Ð’¤¹’¤³’¤È’¤¬’¤Ç’¤­’¤Þ’¤»’¤ó" "Cannot get current candidate" nil skk-num-convert-1 t mapcar listp mapconcat identity "" #[(e) "	B\207" [key e] 2] skk-num-flatten-list -1 skk-splice-in skk-num-uniq convlist key l] 5 (#$ . 2008)])
#@192 KEY ’¤ò `skk-num-list' ’¤Ë’½¾’¤¤’ÊÑ’´¹’¤¹’¤ë’¡£
’ÊÑ’´¹’¸å’¤Î’Ê¸’»ú’Îó’¤Î’¥Ñ’¡¼’¥Ä’¤ò’½ç’¤Ë’¤Ê’¤é’¤Ù’¤¿’¥ê’¥¹’¥È’¤ò’ÊÖ’¤¹’¡£’Îã’¤¨’¤Ð
  KEY ::= `’Ê¿’À®#0’Ç¯', return ::= ("’Ê¿’À®" "13" "’Ç¯")
(defalias 'skk-num-convert-1 #[(key) "?\206 :?\205w 	\203 \306\202 \307\310\311\211\211\211\211\312 \313\2168\211\203m \314\"\211\203m \315\316\nT\310\225O!\"\310\nO\310\225\311OT\fD\244\202- \317\320C\244\".\n\207" [key skk-num-convert-float beg convlist string convnum "#[.0-9]+" "#[0-9]+" 0 nil match-data ((set-match-data save-match-data-internal)) string-match skk-num-exp string-to-number delete "" num workkey n numexp save-match-data-internal skk-num-list] 8 (#$ . 3021)])
(defalias 'skk-num-multiple-convert #[(&optional count) "\302\303\215\210\304 )\207" [skk-henkan-count index break (byte-code "	8\203& \n\203 \303\nV\203 \304\305\306\"\210\307!\210T\n\203  \nS\202  \306\207" [index skk-henkan-list count 0 throw break nil skk-num-convert] 3) skk-num-uniq] 2])
(defalias 'skk-num-rawnum-exp #[(string) "\301\302\303\304$\301\305\306\307$\301\310\311\304$\301\312\313\304$\301\314\315\304$\207" [string skk-num-rawnum-exp-1 "[’£°-’£¹][’¡»’°ì’¶å’¸Þ’»°’»Í’¼·’Æó’È¬’Ï»]" "#9" 0 "\\(^\\|[^#0-9]\\)\\([0-9]+\\)" "#0" 2 "[’£°-’£¹]+" "#1" "\\([’¡»’°ì’¶å’¸Þ’»°’»Í’¼·’Æó’È¬’Ï»’½½][’½½’É´’Àé’Ëü’²¯’Ãû’µþ]\\)+" "#3" "[’¡»’°ì’¶å’¸Þ’»°’»Í’¼·’Æó’È¬’Ï»]+" "#2"] 5])
(defalias 'skk-num-rawnum-exp-1 #[(string key type place) "\305 \306\216\307	\n\"\203 \n\310\224O\f\n\225\311OQ\202 \n*\207" [save-match-data-internal key string place type match-data ((set-match-data save-match-data-internal)) string-match 0 nil] 5])
#@192 ’Í¿’¤¨’¤é’¤ì’¤¿’¥ê’¥¹’¥È’¤Î’³Æ’Í×’ÁÇ’¤«’¤é’ÁÈ’¤ß’¹ç’¤»’²Ä’Ç½’¤Ê’Ê¸’»ú’Îó’¤Î’Ï¢’ÀÜ’¤ò’ºî’¤ë’¡£
’·ë’²Ì’¤Ï’¥ê’¥¹’¥È’¤Ç’ÊÖ’¤¹’¡£’Îã’¤¨’¤Ð
  (("A" "B") "1" ("X" "Y")) -> ("A1X" "A1Y" "B1X" "B1Y")
(defalias 'skk-num-flatten-list #[(list) "@A\304\211<\204 C\n\2032 \n@\211:\203& \305\306\307\310\"\"\202* \307\311\"\nA\211\204 +\207" [list elt src dst nil apply nconc mapcar #[(str0) "\301\302\"\207" [elt mapcar #[(str1) "	P\207" [str0 str1] 2]] 3] #[(str0) "	P\207" [str0 elt] 2]] 6 (#$ . 4712)])
#@469 ascii ’¿ô’»ú (string) ’¤Î NUM ’¤ò TYPE ’¤Ë’½¾’¤¤’ÊÑ’´¹’¤·’¡¢’ÊÑ’´¹’¸å’¤Î’Ê¸’»ú’Îó’¤ò’ÊÖ’¤¹’¡£
TYPE ’¤Ï’²¼’µ­’¤Î’ÄÌ’¤ê’¡£
0 -> ’Ìµ’ÊÑ’´¹
1 -> ’Á´’³Ñ’¿ô’»ú’¤Ø’ÊÑ’´¹
2 -> ’´Á’¿ô’»ú’¤Ø’ÊÑ’´¹ (’°Ì’¼è’¤ê’¤Ê’¤·)
3 -> ’´Á’¿ô’»ú’¤Ø’ÊÑ’´¹ (’°Ì’¼è’¤ê’¤ò’¤¹’¤ë)
4 -> ’¤½’¤Î’¿ô’»ú’¤½’¤Î’¤â’¤Î’¤ò’¥­’¡¼’¤Ë’¤·’¤Æ’¼­’½ñ’¤ò’ºÆ’¸¡’º÷
5 -> ’´Á’¿ô’»ú (’¼ê’·Á’¤Ê’¤É’¤Ç’»È’ÍÑ’¤¹’¤ë’Ê¸’»ú’¤ò’»È’ÍÑ) ’¤Ø’ÊÑ’´¹ (’°Ì’¼è’¤ê’¤ò’¤¹’¤ë)
9 -> ’¾­’´ý’¤Ç’»È’ÍÑ’¤¹’¤ë’¿ô’»ú ("’£³’»Í" ’¤Ê’¤É) ’¤Ë’ÊÑ’´¹
(defalias 'skk-num-exp #[(num type) "\305 \306\216	\n\236A\211\205 \f!+\207" [save-match-data-internal type skk-num-type-alist fun num match-data ((set-match-data save-match-data-internal))] 3 (#$ . 5229)])
#@144 ascii ’¿ô’»ú’¤Î NUM ’¤ò’Á´’³Ñ’¿ô’»ú’¤Î’Ê¸’»ú’Îó’¤Ë’ÊÑ’´¹’¤·’¡¢’ÊÑ’´¹’¸å’¤Î’Ê¸’»ú’Îó’¤ò’ÊÖ’¤¹’¡£
’Îã’¤¨’¤Ð "45" ’¤ò "’£´’£µ" ’¤Ë’ÊÑ’´¹’¤¹’¤ë’¡£
(defalias 'skk-num-jisx0208-latin #[(num) "\302\303\304#\211\304\230?\205 	)\207" [num candidate mapconcat #[(c) "	\211\n\236A*\207" [c skk-num-alist-type1 alist expression] 3] ""] 5 (#$ . 5915)])
#@140 ascii ’¿ô’»ú NUM ’¤ò’´Á’¿ô’»ú’¤Î’Ê¸’»ú’Îó’¤Ë’ÊÑ’´¹’¤·’¡¢’ÊÑ’´¹’¸å’¤Î’Ê¸’»ú’Îó’¤ò’ÊÖ’¤¹’¡£
’Îã’¤¨’¤Ð’¡¢"45" ’¤ò "’»Í’¸Þ" ’¤Ë’ÊÑ’´¹’¤¹’¤ë’¡£
(defalias 'skk-num-type2-kanji #[(num) "\303 \304\216	\305\306	\")?\205 \307\310	\311#\211\311\230?\205 \n)*\207" [save-match-data-internal num candidate match-data ((set-match-data save-match-data-internal)) string-match "\\.[0-9]" mapconcat #[(c) "	\211\n\236A*\207" [c skk-num-alist-type2 alist expression] 3] ""] 5 (#$ . 6268)])
#@167 ascii ’¿ô’»ú NUM ’¤ò’´Á’¿ô’»ú’¤Î’Ê¸’»ú’Îó’¤Ë’ÊÑ’´¹’¤· (’°Ì’¼è’¤ê’¤ò’¤¹’¤ë)’¡¢’ÊÑ’´¹’¸å’¤Î’Ê¸’»ú’Îó’¤ò
’ÊÖ’¤¹’¡£’Îã’¤¨’¤Ð "1021" ’¤ò "’Àé’Æó’½½’°ì" ’¤Ë’ÊÑ’´¹’¤¹’¤ë’¡£
(defalias 'skk-num-type3-kanji #[(num) "\302 \303\216	\304\305	\")?\205 \306	\307\"*\207" [save-match-data-internal num match-data ((set-match-data save-match-data-internal)) string-match "\\.[0-9]" skk-num-to-kanji type3] 3 (#$ . 6755)])
#@170 ascii ’¿ô’»ú NUM ’¤ò’´Á’¿ô’»ú’¤Î’Ê¸’»ú’Îó’¤Ë’ÊÑ’´¹’¤· (’°Ì’¼è’¤ê’¤ò’¤¹’¤ë)’¡¢’ÊÑ’´¹’¸å’¤Î’Ê¸’»ú’Îó’¤ò
’ÊÖ’¤¹’¡£’Îã’¤¨’¤Ð "1021" ’¤ò "’°í’ïô’Æõ’½¦’°í" ’¤Ë’ÊÑ’´¹’¤¹’¤ë’¡£
(defalias 'skk-num-type5-kanji #[(num) "\302 \303\216	\304\305	\")?\205 \306	\307\"*\207" [save-match-data-internal num match-data ((set-match-data save-match-data-internal)) string-match "\\.[0-9]" skk-num-to-kanji type5] 3 (#$ . 7170)])
#@103 NUM ’¤ò TYPE ’¤Î’·Á’¼°’¤Î’´Á’¿ô’»ú’¤Ë’¤¹’¤ë’¡£’°Ì’¤Ê’¤É’¤ò’É½’¤¹’´Á’»ú’¤Ï ALIST ’¤«’¤é’¼è’ÆÀ’¤¹’¤ë’¡£
(defalias 'skk-num-to-kanji #[(num type &optional alist) "G\306\307\211\211\211%&\204 \310\311\312'\"!J&%\313V\2032 \314\315(\203/ \316\2020 \317\"\210\320\307\"%\321X\203\316 @\211\203m%\322U\203e \f\323=\204\302 \f&&\211)&\236A*P\202\302 '\324=\203r \f\325>\204\217 '\326=\203 \f\323=\204\217 \f&&\211)&\236A*P\f\323=\204\302 \322%W\203\302 %\327=\203\250 \330\202\264 %\331=\203\263 \332\202\264 \333&&\211)&\236A*P%S%A\211\202? \237\203m\307\nG\321W\203\355 \203\355 @\nBA\202\327 \n\203g\334\n'&#\211\323&&\211)&\236A*\230\203\335'\324=\203$\322=\203$	\336\232\203$\337	P	\211\205d\306=\2033\340\202X\322=\203=\341\202X\327=\203G\342\202X\331=\203Q\343\202X\321=\205X\344&&\211)&\236A*QT\202\321 \206~\323&&\211)&\236A*.\207" [num v1 num1 v char i 0 nil intern format "skk-num-alist-%s" 20 error "%s" "’°Ì’¤¬’Âç’¤­’¤¹’¤®’¤Þ’¤¹’¡ª" "Too big number!" append 4 1 48 type3 (48 49) type5 2 ju 3 hyaku sen skk-num-to-kanji "" "’Àé" "’°ì" 32 man oku cho kei len alist type skk-japanese-message-and-error expression] 7 (#$ . 7588)])
#@126 ascii ’¿ô’»ú’¤Î NUM ’¤ò’¾­’´ý’¤Ç’»È’ÍÑ’¤µ’¤ì’¤ë’¿ô’»ú’É½’µ­’¤Ë’ÊÑ’´¹’¤¹’¤ë’¡£
’Îã’¤¨’¤Ð "34" ’¤ò "’£³’»Í" ’¤Ë’ÊÑ’´¹’¤¹’¤ë’¡£
(defalias 'skk-num-shogi #[(num) "\306 \307\216	G\310U\205: 	\311\312	\")?\205: 	\313H\n\211\236A*	\314H\211\236A*P\211\315\230?\2059 )*\207" [save-match-data-internal num skk-num-alist-type1 alist expression skk-num-alist-type2 match-data ((set-match-data save-match-data-internal)) 2 string-match "\\.[0-9]" 0 1 "" candidate] 4 (#$ . 8832)])
#@104 #4 ’¤Î’¸«’½Ð’¤·’¤Ë’ÂÐ’¤· `skk-henkan-key' ’¤Ë’Âå’Æþ’¤µ’¤ì’¤¿’¿ô’»ú’¤½’¤Î’¤â’¤Î’¤ò’ºÆ’ÅÙ’¸¡’º÷’¤¹’¤ë’¡£
(defalias 'skk-num-recompute #[(num) "\306	\307\310\311!!\312\216rq\210\f	\306\211\211\203, \313\314 \"\202 .\2046 	\202A A\204@ @\202A )\207" [result num skk-num-recompute-key #1=#:temp-buffer skk-search-prog-list skk-use-numeric-conversion nil get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) skk-nunion skk-search skk-okuri-char skk-henkan-okurigana skk-henkan-key skk-current-search-prog-list] 5 (#$ . 9321)])
(defalias 'skk-num-uniq #[nil "\2052	\2052\306 \307\216\310\311\211\211\211\312\313\314\315\316\"\"V\311\211\211\211\211\211\211\211\211 !!T\211!	8\211\203\371 :\203b \317@	\"\317A	\"\"\203\237 :\203\237 \310  T\211 	8\211\203\237 ! U\204p :\203p AA\230\203p \320	\"\202p \203@ :\203\260 @\202\262 \321\322\"\203\327 !\323\211\224O\323\225\311O\202@ \321\324\"\203@ !\323\211\224O\323\225\311O\202@ \2050\2050\2050\230\2050\230\2050V\203)\320	\"\211\2020\320	\"\211.\207" [skk-num-uniq skk-henkan-list save-match-data-internal skk-num-list case-fold-search tail3 match-data ((set-match-data save-match-data-internal)) -1 nil 2 apply max mapcar length delete delq string-match "#2" 0 "#3" tail2 head3 head2 index3 index2 type3 type2 type2and3 e3 e2 e1 n2 n1 skk-num-recompute-key] 16])
#@67 `skk-use-numeric-conversion' ’´Ø’Ï¢’¤Î’ÊÑ’¿ô’¤ò’½é’´ü’²½’¤¹’¤ë’¡£
(defalias 'skk-num-initialize #[nil "\303\304	#\305\305\211\207" [skk-num-list skk-last-henkan-data skk-num-recompute-key put-alist num-list nil] 4 (#$ . 10872)])
#@221 ’Å¬’ÀÚ’¤Ê’ÊÑ’´¹’¥­’¡¼’¤ò’ÊÖ’¤¹’¡£
type4 ’¤Î’¿ô’ÃÍ’ºÆ’ÊÑ’´¹’¤¬’¹Ô’¤Ê’¤ï’¤ì’¤¿’¤È’¤­’¤Ï’¡¢’¿ô’ÃÍ’¼«’¿È’¤ò’ÊÖ’¤·’¡¢’¤½’¤ì’°Ê’³°’¤Î’¿ô’ÃÍ’ÊÑ’´¹
’¤Ç’¤Ï’¡¢`skk-henkan-key' ’¤Î’¿ô’ÃÍ’¤ò "#" ’¤Ç’ÃÖ’¤­’´¹’¤¨’¤¿’¥­’¡¼’¤ò’ÊÖ’¤¹’¡£
(defalias 'skk-num-henkan-key #[nil "\206 \302	!\207" [skk-num-recompute-key skk-henkan-key skk-num-compute-henkan-key] 2 (#$ . 11112)])
#@80 ’¿ô’»ú’¼«’¿È’¤ò’¸«’½Ð’¤·’¸ì’¤È’¤·’¤Æ’¼­’½ñ’¤Î’¥¢’¥Ã’¥×’¥Ç’¡¼’¥È’¤ò’¹Ô’¤Ê’¤¦’¡£
(defalias 'skk-num-update-jisyo #[(noconvword word &optional purge) "\205# \306 \307\216\310\311\n\"*\205# r\312\313\"q\210\314\315\"+\207" [skk-num-recompute-key save-match-data-internal noconvword skk-jisyo skk-use-numeric-conversion skk-henkan-key match-data ((set-match-data save-match-data-internal)) string-match "#4" skk-get-jisyo-buffer nomsg nil skk-update-jisyo word purge] 3 (#$ . 11477)])
#@105 ’¿ô’»ú’¤ò `skk-number-style' ’¤Î’ÃÍ’¤Ë’½¾’¤¤’ÊÑ’´¹’¤¹’¤ë’¡£
`skk-current-date' ’¤Î’¥µ’¥Ö’¥ë’¡¼’¥Á’¥ó’¡£
(defalias 'skk-num #[(str) "\301\302\303#\207" [str mapconcat #[(c) "\304W\204\f \305W\203 \306\207	\203 	\247\203! 	\305U\203! \307!\207	\310=\2042 	\247\2037 	\311U\2037 \n\236A\207\236A\207" [c skk-number-style skk-num-alist-type1 skk-num-alist-type2 57 0 nil char-to-string t 1] 2] ""] 4 (#$ . 11974)])
(byte-code "\301\302\303\304\305$\210\306\302\305\"\210\307\310!\210\311\300!\210\311\312!\210\313\314\315!\300\316\317!\320\321\"\210\322\314\315!\"\210\323!\321\232\2039 \202D \324\317\305\321\325\305\211\211\326&)#\210\314\315!\207" [product ad-add-advice skk-kakutei-initialize (skk-num-ad nil t (advice lambda nil (when (skk-numeric-p) (skk-num-initialize)))) after nil ad-activate run-hooks skk-num-load-hook require skk-version put provide skk-num product-find-by-name "Daredevil SKK" product-run-checkers (12 2 0) product-add-feature product-version vector "Sone" "12.2.0"] 12)