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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
|
; Copyright (c) 1993-2008 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 (modify scheme (rename (open-input-file scheme:open-input-file)
(open-output-file scheme:open-output-file)
(close-input-port scheme:close-input-port)
(close-output-port scheme:close-output-port)
(read-char scheme:read-char)
(peek-char scheme:peek-char)))
(subset i/o (byte-ready? read-byte peek-byte write-byte))
code-vectors bitwise ascii primitives signals enumerated
platform
define-record-types
bigbit) ; make sure that bignum bitwise operations are loaded
(optimize auto-integrate)
(files ps-defenum prescheme memory))
(define-structure ps-record-types (export define-record-type)
(open scheme (modify define-record-types (prefix s48:)))
(begin
(define-syntax define-record-type
(syntax-rules ()
((define-record-type name type-name
constructor
(field type more ...) ...)
(s48:define-record-type name type-name
constructor
(field more ...) ...))))))
(define-structure ps-flonums ps-flonums-interface
(open scheme)
(optimize auto-integrate)
(begin
(define fl+ +) (define fl- -) (define fl* *) (define fl/ /)
(define fl= =)
(define fl< <) (define fl> >)
(define fl<= <=) (define fl>= >=)))
(define-structure ps-unsigned-integers ps-unsigned-integers-interface
(open scheme)
(optimize auto-integrate)
(begin
(define un+ +) (define un- -) (define un* *)
(define unquotient quotient)
(define unremainder remainder)
(define un= =)
(define un< <) (define un> >)
(define un<= <=) (define un>= >=)
(define (unsigned->integer x) x)
(define (integer->unsigned x) x)
))
;(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))
|
