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

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

(define-structure object-dump object-dump-interface
  (open scheme
        dumping
        retrieving-dumps
        usual-dump-encoder
        usual-dump-decoder))

(define-structure dumping dumping-interface
  (open scheme
        defrecord                       ; RAK's syntax
        receiving
        ascii
        signals
        cells
        (subset i/o (write-string write-block))
        riatables
        dump-constants
        dump-utilities)
  (optimize auto-integrate)
  (files dump))

(define-structure retrieving-dumps retrieving-dumps-interface
  (open scheme
        defrecord                       ; RAK's syntax
        receiving
        signals
        dump-constants
        dump-utilities)
  (optimize auto-integrate)
  (files retrieve))

(define-structure usual-dump-encoder usual-dump-encoder-interface
  (open scheme
        dumping
        cells
        weak
        bitwise                         ; for negative integer encoder
        byte-vectors
        (subset i/o (write-block))
        dump-utilities)
  (optimize auto-integrate)
  (files usual-encoder))

(define-structure usual-dump-decoder usual-dump-decoder-interface
  (open scheme
        retrieving-dumps
        assembler                       ; YUCK!
        cells
        weak
        bitwise                         ; for negative integer decoder
        byte-vectors
        signals
        (subset i/o (read-block))
        dump-utilities)
  (optimize auto-integrate)
  (files usual-decoder))

(define-structure dump-constants dump-constants-interface
  (open scheme)
  ;(optimize auto-integrate)            ;?
  (files constants))

(define-structure dump-utilities dump-utilities-interface
  (open scheme
        ascii
        signals
        byte-vectors
        bitwise
        (subset i/o (read-block))
        (subset primitives (eof-object unspecific))
        defrecord)                      ; RAK's syntax
  (optimize auto-integrate)
  (files utilities))