| /dports/lang/racket/racket-8.3/share/pkgs/macro-debugger-text-lib/macro-debugger/analysis/private/ |
| H A D | util.rkt | 12 (provide (struct-out ref)
14 (struct-out imp)
19 (struct ref (phase id mode binding))
32 (struct imp (mod reqphase sym exp-phase ref))
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))])
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)
6 (struct def (sym mod phase) #:prefab)
10 (struct use (def offset) #:prefab)
12 ;; A resolved is path or symbol.
14 ;; An import is (import resolved int)
15 (struct import (resolved offset))
47 DEFINED* : really, defined in this module OR imported from a "private" module.
|
| /dports/lang/racket-minimal/racket-8.3/src/expander/compile/ |
| H A D | module-use.rkt | 2 (require "../common/module-path.rkt")
4 ;; A `module-use` record is just a part of module path index plus
7 (provide (struct-out module-use))
9 (struct module-use (module phase)
12 (define a-mod (module-use-module a))
19 (let-values ([(a-path a-base) (module-path-index-split a-mod)]
20 [(b-path b-base) (module-path-index-split b-mod)])
21 (or a-path
22 b-path
23 (eq? (module-path-index-resolved a-mod)
[all …]
|
| /dports/lang/racket/racket-8.3/src/expander/compile/ |
| H A D | module-use.rkt | 2 (require "../common/module-path.rkt")
4 ;; A `module-use` record is just a part of module path index plus
7 (provide (struct-out module-use))
9 (struct module-use (module phase)
12 (define a-mod (module-use-module a))
19 (let-values ([(a-path a-base) (module-path-index-split a-mod)]
20 [(b-path b-base) (module-path-index-split b-mod)])
21 (or a-path
22 b-path
23 (eq? (module-path-index-resolved a-mod)
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/src/expander/common/ |
| H A D | module-path.rkt | 13 resolved-module-path?
14 make-resolved-module-path
17 resolved-module-path->module-path
50 (provide (struct-out module-path-index)))
54 (struct resolved-module-path (name)
71 (fprintf port "~a" (format-resolved-module-path-name (resolved-module-path-name r)))
126 (weak-intern! resolved-module-paths (resolved-module-path p)))
128 (define (resolved-module-path->module-path r)
140 (struct module-path-index (path base [resolved #:mutable] [shift-cache #:mutable])
304 (define r (resolved-module-path-to-generic-resolved-module-path
[all …]
|
| /dports/lang/racket/racket-8.3/src/expander/common/ |
| H A D | module-path.rkt | 13 resolved-module-path?
14 make-resolved-module-path
17 resolved-module-path->module-path
50 (provide (struct-out module-path-index)))
54 (struct resolved-module-path (name)
71 (fprintf port "~a" (format-resolved-module-path-name (resolved-module-path-name r)))
126 (weak-intern! resolved-module-paths (resolved-module-path p)))
128 (define (resolved-module-path->module-path r)
140 (struct module-path-index (path base [resolved #:mutable] [shift-cache #:mutable])
304 (define r (resolved-module-path-to-generic-resolved-module-path
[all …]
|
| /dports/lang/racket/racket-8.3/src/expander/namespace/ |
| H A D | namespace.rkt | 6 "../common/module-path.rkt"
46 (struct-out module-registry)
50 (struct namespace (mpi ; module path index (that's already resolved); instance-spec…
57 … module-registry ; module-registry of (resolved-module-path -> module) [shared among modules]
58 …bulk-binding-registry ; (resolved-module-path -> bulk-provide) for resolving bulk bindings on unma…
59 … submodule-declarations ; resolved-module-path -> module [shared during a module compilation]
64 … module-instances) ; union resolved-module-path -> module-instance [shared among modules]
65 ;; ; 0-phase -> resolved-module-path -> module-instance
98 (namespace top-level-module-path-index
147 (if (and mpi (top-level-module-path-index? mpi))
[all …]
|
| H A D | registry.rkt | 3 (provide (struct-out module-registry)
4 make-module-registry
7 (struct module-registry (declarations ; resolved-module-path -> module
10 (define (make-module-registry)
11 (module-registry (make-hasheq) (box #f)))
14 (define lock-box (module-registry-lock-box r))
|
| /dports/lang/racket-minimal/racket-8.3/src/expander/namespace/ |
| H A D | namespace.rkt | 6 "../common/module-path.rkt"
46 (struct-out module-registry)
50 (struct namespace (mpi ; module path index (that's already resolved); instance-spec…
57 … module-registry ; module-registry of (resolved-module-path -> module) [shared among modules]
58 …bulk-binding-registry ; (resolved-module-path -> bulk-provide) for resolving bulk bindings on unma…
59 … submodule-declarations ; resolved-module-path -> module [shared during a module compilation]
64 … module-instances) ; union resolved-module-path -> module-instance [shared among modules]
65 ;; ; 0-phase -> resolved-module-path -> module-instance
98 (namespace top-level-module-path-index
147 (if (and mpi (top-level-module-path-index? mpi))
[all …]
|
| H A D | registry.rkt | 3 (provide (struct-out module-registry)
4 make-module-registry
7 (struct module-registry (declarations ; resolved-module-path -> module
10 (define (make-module-registry)
11 (module-registry (make-hasheq) (box #f)))
14 (define lock-box (module-registry-lock-box r))
|
| /dports/lang/racket/racket-8.3/src/expander/extract/ |
| H A D | module.rkt | 9 (provide (struct-out compiled-module)
11 module-path-index->module-name)
15 (struct compiled-module (declaration ; linklet instance
55 ;; a module path index in the host Racket:
57 (define-values (mod-path base) (new:module-path-index-split mpi))
59 [(not mod-path) (make-resolved-module-path wrt-name)]
61 (module-path-index-join mod-path
67 (define (module-path-index->module-name mod name)
69 (resolved-module-path-name
70 (if (resolved-module-path? p)
[all …]
|
| H A D | link.rkt | 3 (provide (struct-out link))
6 ;; (corresponds to a `resolved-module-path-name` result) plus a phase
7 (struct link (name phase) #:prefab)
|
| /dports/lang/racket-minimal/racket-8.3/src/expander/extract/ |
| H A D | module.rkt | 9 (provide (struct-out compiled-module)
11 module-path-index->module-name)
15 (struct compiled-module (declaration ; linklet instance
55 ;; a module path index in the host Racket:
57 (define-values (mod-path base) (new:module-path-index-split mpi))
59 [(not mod-path) (make-resolved-module-path wrt-name)]
61 (module-path-index-join mod-path
67 (define (module-path-index->module-name mod name)
69 (resolved-module-path-name
70 (if (resolved-module-path? p)
[all …]
|
| H A D | link.rkt | 3 (provide (struct-out link))
6 ;; (corresponds to a `resolved-module-path-name` result) plus a phase
7 (struct link (name phase) #:prefab)
|
| /dports/lang/racket-minimal/racket-8.3/src/expander/boot/ |
| H A D | core-primitive.rkt | 27 "../common/module-path.rkt"
119 struct:exn:fail:filesystem:missing-module
124 struct:exn:fail:syntax:missing-module
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
209 module-path-index-split
[all …]
|
| H A D | runtime-primitive.rkt | 6 "../common/module-path.rkt")
9 runtime-module-name
15 ;; '#%kernel, but originally exported by a '#%runtime module. The
21 (define runtime-module-name (make-resolved-module-path '#%runtime))
22 (define runtime-mpi (module-path-index-join ''#%runtime #f))
27 (make-module-binding runtime-mpi 0 sym)))
36 (add-runtime-primitive! 'make-struct-type)
37 (add-runtime-primitive! 'make-struct-type-property)
|
| /dports/lang/racket/racket-8.3/src/expander/boot/ |
| H A D | core-primitive.rkt | 27 "../common/module-path.rkt"
119 struct:exn:fail:filesystem:missing-module
124 struct:exn:fail:syntax:missing-module
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
209 module-path-index-split
[all …]
|
| H A D | runtime-primitive.rkt | 6 "../common/module-path.rkt")
9 runtime-module-name
15 ;; '#%kernel, but originally exported by a '#%runtime module. The
21 (define runtime-module-name (make-resolved-module-path '#%runtime))
22 (define runtime-mpi (module-path-index-join ''#%runtime #f))
27 (make-module-binding runtime-mpi 0 sym)))
36 (add-runtime-primitive! 'make-struct-type)
37 (add-runtime-primitive! 'make-struct-type-property)
|
| /dports/net/frr7-pythontools/frr-frr-7.5.1/doc/developer/ |
| H A D | next-hop-tracking.rst | 145 receive module nht module | zserv module rnh module
164 rib module rnh module | zebra module nht module
242 [ ] struct bgp_path_info: a BGP path (e.g. route received from a peer)
271 struct rnh
274 struct route_entry *state;
275 struct list *client_list;
276 struct route_node *node;
286 resolved via kernel
290 resolved via connected
294 resolved via connected
[all …]
|
| /dports/net/frr7/frr-frr-7.5.1/doc/developer/ |
| H A D | next-hop-tracking.rst | 145 receive module nht module | zserv module rnh module
164 rib module rnh module | zebra module nht module
242 [ ] struct bgp_path_info: a BGP path (e.g. route received from a peer)
271 struct rnh
274 struct route_entry *state;
275 struct list *client_list;
276 struct route_node *node;
286 resolved via kernel
290 resolved via connected
294 resolved via connected
[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.
64 (let ([resolved (variable-reference->module-source blame)])
66 [(not resolved)
70 [(symbol? resolved) `(quote ,resolved)]
71 [else `(file ,(path->string resolved))])]))
80 (struct-copy
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.
64 (let ([resolved (variable-reference->module-source blame)])
66 [(not resolved)
70 [(symbol? resolved) `(quote ,resolved)]
71 [else `(file ,(path->string resolved))])]))
80 (struct-copy
83 (resolved-module-path-name
84 (module-path-index-resolve
85 (syntax-source-module
|
| /dports/lang/racket/racket-8.3/collects/racket/ |
| H A D | require-transform.rkt | 4 "private/define-struct.rkt"
14 current-require-module-path convert-relative-module-path
24 (define-struct* import (local-id src-sym src-mod-path mode req-mode orig-mode orig-stx)
30 (unless (or (module-path? path)
33 (raise-argument-error 'make-import "(or/c module-path? module-path-syntax?)" path))
50 (define-struct* import-source (mod-path-stx mode)
62 (define-struct* rt (proc)
95 [(resolved-module-path? b)
96 (let ([n (resolved-module-path-name b)])
225 (define base-path (resolved-module-path-name
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/collects/racket/ |
| H A D | require-transform.rkt | 4 "private/define-struct.rkt"
14 current-require-module-path convert-relative-module-path
24 (define-struct* import (local-id src-sym src-mod-path mode req-mode orig-mode orig-stx)
30 (unless (or (module-path? path)
33 (raise-argument-error 'make-import "(or/c module-path? module-path-syntax?)" path))
50 (define-struct* import-source (mod-path-stx mode)
62 (define-struct* rt (proc)
95 [(resolved-module-path? b)
96 (let ([n (resolved-module-path-name b)])
225 (define base-path (resolved-module-path-name
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/scheme-lib/scheme/exists/ |
| H A D | lang.rkt | 8 (let ([fn (build-path (collection-path "scheme")
12 (namespace-attach-module (current-namespace) 'scheme ns)
16 (module-compiled-exports
32 '(absolute-path?
64 compiled-module-expression?
149 module-path-index?
150 module-path?
165 path?
190 resolved-module-path?
206 struct-type?
[all …]
|