Changeset 12778

Timestamp:

07/03/10 22:05:13 (13 years ago)

Author:

ehuelsmann

Message:

Managing field/method/attribute attributes.

File:

• branches/generic-class-file/abcl/src/org/armedbear/lisp/jvm-class-file.lisp (modified) (2 diffs)

branches/generic-class-file/abcl/src/org/armedbear/lisp/jvm-class-file.lisp

@@ -391 +391 @@
 
 (defun class-methods-by-name (class name)
-  (remove (map-method-name name) (class-file-methods class)
+  (remove name (class-file-methods class)
           :test-not #'string= :key #'method-name))
 
-(defun class-method (class descriptor)
-  (find descriptor (class-file-methods class)
-        :test #'string= :key #'method-name))
+(defun class-method (class name return &rest args)
+  (let ((return-and-args (cons return args)))
+    (find-if #'(lambda (c)
+                 (and (string= (method-name c) name)
+                      (equal (method-descriptor c) return-and-args)))
+             (class-file-methods class))))
+
+(defun class-add-attribute (class attribute)
+  (push atttribute (class-file-attributes class)))
+
+(defun class-attribute (class name)
+  (find name (class-file-attributes class)
+        :test #'string= :key #'attribute-name))
 
 
@@ -522 +532 @@
                :descriptor type))
 
-(defun add-field-attribute (field attribute)
+(defun field-add-attribute (field attribute)
   (push attribute (field-attributes field)))
 
+(defun field-attribute (field name)
+  (find name (field-attributes field)
+        :test #'string= :key #'attribute-name))
 
 (defun finalize-field (field class)