38 lines
1.3 KiB
Scheme
38 lines
1.3 KiB
Scheme
|
; Copyright (c) 1993-1999 by Richard Kelsey and Jonathan Rees. See file COPYING.
|
||
|
|
|
||
|
|
(define-structures ((prescheme prescheme-interface)
|
||
|
|
(ps-memory ps-memory-interface)
|
||
|
|
(memory-debug (export reinitialize-memory))
|
||
|
|
(ps-receive ps-receive-interface)
|
||
|
|
(external-constants (export make-external-constant
|
||
|
|
external-constant?
|
||
|
|
external-constant-enum-name
|
||
|
|
external-constant-name
|
||
|
|
external-constant-c-string)))
|
||
|
|
(open scheme code-vectors bitwise ascii primitives signals enumerated
|
||
|
|
structure-refs
|
||
|
|
define-record-types
|
||
|
|
bigbit) ; make sure that bignum bitwise operations are loaded
|
||
|
|
(access scheme)
|
||
|
|
(optimize auto-integrate)
|
||
|
|
(begin
|
||
|
|
; What we will get in C on many machines
|
||
|
|
(define pre-scheme-integer-size 32))
|
||
|
|
(files ps-defenum prescheme memory))
|
||
|
|
|
||
|
|
;(define-structure byte-vectors byte-vector-interface
|
||
|
|
; (open scheme code-vectors)
|
||
|
|
; (optimize auto-integrate)
|
||
|
|
; (files byte-vector))
|
||
|
|
;
|
||
|
|
;(define-interface byte-vector-interface
|
||
|
|
; (export make-byte-vector
|
||
|
|
; byte-vector?
|
||
|
|
; byte-vector-ref byte-vector-set!
|
||
|
|
; signed-byte-vector-ref signed-byte-vector-set!
|
||
|
|
; byte-vector-ref32 byte-vector-set32!
|
||
|
|
; signed-byte-vector-ref32 signed-byte-vector-set32!))
|
||
|
|
;
|
||
|
|
;(define-structure xmemory ps-memory-interface
|
||
|
|
; (open scheme byte-vectors signals enumerated bitwise)
|
||
|
|
; (files simple-memory))
|