1 files changed, 49 insertions, 0 deletions

@@ -0,0 +1,49 @@
+(module (jimmy util) *
+
+  (import scheme (chicken base)
+          (chicken condition)
+          (only (chicken irregex) irregex-replace/all)
+          (chicken string))
+
+  (define-syntax define-public
+    (syntax-rules ()
+      ((define-public (name . arg) forms ...)
+       (begin (export name)
+              (define (name . arg) forms ...)))
+      ((define-public (name args ...) forms ...)
+       (begin (export name)
+              (define (name args ...) forms ...)))
+      ((define-public name value)
+       (begin (export name)
+              (define name value)))))
+
+  (define-syntax ignore-errors
+    (syntax-rules ()
+      ((ignore-errors x)
+       (handle-exceptions e #f x))))
+
+  (define (alist-walk lis . keys)
+    (if (null? keys)
+        lis
+        (let ((kv (assoc (car keys) lis)))
+          (cond
+           ((not kv) #f)
+           ((atom? (cdr kv))
+            (and (null? (cdr keys))       ; this shouldn't error...
+                 (cdr kv)))
+           ((list? (cdr kv))
+            (apply alist-walk (cdr kv) (cdr keys)))))))
+
+  (define (string-join ss #!optional (sep " "))
+    (string-intersperse ss sep))
+
+  (define (flush-lines-left lines)
+    (irregex-replace/all '(: bol (* space))
+                         (string-join lines) ""))
+
+  (define (join-lines lines)
+    (apply string-append lines))
+
+  )
+
+