From b1b77db5f30684cda1ba7e1cd572e8da38677cde Mon Sep 17 00:00:00 2001 From: Thomas Hintz Date: Wed, 29 Apr 2015 10:51:05 -0700 Subject: [PATCH] Removing Z3/gzip support. --- simple.scm | 22 ++-------------------- 1 file 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)