;ELC ;;; Compiled by dan@wayne.mit.edu on Wed Apr 21 21:02:00 2004 ;;; from file /usr/pkgsrc-current/inputmethod/skk/work.bondage/ddskk-12.2.0/skk-lookup.el ;;; in Emacs version 21.3.1 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`skk-lookup.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\303\304\305\"\207" [require poe lookup autoload lookup-vse-search-query "lookup-vse"] 3) (defalias 'skk-lookup-get-1 #[(name index) "\306 \"\206\307 \310\216\311\312\"\205\306\313\314\" \"*A\f \206# 8)\207" [name skk-lookup-option-alist save-match-data-internal list index skk-lookup-default-option-list assoc match-data ((set-match-data save-match-data-internal)) string-match "/\\(.+\\)$" match-string 1] 4]) (put 'skk-lookup-get-1 'byte-optimizer 'byte-compile-inline-expand) (defalias 'skk-lookup-get-method #[(name okuri-process) " \306 \"\206\307 \310\216\311\312\"\205\306\313\314\" \"*A\n \206(8+\2119\2036\202:\315!)\207" [name okuri-process index skk-lookup-option-alist save-match-data-internal list assoc match-data ((set-match-data save-match-data-internal)) string-match "/\\(.+\\)$" match-string 1 eval skk-lookup-default-option-list sex] 5]) (put 'skk-lookup-get-method 'byte-optimizer 'byte-compile-inline-expand) (defalias 'skk-lookup-get-nonsearch-sex #[(name) "\306\307\n\"\206\310 \311\216\312\313\"\205\307\314\315\"\n\"*A \f\206' 8+\207" [name index skk-lookup-option-alist save-match-data-internal list skk-lookup-default-option-list 3 assoc match-data ((set-match-data save-match-data-internal)) string-match "/\\(.+\\)$" match-string 1] 4]) (put 'skk-lookup-get-nonsearch-sex 'byte-optimizer 'byte-compile-inline-expand) (defalias 'skk-lookup-get-pickup-regexp #[(name) "\306\307\n\"\206\310 \311\216\312\313\"\205\307\314\315\"\n\"*A \f\206' 8+\207" [name index skk-lookup-option-alist save-match-data-internal list skk-lookup-default-option-list 4 assoc match-data ((set-match-data save-match-data-internal)) string-match "/\\(.+\\)$" match-string 1] 4]) (put 'skk-lookup-get-pickup-regexp 'byte-optimizer 'byte-compile-inline-expand) (defalias 'skk-lookup-get-split-regexp #[(name) "\306\307\n\"\206\310 \311\216\312\313\"\205\307\314\315\"\n\"*A \f\206' 8+\207" [name index skk-lookup-option-alist save-match-data-internal list skk-lookup-default-option-list 5 assoc match-data ((set-match-data save-match-data-internal)) string-match "/\\(.+\\)$" match-string 1] 4]) (put 'skk-lookup-get-split-regexp 'byte-optimizer 'byte-compile-inline-expand) (defalias 'skk-lookup-get-cleanup-regexp #[(name) "\306\307\n\"\206\310 \311\216\312\313\"\205\307\314\315\"\n\"*A \f\206' 8+\207" [name index skk-lookup-option-alist save-match-data-internal list skk-lookup-default-option-list 6 assoc match-data ((set-match-data save-match-data-internal)) string-match "/\\(.+\\)$" match-string 1] 4]) (put 'skk-lookup-get-cleanup-regexp 'byte-optimizer 'byte-compile-inline-expand) (defalias 'skk-lookup-search #[nil "\206 ?\205d\306 \307\n\310\211\204%\204%\311\202Z\2038 !\211@ A\202Z\203L \311 GSOP\312\202Z\203Z \311 GSO\313\314\n\315 \f#\"-\207" [skk-num-list skk-num-recompute-key skk-henkan-key v okuri-process henkan-key skk-lookup-default-module "" nil 0 1 2 delete skk-lookup-search-1 lookup-gaiji-alternate module skk-henkan-okurigana skk-okuri-char skk-lookup-process-henkan-key-function] 7]) (defalias 'skk-lookup-search-1 #[(module key okuri-process) "\306\211\211\211\211  \307\f!\210\310\311\f\211\f\312H)\"\210\237-\207" [candidates-list candidates-string entries method name key nil lookup-module-setup lookup-foreach #[(dictionary) "\306\307\")\205\271\211\310H)\211\205\271\311 \211\310\312 \"\2067\313 \314\216\315\316 \"\2056\312\317\320 \" \"*A\n \206@8,!\205\271 \211\312 \"\206l\313 \314\216\315\316 \"\205k\312\317\320 \" \"*A\n \206u8+\2119\203\203\202\207\311!+\211\205\271\306\321\")>\205\271\322\323\324#*\"\211\205\271\325\326\"\207" [dictionary name index skk-lookup-option-alist save-match-data-internal list lookup-dictionary-get-property selected 3 eval assoc match-data ((set-match-data save-match-data-internal)) string-match "/\\(.+\\)$" match-string 1 methods lookup-vse-search-query vector :query lookup-foreach #[(entry) "\211\306H)\n\211\307\310\n\f\"\206(\311 \312\216\313\314\n\"\205'\310\315\316\n\"\f\"*A \20638,\204i\n\211\317\310\n\f\"\206Y\311 \312\216\313\314\n\"\205X\310\315\316\n\"\f\"*A \206d8,\203v\320\n #\244\211\207\321 \"\211\205\217 \230?\205\217 B\211\207" [entry candidates-string name index skk-lookup-option-alist save-match-data-internal 3 4 assoc match-data ((set-match-data save-match-data-internal)) string-match "/\\(.+\\)$" match-string 1 5 skk-lookup-process-heading skk-lookup-process-okurigana list skk-lookup-default-option-list okuri-process candidates-list lookup-search-pattern] 5] skk-lookup-default-option-list okuri-process sex method lookup-search-pattern string entries] 7] 2 lookup-search-pattern module] 6]) (defalias 'skk-lookup-process-okurigana #[(string process-type) "\306\230\203\307\207 \310U\203\207 \311U\203\nG\202\" \312U\205\"\311G V\205/ [\307O\211\2048\307\202X \203J\n\f\230\205X\310 [O\202X\313\f!\f\230\205X\310 [O*\207" [string process-type skk-henkan-okurigana okuri-length okurigana skk-henkan-okuri-strictly "" nil 0 1 2 skk-okurigana-prefix skk-okuri-char] 4]) (defalias 'skk-lookup-process-heading #[(name heading okuri-process-type) "\306 \307\216 \211\310\311 \"\206&\306 \312\216\313\314 \"\205%\311\315\316 \" \"*A\n\f\206. 8,\211:\205:@:\203HA\202I\316 \211\317\311 \"\206l\306 \312\216\313\314 \"\205k\311\315\316 \" \"*A\n\f\206t 8, \211\320\311 \"\206\231\306 \312\216\313\314 \"\205\230\311\315\316 \" \"*A\n\f\206\241 8,!?\205\256\"C#\321$\"\322\230\204`\203\310\313\"\"\203`\323!\203\347<\203\347\324\325\322#$\322\"\202\f\203\326\"\"$\"\225T\"G^\321O\"\202\f\"$\322\"!\203,\313!$\"\203,$\327\211\224O$\327\225\321OP$\202 \203>\330\331\332$ \"\"\210\202\263%$\230\204\263\333$&\"\211$\203\263$\334$#\"B#\202\263#. \207" [save-match-data-internal name index skk-lookup-option-alist list skk-lookup-default-option-list match-data ((set-match-data save-match-data-internal)) 4 assoc ((set-match-data save-match-data-internal)) string-match "/\\(.+\\)$" match-string 1 5 6 nil "" eval mapconcat #[(num) "\302 \"\207" [num heading match-string-no-properties] 3] match-string-no-properties 0 lookup-foreach #[(c) " \230?\205\304 \n\"\211\205 \305 \"B\211\207" [lookup-search-pattern c okuri-process-type candidates-list skk-lookup-process-okurigana delete] 5] split-string skk-lookup-process-okurigana delete pickup pickup-regexp match split-regexp cleanup-regexp heading candidates-list candidates-string lookup-search-pattern okuri-process-type] 6]) (defalias 'skk-lookup-default-module #[nil "\206 \301 @\211\207" [skk-lookup-default-module skk-lookup-module-list] 2]) (defalias 'skk-lookup-module-list #[nil "\206\302\303 \206 \304\"\211\207" [skk-lookup-module-list skk-lookup-search-modules mapcar skk-lookup-new-module (("%SKK-EVERY" ""))] 3]) (defalias 'skk-lookup-new-module #[(spec) "@A\306\211\211\211\307\310\311\312\313 \"!\"\210\311 \314\"\237\306\315\316\306$*\317\f\303 #\210\317\f\305 #\210\320\f!.\207" [spec start match agents module id-list nil lookup-foreach #[(id) "\304\305!P\n\306\307\310 \"\210 \n=\205\311\312\"\207" [id match agents start "^" regexp-quote lookup-foreach #[(e) "\304 \305\n\306\")\"\205 B\211\207" [match e agent agents string-match lookup-agent-get-property id] 5] skk-lookup-agent-list error "No match agent: %s"] 3] lookup-nunique mapcar #[(id) "\301\302\"\210\303\211\225O\207" [id string-match "^[^:]*" 0] 3] eq vector :module lookup-module-put-property lookup-module-init name dictionaries] 6]) (defalias 'skk-lookup-agent-list #[nil "\206< \2046\305\n!\306\307\310\f\"\311\f\236\211\203#\312 \f\"\202\313\f\236\211\2033\312 \f\"\202#\f*\314\315 \"\211\207" [skk-lookup-agent-list skk-lookup-search-agents lookup-search-agents e agents copy-sequence nil delete (ndkks) ndcookie delq ndnmz mapcar lookup-new-agent] 3]) #@64 Search STRING by REGEXP and pick up a part of STRING in PLACE. (defalias 'skk-lookup-test-regexp #[(regexp place string) "\303 \"\210\304\n \"\207" [regexp string place string-match match-string-no-properties] 3 (#$ . 8850)]) #@27 Search PATTERN by METHOD. (defalias 'skk-lookup-pickup-headings #[(pattern method) "\303 \304\305\306\n!\210\307\310\n\211\311H)\"\210+\207" [var lookup-gaiji-alternate module skk-lookup-default-module "" nil lookup-module-setup lookup-foreach #[(dictionary) "\304\305\306 \n\307\310 #*\"\"\207" [dictionary method pattern string lookup-foreach #[(entry) "\211\303H)\304\305\") \211\303H)EC\n\244\211\207" [dictionary entry var 3 lookup-dictionary-get-property id] 5] lookup-vse-search-query vector :query] 8] 2] 5 (#$ . 9083)]) (defalias 'skk-lookup-map-prefix-and-kana #[nil "G\306\307\211\211\211  V\203> H\n H\310 \" T\n\2034\n\f\nAB\241\210\202 \fCB B\202 .\207" [skk-lookup-kana-vector alist prefix-kana prefix kana n 0 nil assoc lenv skk-kana-rom-vector] 6]) (byte-code "\301\300!\210\301\302!\210\303\304\305!\300\306\307!\310\311\"\210\312\304\305!\"\210\313!\311\232\203)\2024\314\307\315\311\316\315\211\211\317&)#\210\304\305!\207" [product require skk-version put provide skk-lookup product-find-by-name "Daredevil SKK" product-run-checkers (12 2 0) product-add-feature product-version vector nil "Sone" "12.2.0"] 12)