I'm trying to use `gzip-through-ports` and I haven't been able to
unzip compressed data.
Here's a tiny example. I think this should print "hello world":
```
#lang racket
(require
(only-in file/gzip gzip-through-ports)
(only-in file/gunzip gunzip-through-ports))
(define src "hello world")
(define (compress str)
(call-with-output-string
(lambda (out-port)
(call-with-input-string str
(lambda (in-port)
(gzip-through-ports in-port out-port #f 0))))))
(define (decompress str)
(call-with-output-string
(lambda (out-port)
(call-with-input-string str
(lambda (in-port)
(gunzip-through-ports in-port out-port))))))
(define tgt (decompress (compress src)))
(displayln tgt)
```
But instead, it stops with "gnu-unzip: bad header"
The source code says that the header is the first two bytes, and these
should be #o037 and #o213. But in my compressed string, the second
byte is #o357 for some reason. I'm not sure how that could have
happened ... some kind of encoding issue with string ports?
--
You received this message because you are subscribed to the Google Groups
"Racket Users" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to [email protected].
To view this discussion on the web visit
https://groups.google.com/d/msgid/racket-users/CAFUu9R4%3DEPphxb44odmqYe9naSWuX7pu7KO0vGqRws537jGZBw%40mail.gmail.com.
