new function 'real-node-p and 'all-attribute-nodes

tree/node.lisp

@@ -57,6 +57,13 @@
 (defmethod release/impl ((node node))
   (%xmlFreeNode (pointer node)))
 
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; real-node-p
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(defun real-node-p (node)
+  (if (pointer node) t))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; copy
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -407,6 +414,14 @@
   (iter (for item in-child-nodes  node)
         (collect item)))
 
+;;; element-attributes
+
+(defun all-attribute-nodes (element)
+  (unless (eql (node-type element) :xml-element-node)
+    (error "~A is not :xml-element-node" (node-type element)))
+  (iter (for attr in-next-siblings-from (wrapper-slot-node element '%properties))
+        (collect attr)))
+
 
 (defun pointer-to-node (ptr)
   (unless (null-pointer-p ptr)

tree/packages.lisp

@@ -38,6 +38,7 @@
            #:make-ns
            #:copy
 
+           #:real-node-p
            #:element-p
            #:attribute-p
            #:text-p
@@ -79,6 +80,7 @@
            #:first-child
            #:last-child
            #:all-childs
+           #:all-attribute-nodes
            #:next-sibling
            #:prev-sibling
            #:local-name