Changeset 11995 in project for release/3/nemo/trunk/nemo.scm


Ignore:
Timestamp:
09/25/08 07:16:00 (12 years ago)
Author:
Ivan Raikov
Message:

More bug fixes.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/3/nemo/trunk/nemo.scm

    r11977 r11995  
    123123          `(let ,(map ncml-binding->binding bnds) ,(ncml-expr->expr body)))
    124124         (((and op (? symbol?)) . args)       
    125           (print "ncml-expr->expr: node = " node)
    126125          (cons (ncml-op->op op) (map ncml-expr->expr args)))
    127126         (else (error 'ncml-expr->expr "unknown expression " node))))
     
    247246                                            (ncml:power ,(expr->ncml-expr p)))))
    248247                   
    249                     (($ nemo:quantity 'COMPONENT type lst)
     248                    (($ nemo:quantity 'COMPONENT name type lst)
    250249                     (let ((component->ncml (make-component->ncml dis model))
    251250                           (component-exports ((dis 'component-exports) model x)))
     
    253252                         ((toplevel) `(,@(map component->ncml lst)
    254253                                       ,@(map (lambda (x) `(ncml:output (@ (id ,x)))) component-exports)))
    255                          (else `(ncml:component (@ (name ,x) (type ,type))
     254                         (else `(ncml:component (@ (name ,name) (type ,type))
    256255                                                ,@(filter-map component->ncml lst)
    257256                                                ,@(map (lambda (x) `(ncml:output (@ (id ,x)))) component-exports)
     
    317316        (sxml:match 'ncml:input
    318317                    (lambda (node bindings root env)
    319                       (print "input: node = " node)
    320318                      (let ((id    (sxml:attr node 'id))
    321319                            (from  (sxml:kidn* 'ncml:from node))
     
    330328        (sxml:match 'ncml:output
    331329                    (lambda (node bindings root env)
    332                       (print "output: node = " node)
    333330                      (let ((id   (sxml:attr node 'id)))
    334331                        (if (not id) (error 'output-template "output declaration requires id attribute"))
     
    338335        (sxml:match 'ncml:const
    339336                    (lambda (node bindings root env)
    340                       (print "const: node = " node)
    341337                      (let* ((id   (sxml:attr node 'id))
    342338                             (expr ((lambda (x)
     
    351347        (sxml:match 'ncml:transition
    352348                    (lambda (node bindings root env)
    353                       (print "transition: node = " node)
    354349                      (let ((src  (sxml:attr node 'src))
    355350                            (dst  (sxml:attr node 'dst))
     
    370365        (sxml:match 'ncml:asgn
    371366                    (lambda (node bindings root env)
    372                       (print "asgn: node = " node)
    373367                      (let ((id   (sxml:attr node 'id))
    374368                            (expr ((lambda (x)
     
    384378        (sxml:match 'ncml:state_complex
    385379                    (lambda (node bindings root env)
    386                       (print "state: node = " node)
    387380                      (let ((id   (string->symbol (->string (sxml:attr node 'id))))
    388381                            (initial ((lambda (x)
     
    420413        (sxml:match 'ncml:defun
    421414                    (lambda (node bindings root env)
    422                       (print "defun: node = " node)
    423415                      (let ((id    (sxml:attr node 'id))
    424416                            (args  ((lambda (x)
    425                                       (print "defun: arg = " x)
    426417                                      (if (null? x) 
    427418                                          (error 'defun-template
     
    430421                                    (sxml:kidsn 'ncml:arg node)))
    431422                            (body ((lambda (x)
    432                                      (print "defun: body = " x)
    433423                                     (if (not x) 
    434424                                         (error 'defun-template
     
    442432        (sxml:match 'ncml:component
    443433                    (lambda (node bindings root env)
    444                       (print "component: node = " node)
    445434                      (let ((name (sxml:attr node 'name))
    446435                            (type (sxml:attr node 'type)))
Note: See TracChangeset for help on using the changeset viewer.