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

Replace string-trim (left only trim) by string-trim-both

Browse Source
This commit is contained in:
Nikolay Puzanov 2022-12-04 19:53:56 +03:00
parent 53412381fb
commit c91003e34b
1 changed files with 12 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -454,7 +454,7 @@
;;; Get storage dir from URI ;;; Get storage dir from URI
;;; ;;;
(define (get-storage-dir uri root-path) (define (get-storage-dir uri root-path)
(string-trim (string-trim-both
(substring (uri-path uri) (substring (uri-path uri)
(string-length root-path)) (string-length root-path))
#\/)) #\/))
@ -570,6 +570,7 @@
""))) "")))
(logger LOG-VERBOSE "Request ~a:~a" (request-method request) path) (logger LOG-VERBOSE "Request ~a:~a" (request-method request) path)
(logger LOG-VERBOSE "Request query:~a" (uri-query (request-uri request)))
(logger LOG-DBG " stor:'~a' len:~a/~a" (logger LOG-DBG " stor:'~a' len:~a/~a"
ref-stor-dir ref-stor-dir
(request-content-length request) (request-content-length request)
@ -728,7 +729,7 @@
(define (string-trim-if-string str) (define (string-trim-if-string str)
(if (string? str) (if (string? str)
(string-trim str) (string-trim-both str)
str)) str))
(define (main args) (define (main args)
@ -752,20 +753,20 @@
'(("log-level") required) '(("log-level") required)
'(("help" #\h) none)))) '(("help" #\h) none))))
(let ((addr (string-trim (or (option-get opts "addr") "127.0.0.1"))) (let ((addr (string-trim-both (or (option-get opts "addr") "127.0.0.1")))
(port (string->number (string-trim (or (option-get opts "port") "8080")))) (port (string->number (string-trim-both (or (option-get opts "port") "8080"))))
(host (string-trim (or (option-get opts "host") "http://127.0.0.1:8080"))) (host (string-trim-both (or (option-get opts "host") "http://127.0.0.1:8080")))
(root (string-trim (or (option-get opts "root") ""))) (root (string-trim-both (or (option-get opts "root") "")))
(vvp-wrap (string-trim-if-string (option-get opts "vvp-wrap"))) (vvp-wrap (string-trim-if-string (option-get opts "vvp-wrap")))
(iverilog-wrap (string-trim-if-string (option-get opts "iverilog-wrap"))) (iverilog-wrap (string-trim-if-string (option-get opts "iverilog-wrap")))
(verilator-wrap (string-trim-if-string (option-get opts "verilator-wrap"))) (verilator-wrap (string-trim-if-string (option-get opts "verilator-wrap")))
(verilator-sim-wrap (string-trim-if-string (option-get opts "verilator-sim-wrap"))) (verilator-sim-wrap (string-trim-if-string (option-get opts "verilator-sim-wrap")))
(verilator-build-jobs (string->number (string-trim (or (option-get opts "verilator-build-jobs") "0")))) (verilator-build-jobs (string->number (string-trim-both (or (option-get opts "verilator-build-jobs") "0"))))
(max-code-size (string->number (string-trim (or (option-get opts "max-len") "0")))) (max-code-size (string->number (string-trim-both (or (option-get opts "max-len") "0"))))
(sanitize (not (option-get opts "dont-sanitize"))) (sanitize (not (option-get opts "dont-sanitize")))
(work-base (string-trim (or (option-get opts "work-base") "./"))) (work-base (string-trim-both (or (option-get opts "work-base") "./")))
(stor-base (string-trim (or (option-get opts "stor-base") "./"))) (stor-base (string-trim-both (or (option-get opts "stor-base") "./")))
(log-level (string->number (string-trim (or (option-get opts "log-level") "1"))))) (log-level (string->number (string-trim-both (or (option-get opts "log-level") "1")))))
(cond (cond
(err (err