summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThomas Hintz <t@thintz.com>2015-04-29 10:51:05 -0700
committerThomas Hintz <t@thintz.com>2015-04-29 10:51:05 -0700
commitb1b77db5f30684cda1ba7e1cd572e8da38677cde (patch)
tree0a795af114ba626cda820688c90a5a6689300477
parent6bf71718d1163f51e6224bfcf3de804a2eb79587 (diff)
downloadsimple-b1b77db5f30684cda1ba7e1cd572e8da38677cde.tar.gz
Removing Z3/gzip support.gzip
-rw-r--r--simple.scm22
1 files changed, 2 insertions, 20 deletions
diff --git a/simple.scm b/simple.scm
index b1013a5..04a349c 100644
--- a/simple.scm
+++ b/simple.scm
@@ -215,22 +215,8 @@
(when (and (enable-session) (session-valid? (sid)))
(session-refresh! (sid))))
-(use z3)
-(define z (z3:encode-init))
-(define b "")
-(z3:encode z (lambda (s) (display s)) (with-input-from-file "news.scm"
- (lambda () (substring (read-string) 640))))
-(z3:encode z (lambda (s) (set! b s)) "hi, how are you?")
-
-(z3:encode-buffer "hi, how are you?")
-(get-output-string dest)
-(z3:decode-buffer "Q/WH,JU/\a\x00")
-(z3:decode-buffer (z3:encode-buffer "hi, how are you?"))
-
(define (make-chunked-port output-port #!key (buffer-size 4094))
(let ((buffer (make-string buffer-size))
- (output (make-string buffer-size))
- (z3-handle (z3:init buffer: buffer buffer-size: buffer-size))
(pos 0))
(define (flush)
(fprintf output-port "~X" pos)
@@ -239,7 +225,8 @@
(display buffer output-port)
(display (substring buffer 0 pos) output-port))
(display "\n" output-port)
- (flush-output output-port))
+ (flush-output output-port)
+ (set! pos 0))
(make-output-port
(lambda (s)
(let ((len (##core#inline "C_block_size" s)))
@@ -247,11 +234,6 @@
(if (fx>= (fx+ len pos) buffer-size)
(begin (##core#inline "C_substring_copy" s buffer s-pos
(fx+ (fx- buffer-size pos) s-pos) pos)
- (let ((len-written (z3:encode z3-handle
- (lambda (s)
- (set! output
- (string-append output s))) s)))
- )
(set! len (fx- len (fx- buffer-size pos)))
(set! s-pos (fx+ s-pos (fx- buffer-size pos)))
(set! pos buffer-size)