You cannot select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
pollen/project-requires.rkt

29 lines
1.1 KiB
Racket

#lang racket/base
(require "world.rkt" sugar/define sugar/coerce/contract)
(define/contract+provide (get-project-require-files source-path) ; keep contract local to ensure coercion
(coerce/path? . -> . (or/c #f (listof path?)))
(define possible-requires (list (simplify-path (build-path source-path 'up world:pollen-require))))
(and (andmap file-exists? possible-requires) possible-requires))
(define+provide/contract (require+provide-project-require-files here-path #:provide [provide #t])
(coerce/path? . -> . list?)
(define (put-file-in-require-form file)
`(file ,(path->string file)))
(define project-require-files (get-project-require-files here-path))
(if project-require-files
(let ([files-in-require-form (map put-file-in-require-form project-require-files)])
`(begin
(require ,@files-in-require-form)
,@(if provide
(list `(provide (all-from-out ,@files-in-require-form)))
'())))
(void)))
(define+provide (require-project-require-files here-path)
(require+provide-project-require-files here-path #:provide #f))