30 lines
682 B
Scheme
30 lines
682 B
Scheme
|
; Copyright (c) 1994 by Richard Kelsey. See file COPYING.
|
||
|
|
|
||
|
|
|
||
|
|
; Code generation for primops.
|
||
|
|
|
||
|
|
(define-record-type c-primop :c-primop
|
||
|
|
(make-c-primop simple? generate)
|
||
|
|
c-primop?
|
||
|
|
(simple? c-primop-simple?)
|
||
|
|
(generate c-primop-generate))
|
||
|
|
|
||
|
|
(define (simple-c-primop? primop)
|
||
|
|
(c-primop-simple? (primop-code-data primop)))
|
||
|
|
|
||
|
|
(define (primop-generate-c primop call port indent)
|
||
|
|
((c-primop-generate (primop-code-data primop))
|
||
|
|
call port indent))
|
||
|
|
|
||
|
|
(define-syntax define-c-generator
|
||
|
|
(lambda (exp r$ c$)
|
||
|
|
(destructure (((ignore id simple? generate) exp))
|
||
|
|
`(set-primop-code-data!
|
||
|
|
(,(r$ 'get-prescheme-primop) ',id)
|
||
|
|
(,(r$ 'make-c-primop)
|
||
|
|
,simple?
|
||
|
|
,generate
|
||
|
|
)))))
|
||
|
|
|
||
|
|
|