Changeset 28035 in project


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

nemo: fixes in ci script

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/nemo/trunk/scripts/model-ci.scm

    r27704 r28035  
    11
     2;;
     3;; Continuous integration scripts for model development.
     4;;
    25
    36(use matchable data-structures posix files tcp srfi-1 regex setup-api uri-generic awful sendfile)
     
    1821(define verbose (make-parameter v:info))
    1922
    20 (define http-user-agent "build-model")
     23(define http-user-agent "nemo-model")
    2124
    2225(define home (get-environment-variable "HOME"))
     
    161164
    162165(define (revisions-command model-name config)
    163   (or (lookup-def 'revision-command config)
    164       (lookup-def 'revisions-command config)
    165       (let ((config-dir (lookup-def 'config-dir config)))
     166  (or (alist-ref 'revision-command config)
     167      (alist-ref 'revisions-command config)
     168      (let ((config-dir (alist-ref 'config-dir config)))
    166169        (if (not config-dir)
    167170            (error 'revisions-command "unable to find model revisions command"))
     
    170173
    171174(define (fetch-command model-name config)
    172   (or (lookup-def 'fetch-command config)
    173       (lookup-def 'fetch-command config)
    174       (let ((config-dir (lookup-def 'config-dir config)))
     175  (or (alist-ref 'fetch-command config)
     176      (alist-ref 'fetch-command config)
     177      (let ((config-dir (alist-ref 'config-dir config)))
    175178        (if (not config-dir)
    176179            (error 'fetch-command "unable to find model fetch command"))
     
    179182
    180183(define (build-command model-name config)
    181   (or (lookup-def 'build-command config)
    182       (lookup-def 'build-command config)
    183       (let ((config-dir (lookup-def 'config-dir config)))
     184  (or (alist-ref 'build-command config)
     185      (alist-ref 'build-command config)
     186      (let ((config-dir (alist-ref 'config-dir config)))
    184187        (if (not config-dir)
    185188            (error 'fetch-command "unable to find model build command"))
     
    188191
    189192(define (test-commands model-name config)
    190   (or (lookup-def 'test-commands config)
    191       (lookup-def 'test-command config)
    192       (let ((config-dir (lookup-def 'config-dir config)))
     193  (or (alist-ref 'test-commands config)
     194      (alist-ref 'test-command config)
     195      (let ((config-dir (alist-ref 'config-dir config)))
    193196        (if (not config-dir)
    194197            (error 'fetch-command "unable to find model test commands"))
     
    200203
    201204(define (plot-commands model-name config)
    202   (or (lookup-def 'plot-commands config)
    203       (lookup-def 'plot-command config)
    204       (let ((config-dir (lookup-def 'config-dir config)))
     205  (or (alist-ref 'plot-commands config)
     206      (alist-ref 'plot-command config)
     207      (let ((config-dir (alist-ref 'config-dir config)))
    205208        (if (not config-dir)
    206209            (error 'fetch-command "unable to find model plot commands"))
Note: See TracChangeset for help on using the changeset viewer.