231
232
233
234
235
236
237
238
239
240
241
242
243
244
|
"-transport"
"-kill-server"
"-port"
"-extract-ods"
"-pathmod"
"-env2file"
"-envcap"
"-setvars"
"-set-state-status"
"-set-run-status"
"-debug" ;; for *verbosity* > 2
"-gen-megatest-test"
"-override-timeout"
"-test-files" ;; -test-paths is for listing all
|
>
|
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
|
"-transport"
"-kill-server"
"-port"
"-extract-ods"
"-pathmod"
"-env2file"
"-envcap"
"-envdelta"
"-setvars"
"-set-state-status"
"-set-run-status"
"-debug" ;; for *verbosity* > 2
"-gen-megatest-test"
"-override-timeout"
"-test-files" ;; -test-paths is for listing all
|
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
|
"-q" ;; quiet 0, errors/warnings only
)
args:arg-hash
0))
(if (and (not (null? remargs))
(not (or
(args:get-arg "-runstep"))
;; add more args that use remargs here
))
(debug:print 0 "ERROR: Unrecognised arguments: " (string-intersperse (if (list? remargs) remargs (argv)) " ")))
;; immediately set MT_TARGET if -reqtarg or -target are available
;;
(let ((targ (or (args:get-arg "-reqtarg")(args:get-arg "-target"))))
|
|
>
>
>
|
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
|
"-q" ;; quiet 0, errors/warnings only
)
args:arg-hash
0))
(if (and (not (null? remargs))
(not (or
(args:get-arg "-runstep")
(args:get-arg "-envcap")
(args:get-arg "-envdelta")
)
;; add more args that use remargs here
))
(debug:print 0 "ERROR: Unrecognised arguments: " (string-intersperse (if (list? remargs) remargs (argv)) " ")))
;; immediately set MT_TARGET if -reqtarg or -target are available
;;
(let ((targ (or (args:get-arg "-reqtarg")(args:get-arg "-target"))))
|
1883
1884
1885
1886
1887
1888
1889
1890
1891
1892
1893
1894
1895
1896
1897
1898
1899
1900
1901
1902
1903
1904
1905
1906
1907
1908
1909
1910
1911
1912
1913
1914
1915
1916
1917
1918
1919
1920
1921
|
;;======================================================================
;; Capture, save and manipulate environments
;;======================================================================
(let ((envcap (args:get-arg "-envcap")))
(if envcap
(if (substring-index "=" envcap)
(let* ((parts (string-split envcap "="))
(fname (car parts))
(context (cadr parts))
(db (env:open-db fname)))
(env:save-env-vars db context)
(env:close-database db)
(set! *didsomething* #t))
(begin
(debug:print 0 "ERROR: Parameter to -envcap should be <filename>=<context>. E.G. envdat=original, got: " envcap)
(set! *didsomething* #t)))))
(let ((match (string-match "([a-z]+)=([a-z\-,]+)" envdelta)))
(if match
(let* ((resctx (cadr match))
(equn (caddr match))
(parts (string-split equn "-"))
(minuend (car parts))
(subtraend (cadr parts))
(
;;======================================================================
;; Exit and clean up
;;======================================================================
(if *runremote* (close-all-connections!))
|
<
<
<
<
|
|
|
<
<
<
|
|
|
>
|
|
|
>
>
>
>
>
>
>
>
>
|
|
>
>
>
>
|
1887
1888
1889
1890
1891
1892
1893
1894
1895
1896
1897
1898
1899
1900
1901
1902
1903
1904
1905
1906
1907
1908
1909
1910
1911
1912
1913
1914
1915
1916
1917
1918
1919
1920
1921
1922
1923
1924
1925
1926
1927
1928
1929
1930
1931
1932
|
;;======================================================================
;; Capture, save and manipulate environments
;;======================================================================
(let ((envcap (args:get-arg "-envcap")))
(if envcap
(let* ((db (env:open-db (if (null? remargs) "envdat.db" (car remargs)))))
(env:save-env-vars db envcap)
(env:close-database db)
(set! *didsomething* #t))))
;; delta "language" will eventually be res=a+b-c but for now it is just res=a-b
;;
(let ((envdelta (args:get-arg "-envdelta")))
(if envdelta
(let ((match (string-split envdelta "-")));; (string-match "([a-z0-9_]+)=([a-z0-9_\\-,]+)" envdelta)))
(if (not (null? match))
(let* ((db (env:open-db (if (null? remargs) "envdat.db" (car remargs))))
;; (resctx (cadr match))
;; (equn (caddr match))
(parts match) ;; (string-split equn "-"))
(minuend (car parts))
(subtraend (cadr parts))
(added (env:get-added db minuend subtraend))
(removed (env:get-removed db minuend subtraend))
(changed (env:get-changed db minuend subtraend)))
;; (pp (hash-table->alist added))
;; (pp (hash-table->alist removed))
;; (pp (hash-table->alist changed))
(if (args:get-arg "-o")
(with-output-to-file
(args:get-arg "-o")
(lambda ()
(env:print added removed changed)))
(env:print added removed changed))
(env:close-database db)
(set! *didsomething* #t))
(debug:print 0 "ERROR: Parameter to -envdelta should be new=star-end")))))
;;======================================================================
;; Exit and clean up
;;======================================================================
(if *runremote* (close-all-connections!))
|