1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
|
; Part of Scheme 48 1.9. See file COPYING for notices and license.
; Authors: Richard Kelsey, Jonathan Rees, David Frese
(define-structure write-image (export s48-write-image)
(open prescheme)
(begin
(define s48-write-image
(external "s48_write_image" (=> (integer integer output-port) integer)))))
(define-structure read-image read-image-interface
(open prescheme)
(begin
(define s48-write-image
(external "s48_write_image" (=> (integer integer output-port) integer)))
(define s48-read-image
(external "s48_read_image" (=> (integer integer) integer)))
(define s48-startup-procedure
(external "s48_startup_procedure" (=> () integer)))
(define s48-initial-symbols
(external "s48_initial_symbols" (=> () integer)))
(define s48-initial-imported-bindings
(external "s48_initial_imported_bindings" (=> () integer)))
(define s48-initial-exported-bindings
(external "s48_initial_exported_bindings" (=> () integer)))
(define s48-resumer-records
(external "s48_resumer_records" (=> () integer)))
(define s48-relocate-all
(external "s48_relocate_all" (=> (integer address address integer integer integer) null)))
(define s48-initialization-complete!
(external "s48_initialization_completeB" (=> () null)))
(define s48-initializing-gc-root
(external "s48_initializing_gc_root" (=> () null)))
;; For debugging
(define get-all-globals
(external "get_all_globals" (=> () null)))
))
|
