logos-co
/
scratch
mirror of https://github.com/logos-co/scratch.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Record stdout/stderr for each run in appropiate file 

Currently examining stdout is the only way to recover the random seed.
This commit is contained in:
Mark Evenson 2022-09-04 08:51:45 +02:00
parent d4a30601f7
commit 4128cb7edb
1 changed files with 17 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
mevenson/simulation/runner.lisp
View File

@ -10,7 +10,10 @@
&key
parameters
(jsown (jsown-template)))
"Run the Glacier simulation TRIALS times for PARAMETERS"
"Run the Glacier simulation TRIALS times for PARAMETERS
PARAMETERS are a list of (JSON-PATH VALUE) pairs to get in the JSOWN
template."
(when parameters
(loop :for (path value) :in parameters
:doing
@ -49,18 +52,24 @@
(loop :for i :from 1 :upto trials
:doing
(let ((output (namestring
(make-pathname :defaults output-file
:name (format nil "~a-~a"
(pathname-name output-file)
i)))))
(let* ((output
(make-pathname :defaults output-file
:name (format nil "~a-~a"
(pathname-name output-file)
i)))
(stdout
(make-pathname :defaults output
:type "stdout"))
(stderr
(make-pathname :defaults output
:type "stderr")))
(uiop:run-program
`(,(namestring +consensus-simulations+)
"--input-settings" ,(namestring input-settings)
"--output-file" ,(namestring output))
:ignore-error-status t
:error-output :string
:output :string)
:error-output stderr
:output stdout)
(format *standard-output* ".")))
(format *standard-output* "done~%")