Optionally enable timestamp in save snippet uri
This commit is contained in:
parent
536bde92df
commit
53412381fb
@ -28,6 +28,7 @@
|
|||||||
(define SNIPPET-FILE "code.sv")
|
(define SNIPPET-FILE "code.sv")
|
||||||
(define IVERILOG-METATOP-FILE "top_iverilog.sv")
|
(define IVERILOG-METATOP-FILE "top_iverilog.sv")
|
||||||
(define VERILATOR-CPP-FILE "top_verilator.cpp")
|
(define VERILATOR-CPP-FILE "top_verilator.cpp")
|
||||||
|
(define USE-TIME-IN-SAVE-URL #f)
|
||||||
|
|
||||||
(define IVERILOG-EXE "iverilog")
|
(define IVERILOG-EXE "iverilog")
|
||||||
(define VVP-EXE "vvp")
|
(define VVP-EXE "vvp")
|
||||||
@ -668,8 +669,9 @@
|
|||||||
(mkdtemp
|
(mkdtemp
|
||||||
(path+
|
(path+
|
||||||
stor-base
|
stor-base
|
||||||
(format "~a-XXXXXX"
|
(if USE-TIME-IN-SAVE-URL
|
||||||
(current-time)))))
|
(format "~a-XXXXXX" (current-time))
|
||||||
|
"XXXXXX"))))
|
||||||
ref-stor-dir)))
|
ref-stor-dir)))
|
||||||
(save-to-storage (path+ stor-base stor-dir) code)
|
(save-to-storage (path+ stor-base stor-dir) code)
|
||||||
(make-response
|
(make-response
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user