雑記帖のにっき

2002-08-11 (日)

_ [からだ] フィットネスクラブ

5km 走り 5km 自転車。

_ [misc] ミズチェさんと花火見物

東京湾岸花火？を住商のビルの中から見る。ビルの中でも花火の音が聞こえてびっくり。部長さんがガンバってセッティングしてくれたらしい。綺麗でした。
3人でワインを飲む。ゲストはマユミさん。
確認しないと注文が１つも来ない。5回連続。パーフェクト。

[ツッコミを入れる]

TrackBack(0)

2004-08-11 (水)

_ [xyzzy] PL/SQL の list-function (from shj's diary)

はずかしながら PL/SQL を全く知らないのですが、こんな感じなんでしょうか。
テケトーに修正してやってください。(^^;;

(in-package "editor")
(defun PL/SQL-build-summary-of-functions ()
  (let (result package-range-alist package begin end func)
    (save-excursion
      ;; search package range
      (goto-char (point-min))
      (while (scan-buffer "^[ \t]*create[ \t]+or[ \t]+replace[ \t]+package[ \t]+body[ \t]+\\([^ \t\n]+\\)[ \t]+is"
                          :regexp t :case-fold t)
        (setq package (match-string 1))
        (push (list (current-line-number) (concat "package " package)) result)
        (setq begin (point))
        (if (scan-buffer (concat "end[ \t\n]+" (regexp-quote package) ";")
                           :regexp t :case-fold t :tail t)
            (setq end (point))
          (setq end (point-max)))
        (push (cons package (cons begin end)) package-range-alist)
        (goto-char end)
        (forward-char))
      (goto-char (point-min))
      ;; search function/procedure/cursor
      (while (scan-buffer "^[ ^t]*\\(?:function\\|procedure\\|cursor\\)[ \t]+\\([^ \t\n(]+.+?\\)[ \t]+is"
                          :regexp t :case-fold t)
        (setq func (match-string 1))
        (setq package (car (rassoc-if #'(lambda (range)
                                          (and (< (car range) (point))
                                               (< (point) (cdr range))))
                                      package-range-alist)))
        (when package
          (setq func (concat package "." func)))
        (push (list (current-line-number) func) result)
        (next-line)))
    (stable-sort result #'< :key #'car)))
(add-hook '*sql-mode-hook*
          #'(lambda ()
              (make-local-variable 'build-summary-function)
              (setq build-summary-function 'PL/SQL-build-summary-of-functions)))