Final Commit!master

1 files changed, 89 insertions, 0 deletions

diff --git a/helper.lisp b/helper.lisp
new file mode 100644
index 0000000..5f2b34a
--- /dev/null
+++ b/helper.lisp
@@ -0,0 +1,89 @@
+(ql:quickload "cl-charms")
+
+;; Splits are in the following format
+;; (name elapsed-time-for-split best-split split-pb)
+(defvar *interval* internal-time-units-per-second)
+(defvar *splits*
+  '(
+	("Chozo" 0 0 0)
+	("Kraid" 0 0 0)
+	("Wave Beam" 0 0 0)
+	("Phantoon" 0 0 0)
+	("Botwoon" 0 0 0)
+	("Draygon" 0 0 0)
+	("Lower Norfair" 0 0 0)
+	("Ridley" 0 0 0)
+	("Mother Brain" 0 0 0)))
+(defvar *all-splits* '())
+
+(defun set-val-in-list (list index value)
+  (cond
+	((null list) '())
+	((zerop index) (cons value (cdr list)))
+	(t (cons (car list) (set-val-in-list (cdr list) (1- index) value)))))
+
+(defun get-val-in-list (list index)
+  (cond
+	((null list) nil)
+	((zerop index) (car list))
+	(t (get-val-in-list (cdr list) (1- index)))))
+
+(defun push-on-list (value list)
+  (cond
+	((null list) (list value))
+    (t (cons (car list) (push-on-list value (cdr list))))))
+
+(defun read-file-of-splits (filename)
+  (with-open-file (in filename)
+	  (with-standard-io-syntax
+	    (setf *all-splits* (read in)))))
+
+(defun write-file-of-splits (filename splits)
+  (with-open-file (output filename)
+	:direction :output
+	:if-exists :supersede
+	(with-standard-io-syntax
+	  (print splits output))))
+
+(defun print-character-times (n char)
+  (cond
+	((zerop n) "")
+	(t
+	  (concatenate 'string (format nil "~a" char) (print-character-times (1- n) char)))))
+
+(defun center-string (string length)
+  (concatenate
+   'string
+   (print-character-times (floor (/ (- length (length string)) 2)) " ")
+   (format nil "~a" string)
+   (print-character-times (ceiling (/ (- length (length string)) 2)) " ")))
+
+(defun time-to-milliseconds (time)
+  (* (/ time *interval*) 1000))
+
+(defun format-time (milliseconds)
+  (let*
+	  ((hours   (floor (/ milliseconds (* 1000 60 60))))
+	   (minutes (floor (mod (/ milliseconds (* 1000 60)) 60)))
+	   (seconds (floor (mod (/ milliseconds 1000) 60)))
+	   (centis (mod (floor (/ milliseconds 10)) 100)))
+	(format
+	 nil "~a"
+	 (concatenate
+	  'string
+	  (cond ((zerop hours) "") (t (format nil "~2,'0D:" hours)))
+	  (cond ((zerop minutes) "") (t (format nil "~2,'0D:" minutes)))
+	  (format nil "~2,'0D." seconds)
+	  (format nil "~2,'0D" centis)))))
+
+(defun format-split (split)
+  (cond
+	((null split) "")
+	(t
+	 (concatenate
+	  'string
+	   (cond
+		 ((numberp (car split))
+		  (format nil "~a|" (center-string (format-time (car split)) 12)))
+		 (t (format nil "|~a|" (center-string (car split) 15))))
+	  (format-split (cdr split))))))