1894
1895
1896
1897
1898
1899
1900
1901
1902
1903
1904
1905
1906
1907
|
(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)))))
;;======================================================================
;; Exit and clean up
;;======================================================================
(if *runremote* (close-all-connections!))
|
>
>
>
>
>
>
>
>
>
>
>
>
>
>
|
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
|
(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)))))
;; 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-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!))
|