;;; skk-auto.el --- 送り仮名の自動処理のためのプログラム -*- coding: iso-2022-jp -*-

;; Copyright (C) 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1997,
;;               1998, 1999, 2001
;;   Masahiko Sato <masahiko@kuis.kyoto-u.ac.jp>

;; Author: Masahiko Sato <masahiko@kuis.kyoto-u.ac.jp>
;; Maintainer: SKK Development Team <skk@ring.gr.jp>
;; Keywords: japanese, mule, input method

;; This file is part of Daredevil SKK.

;; This program is free software: you can redistribute it and/or
;; modify it under the terms of the GNU General Public License as
;; published by the Free Software Foundation, either version 3 of
;; the License, or (at your option) any later version.

;; This program is distributed in the hope that it will be
;; useful, but WITHOUT ANY WARRANTY; without even the implied
;; warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
;; PURPOSE.  See the GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with this program.  If not, see <http://www.gnu.org/licenses/>.

;;; Commentary:

;;; Code:

(require 'skk)

;;;###autoload
(defun skk-okuri-search-1 ()
  (when (and (not (or skk-abbrev-mode
                      skk-process-okuri-early
                      skk-henkan-okurigana))
             ;; we don't do auto-okuri-process
             ;; if henkan key contains numerals.
             (not (skk-numeric-p))
             (> (length skk-henkan-key) 1))
    (let (l)
      (setq skk-okuri-index-min (length skk-henkan-list)
            l (funcall skk-okuri-search-function)
            skk-okuri-index-max (+ skk-okuri-index-min (length l)))
      (if (not skk-katakana)
          l
        (mapcar 'skk-hiragana-to-katakana
                l)))))

(defun skk-okuri-search-subr-original ()
  ;; skk-okuri-search のサブルーチン。見つけたエントリのリストを返す。
  (let* ((henkan-key skk-henkan-key)
         (key (substring henkan-key 0 1))
         (len (length henkan-key))
         (key1 (concat "\n" key))
         key2 len2 key3 len3 okuri3
         ;; case-fold-search は、辞書バッファでは常に nil。
         ;;case-fold-search
         (inhibit-quit t)
         key-cand-alist p q r)
    (save-match-data
      (with-current-buffer (skk-get-jisyo-buffer skk-jisyo)
        (goto-char skk-okuri-ari-min)
        (while (search-forward key1 skk-okuri-ari-max t)
          (setq p (point)
                key2 (concat key (buffer-substring-no-properties
                                  p (- (search-forward " ") 2)))
                len2 (length key2))
          (when (and (<= len2 len)
                     (string= key2 (substring henkan-key 0 len2)))
            (let ((cont t))
              (setq q (line-end-position))
              (while (and cont (search-forward "/[" q t))
                (setq r (point))
                (setq okuri3 (buffer-substring-no-properties
                              r
                              (1- (search-forward "/")))
                      key3 (concat key2 okuri3)
                      len3 (length key3))
                (when (and (<= len3 len)
                           (string= key3 (substring henkan-key 0 len3)))
                  ;; finally found a candidate!
                  (let ((okuri
                         (concat okuri3 (substring henkan-key len3 len)))
                        cand)
                    (while (not (eq (following-char) ?\]))
                      (setq cand
                            (concat
                             (buffer-substring-no-properties
                              (point)
                              (1- (search-forward "/" skk-okuri-ari-max t)))
                             okuri))
                      ;; 見出し語が違っても候補が同じことがあり得る。
                      ;;   かんz /感/[じ/感/]/
                      ;;   かんj /感/[じ/感/]/
                      ;; など。
                      (unless (rassoc cand key-cand-alist)
                        (setq key-cand-alist (cons (cons key3 cand)
                                                   key-cand-alist))))
                    ;; it is not necessary to seach for "\[" on this line
                    ;; any more
                    (setq cont nil)))))))
        ;; key3 の長いもの順にソートして返す。
        (mapcar 'cdr
                (sort (nreverse key-cand-alist)
                      (lambda (x y)
                        (skk-string< (car y) (car x)))))))))

;;;###autoload
(defun skk-adjust-search-prog-list-for-auto-okuri ()
  ;; `skk-auto-okuri-process' が non-nil であれば
  ;; `skk-search-prog-list' に `skk-okuri-search' を加える。
  ;;
  ;; `skk-okuri-search' を加える位置については、skk-jisyo の
  ;; 後が最良かどうかは分らないので、オプションで変更できる
  ;; ようにすべきだが...。
  (unless (member '(skk-okuri-search)
                  (default-value 'skk-search-prog-list))
    (let ((pl (default-value 'skk-search-prog-list))
          (n 0) dic mark)
      (while pl
        (setq dic (car pl))
        (if (memq (nth 1 dic)
                  '(skk-jisyo skk-rdbms-private-jisyo-table))
            (setq mark n
                  pl nil)
          (setq pl (cdr pl)
                n (1+ n))))
      (when mark
        (skk-splice-in (default-value 'skk-search-prog-list)
                       (1+ mark)
                       '((skk-okuri-search)))))))

;; (add-hook 'skk-mode-hook 'skk-adjust-search-prog-list-for-auto-okuri)

(run-hooks 'skk-auto-load-hook)

(provide 'skk-auto)

;; Local Variables:
;; indent-tabs-mode: nil
;; End:

;;; skk-auto.el ends here
