Changeset 30992 in project


Ignore:
Timestamp:
06/09/14 04:58:29 (6 years ago)
Author:
Ivan Raikov
Message:

9ML-toolkit: small fix to XML parser

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/9ML-toolkit/trunk/parse.scm

    r30976 r30992  
    604604            ((lambda (x) (if (null? ode-variables1)
    605605                             (cons (make-algebraic-eqn 't (make-signal-expr 't)) x) x))
    606              (cons (make-algebraic-eqn trigger-name (make-signal-expr 'false))
    607                    (map (lambda (var rhs) (make-algebraic-eqn var (make-signal-expr rhs subst: aliases))  )
    608                         assign-variables1 assign-rhss1)))))
     606             (map (lambda (var rhs) (make-algebraic-eqn var (make-signal-expr rhs subst: aliases))  )
     607                  assign-variables1 assign-rhss1))))
     608     
     609
     610
     611          (odes
     612           
     613           (if (null? relations)
     614               
     615               (make-ode-eqn-lst-expr
     616                (map (lambda (var rhs) (make-ode-eqn 't var 'h (make-signal-expr rhs subst: aliases))) 
     617                     ode-variables ode-rhss))
    609618               
    610 
    611 
    612           (odes
    613 
    614            (Apply
    615 
    616             (Apply diagram-union
    617                    (Apply (Apply diagram-assign (make-list (list (Const `(label ,trigger-name)))))
    618                           (make-pure (make-signal-expr trigger-rhs subst: aliases))))
    619 
    620             (if (null? relations)
    621                
    622                 (make-ode-eqn-lst-expr
    623                  (map (lambda (var rhs) (make-ode-eqn 't var 'h (make-signal-expr rhs subst: aliases))) 
    624                       ode-variables ode-rhss))
    625                
    626                 (make-dae-eqn-lst-expr
    627                  (append relations
    628                          (map (lambda (var rhs) (make-ode-eqn 't var 'h (make-signal-expr rhs subst: aliases))) 
    629                               ode-variables ode-rhss)))
    630                 )))
     619               (make-dae-eqn-lst-expr
     620                (append relations
     621                        (map (lambda (var rhs) (make-ode-eqn 't var 'h (make-signal-expr rhs subst: aliases))) 
     622                             ode-variables ode-rhss)))
     623               ))
    631624
    632625          (odes1
     
    646639                )))
    647640          )
    648      
    649641
    650642      (Apply
    651 
     643       
    652644       (Apply
    653645       
    654         (Apply diagram-transient
    655 
    656                (if assignments
    657                    (Apply
    658                     (Apply diagram-sequence odes)
    659                     assignments)
    660                    odes))
    661        
     646        (Apply
     647         
     648         (Apply diagram-transient
     649               
     650                (if assignments
     651                    (Apply
     652                     (Apply diagram-sequence odes)
     653                     assignments)
     654                    odes))
     655         
    662656         (if (null? ode-variables1)
    663657             
     
    669663              assignments1)
    670664             
    671             ))
    672 
    673         (Apply
    674          (Apply signal-boolsig (Const `(label ,trigger-name)))
    675          (Apply signal-boolconst (Const `(bool #f)))))
    676 
    677        ))
     665             ))
     666       
     667       (Apply
     668        (Apply signal-realsig (Const `(label ,trigger-name)))
     669        (Apply signal-realconst (Const `(real -1.0)))) )
     670
     671       
     672       (Apply
     673        (Apply diagram-assign (make-list (list (Const `(label ,trigger-name)))))
     674        (make-pure (make-signal-expr trigger-rhs subst: aliases))) )
     675     
     676      ))
    678677
    679678
Note: See TracChangeset for help on using the changeset viewer.