From a89d6c82e981fec7d6e4c975e083d2b9e04467ad Mon Sep 17 00:00:00 2001 From: Rose Hogenson Date: Mon, 1 May 2023 07:56:42 -0700 Subject: Rewrite most of the compiler. This represents a major step back in terms of functionality, and amount of code. The latter I think constitutes a major win. Next steps are to reimplement syntax-rules, call/cc, and call-with-values. --- lib/csc/format.csc | 50 -------------------------------------------------- 1 file changed, 50 deletions(-) delete mode 100644 lib/csc/format.csc (limited to 'lib/csc/format.csc') diff --git a/lib/csc/format.csc b/lib/csc/format.csc deleted file mode 100644 index 6ffd736..0000000 --- a/lib/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))))) -- cgit v1.3.1