Changeset 29289 in project


Ignore:
Timestamp:
07/01/13 04:03:15 (8 years ago)
Author:
Ivan Raikov
Message:

9ML-toolkit: tweaks to XML parser

Location:
release/4/9ML-toolkit/trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • release/4/9ML-toolkit/trunk/examples/Brunel00/plot-activity.scm

    r29266 r29289  
    105105         
    106106         (plot:arg "-cm" )
    107          (plot:arg "-pagesize" "12,12")
     107         (plot:arg "-pagesize" "12,20")
    108108         (plot:arg "-font"     "FreeSans")
    109109         (plot:arg "-textsize" "11")
     
    121121       
    122122         (plot:proc "areadef"
    123                   `(("title"     . ,(sprintf "~A (avg. firing frequency = ~A Hz)"
     123                  `(("title"     . ,(sprintf "~A (~A Hz)"
    124124                                             plot-label average-firing-frequency))
    125                     ("rectangle" . "2 3.5 10 9")
     125                    ("titledetails" . "adjust=0,0.2")
     126                    ("rectangle" . "2 3.5 8 10.5")
    126127                    ("areacolor" . "white")
    127128
     
    151152                  `(("xfield"    .  "xcoord")
    152153                    ("yfield"    .  "ycoord")
    153                     ("linelen"   . "0.05")
    154                     ("linedetails"   . "width=1.5")
     154                    ("linelen"   . "0.07")
     155                    ("linedetails"   . "width=1.2")
    155156                    ("linedir"   . "v")
    156157                    ))
     
    166167       (plot:proc "areadef"
    167168                  `(;; ("title"     . "Spike # per time bin")
    168                     ("rectangle" . "2 1 10 3")
     169                    ("rectangle" . "2 1 8 3")
    169170                    ("areacolor" . "white")
    170171                   
  • release/4/9ML-toolkit/trunk/parse.scm

    r28902 r29289  
    427427        (state-variables  ((sxpath `(// nml:StateVariable)) sxml))
    428428        (regimes          ((sxpath `(// nml:Regime)) sxml))
    429         (relations        ((sxpath `(*or* nml:Relation nml:Alias)) sxml))
     429        (relations        ((sxpath `(// (*or* nml:Relation nml:Alias))) sxml))
    430430        )
    431    
     431
    432432;; TODO: ensure that parameters and state variables are consistent in the equations
    433433
     
    727727         )
    728728
    729      (print "dynamics-body = " dynamics-body)
    730 
    731729     (Value_def (ident-create name)
    732730                (let recur ((args dynamics-args) (ax dynamics-body))
  • release/4/9ML-toolkit/trunk/ulp.scm

    r28902 r29289  
    445445        (node-name (sxml:attr x 'name))
    446446        (definition ((sxpath `(// nml:Definition nml:link))  x))
    447         (properties ((sxpath `(// nml:Properties nml:Quantity nml:Value))  x))
    448         (initialvs  ((sxpath `(// nml:Properties nml:Initial nml:Value))  x))
    449         (initialns  ((sxpath `(// nml:Properties nml:Initial nml:Label))  x))
     447        (properties ((sxpath `(// nml:properties nml:Property nml:value))  x))
     448        (initialvs  ((sxpath `(// nml:properties nml:Initial nml:value))  x))
     449        (initialns  ((sxpath `(// nml:properties nml:Initial nml:label))  x))
    450450        (ivp (safe-car ((sxpath `(// nml:IVP))  x)))
    451451        )
     452
     453    (d "UL properties: ~A~%" properties)
    452454
    453455    (if (null? definition)
     
    499501                         (let ((n (string->number vtext))
    500502                               (b (string->bool vtext)))
     503                           (d "n = ~A b = ~A~% " n b)
    501504                           (or (and n (make-real-signal (sxml:text x) n))
    502505                               (and b (make-bool-signal (sxml:text x) b))))
     
    522525                                                ;; t h
    523526                                                (list (make-real-signal "t" 0.0)
    524                                                       (make-real-signal "h" ivp-timestep))
     527                                                      (make-real-signal "h" (or ivp-timestep 0.01)))
    525528                                                ))
    526529                           ))
     
    536539
    537540               (ivp-name    (and ivp (sxml:attr ivp 'name)))
    538 
    539541               (ivp-node    (and ivp-values
    540542                                 (Value_def (ident-create ivp-name)
Note: See TracChangeset for help on using the changeset viewer.