Re: [racket-users] Namespaces and modules

2020-11-15 Thread Philip McGrath
I think you’ll need `define-runtime-module-path` or
`define-runtime-module-path-index` to alert the executable builder to the
dynamic dependency.

On Sun, Nov 15, 2020 at 3:38 AM Dominik Pantůček <
dominik.pantu...@trustica.cz> wrote:

>
> >
> > Using ''sandbox as an argument to `namespace-require` to refer to a
> > local module is something like passing 'x to `eval` to try to refer to
> > a local variable `x`. The `namespace-require` procedure doesn't know
> > where it's being called from, so it doesn't work.
> >
> > Try `quote-module-path`, which expands at compile time to effectively
> > embed its context:
> >
> >  #lang racket/base
> >  (require syntax/location)
> >
> >  (module sandbox racket/base
> >(provide #%app #%datum test)
> >(define (test) (displayln 'test)))
> >
> >  (parameterize ((current-namespace (make-base-empty-namespace)))
> >(namespace-require (quote-module-path sandbox))
> >(eval '(test)))
> >
>
> This is exactly what I was looking for! Thank you. It's a pity I didn't
> ask in the past :)
>
> However, now I see a problem with creating executables with raco exe.
>
> MWE follows.
>
>  test-submod.rkt
> #lang racket
>
> (require syntax/location)
>
> (module my-dsl racket/base
>
>   (provide #%app my-proc)
>
>   (define (my-proc)
> (displayln "my-dsl/my-proc")))
>
> (define (parse sexp)
>   (parameterize ((current-namespace (make-base-empty-namespace)))
> (namespace-require (quote-module-path my-dsl))
> (eval sexp)))
>
>
> (parse '(my-proc))
> 
>
> And then:
>
> $ ../racket-lang/racket/racket/bin/racket --version
> Welcome to Racket v7.9.0.4 [cs].
> $ ../racket-lang/racket/racket/bin/racket test-submod.rkt
> my-dsl/my-proc
> $ ../racket-lang/racket/racket/bin/raco exe test-submod.rkt
> $ ./test-submod
> require: unknown module
>   module name: (submod '#%mzc:test-submod my-dsl)
>   context...:
>.../TD4/test-submod.rkt:12:0: parse
>body of '#%mzc:test-submod
> $
>
> When parsed, compiled and run using racket binary, it works as expected.
> When parsed and compiled using raco exe, it succeeds without any error
> and the resulting binary give aforementioned error.
>
> Any idea where did I get it wrong?
>
>
> Dominik
>
> --
> 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.
> To view this discussion on the web visit
> https://groups.google.com/d/msgid/racket-users/d357eb72-0647-d542-5148-852b9e62c2a2%40trustica.cz
> .
>
-- 
-Philip

-- 
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.
To view this discussion on the web visit 
https://groups.google.com/d/msgid/racket-users/01000175cd1985dd-8b6d9cec-b745-4479-a3db-b092fd340434-00%40email.amazonses.com.


Re: [racket-users] Namespaces and modules

2020-11-15 Thread Dominik Pantůček


> 
> Using ''sandbox as an argument to `namespace-require` to refer to a
> local module is something like passing 'x to `eval` to try to refer to
> a local variable `x`. The `namespace-require` procedure doesn't know
> where it's being called from, so it doesn't work.
> 
> Try `quote-module-path`, which expands at compile time to effectively
> embed its context:
> 
>  #lang racket/base
>  (require syntax/location)
> 
>  (module sandbox racket/base
>(provide #%app #%datum test)
>(define (test) (displayln 'test)))
> 
>  (parameterize ((current-namespace (make-base-empty-namespace)))
>(namespace-require (quote-module-path sandbox))
>(eval '(test)))
> 

This is exactly what I was looking for! Thank you. It's a pity I didn't
ask in the past :)

However, now I see a problem with creating executables with raco exe.

MWE follows.

 test-submod.rkt
#lang racket

(require syntax/location)

(module my-dsl racket/base

  (provide #%app my-proc)

  (define (my-proc)
(displayln "my-dsl/my-proc")))

(define (parse sexp)
  (parameterize ((current-namespace (make-base-empty-namespace)))
(namespace-require (quote-module-path my-dsl))
(eval sexp)))


(parse '(my-proc))


And then:

$ ../racket-lang/racket/racket/bin/racket --version
Welcome to Racket v7.9.0.4 [cs].
$ ../racket-lang/racket/racket/bin/racket test-submod.rkt
my-dsl/my-proc
$ ../racket-lang/racket/racket/bin/raco exe test-submod.rkt
$ ./test-submod
require: unknown module
  module name: (submod '#%mzc:test-submod my-dsl)
  context...:
   .../TD4/test-submod.rkt:12:0: parse
   body of '#%mzc:test-submod
$

When parsed, compiled and run using racket binary, it works as expected.
When parsed and compiled using raco exe, it succeeds without any error
and the resulting binary give aforementioned error.

Any idea where did I get it wrong?


Dominik

-- 
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.
To view this discussion on the web visit 
https://groups.google.com/d/msgid/racket-users/d357eb72-0647-d542-5148-852b9e62c2a2%40trustica.cz.


Re: [racket-users] Namespaces and modules

2020-11-12 Thread Matthew Flatt
At Thu, 12 Nov 2020 23:35:11 +0100, Dominik Pantůček wrote:
> If I however try to achieve the same goal using module form within my
> module, it always fails:
> 
> (module sandbox racket/base
>   (provide #%app #%datum test)
>   (define (test) (displayln 'test)))
> (parameterize ((current-namespace (make-base-empty-namespace)))
>   (namespace-require ''sandbox)
>   (eval '(test)))

Using ''sandbox as an argument to `namespace-require` to refer to a
local module is something like passing 'x to `eval` to try to refer to
a local variable `x`. The `namespace-require` procedure doesn't know
where it's being called from, so it doesn't work.

Try `quote-module-path`, which expands at compile time to effectively
embed its context:

 #lang racket/base
 (require syntax/location)

 (module sandbox racket/base
   (provide #%app #%datum test)
   (define (test) (displayln 'test)))

 (parameterize ((current-namespace (make-base-empty-namespace)))
   (namespace-require (quote-module-path sandbox))
   (eval '(test)))

-- 
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.
To view this discussion on the web visit 
https://groups.google.com/d/msgid/racket-users/20201112154536.1b9%40sirmail.smtps.cs.utah.edu.


[racket-users] Namespaces and modules

2020-11-12 Thread Dominik Pantůček
Hello Racketeers,

it seemed to me that writing a data format for my project by simply
introducing a new syntax forms and then just eval'uating the file (maybe
eval-syntax) was a great idea. I've done things like that many times but
my initial bindings were always in a separate file. Like:

 sandbox.rkt
#lang racket/base
(provide #%app #%datum test)
(define (test) (displayln 'test))


Then a simple example looks like:

(parameterize ((current-namespace (make-base-empty-namespace)))
  (namespace-require "sandbox.rkt")
  (eval '(test)))

Easy and works without a flaw.

If I however try to achieve the same goal using module form within my
module, it always fails:

(module sandbox racket/base
  (provide #%app #%datum test)
  (define (test) (displayln 'test)))
(parameterize ((current-namespace (make-base-empty-namespace)))
  (namespace-require ''sandbox)
  (eval '(test)))

It fails with:

require: unknown module
  module name: 'm

Of course, without double-quoting, it yields:

standard-module-name-resolver: collection not found
  for module path: m
  collection: "m"
...

Which is expected. And require'ing the module doesn't change a thing (of
course, (require 'm) require's it in the surrounding module).

After going through the modules and namespaces documentation back and
forth I feel like I am overlooking something.

Roughly the goal is to define a bunch of structs in the encapsulating
module, provide syntax to the evaluation namespace, evaluate the file
with data and get the result.

Any hint would be very appreciated.


Cheers,
Dominik

-- 
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.
To view this discussion on the web visit 
https://groups.google.com/d/msgid/racket-users/100b00a9-33bd-1b82-a3ec-afef7d3d8fe1%40trustica.cz.