Modify the project structure.

Now the lib directory contains what will eventually end up on the
user's /usr/lib/csc. When I write make install, it will copy all of
the .csc files from lib into the destination lib directory. This means I
can start working on the standard library in lib/scheme.

1 files changed, 0 insertions, 50 deletions

diff --git a/csc/format.csc b/csc/format.csc
deleted file mode 100644
index 6ffd736..0000000
--- a/csc/format.csc
+++ /dev/null
@@ -1,50 +0,0 @@
-(define-library (csc format)
-  (export
-    fprintf
-    printf
-    sprintf)
-  (import (scheme base)
-          (only (scheme write)
-            display)
-          (only (csc loop)
-            loop)
-          (only (csc strings)
-            index
-            has-prefix?))
-  (begin
-
-
-    (define (fprintf port format-string . args)
-      (loop with s = format-string
-            until (string=? "" s)
-            if (has-prefix? s "{{")
-              do (write-string "{" port)
-                 (set! s (string-copy s 2))
-            else if (has-prefix? s "}}")
-              do (write-string "}" port)
-                 (set! s (string-copy s 2))
-            else if (has-prefix? s "{}")
-              do (display (car args) port)
-                 (set! args (cdr args))
-                 (set! s (string-copy s 2))
-            else if (or (has-prefix? s "{")
-                        (has-prefix? s "}"))
-              do (error "invalid format string" format-string)
-            else
-              do (let* ((open-brace-pos (index s "{"))
-                        (close-brace-pos (index s "}"))
-                        (format-pos (min open-brace-pos close-brace-pos)))
-                   (when (negative? format-pos)
-                     (set! format-pos (string-length s)))
-                   (write-string s port 0 format-pos)
-                   (set! s (string-copy s format-pos)))))
-
-
-    (define (printf format-string . format-args)
-      (apply fprintf (current-output-port) format-string format-args))
-
-
-    (define (sprintf format-string . format-args)
-      (let ((string-builder (open-output-string)))
-        (apply fprintf string-builder format-string format-args)
-        (get-output-string string-builder)))))