Re: [racket-users] create a new provide syntax

[Dan Liebgold]

On Friday, March 10, 2017 at 10:43:25 AM UTC-8, Stephen Chang wrote:
> 
> (define-provide-syntax my-out
>   (syntax-parser
> [(_ name:id)
>  #:with mk-name (format-id #'name "make-~a" #'name)
>  #'(combine-out name mk-name)]))
> 

That does it. I guess define-provide-syntax *is* up to the job.

Thanks,
Dan

-- 
You received this message because you are subscribed to the Google Groups 
"Racket Users" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to racket-users+unsubscr...@googlegroups.com.
For more options, visit https://groups.google.com/d/optout.

Re: [racket-users] create a new provide syntax

[Stephen Chang]

combine-out may help simplify things?

(define-syntax my-out
  (make-provide-transformer
   (lambda (stx modes)
 (syntax-parse stx
   ((_ name:id)
#:with mk-name (format-id #'name "make-~a" #'name)
(expand-export #'(combine-out name mk-name) modes))

or

(define-provide-syntax my-out
  (syntax-parser
[(_ name:id)
 #:with mk-name (format-id #'name "make-~a" #'name)
 #'(combine-out name mk-name)]))


On Fri, Mar 10, 2017 at 1:25 PM, Dan Liebgold
 wrote:
> Hi -
>
> I'd like to create a new provide syntax that essentially turns this:
>
>   (provide (my-out name))
>
> into this:
>
>   (provide name make-name)
>
> where 'name' and 'make-name' are defined in the surrounding context. It looks 
> like define-provide-syntax isn't up to the task, so I used 
> 'make-provide-transformer' directly, like so:
>
> (define-syntax my-out
>   (make-provide-transformer
>(lambda (stx modes)
>  (syntax-parse stx
>((_ name:id)
> (let ([nt #'name]
>   [c (format-id #'name "make-~a" (syntax-e #'name))])
>   (list (make-export nt (syntax-e nt) 0 #f nt)
> (make-export c (syntax-e c) 0 #f c)
> )))
>
>
> Is there a more concise way of doing this?
>
> Thanks,
> Dan
>
> --
> You received this message because you are subscribed to the Google Groups 
> "Racket Users" group.
> To unsubscribe from this group and stop receiving emails from it, send an 
> email to racket-users+unsubscr...@googlegroups.com.
> For more options, visit https://groups.google.com/d/optout.

-- 
You received this message because you are subscribed to the Google Groups 
"Racket Users" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to racket-users+unsubscr...@googlegroups.com.
For more options, visit https://groups.google.com/d/optout.

[racket-users] create a new provide syntax

[Dan Liebgold]

Hi - 

I'd like to create a new provide syntax that essentially turns this:

  (provide (my-out name))

into this:

  (provide name make-name)

where 'name' and 'make-name' are defined in the surrounding context. It looks 
like define-provide-syntax isn't up to the task, so I used 
'make-provide-transformer' directly, like so:

(define-syntax my-out
  (make-provide-transformer
   (lambda (stx modes)
 (syntax-parse stx
   ((_ name:id)
(let ([nt #'name]
  [c (format-id #'name "make-~a" (syntax-e #'name))])
  (list (make-export nt (syntax-e nt) 0 #f nt)
(make-export c (syntax-e c) 0 #f c)
)))


Is there a more concise way of doing this?

Thanks,
Dan

-- 
You received this message because you are subscribed to the Google Groups 
"Racket Users" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to racket-users+unsubscr...@googlegroups.com.
For more options, visit https://groups.google.com/d/optout.