;;;;;; Object dumper for Scheme48                        -*- Scheme -*-
;;;;;; Interface definitions

;;; Taylor Campbell wrote this code; he places it in the public domain.

(define-interface dumping-interface
  (export make-dumpster dumpster?
          call-with-file-dumpster call-with-port-dumpster
          dump                          ; Main entry point
          ;; Some other dumpers
          dump-using-writer
          dump-byte
          dump-char
          dump-block
          dump-integer
          write-dump write-dump-to-file))

(define-interface retrieving-dumps-interface
  (export open-retriever make-retriever
          close-retriever
          call-with-file-retriever
          retrieve retrieve/check
          retrieve-integer))

(define-interface usual-dump-encoder-interface
  (export usual-dump-encoder))
(define-interface usual-dump-decoder-interface
  (export usual-dump-decoder))

(define-interface object-dump-interface
  (compound-interface dumping-interface
                      retrieving-dumps-interface
                      usual-dump-encoder-interface
                      usual-dump-decoder-interface))

(define-interface dump-constants-interface
  (export dump-magic
          dump-tag/reference
          dump-tag/shared-header
          dump-tag/object-header))

(define-interface dump-utilities-interface
  (export write-byte read-byte
          write-integer read-integer
          read/careful read/check
          read-string
          (select :syntax)
          block-length
          ignore
          unspecific? unspecific eof-object
          make-output-sequence output-sequence?
          output-sequence-length
          append-output!
          output-sequence->list
          output-sequence-position!))