np/verilog-playground
1
0
Fork 0
Code Issues 1 Pull Requests Projects Releases Wiki Activity

Add 'Save as new' button

Browse Source
This commit is contained in:
Nikolay Puzanov 2022-12-02 14:53:43 +03:00
parent ec02787747
commit 680e9f3aa5
2 changed files with 29 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
_web_server/server/index.html
View File

@ -94,7 +94,8 @@
<body>
<div id="buttons">
<button onclick="save_code()"><span class="text">Save (ctrl-s)</span></button>
<button onclick="save_code('%SAVECODEURI%')"><span class="text">Save (ctrl-s)</span></button>
<button onclick="save_code('%SAVEASURI%')"><span class="text">Save as new</span></button>
Sim:
<button onclick="send_to_icarus()"><span class="text">Icarus</span></button>
<!-- button><span class="text">Verilator</span></button -->
@ -136,8 +137,8 @@
.then((text) => { log_area.innerHTML = text; });
};
function save_code() {
fetch('%SAVECODEURI%',
function save_code(uri) {
fetch(uri,
{
method: 'POST',
headers: {

21
_web_server/server/playground-server.scm
View File

@ -41,6 +41,7 @@
(define URI-IVERILOG "iverilog")
(define URI-SAVE-CODE "save")
(define URI-SAVEAS-CODE "saveas")
(define LOG-DBG 3)
(define LOG-VERBOSE 2)
@ -393,10 +394,13 @@
(root (encode-and-join-uri-path root-path))
(iverilog-path (append root-path `(,URI-IVERILOG)))
(savecode-path (append root-path `(,URI-SAVE-CODE)))
(saveas-path (append root-path `(,URI-SAVEAS-CODE)))
(iverilog-post-uri (encode-and-join-uri-path iverilog-path))
(savecode-post-uri (encode-and-join-uri-path savecode-path))
(saveas-post-uri (encode-and-join-uri-path saveas-path))
(index-html (read-template-text index-file `(("IVERILOGPOSTURI" ,iverilog-post-uri)
("SAVECODEURI" ,savecode-post-uri)))))
("SAVECODEURI" ,savecode-post-uri)
("SAVEASURI" ,saveas-post-uri)))))
(lambda (request request-body)
(let (;; Requested resource path
@ -484,21 +488,26 @@
#:type 'text/plain))
;; Save snippet
((equal? path savecode-path)
(logger LOG-DBG "Request code saving")
((or (equal? path savecode-path)
(equal? path saveas-path))
(let ((saveas (equal? path saveas-path)))
(logger LOG-DBG "Request code saving~a"
(if saveas " as new snippet" ""))
(let ((stor-dir
(or ref-stor-dir
(if (or saveas
(not ref-stor-dir))
(basename
(mkdtemp
(path+
stor-base
(format "~a-XXXXXX"
(current-time))))))))
(current-time)))))
ref-stor-dir)))
(save-to-storage (path+ stor-base stor-dir) code)
(make-response
(encode-and-join-uri-path
(append root-path `(,stor-dir)))
#:type 'text/plain)))
#:type 'text/plain))))
;; Wrong POST request
(else