|
|
|
@ -8,8 +8,6 @@
|
|
|
|
#:use-module (yacswa data)
|
|
|
|
#:use-module (yacswa data)
|
|
|
|
#:export (std-display))
|
|
|
|
#:export (std-display))
|
|
|
|
|
|
|
|
|
|
|
|
(use-modules (system repl server))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;;TODO: Better verify functions
|
|
|
|
;;TODO: Better verify functions
|
|
|
|
;; : figure out the #:mtime directive for (response-emit)
|
|
|
|
;; : figure out the #:mtime directive for (response-emit)
|
|
|
|
;; : Change the API around to separate expiry tagging
|
|
|
|
;; : Change the API around to separate expiry tagging
|
|
|
|
@ -45,16 +43,11 @@
|
|
|
|
(lambda (obj)
|
|
|
|
(lambda (obj)
|
|
|
|
(display obj stdout))))
|
|
|
|
(display obj stdout))))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(display "Calling init-server...\n")
|
|
|
|
(std-display "Spawning repl...")
|
|
|
|
|
|
|
|
(define repl-sock (make-tcp-server-socket))
|
|
|
|
|
|
|
|
(std-display "done.\n")
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(std-display "Calling init-server...\n")
|
|
|
|
|
|
|
|
(init-server #:statics '(png jpg jpeg ico html js css)
|
|
|
|
(init-server #:statics '(png jpg jpeg ico html js css)
|
|
|
|
#:cache-statics? #t #:exclude '())
|
|
|
|
#:cache-statics? #t #:exclude '())
|
|
|
|
(std-display "Artanis initialized!\n")
|
|
|
|
(display "Artanis initialized!\n")
|
|
|
|
(std-display "Setting routes...")
|
|
|
|
(display "Setting routes...")
|
|
|
|
|
|
|
|
|
|
|
|
;; Routes
|
|
|
|
;; Routes
|
|
|
|
(get "/json/pc/:pc"
|
|
|
|
(get "/json/pc/:pc"
|
|
|
|
|