;ELC ;;; compiled by nk@arafel.viteno.net on Tue May 10 07:48:34 2005 ;;; from file /usr/local/users/nk/pkg-build/test/mule-packages/lookup/lisp/sdicf.el ;;; emacs version 21.4 (patch 17) "Jumbo Shrimp" XEmacs Lucid. ;;; bytecomp version 2.27 XEmacs; 2000-09-12. ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 19. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "20"))) (error "`sdicf.el' was compiled for Emacs 20")) (or (boundp 'current-load-list) (setq current-load-list nil)) (require 'mule) ;;;###coding system: escape-quoted (defalias 'sdicf-find-program #[(&rest programs) "" [programs which (mapcar #[(file) "\"" [exec-path mapcar #[(path) " \"! \"\"" [path file file-executable-p expand-file-name throw which] 5]] 3] programs)] 2]) (defvar sdicf-egrep-command (sdicf-find-program "egrep" "egrep.exe" "grep" "grep.exe") "\ *Executable file name of egrep") (defvar sdicf-fgrep-command (sdicf-find-program "fgrep" "fgrep.exe" "grep" "grep.exe") "\ *Executable file name of fgrep") (defvar sdicf-array-command (sdicf-find-program "array" "array.exe") "\ *Executable file name of array") (defvar sdicf-default-coding-system (byte-code "\nY! \" sȇ sʇȇ!" [*euc-japan*unix emacs-version emacs-major-version 20 featurep mule string-match "XEmacs" euc-japan-unix coding-system-list euc-jp-unix boundp MULE] 3) "\ *Default coding system for sdicf.el") (byte-code "##########" [put sdicf-missing-file error-conditions (error sdicf-errors sdicf-missing-file) error-message "Can't find file" sdicf-missing-executable (error sdicf-errors sdicf-missing-executable) "Can't find executable" sdicf-invalid-strategy (error sdicf-errors sdicf-invalid-strategy) "Invalid search strategy" sdicf-decide-strategy (error sdicf-errors sdicf-decide-strategy) "Can't decide strategy automatically" sdicf-invalid-method (error sdicf-errors sdicf-invalid-method) "Invalid search method"] 4) (defconst sdicf-version "0.9" "\ Version number of sdicf.el") (defconst sdicf-strategy-alist '((array sdicf-array-available sdicf-array-init sdicf-array-quit sdicf-array-search) (grep sdicf-grep-available sdicf-grep-init sdicf-grep-quit sdicf-grep-search) (direct sdicf-direct-available sdicf-direct-init sdicf-direct-quit sdicf-direct-search)) "\ $(BMxMQ$G$-$k(B strategy $(B$NO"A[G[Ns(B $(BG[Ns$N3FMWAG$O!"(B strategy $(B$N%7%s%\%k(B strategy $(B$NMxMQ2DG=@-$r8!::$9$k4X?t(B strategy $(B$r=i4|2=$9$k4X?t(B strategy $(B$r=*N;$9$k4X?t(B strategy $(B$r;H$C$F8!:w$9$k4X?t(B $(B$N(B4$(B$D$NMWAG$+$i$J$k%j%9%H$H$J$C$F$$$k!#(Bstrategy $(B$N<+F0H=Dj$r9T$&$H$-$O!"(B $(B$3$NO"A[G[Ns$K@h$KEPO?$5$l$F$$$k(B strategy $(B$,;H$o$l$k!#(B") (defalias 'sdicf-object-p #[(sdic) "!Ha" [sdic vectorp 0 SDIC] 2 "\ $(B<-=q%*%V%8%'%/%H$+$I$&$+8!::$9$k(B"]) (byte-code "Ns\"#" [sdicf-object-p byte-optimizer (nil byte-compile-inline-expand) error "%s already has a byte-optimizer, can't make it inline" put byte-compile-inline-expand] 4) (defalias 'sdicf-entry-p #[(entry) ";\"" [entry string-match "^<.>\\([^<]+\\)"] 3]) (byte-code "Ns\"#" [sdicf-entry-p byte-optimizer (nil byte-compile-inline-expand) error "%s already has a byte-optimizer, can't make it inline" put byte-compile-inline-expand] 4) (defalias 'sdicf-get-filename #[(sdic) "H" [sdic 1] 2 "\ $(B<-=q%*%V%8%'%/%H$+$i%U%!%$%kL>$rF@$k(B"]) (byte-code "Ns\"#" [sdicf-get-filename byte-optimizer (nil byte-compile-inline-expand) error "%s already has a byte-optimizer, can't make it inline" put byte-compile-inline-expand] 4) (defalias 'sdicf-get-coding-system #[(sdic) "H" [sdic 2] 2 "\ $(B<-=q%*%V%8%'%/%H$+$i(B coding-system $(B$rF@$k(B"]) (byte-code "Ns\"#" [sdicf-get-coding-system byte-optimizer (nil byte-compile-inline-expand) error "%s already has a byte-optimizer, can't make it inline" put byte-compile-inline-expand] 4) (defalias 'sdicf-get-strategy #[(sdic) "H" [sdic 3] 2 "\ $(B<-=q%*%V%8%'%/%H$+$i(B strategy $(B$rF@$k(B"]) (byte-code "Ns\"#" [sdicf-get-strategy byte-optimizer (nil byte-compile-inline-expand) error "%s already has a byte-optimizer, can't make it inline" put byte-compile-inline-expand] 4) (defalias 'sdicf-get-buffer #[(sdic) "H" [sdic 4] 2 "\ $(B<-=q%*%V%8%'%/%H$+$i8!:wMQ%P%C%U%!$rF@$k(B"]) (byte-code "Ns\"#" [sdicf-get-buffer byte-optimizer (nil byte-compile-inline-expand) error "%s already has a byte-optimizer, can't make it inline" put byte-compile-inline-expand] 4) (defalias 'sdicf-common-init #[(sdic) "H)!H)H)\"!I" [sdic buffer-live-p 4 generate-new-buffer format " *sdic %s*" 1] 8 "\ $(B6&DL$N<-=q=i4|2=4X?t(B $(B:n6HMQ%P%C%U%!$,B8:_$9$k$3$H$r3NG'$7!"$J$1$l$P?7$7$/@8@.$9$k!#:n6HMQ%P%C(B $(B%U%!$rJV$9!#(B"]) (defalias 'sdicf-common-quit #[(sdic) "H)!H)!" [sdic buffer-live-p 4 kill-buffer] 4 "\ $(B6&DL$N<-=q=*N;4X?t(B"]) (defalias 'sdicf-search-internal #[nil "ga``{Buy" [entries ?< nil] 2 "\ $(B8=:_9T$r%A%'%C%/$7!"%(%s%H%j$J$i$P8=:_9T$NFbMF$r(B entries $(B$K2C$($k!#(B $(B%]%$%s%H$r9T$N@hF,$K0\F0$7$F$*$+$J$1$l$P$J$i$J$$!#4X?t$N\n]" ?& "&" ?< "<" ?> ">" "&lf;" eval concat] 6 "\ STRING $(B$r%(%s%3!<%I$9$k(B $(B%(%s%3!<%I$7$?J8;zNs$rJV$9(B"]) (defalias 'sdicf-decode-string #[(string) "\n#ǔȪɔʪ˔̪\nÔO BBÕU\nO BB!*" [string list start 0 nil string-match "&\\(\\(lt\\)\\|\\(gt\\)\\|\\(lf\\)\\|\\(amp\\)\\);" 2 "<" 3 ">" 4 "\n" "&" eval concat] 5 "\ STRING $(B$r%G%3!<%I$9$k(B $(B%G%3!<%I$7$?J8;zNs$rJV$9(B"]) (defalias 'sdicf-insert-file-contents #[(filename coding-system &optional visit beg end replace) " \n %*" [beg visit filename coding-system-for-read file-coding-system-for-read coding-system insert-file-contents end replace] 6 "\ CODING-SYSTEM $(B$rL@<(E*$K;XDj$7$F(B insert-file-contents $(B$r8F$S=P$9(B CODING-SYSTEM $(B0J30$N0z?t$N0UL#$O(B insert-file-contents $(B$HF1$8(B"]) (defalias 'sdicf-call-process #[(program coding-system &optional infile buffer display &rest args) " B \n  &-" [coding-system-for-read coding-system-for-write process-input-coding-system process-output-coding-system default-process-coding-system coding-system apply call-process program infile buffer display args] 7 "\ CODING-SYSTEM $(B$rL@<(E*$K;XDj$7$F(B call-process $(B$r8F$S=P$9(B CODING-SYSTEM $(B0J30$N0z?t$N0UL#$O(B call-process $(B$HF1$8(B"]) (defalias 'sdicf-start-process #[(name buffer program coding-system &rest args) " \n %! # \" \" )" [args program buffer name coding-system proc apply start-process fboundp set-process-coding-system set-process-input-coding-system set-process-output-coding-system] 6 "\ start-process $(B$r]$N%U%!%$%k$r%P%C%U%!$KFI$_9~$s$G8!:w$r9T$&(B $(B8+$D$+$C$?%(%s%H%j$N%j%9%H$rJV$9!#(BCASE $(B$,(B nil $(B$J$i$P!"BgJ8;z>.J8;z$N0c(B $(B$$$r6hJL$7$F8!:w$9$k!#(BREGEXP $(B$,(B Non-nil $(B$J$i$P!"(BPATTERN $(B$r@55,I=8=$H8+(B $(B$J$7$F8!:w$9$k!#(B"]) (defalias 'sdicf-grep-available #[(sdic) "\nH)!\nH)C\" ; !\";!\"" [sdicf-egrep-command sdicf-fgrep-command sdic file-readable-p 1 signal sdicf-missing-file file-executable-p sdicf-missing-executable (fgrep grep) (egrep grep)] 5]) (byte-code "\"\"" [defalias sdicf-grep-init sdicf-common-init sdicf-grep-quit sdicf-common-quit] 3) (defalias 'sdicf-grep-search #[(sdic pattern &optional case regexp) " ! H)qed|\n H)\n H)F H)E H)E H)E&ebmga``{ Buyf *" [sdicf-egrep-command case regexp entries pattern sdic sdicf-grep-init 4 apply sdicf-call-process 2 nil t "-i" "-e" 1 ?< sdicf-fgrep-command] 13 "\ fgrep / egrep $(B$^$?$O(B grep $(B$r;H$C$F8!:w$r9T$&(B $(B8+$D$+$C$?%(%s%H%j$N%j%9%H$rJV$9!#(BCASE $(B$,(B nil $(B$J$i$P!"BgJ8;z>.J8;z$N0c(B $(B$$$r6hJL$7$F8!:w$9$k!#(BREGEXP $(B$,(B nil $(B$J$i$P(B sdicf-fgrep-command $(B$G;XDj(B $(B$5$l$?%3%^%s%I$r;H$C$F8!:w$9$k!#(BREGEXP $(B$,(B Non-nil $(B$J$i$P(B sdicf-egrep-command $(B$G;XDj$5$l$?%3%^%s%I$r;H$&!#(B"]) (defalias 'sdicf-array-available #[(sdic) " H)! H)C\" H)P! H)PC\";!\"" [sdicf-array-command sdic file-readable-p 1 signal sdicf-missing-file ".ary" file-executable-p sdicf-missing-executable (array)] 5]) (defalias 'sdicf-array-init #[(sdic) " ! H)!\n!a H) H) H)%\n!\n\"\n!\n\"\n!\n!\n\")" [sdicf-array-command sdic proc sdicf-common-init get-buffer-process 4 process-status run sdicf-start-process "array" 2 1 accept-process-output process-send-string "style line\n" "order index\n" process-kill-without-query set-process-filter sdicf-array-wait-prompt t] 8]) (defalias 'sdicf-array-quit #[(sdic) " H)! H)!!a\"\" H)!)" [proc sdic buffer-live-p 4 get-buffer-process process-status run set-process-filter nil process-send-string "quit\n" kill-buffer] 4]) (defalias 'sdicf-array-send-string #[(proc string) "\n!q\n!dƓ\nP\" \n!w*" [string sdicf-array-wait-prompt-flag proc t process-buffer process-mark nil process-send-string "\n" accept-process-output] 4 "\ $(B;XDj$5$l$?J8;zNs(B STRING $(B$r%3%^%s%I$H$7$F(B PROC $(B$KEO$7$F%W%m%s%W%H$,8=$l$k$^$GBT$D4X?t(B"]) (defalias 'sdicf-array-wait-prompt #[(proc string) " Ŏ !q !b c !`ȓxy!ȉ+" [sdicf-array-wait-prompt-flag string #1=#:match-data proc match-data ((store-match-data #1#)) process-buffer process-mark nil " \n" 0 looking-at "ok\n"] 3 "\ $(B%W%m%s%W%H(B ok $(B$,8=$l$?$3$H$r8!CN$7$F!"(Bsdicf-array-wait-prompt-flag $(B$r(B nil $(B$K$9$k%U%#%k%?4X?t(B"]) (defalias 'sdicf-array-search #[(sdic pattern &optional case regexp) "\n! \"\nH)q! \"ed| P\"!ed| \"̉mga``{ Buyf \" A @ A@k AAl Ag *+" [case-fold-search regexp sdic proc entries cons sdicf-array-init signal sdicf-invalid-method (regexp) get-buffer-process 4 nil sdicf-array-send-string "init" "search " looking-at "FOUND:" "show" ?< sort string< pattern] 5 "\ array $(B$r;H$C$F8!:w$r9T$&(B $(B8+$D$+$C$?%(%s%H%j$N%j%9%H$rJV$9!#(Barray $(B$O@55,I=8=8!:w$*$h$SBgJ8;z>.J8(B $(B;z$N0c$$$r6hJL$7$J$$8!:w$O=PMh$J$$!#=>$C$F!"(BCASE $(B$,(B Non-nil $(B$N>l9g$O!"(B $(BBgJ8;z>.J8;z$r6hJL$7$F8!:w$7$?>l9g$N7k2L$rJV$9!#(BREGEXP $(B$,(B Non-nil $(B$N>l(B $(B9g$O6u$j%9%H$rJV$9!#(B"]) (defalias 'sdicf-open #[(filename &optional coding-system strategy) "\n ȉ% A@ ! C\"͍I )" [sdicf-default-coding-system coding-system filename sdicf-strategy-alist sdic strategy vector SDIC nil 3 signal sdicf-invalid-strategy found-strategy (byte-code "\"\"" [sdicf-strategy-alist mapcar #[(e) "Ï@\"" [e nil (byte-code " A@!" [sdic e] 2) ((sdicf-errors)) throw found-strategy] 3] signal sdicf-decide-strategy nil] 3)] 7 "\ SDIC$(B7A<0$N<-=q$r%*!<%W%s$9$k(B FILENAME $(B$O<-=q$N%U%!%$%kL>!#(BSTRATEGY $(B$O8!:w$r9T$J$&J}<0$r;XDj$9$k0z?t(B $(B$G!"@\8!:w!#(B `grep' - grep $(B%3%^%s%I$rMQ$$$F8!:w!#(B `array' - SUFARY $(B$rMQ$$$?9bB.8!:w!#(B STRATEGY $(B$,>JN,$5$l$?>l9g$O(B sdicf-strategy-alist $(B$NCM$r;H$C$F<+F0E*$K(B $(BH=Dj$9$k!#(BCODING-SYSTEM $(B$,>JN,$5$l$?>l9g$O!"(Bsdicf-default-coding-system $(B$NCM$r;H$&!#(B SDIC $(B<-=q%*%V%8%'%/%H$O(B CAR $(B$,(B `SDIC' $(B$N%Y%/%?$G$"$k!#0J2<$N(B4$(B$D$NMWAG(B $(B$r;}$D!#(B $(B!&%U%!%$%kL>(B $(B!&<-=q$N(B coding-system $(B!&(Bstrategy $(B!&:n6HMQ%P%C%U%!(B "]) (defalias 'sdicf-close #[(sdic) "  ! Ha) D\" H)8 !" [sdicf-strategy-alist sdic vectorp 0 SDIC signal wrong-type-argument sdicf-object-p 3] 5 "\ SDIC$(B7A<0$N<-=q$r%/%m!<%:$9$k(B"]) (defalias 'sdicf-search #[(sdic method word) "  ! Ha) D\"\n;\nD\" a  H)8 a\n!P a\n!P a\n!Q a\n a\n C\" a a a$)" [sdicf-strategy-alist case-fold-search word sdic method vectorp 0 SDIC signal wrong-type-argument sdicf-object-p stringp text 4 3 prefix "" sdicf-encode-string suffix "" exact regexp sdicf-invalid-method] 7 "\ SDIC$(B7A<0$N<-=q$+$i(B WORD $(B$r%-!<$H$7$F8!:w$r9T$&(B $(B8+IU$+$C$?%(%s%H%j$N%j%9%H$rJV$9!#(BMETHOD $(B$O8!:wK!$G!"l9g$OBgJ8;z(B/$(B>.J8;z$r6hJL$7(B $(B$F8!:w$r9T$&!#A4J88!:w$*$h$S@55,I=8=8!:w$N>l9g$O!"(Bcase-fold-search $(B$N(B $(BCM$K$h$C$FJQ2=$9$k!#$?$@$7!"(Bstrategy $(B$K$h$C$F$O!";XDj$5$l$?8!:wJ}<0$K(B $(BBP1~$7$F$$$J$$>l9g$,$"$k$N$G!"Cm0U$9$k$3$H!#BP1~$7$F$$$J$$>l9g$NJV$jCM(B $(B$O!"(Bstrategy $(B$K$h$k!#(B"]) (defalias 'sdicf-entry-headword #[(entry) ";\")D\"ǔǕO!" [entry string-match "^<.>\\([^<]+\\)" signal wrong-type-argument sdicf-entry-p sdicf-decode-string 1] 5 "\ $(B%(%s%H%j(B ENTRY $(B$N8+=P$78l$rJV$9!#(B"]) (defalias 'sdicf-entry-keywords #[(entry &optional add-headword) " ; \") D\"ɕ \" ̔̕O!C #aɕ ̔̕O!\nBg\n*" [add-headword start keywords entry string-match "^<.>\\([^<]+\\)" signal wrong-type-argument sdicf-entry-p 0 "^" sdicf-decode-string 1 "<.>\\([^<]+\\)"] 6 "\ $(B%(%s%H%j(B ENTRY $(B$N8!:w%-!<$N%j%9%H$rJV$9(B ADD-HEADWORD $(B$,(B Non-nil $(B$N>l9g$O8!:w%-!<$K8+=P$78l$r2C$($?%j%9%H$rJV$9(B"]) (defalias 'sdicf-entry-text #[(entry) ";D\"\"O!" [entry signal wrong-type-argument stringp sdicf-decode-string string-match "[^>]*$" nil] 5 "\ $(B%(%s%H%j(B ENTRY $(B$NK\J8$rJV$9!#(B"]) (provide 'sdicf)