Merge pull request #255 from Affonso-Gui/method-search-branch

Add pattern option in :methods

Author: k-okada

doc/jlatex/jobjects.tex

@@ -242,6 +242,10 @@ \subsection{基本クラス}
 このリストに{\bf assoc}を適用することにより、スロットの詳細値が得られる。
 しかしながら、それらを変更することはできない。}
 
+\methoddesc{:methods}{\&optional subname}{
+このオブジェクトから呼べる全てのメソッドのリストを返す。
+{\em subname}を指定すると、メソッド名のなかにそれを含むメソッドのみ返す。}
+
 \classdesc{propertied-object}{object}
 {plist}
 {property-listを持つオブジェクトを定義する。

doc/latex/objects.tex

@@ -283,9 +283,8 @@ \subsection{Basic Classes}
 \methoddesc{:slots}{}{
 returns a list of variable and value pairs of this object.}
 
-\methoddesc{:methods}{}{
-returns a list of all method names defined for this object.
-In other words, this object can accept method calls listed by :methods. }
+\methoddesc{:methods}{\&optional subname}{
+returns a list of all methods callable by this object. If {\em subname} is given, returns only methods with names that include {\em subname}. }
 
 \methoddesc{:get-val}{variable-name}{
 returns the value of the slot designated by {\it variable-name}.

lisp/l/object.l

@@ -26,7 +26,10 @@
 	(dotimes (i (length vars))
 	   (push (cons (elt vars i) (slot self (class self) i)) slots))
 	(nreverse slots)))
- (:methods () (apply #'append (mapcar #'cadr (send (class self) :all-method-names))))
+ (:methods (&optional (pattern ""))
+    "(self class &optional (pattern \"\"))
+Returns the list of all methods callable by the object. If pattern is given, returns only methods with names that include pattern."
+    (mapcan #'cadr (send (class self) :all-method-names pattern)))
 ;; (:all-methods () (send (class self) :all-method-names))
  (:super () (send (class self) :super))
  (:get-val (s) (slot self (class self) s))