Re: [cxml-devel] Real-world example: with attachment

Hi Ray,

Thanks. It does seems easier with xpath. Perhaps it's my stubbornness that keeps me hammering away at cxml-stp. If no one comes up with a good example for STP, I think I'll take the path of least resistance and do as you suggest.

Cheers, - Steve

________________________________ From: Raymond Wiker rwiker@gmail.com To: Steven Nunez steve_nunez@yahoo.com Cc: "cxml-devel@common-lisp.net" cxml-devel@common-lisp.net Sent: Monday, June 11, 2012 5:14 PM Subject: Re: [cxml-devel] Real-world example: with attachment

On Jun 11, 2012, at 05:50 , Steven Nunez wrote: (defun algorithm-name (model)

"Returns the algorithm for the model"   (stp:filter-recursively (stp:of-name "algorithmName" (stp:namespace-uri model)) model))

I'd do something like the following:

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defun algorithm-name (model)   (xpath:with-namespaces ((nil "http://www.dmg.org/PMML-4_0"))     (xpath:string-value (xpath:evaluate "//RegressionModel/@algorithmName" model))))

(defun model-coefficient-list (model)   (xpath:with-namespaces ((nil "http://www.dmg.org/PMML-4_0"))     (let ((regression-model-node (xpath:first-node (xpath:evaluate "//RegressionModel" model)))           (*read-eval* nil))       `(,(xpath:string-value (xpath:evaluate "@modelName" regression-model-node))         ,@(xpath:map-node-set->list            (lambda (node)              (list               (xpath:string-value (xpath:evaluate "@name" node))               ;; note: xpath:number-value may work here, depending on               ;; your implementation... does not work with Lispworks               ;; 6.1 under Mac OS X               (read-from-string (xpath:string-value (xpath:evaluate "@coefficient" node)))))            (xpath:evaluate "RegressionTable/NumericPredictor" regression-model-node))))))

#|| (defparameter *model*   (cxml:parse #p"/Users/raw/Desktop/polynomial-regression.xml" (cxml-stp:make-builder)))

(cxml-stp:serialize *model* (cxml:make-string-sink :indentation 4))

(algorithm-name *model*)

(model-coefficient-list *model*) ||# ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Notes:

1) I'm not sure that model-coefficient-list does what you need.

2) It might be appropriate to use cxml-stp:attribute-value instead of xpath:string-value/xpath:evaluate.

3) Since there are multiple coefficients with the same name (where some have an "exponent" attribute), I guess you'd either need to filter out some of the coefficients, build names that somehow incorporate the exponent, or add the exponent to the list structure returned.

Hope this helps.