;ELC ;;; Compiled by dan@wayne.mit.edu on Wed Apr 21 21:02:09 2004 ;;; from file /usr/pkgsrc-current/inputmethod/skk/work.bondage/ddskk-12.2.0/skk-server.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-server.el' was compiled for Emacs 20 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@85 Return t if PROCESS is alive. When PROCESS is nil, check `skkserv-process' instead. (defalias 'skk-server-live-p #[(&optional process) "\204 \205\302!\303=\207" [process skkserv-process process-status open] 2 (#$ . 646)]) #@97 Return version information of SKK server. When called interactively, print version information. (defalias 'skk-server-version #[nil "t\203\n\306\307\310 \"\207\204 \204\311\307\n\203\312\202\313\"\207\314\315 !\205w\316\317 \320\216r q\210\321 \210\322\323\"\210\324 \325=\203G\326 \210\202:\327 \321 \210\322\330\"\210\324 \325=\203`\326 \210\202Seb\210\331\332\n\203m\333\202n\334P \327 \321 \210#,\207" [skk-server-host skk-servers-list skk-japanese-message-and-error v save-match-data-internal skkserv-working-buffer message "%s" skk-server-version error "Lack of host information of SKK server" "SKK ’₯΅’‘Ό’₯Π’‘Ό’€Ξ’₯Ϋ’₯Ή’₯Θ’Ύπ’Κ󒀬’€’’€κ’€ή’€»’€σ" skk-server-live-p skk-open-server nil match-data ((set-match-data save-match-data-internal)) erase-buffer process-send-string "2" buffer-size 0 accept-process-output buffer-string "3" format "SKK SERVER version %s" "(’₯Ϋ’₯Ή’₯Θ’ΜΎ %s)" "running on HOST %s" skkserv-process] 5 (#$ . 882) nil]) #@44 skk-search-server ’€Ξ’₯΅’₯Φ’₯λ’‘Ό’₯Α’₯σ’‘£ (defalias 'skk-search-server-1 #[(file limit) "\203\n\306 !\202 \n\206 \307\310 !\203\276rq\210\311\312\313\314 \210\315 \316 \317Q\"\210\203i\307 \203i\320 \210T\321 \312V\2033\322f\323=\203bdSf\324=\2033\313\211\2025\313\211\2048eb\210!\203\200\325\"\203{\326\202|\327\"\210g\323=\205\272\330u\210\331\f!\211\205\272\f\203\242#\203\242\3308\202\272\f\203\267$\203\267\332\3308@\"\202\272@,\202\304\333%&\"*\207" [skk-use-numeric-conversion skk-henkan-key skk-henkan-okurigana skk-okuri-char okurigana key skk-num-compute-henkan-key skk-server-live-p skk-open-server t 0 nil erase-buffer process-send-string "1" " " accept-process-output buffer-size 1 49 10 message "%d ’²σ SKK ’₯΅’‘Ό’₯Π’‘Ό’€Ξ’±ώ’Εϊ’ΒΤ’€Α’€ς’€·’€ή’€·’€Ώ" "Waited for server response %d times" 2 skk-compute-henkan-lists skk-nunion skk-search-jisyo-file skkserv-working-buffer l count cont skkserv-process skk-server-report-response skk-japanese-message-and-error skk-henkan-okuri-strictly skk-henkan-strict-okuri-precedence file limit] 6 (#$ . 1859)]) #@72 SKK ’₯΅’‘Ό’₯Π’‘Ό’€Θ’ΐά’Β³’€Ή’€λ’‘£’₯΅’‘Ό’₯Π’‘Ό’₯Χ’₯ν’₯»’₯Ή’€ς’ΚΦ’€Ή’‘£ (defalias 'skk-open-server #[nil "\303 \204\304 \206\f\305 \303 \203\306\307 \"A\310\n\211#\210)\207" [skkserv-process skk-coding-system-alist code skk-server-live-p skk-open-network-stream skk-open-server-1 assoc "euc" set-process-coding-system] 4 (#$ . 2993)]) #@208 `skk-open-server' ’€Ξ’₯΅’₯Φ’₯λ’‘Ό’₯Α’₯σ’‘£ skkserv ’₯΅’‘Ό’₯Σ’₯Ή’€ς’₯ͺ’‘Ό’₯Χ’₯σ’€Η’€­’€Ώ’€ι process ’€ς’ΚΦ’€Ή’‘£ skkserv ’€Ο’°ϊ’Ώτ’€Λ’Ό­’½ρ’€¬’»Ψ’Δκ’€΅’€μ’€Ζ’€€’€Κ’€±’€μ’€Π’‘’DEFAULT_JISYO ’€ς’»²’ΎΘ’€Ή’€λ’‘£ (defalias 'skk-open-server-1 #[nil "\306 \204\210\n\2043 \204\307\310!\f\204\307\311! \204\"\307\312! \2031 \f FC\2023\306\313!\204\210\n\203\210\n@\306\211@A@\3148\3158\nA \203b C\203r\316\317!D\244 \203\204\320 \204\204\f\203\204\321!*\2023\313!\204\225\306\306\306)\207" [process skk-server-inhibit-startup-server skk-servers-list skk-server-host skk-server-prog skk-server-jisyo nil getenv "SKKSERVER" "SKKSERV" "SKK_JISYO" skk-server-live-p 2 3 "-p" number-to-string skk-open-network-stream skk-startup-server skk-server-portnum arg elt] 5 (#$ . 3343)]) #@116 `skk-server-host' ’€Λ’€ͺ’€±’€λ skkserv ’₯΅’‘Ό’₯Σ’₯Ή’€Ξ TCP ’ΐά’Β³’€ς’₯ͺ’‘Ό’₯Χ’₯σ’€Ή’€λ’‘£ ’₯Χ’₯ν’₯»’₯Ή’€ς’ΚΦ’€Ή’‘£ (defalias 'skk-open-network-stream #[nil "\300\301\302\217\207" [#1=#:G36129 (byte-code "\304\305 \n\206 \306$\307 !\210 )\207" [skkserv-working-buffer skk-server-host skk-server-portnum process open-network-stream "skkservd" "skkserv" process-kill-without-query] 5) ((error))] 3 (#$ . 4177)]) #@68 ’ΔΎ’ΐά skkserv ’€ς’΅―’Ζ°’€Ή’€λ’‘£’΅―’Ζ°’€Η’€­’€Ώ’€ι t ’€ς’ΚΦ’€Ή’‘£ (defalias 'skk-startup-server #[(arg) "\306\307\211\310V\203`\311\n\203\312\202\313 \314 \315\"#\210 \316 \230\204( \317\230\2035\320\321\f\307\310\307 &\210\202B\320\321\307\310\307 \f &\210\322\323!\210\324 \211\203Y\325!\203Y\310\211\202 S\211\202\325!\203{\311\n\203o\326\202p\327 \"\210\322\330!\210\202\220\311\n\203\204\331\202\205\332 \"\210\322\330!\210\333 \210\307*\207" [process count skk-japanese-message-and-error skk-server-host skk-server-prog arg 7 nil 0 message "%s ’€Ξ SKK ’₯΅’‘Ό’₯Π’‘Ό’€¬’΅―’Ζ°’€·’€Ζ’€€’€ή’€»’€σ’‘£’΅―’Ζ°’€·’€ή’€Ή%s" "SKK SERVER on %s is not active, I will activate it%s" make-string 46 system-name "localhost" apply call-process sit-for 3 skk-open-network-stream skk-server-live-p "’₯Ϋ’₯Ή’₯Θ %s ’€Ξ SKK ’₯΅’‘Ό’₯Π’‘Ό’€¬’΅―’Ζ°’€·’€ή’€·’€Ώ" "SKK SERVER on %s is active now" 1 "%s ’€Ξ SKK ’₯΅’‘Ό’₯Π’‘Ό’€ς’΅―’Ζ°’€Ή’€λ’€³’€Θ’€¬’€Η’€­’€ή’€»’€σ’€Η’€·’€Ώ" "Could not activate SKK SERVER on %s" ding skk-server-remote-shell-program] 10 (#$ . 4595)]) #@249 ’ΚΡ’Ώτ `skk-search-prog-list' ’€ς’Δ΄’ΐ°’€Ή’€λ’‘£ `skk-server-host' ’€β’€·’€―’€Ο `skk-servers-list' ’€¬ nil ’€Η’€’’€μ’€Π’‘’ `skk-search-prog-list' ’€«’€ι `skk-search-server' ’€ς car ’€Λ’»ύ’€Δ’₯κ’₯Ή’₯Θ’€ς’ΎΓ’€Ή’‘£ non-nil ’€Η’€’’€μ’€Π’‘’’²Γ’€¨’€λ’‘£ (defalias 'skk-adjust-search-prog-list-for-server-search #[(&optional non-del) "\204 \205\302\303\304!\236?\205\305\304\303\304!\306C\244\"\207" [skk-server-host skk-servers-list skk-search-server default-value skk-search-prog-list set-default (skk-search-server skk-aux-large-jisyo 10000)] 4 (#$ . 5678)]) #@32 ’₯΅’‘Ό’₯Π’‘Ό’€ς’ΐΪ’€κ’Ξ₯’€Ή’‘£ (defalias 'skk-disconnect-server #[nil "\205\302 \205\303 \304\"\210\305 !\207" [skk-server-host skkserv-process skk-server-live-p process-send-string "0" accept-process-output] 3 (#$ . 6246)]) (byte-code "\301\302\303\"\210\304\305!\210\306\300!\210\306\307!\210\310\311\312!\300\313\314!\315\316\"\210\317\311\312!\"\210\320!\316\232\2032\202=\321\314\322\316\323\322\211\211\324&)#\210\311\312!\207" [product add-hook skk-before-kill-emacs-hook skk-disconnect-server run-hooks skk-server-load-hook require skk-version put provide skk-server product-find-by-name "Daredevil SKK" product-run-checkers (12 2 0) product-add-feature product-version vector nil "Sone" "12.2.0"] 12)