You are right that since it's part of the ffi it shouldn't know about Racket, but I think there should be then some form/procedure to tell the compiler to load certain modules.

My use case it has to do with this, evobot handling of command loading, it loads all the commands in a file, so one does not have to reference each one of the names.

const commandFiles = readdirSync(join(__dirname, "commands")).filter((file) => file.endsWith(".js"));
for (const file of commandFiles) {
  const command = require(join(__dirname, "commands", `${file}`));
  client.commands.set(command.name, command);
}

I got this

#lang racketscript/base
(require (for-syntax racket/base
                     racket/syntax
                     racket/path
                     syntax/parse))

(define-syntax (require+save-commands stx)
  (syntax-parse stx
    [(_ path:string save-to:id)
     #:with name-bind (format-id this-syntax "command")
     (let ([base-src (syntax-source #'path)]
           [path/string (syntax-e #'path)])
       (let-values ([(base _name _dir?) (split-path base-src)])
         (with-syntax*
             ([(mod-paths ...)
               (for/list ([p (in-list (directory-list (build-path base path/string)))]
                          #:when (path-has-extension? p #".rkt"))
                 (path->string (build-path path/string p)))]
              [(tmp ...) (generate-temporaries #'(mod-paths ...))])
           #'(begin
               (require (only-in mod-paths [name-bind tmp]) ...)
               (provide save-to)
               (define save-to
                 ($/array tmp ...))))))]))

(require+save-commands "commands" commands)

And it works perfectly fine, I was just wondering if a more straighforward way of doing this was worth implementing.
For example

(define-syntax (require+save-commands stx)
  (syntax-parse stx
    [(_ path:string save-to:id)
     #:with (mod-paths ...) (for/list ([p (in-list (directory-list (syntax-e #'path)))] 
                                                    #:when (path-has-extension? p #".rkt"))
                                          (path->string p))
     #'(begin
           (provide save-to)
           (define save-to
             ($/array ($/require mod-paths) ...)))]))

require+save-commands "commands" commands)

Now, I realize now that I know a bit more of racketscript and nodejs with ES modules, that this might just not work at all (because the require function is not used in ES modules and if I recall correctly $/require is for the syntax require not the function).

I still think an easy way to do the same should be provided, but I realize that it may be outside the scope of the project.

Uh oh!

add support for $/require string literals of relative racketscript modules #278

Description

Activity

Metadata

Metadata

Assignees

Labels

Type

Projects

Milestone

Relationships

Development

Issue actions