scsh-0.6/scheme/alt-packages.scm

136 lines
3.4 KiB
Scheme
Raw Normal View History

1999-09-14 08:45:02 -04:00
; 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)))