Hi all, i have these functions:

(defrule MASKCreate
  (ModelingTask (task ArchitecturalDesignTask) (ref
?ArchitecturalDesignTask&~nil))
  ?MAKSTask <- (ModelingTask (task MASKModeling) (ref nil))
  =>
  (bind ?ref (make-instance of "Multi-agent Society Knowledge Modeling"
(name (str-cat "Multi-agent Society Knowledge Modeling of " ?*project*))))
  (modify ?MAKSTask (name (str-cat "Multi-agent Society Knowledge Modeling
of " ?*project*)) (ref ?ref))

  (slot-insert$ ?ArchitecturalDesignTask subtasks 1 ?ref)

  (assert (ModelingProduct (product MASKModel)))
)

(defrule MASKModelTransformation
  (ModelingProduct (product ArchitecturalModel) (ref
ArchitecturalModel&~nil))
  (ModelingTask (task MASKModeling) (ref MASKModeling&~nil))
  ?MASKModel <- (ModelingProduct (product MASKModel) (ref nil))
  =>
  (bind ?modelname (str-cat "Multi-agent Society Knowledge Model of "
?*project*))

  (bind ?model (make-instance of "Multi-agent Society Knowledge Model" (name
?modelname)))
  (slot-set ?MASKModel (?name ?modelname) (ref ?model))

  (slot-set ?MASKModeling products ?model)
  (slot-insert$ ?ArchitecturalModel subproducts 1 ?model)

)


When i put

(assert (ModelingTask (task MASKModeling)))

(run)

Its all ok, i got MASKCreate to execute.

At this time i have in my facts:

(MAIN::ModelingProduct (product ArchitecturalModel) (name "Architectural
Model of Uiratan") (ref
<Java-Object:edu.stanford.smi.protege.model.DefaultSimpleInstance>))

(MAIN::ModelingTask (task MASKModeling) (name "Multi-agent Society Knowledge
Modeling of Uiratan") (ref
<Java-Object:edu.stanford.smi.protege.model.DefaultSimpleInstance>))

(MAIN::ModelingProduct (product MASKModel) (name nil) (ref nil))


So, anyone has any idea why cant i run MASKModelTransformation?



Best regards,



-- 
Uiratan Cavalcante              +55 (98) 8138-9212
TI/TRT-16-MA    (Manhã)     +55 (98) 2109-9430    http://www.trt16.gov.br
GESEC/UFMA   (Tarde)      +55 (98) 2109-8297    http://gesec.deinf.ufma.br
São Luís - MA - Brazil

Reply via email to