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

;;;; Compiled Code Storage for Scheme48
;;;; Interface Definitions

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

(define-interface bundle-fasdumper-interface
  (export
    fasdump-bundle
    dump-bundle                         ;file dumper
    ))

(define-interface bundle-fasloader-interface
  (export
    fasload-bundle
    load-bundle                         ;file loader
    ))

(define-interface package-fasdumper-interface
  (export
    fasdump-package-bindings
    fasdump-package-template
    fasdump-package-debug-data
    write-package-bindings-to-file
    write-package-template-to-file
    write-package-debug-data-to-file
    ))

(define-interface package-fasloader-interface
  (export
    fasload-package-bindings
    fasload-package-template
    fasload-package-debug-data
    maybe-fasload-package-bindings
    maybe-fasload-package-template
    maybe-fasload-package-debug-data
    ))

(define-interface package-phases-interface
  (export
    expand-package
    compile-package
    load-package
    ))

(define-interface package-state-interface
  (export
    package-early-bound?
    set-package-early-bound?!
    flush-package-early-bound

    package-expanded-forms
    set-package-expanded-forms!
    flush-package-expanded-forms

    package-location-map
    create-package-location-map
    flush-package-location-map

    package-qualified->generated-table
    create-package-qualified->generated-table
    flush-package-qualified->generated-table

    package-template
    set-package-template!
    flush-package-template

    package-loaded?
    set-package-loaded?!
    flush-package-loaded
    ))

(define-interface package-filenames-interface
  (export
    $bundle-file-extension
    bundle-file-name

    $package-bindings-file-extension
    $package-template-file-extension
    $package-debug-data-file-extension

    $package-bindings-file-locator
    $package-template-file-locator
    $package-debug-data-file-locator
    $package-default-file-locator

    package-bindings-file-name
    package-template-file-name
    package-debug-data-file-name
    ))