[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Breaking hygiene with syntax-rules?
From: |
Jean Abou Samra |
Subject: |
Re: Breaking hygiene with syntax-rules? |
Date: |
Sat, 12 Aug 2023 01:55:27 +0200 |
User-agent: |
Evolution 3.48.4 (3.48.4-1.fc38) |
Le vendredi 11 août 2023 à 18:50 -0400, Walter Lewis via General Guile related
discussions a écrit :
> Sorry I typed that code offhand and it had some mistakes; should be:
>
> ```
> (use-modules (srfi srfi-9) (system foreign))
>
> (define-syntax define-ffi-wrapper
> (syntax-rules ()
> ((_ size
> name wrap unwrap predicate
> to-pointer from-pointer)
> (begin
> (define-record-type name
> (wrap bv pointer)
> predicate
> (bv unwrap)
> (pointer pointer-ref pointer-set!))
> (define (to-pointer x)
> (or (pointer-ref x)
> (let ((pointer (bytevector->pointer x)))
> (pointer-set! x pointer)
> pointer)))
> (define (from-pointer pointer)
> (wrap (pointer->bytevector pointer size)
> pointer))))))
> ```
You could just turn that into a syntax-case macro, use gensym to generate the
names, and insert them using with-syntax or quasisyntax. For example (untested):
```
(use-modules (srfi srfi-9) (system foreign))
(define-syntax define-ffi-wrapper
(lambda (sintax)
(syntax-case sintax ()
((_ size
name wrap unwrap predicate
to-pointer from-pointer)
(with-syntax ((pointer-ref (datum->syntax sintax (gensym
"pointer-ref")))
(pointer-set! (datum->syntax sintax (gensym
"pointer-set!"))))
#'(begin
(define-record-type name
(wrap bv pointer)
predicate
(bv unwrap)
(pointer pointer-ref pointer-set!))
(define (to-pointer x)
(or (pointer-ref x)
(let ((pointer (bytevector->pointer x)))
(pointer-set! x pointer)
pointer)))
(define (from-pointer pointer)
(wrap (pointer->bytevector pointer size)
pointer))))))))
```
signature.asc
Description: This is a digitally signed message part
- Breaking hygiene with syntax-rules?, Walter Lewis, 2023/08/10
- Re: Breaking hygiene with syntax-rules?, Dr. Arne Babenhauserheide, 2023/08/11
- Re: Breaking hygiene with syntax-rules?, Jean Abou Samra, 2023/08/11
- Re: Breaking hygiene with syntax-rules?, Walter Lewis, 2023/08/11
- Re: Breaking hygiene with syntax-rules?, Walter Lewis, 2023/08/11
- Re: Breaking hygiene with syntax-rules?,
Jean Abou Samra <=
- Re: Breaking hygiene with syntax-rules?, Jean Abou Samra, 2023/08/11
- Re: Breaking hygiene with syntax-rules?, Walter Lewis, 2023/08/11
- Re: Breaking hygiene with syntax-rules?, Jean Abou Samra, 2023/08/11
- Re: Breaking hygiene with syntax-rules?, Dr. Arne Babenhauserheide, 2023/08/12
- Re: Breaking hygiene with syntax-rules?, Thompson, David, 2023/08/14