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

;;;; Compiled Code Storage for Scheme48
;;;; Package Definitions

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

(define-structure bundle-fasdumper bundle-fasdumper-interface
  (open scheme
        srfi-2                          ;and-let*
        receiving
        fluids
        simple-signals
        package-filenames
        fasdumping
        usual-fasl-encoder
        (subset scan-package (collect-packages))
        packages
        packages-internal
        package-phases
        package-fasdumper
        interfaces
        meta-types
        bindings
        locations
        (subset package-commands-internal (config-package))
        )
  (optimize auto-integrate)
  (files dump-bundle))

(define-structure bundle-fasloader bundle-fasloader-interface
  (open scheme
        receiving
        destructuring
        simple-signals
        package-filenames
        fasloading
        usual-fasl-decoder
        (subset scan-package (check-structure))
        packages
        packages-internal
        package-phases
        package-fasloader
        interfaces
        meta-types
        environments
        package-commands-internal
        )
  (optimize auto-integrate)
  (files load-bundle))

(define-structure package-fasdumper package-fasdumper-interface
  (open scheme
        fluids
        tables
        simple-signals
        destructuring
        package-filenames
        packages
        packages-internal
        package-state
        fasdumping
        usual-fasl-encoder
        names
        bindings
        transforms
        records record-types            ;++ for data rep. kludges
        meta-types
        closures
        templates
        (subset disclosers (template-id template-debug-data))
        debug-data
        locations
        nodes
        primops
        )
  (optimize auto-integrate)
  (files dump-package))

(define-structure package-fasloader package-fasloader-interface
  (open scheme
        receiving
        fluids
        simple-signals
        handle
        simple-conditions
        package-filenames
        tables
        fasloading
        usual-fasl-decoder
        closures
        assembler             ;++ for horrid closure fasloader method
        locations
        bindings
        packages
        packages-internal
        package-state
        templates
        (subset disclosers (template-id))
        debug-data
        debug-data-internal
        (subset records (record-set!))
        names
        (subset inline (inline-transform))
        transforms
        nodes
        primops
        meta-types
        )
  (optimize auto-integrate)
  (files load-package))

(define-structure package-phases package-phases-interface
  (open scheme
        receiving
        util
        simple-signals
        handle
        fluids
        tables
        (subset i/o (write-string current-noise-port force-output))
        closures
        (subset vm-exposure (invoke-closure))
        (subset environments (with-interaction-environment))
        packages
        packages-internal
        (subset records (record-set!))  ;++ for SET-PKG->ENV! kludge
        scan-package
        syntactic
        nodes
        primops
        compiler
        optimizer
        interfaces
        names
        bindings
        locations
        meta-types
        transforms
        compiler-envs
        usual-macros
        package-state
        package-fasloader
        )
  (optimize auto-integrate)
  (files phase))

(define-structure package-state package-state-interface
  (open scheme
        tables
        simple-signals
        packages
        (subset packages-internal (package-loaded?
                                   set-package-loaded?!))
        locations
        )
  (optimize auto-integrate)
  (files state))

(define-structure package-filenames package-filenames-interface
  (open scheme
        srfi-2                          ;and-let*
        filenames
        fluids
        cells
        simple-signals
        (subset packages-internal (package-file-name package-name))
        )
  (optimize auto-integrate)
  (files filenames))