Changeset 25763 in project


Ignore:
Timestamp:
01/05/12 09:05:48 (9 years ago)
Author:
Ivan Raikov
Message:

9ML-toolkit and nemo: updates to online help

Location:
release/4
Files:
7 edited
8 copied

Legend:

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

    r25756 r25763  
    208208;; suitable for embedding into help text.
    209209(define (ivp:usage)
    210   (print "Usage: " (car (argv)) " [options...] file1... ")
     210  (print "Usage: " (car (argv)) " file1... [options...] ")
    211211  (newline)
    212212  (print "The following options are recognized: ")
  • release/4/9ML-toolkit/trunk/parse.scm

    r25756 r25763  
    160160   (parser lexer (make-parse-error loc)))
    161161
     162(define list-cons         (Pident (ident-create "cons")))
     163(define list-null         (Pident (ident-create "null")))
    162164
    163165(define diagram-pure         (Longid (Pdot (Pident (ident-create "Diagram")) "PURE")))
     
    401403        ))
    402404
     405
    403406(define (parse-list-sexpr-macro text)
    404407  (let recur ((text (reverse text))
    405               (lst '()))
     408              (lst list-null))
    406409    (if (null? text) lst
    407         (recur (cdr lst) (Apply list-cons (parse (car text)) lst)))
     410        (recur (cdr lst) (Apply list-cons (parse (->string (car text))) lst)))
    408411    ))
    409412
  • release/4/9ML-toolkit/trunk/report.scm

    r25756 r25763  
    214214;; suitable for embedding into help text.
    215215(define (report:usage)
    216   (print "Usage: " (car (argv)) " [options...] file1... ")
     216  (print "Usage: " (car (argv)) " file1... [options...] ")
    217217  (newline)
    218218  (print "The following options are recognized: ")
  • release/4/9ML-toolkit/trunk/shell.scm

    r25756 r25763  
    126126;; suitable for embedding into help text.
    127127(define (shell:usage)
    128   (print "Usage: " (car (argv)) " [options...] file1... ")
     128  (print "Usage: " (car (argv)) " file1... [options...] ")
    129129  (newline)
    130130  (print "The following options are recognized: ")
  • release/4/9ML-toolkit/trunk/ulp.scm

    r25756 r25763  
    152152;; suitable for embedding into help text.
    153153(define (ulp:usage)
    154   (print "Usage: " (car (argv)) " [options...] operands ")
     154  (print "Usage: " (car (argv)) " file1... [options...] ")
    155155  (newline)
    156156  (print "Where operands are NineML user layer files")
  • release/4/nemo/tags/4.3/examples/Khaliq03/neuron_vclamp/default.ses

    r17888 r25763  
    66objref g[9]     // some graphs
    77
    8 objref vgraphbox, hgraphbox1, hgraphbox2
     8objref vgraphbox, hgraphbox[2]
     9
    910vgraphbox=new VBox()
    1011vgraphbox.intercept(1)
     12
    1113hgraphbox1=new HBox()
    12 hgraphbox1.intercept(1)
     14hgraphbox[0].intercept(1)
    1315
    1416for i=0,2 {
     
    1820}
    1921
    20 hgraphbox1.intercept(0)
    21 hgraphbox1.map()
    22 hgraphbox2=new HBox()
    23 hgraphbox2.intercept(1)
     22hgraphbox[0].intercept(0)
     23hgraphbox[0].map()
     24
     25hgraphbox[1]=new HBox()
     26hgraphbox[1].intercept(1)
    2427
    2528for i=3,8 {
     
    2932}
    3033
    31 hgraphbox2.intercept(0)
    32 hgraphbox2.map()
     34hgraphbox[1].intercept(0)
     35hgraphbox[1].map()
    3336
    3437vgraphbox.intercept(0)
  • release/4/nemo/trunk/nemo.scm

    r25713 r25763  
    169169;; suitable for embedding into help text.
    170170(define (nemo:usage)
    171   (print "Usage: " (car (argv)) " [options...] <list of files to be processed> ")
     171  (print "Usage: " (car (argv)) "  <list of files to be processed> [options...] ")
    172172  (newline)
    173173  (print "The following options are recognized: ")
Note: See TracChangeset for help on using the changeset viewer.