136 lines
3.4 KiB
Scheme
136 lines
3.4 KiB
Scheme
; Copyright (c) 1993-1999 by Richard Kelsey and Jonathan Rees. See file COPYING.
|
|
|
|
|
|
; This configuration file provides alternative implementations of the
|
|
; low, run-time, and run-time-internals structures. Cf. the interface
|
|
; definitions in packages.scm.
|
|
|
|
(define-structure scheme-level-0 scheme-level-0-interface
|
|
(open scheme))
|
|
|
|
(define-structure escapes escapes-interface ;cf. alt/low-packages.scm
|
|
(open scheme-level-2 define-record-types signals)
|
|
(files (alt escape)))
|
|
|
|
(define-structures ((low-level low-level-interface)
|
|
(source-file-names (export (%file-name% :syntax)))
|
|
(structure-refs (export (structure-ref :syntax))))
|
|
(open scheme-level-2 signals)
|
|
(files (alt low)))
|
|
|
|
(define-structure closures closures-interface
|
|
(open scheme-level-1 records)
|
|
(files (alt closure)))
|
|
|
|
(define-structure locations locations-interface
|
|
(open scheme-level-2 records)
|
|
(files (alt locations)))
|
|
|
|
(define-structure loopholes (export (loophole :syntax))
|
|
(open scheme-level-2)
|
|
(files (alt loophole)))
|
|
|
|
(define-structure silly (export reverse-list->string)
|
|
(open scheme-level-1)
|
|
(files (alt silly)))
|
|
|
|
(define-structure write-images (export write-image)
|
|
(open scheme-level-2
|
|
tables ;Forward reference
|
|
features bitwise ascii enumerated
|
|
architecture
|
|
templates
|
|
closures
|
|
signals)
|
|
(files (link data)
|
|
(link transport)
|
|
(link write-image)))
|
|
|
|
; --------------------
|
|
; run-time (generally speaking, things needed by the linker)
|
|
|
|
; Same as in rts-packages.scm:
|
|
(define-structure architecture architecture-interface
|
|
(open scheme-level-1 signals enumerated)
|
|
(files (vm arch)))
|
|
|
|
(define-structure define-record-types define-record-types-interface
|
|
(open scheme-level-1 records)
|
|
(files (alt jar-defrecord)))
|
|
|
|
; Same as in rts-packages.scm:
|
|
(define-structure enumerated enumerated-interface
|
|
(open scheme-level-1 signals)
|
|
(files (rts defenum scm)))
|
|
|
|
(define-structure fluids fluids-interface
|
|
(open scheme-level-1 signals)
|
|
(files (alt fluid)))
|
|
|
|
(define-structures ((scheme-level-2 scheme-level-2-interface)
|
|
(scheme-level-1 scheme-level-1-interface))
|
|
(open scheme))
|
|
|
|
(define-structure templates templates-interface
|
|
(open scheme-level-1)
|
|
(files (alt template)
|
|
(rts template)))
|
|
|
|
(define-structure util util-interface
|
|
(open scheme-level-1)
|
|
(files (rts util)))
|
|
|
|
(define-structure weak weak-interface
|
|
(open scheme-level-1 signals)
|
|
(files (alt weak)
|
|
(rts population)))
|
|
|
|
|
|
; --------------------
|
|
; run-time internals (generally speaking, things not needed by the linker)
|
|
|
|
; * = mentioned in more-packages.scm
|
|
; conditions
|
|
; continuations
|
|
; display-conditions
|
|
; * exceptions
|
|
; * fluids-internal
|
|
; methods
|
|
; meta-methods
|
|
; interrupts
|
|
; low-level
|
|
; more-types
|
|
; * number-i/o
|
|
; * ports
|
|
; * reading
|
|
; * records-internal
|
|
; usual-resumer
|
|
; * wind
|
|
; writing
|
|
|
|
(define-structure wind wind-interface
|
|
(open scheme-level-2)
|
|
(files (alt reroot)))
|
|
|
|
(define-structure continuations continuations-interface
|
|
(open scheme-level-1 templates methods)
|
|
(files (alt contin)
|
|
(rts continuation))
|
|
(optimize auto-integrate))
|
|
|
|
; --------------------
|
|
; These don't really belong here, but I sure don't know where they
|
|
; ought to go.
|
|
|
|
(define-structure environments (export *structure-ref)
|
|
(open ) ;Assume flatloading
|
|
(files (alt environments)))
|
|
|
|
|
|
; Procedure annotations
|
|
|
|
(define-structure annotations
|
|
(export annotate-procedure procedure-annotation)
|
|
(open scheme-level-1)
|
|
(files (alt annotate)))
|