yw05
/
ywatds
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix regression, add usage note

master
y5nw 2021-08-12 23:16:09 +02:00
parent 04f42be1dc
commit 70217d6743
4 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
.gitignore vendored
View File

@ -1,2 +1,3 @@
*~ **/*~
**/*#
ywatds ywatds

2
dataserver.lisp
View File

@ -26,7 +26,7 @@
(format nil "~s" (format nil "~s"
(atsl:from-file (atsl:from-file
(uiop:subpathname worldpath (format nil "advtrains_~a" p)) (uiop:subpathname worldpath (format nil "advtrains_~a" p))
'alist))) :alist)))
(hunchentoot:start server) (hunchentoot:start server)
;; loop until an error occurs ;; loop until an error occurs
(handler-case (loop (sleep most-positive-fixnum)) (handler-case (loop (sleep most-positive-fixnum))

4
serialize-lib.lisp
View File

@ -32,7 +32,7 @@
(defun read-table (stream restype) (defun read-table (stream restype)
(let ((ht (case restype (let ((ht (case restype
('alist nil) (:alist nil)
(otherwise (make-hash-table))))) (otherwise (make-hash-table)))))
(do ((line (adjust-line (read-line stream nil)) (do ((line (adjust-line (read-line stream nil))
(adjust-line (read-line stream nil)))) (adjust-line (read-line stream nil))))
@ -46,7 +46,7 @@
(read-table stream restype) (read-table stream restype)
vt))) vt)))
(case restype (case restype
('alist (push (cons kv vv) ht)) (:alist (push (cons kv vv) ht))
(otherwise (setf (gethash kv ht) vv)))))))) (otherwise (setf (gethash kv ht) vv))))))))
(defun from-stream (stream restype) (defun from-stream (stream restype)

3
www/index.txt Normal file
View File

@ -0,0 +1,3 @@
Usage
dumper/<p>: Dumps advtrains_<p> as associated lists