| /dports/lang/racket-minimal/racket-8.3/src/expander/namespace/ |
| H A D | api-module.rkt | 25 (check who module-reference? #:contract module-reference-str mod)
27 (define name (reference->resolved-module-path mod #:load? load?))
31 (check who module-reference? #:contract module-reference-str mod)
33 (define name (reference->resolved-module-path mod #:load? #f))
43 (reference->resolved-module-path mod #:load? load?)))
74 (define name (reference->resolved-module-path mod #:load? #t))
100 (define name (reference->resolved-module-path mod #:load? #f))
123 (resolved-module-path? mod)))
126 "(or/c module-path? module-path-index? resolved-module-path?)")
128 (define (reference->resolved-module-path mod #:load? load?)
[all …]
|
| H A D | variable-reference.rkt | 4 "../common/module-path.rkt"
15 variable-reference->module-path-index
16 variable-reference->resolved-module-path
17 variable-reference->module-source
19 variable-reference->module-base-phase
30 (when (non-self-module-path-index? mpi)
52 (define/who (variable-reference->module-path-index vr)
55 (if (top-level-module-path-index? mpi)
59 (define/who (variable-reference->resolved-module-path vr)
61 (define mpi (variable-reference->module-path-index vr))
[all …]
|
| /dports/lang/racket/racket-8.3/src/expander/namespace/ |
| H A D | api-module.rkt | 25 (check who module-reference? #:contract module-reference-str mod)
27 (define name (reference->resolved-module-path mod #:load? load?))
31 (check who module-reference? #:contract module-reference-str mod)
33 (define name (reference->resolved-module-path mod #:load? #f))
43 (reference->resolved-module-path mod #:load? load?)))
74 (define name (reference->resolved-module-path mod #:load? #t))
100 (define name (reference->resolved-module-path mod #:load? #f))
123 (resolved-module-path? mod)))
126 "(or/c module-path? module-path-index? resolved-module-path?)")
128 (define (reference->resolved-module-path mod #:load? load?)
[all …]
|
| H A D | variable-reference.rkt | 4 "../common/module-path.rkt"
15 variable-reference->module-path-index
16 variable-reference->resolved-module-path
17 variable-reference->module-source
19 variable-reference->module-base-phase
30 (when (non-self-module-path-index? mpi)
52 (define/who (variable-reference->module-path-index vr)
55 (if (top-level-module-path-index? mpi)
59 (define/who (variable-reference->resolved-module-path vr)
61 (define mpi (variable-reference->module-path-index vr))
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/macro-debugger-text-lib/macro-debugger/analysis/private/ |
| H A D | util.rkt | 21 ;; A Mode is one of '(reference syntax-local-value quote-syntax disappeared-use provide)
24 ((reference) 0)
33 ;; interpretation: reference ref could be satisfied by
151 (define (get-module-code* resolved)
152 (let* ([path (if (pair? resolved) (car resolved) resolved)]
171 [(dir) (path-only (if (pair? resolved) (car resolved) resolved))])
188 (hash-ref! cache resolved (lambda () (get-module-info/no-cache resolved)))))
190 ;; resolve : (or module-path resolved-module-path module-path-index)
194 (resolved-module-path-name (module-path-index-resolve mod))]
195 [(resolved-module-path? mod)
[all …]
|
| H A D | refine-alg.rkt | 5 ;; A Def is (def sym resolved-module-path int)
12 ;; A resolved is path or symbol.
14 ;; An import is (import resolved int)
15 (struct import (resolved offset))
40 for every reference DEFINED* in a require R
42 eliminate every reference provided by R
44 now every reference left is re-provided by some remaining require
47 DEFINED* : really, defined in this module OR imported from a "private" module.
|
| /dports/lang/racket-minimal/racket-8.3/src/expander/boot/ |
| H A D | core-primitive.rkt | 27 "../common/module-path.rkt"
200 module-path?
202 resolved-module-path?
203 make-resolved-module-path
204 resolved-module-path-name
206 module-path-index?
208 module-path-index-join
222 variable-reference->resolved-module-path
223 variable-reference->module-path-index
224 variable-reference->module-source
[all …]
|
| /dports/lang/racket/racket-8.3/src/expander/boot/ |
| H A D | core-primitive.rkt | 27 "../common/module-path.rkt"
200 module-path?
202 resolved-module-path?
203 make-resolved-module-path
204 resolved-module-path-name
206 module-path-index?
208 module-path-index-join
222 variable-reference->resolved-module-path
223 variable-reference->module-path-index
224 variable-reference->module-source
[all …]
|
| /dports/lang/racket/racket-8.3/collects/racket/ |
| H A D | runtime-path.rkt | 44 (define id (combine-module-path (#%variable-reference) 'mod-path))))]))
46 (define (combine-module-path vr mod-path)
47 (module-path-index-resolve (module-path-index-join
49 (variable-reference->resolved-module-path vr))))
59 (let ([modname (variable-reference->resolved-module-path var-ref)])
62 (cons (resolved-module-path-name modname)
150 (variable-reference->module-path-index vr))])
165 (let ([modname (variable-reference->resolved-module-path var-ref)])
226 …[(_ id expr) #`(-define-runtime-path #,stx (id) `(module ,expr ,(#%variable-reference)) list value…
227 …:runtime?-id runtime?-id expr) #`(-define-runtime-path #,stx (id) `(module ,expr ,(#%variable-refe…
[all …]
|
| H A D | place.rkt | 23 (if (eq? (syntax-local-context) 'module-begin)
28 (unless (syntax-transforming-module-expression?)
33 (define module-name-stx
38 (syntax-local-lift-module
39 #`(module* #,module-name-stx #f
50 … #`(place/proc (#%variable-reference) '#,module-name-stx 'who start-place-func in out err))))]
70 (resolved-module-path-name
71 (variable-reference->resolved-module-path
74 (not (module-predefined? `(quote ,name))))
75 (error who "the enclosing module's resolved name is not a path or predefined"))
[all …]
|
| H A D | lazy-require.rkt | 22 ;; like (collapse-module-path modpath '(submod "..")), but avoids
24 (define (module-path-add-submod-up modpath)
27 ;; was a submod module-path
41 ;; wasn't a submod module-path
68 (let ([phase (sub1 (variable-reference->phase (#%variable-reference)))])
114 (let ([path (resolved-module-path-name
115 (module-path-index-resolve
116 (module-path-index-join
118 (variable-reference->resolved-module-path vr))))])
120 (register-external-module path #:indirect? #t))))
[all …]
|
| H A D | require-transform.rkt | 14 current-require-module-path convert-relative-module-path
30 (unless (or (module-path? path)
33 (raise-argument-error 'make-import "(or/c module-path? module-path-syntax?)" path))
74 (define orig-insp (variable-reference->module-declaration-inspector
75 (#%variable-reference)))
95 [(resolved-module-path? b)
96 (let ([n (resolved-module-path-name b)])
205 ;; collapse a relative reference to an absolute one:
225 (define base-path (resolved-module-path-name
279 (unless (module-path? mod-path)
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/collects/racket/ |
| H A D | runtime-path.rkt | 44 (define id (combine-module-path (#%variable-reference) 'mod-path))))]))
46 (define (combine-module-path vr mod-path)
47 (module-path-index-resolve (module-path-index-join
49 (variable-reference->resolved-module-path vr))))
59 (let ([modname (variable-reference->resolved-module-path var-ref)])
62 (cons (resolved-module-path-name modname)
150 (variable-reference->module-path-index vr))])
165 (let ([modname (variable-reference->resolved-module-path var-ref)])
226 …[(_ id expr) #`(-define-runtime-path #,stx (id) `(module ,expr ,(#%variable-reference)) list value…
227 …:runtime?-id runtime?-id expr) #`(-define-runtime-path #,stx (id) `(module ,expr ,(#%variable-refe…
[all …]
|
| H A D | place.rkt | 23 (if (eq? (syntax-local-context) 'module-begin)
28 (unless (syntax-transforming-module-expression?)
33 (define module-name-stx
38 (syntax-local-lift-module
39 #`(module* #,module-name-stx #f
50 … #`(place/proc (#%variable-reference) '#,module-name-stx 'who start-place-func in out err))))]
70 (resolved-module-path-name
71 (variable-reference->resolved-module-path
74 (not (module-predefined? `(quote ,name))))
75 (error who "the enclosing module's resolved name is not a path or predefined"))
[all …]
|
| H A D | lazy-require.rkt | 22 ;; like (collapse-module-path modpath '(submod "..")), but avoids
24 (define (module-path-add-submod-up modpath)
27 ;; was a submod module-path
41 ;; wasn't a submod module-path
68 (let ([phase (sub1 (variable-reference->phase (#%variable-reference)))])
114 (let ([path (resolved-module-path-name
115 (module-path-index-resolve
116 (module-path-index-join
118 (variable-reference->resolved-module-path vr))))])
120 (register-external-module path #:indirect? #t))))
[all …]
|
| H A D | require-transform.rkt | 14 current-require-module-path convert-relative-module-path
30 (unless (or (module-path? path)
33 (raise-argument-error 'make-import "(or/c module-path? module-path-syntax?)" path))
74 (define orig-insp (variable-reference->module-declaration-inspector
75 (#%variable-reference)))
95 [(resolved-module-path? b)
96 (let ([n (resolved-module-path-name b)])
205 ;; collapse a relative reference to an absolute one:
225 (define base-path (resolved-module-path-name
279 (unless (module-path? mod-path)
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/rackunit-lib/rackunit/private/ |
| H A D | util.rkt | 32 racket/runtime-path
47 ;; module.
53 (define-runtime-module-path the-resolved-mod mod)
57 (variable-reference->namespace (#%variable-reference))))
58 (dynamic-require/expose* the-resolved-mod '(id ...)))))]))
61 (unless (or (path? mod)
62 (module-path? mod)
63 (module-path-index? mod)
64 (resolved-module-path? mod))
66 "(or/c module-path? module-path-index? resolved-module-path?)"
[all …]
|
| /dports/lang/racket/racket-8.3/collects/racket/contract/private/ |
| H A D | legacy.rkt | 60 ;; A variable reference represents a module or top-level context.
63 (if (variable-reference? blame)
64 (let ([resolved (variable-reference->module-source blame)])
66 [(not resolved)
70 [(symbol? resolved) `(quote ,resolved)]
71 [else `(file ,(path->string resolved))])]))
83 (resolved-module-path-name
84 (module-path-index-resolve
85 (syntax-source-module
|
| /dports/lang/racket-minimal/racket-8.3/collects/racket/contract/private/ |
| H A D | legacy.rkt | 60 ;; A variable reference represents a module or top-level context.
63 (if (variable-reference? blame)
64 (let ([resolved (variable-reference->module-source blame)])
66 [(not resolved)
70 [(symbol? resolved) `(quote ,resolved)]
71 [else `(file ,(path->string resolved))])]))
83 (resolved-module-path-name
84 (module-path-index-resolve
85 (syntax-source-module
|
| /dports/lang/racket/racket-8.3/share/pkgs/racket-doc/scribblings/reference/ |
| H A D | namespaces.scrbl | 222 module paths, or it can be a @tech{resolved module path}.
273 [modname (or module-path? resolved-module-path?)]
384 @defproc[(module->namespace [mod (or/c module-path?
385 resolved-module-path?
430 @defproc[(module-provide-protected? [module-path-index (or/c symbol? module-path-index?)]
484 @defproc[(variable-reference->resolved-module-path [varref variable-reference?])
485 (or/c resolved-module-path? #f)]{
488 result is a @tech{resolved module path} naming the module.
494 @defproc[(variable-reference->module-path-index [varref variable-reference?])
498 result is a @tech{module path index} naming the module.
[all …]
|
| H A D | module-reflect.scrbl | 39 resolved-module-path?]{
52 @defproc[(resolved-module-path-name [module-path resolved-module-path?])
79 resolved-module-path?))]{
89 the enclosing module, so that a relative reference can be converted to
221 @racket[variable-reference->module-source]. When the parameter value
249 When a module reference is extracted from compiled form (see
251 expansion (see @secref["stxops"]), the module reference is reported in
276 a @tech{resolved module path}, then the @tech{resolved module path} is
298 resolved-module-path?]{
300 Returns a @tech{resolved module path} for the resolved module name,
[all …]
|
| /dports/lang/racket/racket-8.3/collects/syntax/ |
| H A D | location.rkt | 13 quote-module-path
94 (define (variable-reference->module-source/submod vr)
95 (define src (variable-reference->module-source vr))
96 (define rname (variable-reference->resolved-module-path vr))
97 (define name (and rname (resolved-module-path-name rname)))
103 (variable-reference->module-source/submod
104 (#%variable-reference)))
120 (define (module-name-fixup src path)
123 (define-syntax (quote-module-path stx)
124 (do-quote-module stx #'module-path-fixup))
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/collects/syntax/ |
| H A D | location.rkt | 13 quote-module-path
94 (define (variable-reference->module-source/submod vr)
95 (define src (variable-reference->module-source vr))
96 (define rname (variable-reference->resolved-module-path vr))
97 (define name (and rname (resolved-module-path-name rname)))
103 (variable-reference->module-source/submod
104 (#%variable-reference)))
120 (define (module-name-fixup src path)
123 (define-syntax (quote-module-path stx)
124 (do-quote-module stx #'module-path-fixup))
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/src/expander/extract/ |
| H A D | link.rkt | 5 ;; A "link" represent a linklet reference, which is a name
6 ;; (corresponds to a `resolved-module-path-name` result) plus a phase
|
| /dports/lang/racket/racket-8.3/src/expander/extract/ |
| H A D | link.rkt | 5 ;; A "link" represent a linklet reference, which is a name
6 ;; (corresponds to a `resolved-module-path-name` result) plus a phase
|