Add a game state log dumping facility that produces a (load)able sexpr-log.
[eow] / log.lisp
index 478e372945f691ce8ae4bcb5a53489f0bda25330..8aeec2f0ec4b5b8fd03a8f00e44630ff731f7996 100644 (file)
--- a/log.lisp
+++ b/log.lisp
@@ -1,6 +1,13 @@
 (in-package :empire-log)
 
 (in-package :empire-log)
 
+(defvar *user-log-path* #p"/tmp/")
+
 (defun info (&rest args)
   (apply #'format *standard-output* args)
   (terpri *standard-output*))
 
 (defun info (&rest args)
   (apply #'format *standard-output* args)
   (terpri *standard-output*))
 
+(defun user-log-path (user-name)
+  (make-pathname :defaults *user-log-prefix* :name user-name))
+
+(defun open-user-log (user-name)
+  (open (user-log-path user-name) :direction :output :if-exists :supersede))