← Back to branch summary

~rotty/scheme-libraries/industria

« back to all changes in this revision

Viewing changes to weinholt/compression/zip/extra.sls

  • Committer: Göran Weinholt
  • Date: 2009-08-18 00:10:55 UTC
  • Revision ID: goran@weinholt.se-20090818001055-cz8dm0kneshy18ox
compression zip: Partial implementation of Deflate. The static trees don't seem to work, but the dynamic ones apparently work fine. Terrible performance.

Show diffs side-by-side

added added

removed removed

Lines of Context:
weinholt/compression/zip/extra.sls
17
17
 
18
18
;; Template for implementation hooks for (weinholt compression zip).
19
19
 
20
 
(library (weinholt compression zip extra (0 0 20090816))
 
20
(library (weinholt compression zip extra (0 0 20090817))
21
21
  (export call-with-adorned-output-file get-file-attributes)
22
22
  (import (rnrs)
23
23
          (srfi :19 time))
42
42
                                         internal-attributes
43
43
                                         external-attributes
44
44
                                         proc)
45
 
    (call-with-port (open-file-output-port filename)
 
45
    (call-with-port (open-file-input/output-port filename)
46
46
      proc))
47
47
 
48
48
  ;; This procedure will be used when creating .ZIP files. The data