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
Download Patch File Download Diff File Expand all files Collapse all files

41
_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")
(let ((stor-dir
(or ref-stor-dir
(basename
(mkdtemp
(path+
stor-base
(format "~a-XXXXXX"
(current-time))))))))
(save-to-storage (path+ stor-base stor-dir) code)
(make-response
(encode-and-join-uri-path
(append root-path `(,stor-dir)))
#:type 'text/plain)))
((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
(if (or saveas
(not ref-stor-dir))
(basename
(mkdtemp
(path+
stor-base
(format "~a-XXXXXX"
(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))))
;; Wrong POST request
(else