;;; -*- Mode: Scheme; scheme48-package: (config) -*-

;;;; Fasloader & Fasdumper
;;;; Package Definitions

;;; This code is written by Taylor Campbell and placed in the Public
;;; Domain.  All warranties are disclaimed.

(define-structure fasdumping fasdumping-interface
  (open scheme
        receiving
        signals
        define-record-type*
        riatables
        enumerated
        enum-case
        cells
        proposals
        ports
        i/o
        i/o-internal
        byte-vectors
        bitwise
        fasl-conditions
        fasl-format
        fasl-utilities)
  (optimize auto-integrate)
  (files fasdump))

(define-structure fasloading fasloading-interface
  (open scheme
        receiving
        signals
        define-record-type*
        enumerated
        enum-case
        proposals
        bitwise
        ports
        i/o
        i/o-internal
        byte-vectors
        fasl-conditions
        fasl-format
        fasl-utilities)
  (optimize auto-integrate)
  (files fasload))

(define-structure fasl-conditions fasl-conditions-interface
  (open scheme
        conditions
        exceptions
        fasl-format)
  (optimize auto-integrate)
  (files condition))

(define-structure usual-fasl-encoder usual-fasl-encoder-interface
  (open scheme
        (subset primitives (eof-object unspecific))
        i/o
        cells
        weak
        byte-vectors
        fasdumping
        fasl-format
        fasl-utilities)
  (optimize auto-integrate)
  (files usual-encoder))

(define-structure usual-fasl-decoder usual-fasl-decoder-interface
  (open scheme
        (subset primitives (eof-object unspecific))
        i/o
        cells
        weak assembler                  ;** LAP FOR HORRIBLE HACK
        byte-vectors
        fasloading
        fasl-conditions
        fasl-format
        fasl-utilities)
  (optimize auto-integrate)
  (files usual-decoder))

(define-structure fasl-format fasl-format-interface
  (open scheme
        enumerated
        bitwise
        fasl-conditions
        fasl-utilities)
  (optimize auto-integrate)
  (files format))

(define-structure fasl-utilities fasl-utilities-interface
  (open scheme
        bitwise
        ascii)
  (optimize auto-integrate)
  (files utilities))

(define-structure fasl-tests fasl-tests-interface
  (open scheme
        receiving
        fasdumping usual-fasl-encoder
        fasloading usual-fasl-decoder
        fasl-conditions
        fasl-format
        enumerated
        extended-ports
        ascii
        (subset primitives (eof-object unspecific))
        cells
        weak
        byte-vectors
        display-conditions)
  (optimize auto-integrate)
  (files test))