| /dports/lang/racket/racket-8.3/src/cs/ |
| H A D | linklet.sls | 496 (let ([info (linklet-exports-info l)])
499 (linklet-exports-info-set! l new-info)))))
502 (let ([info (linklet-exports-info l)])
508 (linklet-exports-info-set! l new-info)))))
579 (lambda (key) (lookup-linklet-or-instance get-import key))
667 (define (lookup-linklet-or-instance get-import key)
739 (raise-argument-error 'instantiate-linklet "(or/c instance? #f)" target-instance))
886 ;; Find variables or values needed from an instance for a linklet's
1125 … var-or-info)) ; the referenced variable, 'constant, 'mutable, #f, or primitive name
1134 (let ([v (variable-reference-var-or-info vr)])
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/src/cs/ |
| H A D | linklet.sls | 496 (let ([info (linklet-exports-info l)])
499 (linklet-exports-info-set! l new-info)))))
502 (let ([info (linklet-exports-info l)])
508 (linklet-exports-info-set! l new-info)))))
579 (lambda (key) (lookup-linklet-or-instance get-import key))
667 (define (lookup-linklet-or-instance get-import key)
739 (raise-argument-error 'instantiate-linklet "(or/c instance? #f)" target-instance))
886 ;; Find variables or values needed from an instance for a linklet's
1125 … var-or-info)) ; the referenced variable, 'constant, 'mutable, #f, or primitive name
1134 (let ([v (variable-reference-var-or-info vr)])
[all …]
|
| /dports/lang/racket/racket-8.3/src/expander/compile/ |
| H A D | form.rkt | 279 #:get-module-linklet-info get-module-linklet-info
400 #:get-module-linklet-info get-module-linklet-info
464 (lambda (mu*-or-instance)
466 [(instance? mu*-or-instance)
471 (values mu*-or-instance #f)]
476 [mu*-or-instance
477 (define mu* mu*-or-instance)
479 (define mli (or (get-module-linklet-info mod-name (module-use-phase mu*))
489 (values (module-linklet-info-linklet-or-instance mli)
490 (and (module-linklet-info-module-uses mli) ; => linklet
[all …]
|
| H A D | recompile.rkt | 14 "instance.rkt"
29 [(or (linklet-bundle? c)
125 (define data-instance
128 (define declaration-instance
133 (instance-variable-value declaration-instance key))
137 (for ([mpi (in-vector (instance-variable-value data-instance mpi-vector-id))])
159 (or (hash-ref (linklet-bundle->hash b) phase #f)
164 (module-linklet-info linklet
179 (compile-module-linklet (if (correlated-linklet? body-linklet)
188 empty-module-body-instance)
[all …]
|
| H A D | module.rkt | 21 "instance.rkt"
104 (define language-info (filter-language-info (syntax-property (parsed-s p) 'module-language)))
152 empty-module-body-instance)
172 #:get-module-linklet-info (lambda (mod-name phase)
188 (module-linklet-info linklet
226 empty-instance-instance)
259 ;; demand. An instance of this linklet is shared for all
287 ;; declaration and module-body linklets. Its instance is shared
301 [bundle (hash-set bundle 'decl (or declaration-linklet
324 (hash-set bundle 'language-info language-info)
[all …]
|
| H A D | top.rkt | 17 "instance.rkt"
18 "eager-instance.rkt"
30 ;; `define-syntaxes` in a module
37 ;; `define-syntaxes` form, a `begin` form, or an expression. If
49 (define mpis (make-module-path-index-table))
56 phase-to-link-module-uses
57 phase-to-link-module-uses-expr
73 empty-instance-instance)
119 empty-eager-instance-instance)
140 ;; Will combine the linking unit with non-serialized link info
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/src/expander/compile/ |
| H A D | form.rkt | 279 #:get-module-linklet-info get-module-linklet-info
400 #:get-module-linklet-info get-module-linklet-info
464 (lambda (mu*-or-instance)
466 [(instance? mu*-or-instance)
471 (values mu*-or-instance #f)]
476 [mu*-or-instance
477 (define mu* mu*-or-instance)
479 (define mli (or (get-module-linklet-info mod-name (module-use-phase mu*))
489 (values (module-linklet-info-linklet-or-instance mli)
490 (and (module-linklet-info-module-uses mli) ; => linklet
[all …]
|
| H A D | recompile.rkt | 14 "instance.rkt"
29 [(or (linklet-bundle? c)
125 (define data-instance
128 (define declaration-instance
133 (instance-variable-value declaration-instance key))
137 (for ([mpi (in-vector (instance-variable-value data-instance mpi-vector-id))])
159 (or (hash-ref (linklet-bundle->hash b) phase #f)
164 (module-linklet-info linklet
179 (compile-module-linklet (if (correlated-linklet? body-linklet)
188 empty-module-body-instance)
[all …]
|
| H A D | module.rkt | 21 "instance.rkt"
104 (define language-info (filter-language-info (syntax-property (parsed-s p) 'module-language)))
152 empty-module-body-instance)
172 #:get-module-linklet-info (lambda (mod-name phase)
188 (module-linklet-info linklet
226 empty-instance-instance)
259 ;; demand. An instance of this linklet is shared for all
287 ;; declaration and module-body linklets. Its instance is shared
301 [bundle (hash-set bundle 'decl (or declaration-linklet
324 (hash-set bundle 'language-info language-info)
[all …]
|
| H A D | top.rkt | 17 "instance.rkt"
18 "eager-instance.rkt"
30 ;; `define-syntaxes` in a module
37 ;; `define-syntaxes` form, a `begin` form, or an expression. If
49 (define mpis (make-module-path-index-table))
56 phase-to-link-module-uses
57 phase-to-link-module-uses-expr
73 empty-instance-instance)
119 empty-eager-instance-instance)
140 ;; Will combine the linking unit with non-serialized link info
[all …]
|
| /dports/lang/racket/racket-8.3/src/expander/extract/ |
| H A D | main.rkt | 3 "linklet-info.rkt"
40 ;; redirect to there, or as 'ignored avoids both
42 #:instance-knot-ties instance-knot-ties
59 (define seen (make-hash)) ; link -> linklet-info
62 (define linklets (make-hash)) ; link -> linklet-info
97 (for ([ex-lnk (in-list (linklet-info-re-exports (hash-ref seen start-link)))])
104 (when (linklet-info-side-effects? li)
115 #:instance-knot-ties instance-knot-ties))
121 ;; module provides must refer to instance variables
134 #:instance-knot-ties instance-knot-ties
[all …]
|
| H A D | flatten.rkt | 5 "linklet-info.rkt"
77 (define linklet (linklet-info-linklet li))
101 [i-lnk (in-list (linklet-info-imports li))])
121 ;; (If a variable was given an alternative name for all imports or
141 (define linklet (linklet-info-linklet li))
164 [i-lnk (in-list (linklet-info-imports li))])
171 (define orig-s (bootstrap:s-expr-linklet-body (linklet-info-linklet li)))
180 (or (for/or ([alt-path (in-list alt-paths)])
191 " module: ~a\n"
195 … (define exports+locals (bootstrap:s-expr-linklet-exports+locals (linklet-info-linklet li)))
[all …]
|
| H A D | get-linklet.rkt | 10 "linklet-info.rkt"
27 (unless (or (symbol? root-name) ; skip pre-defined modules
37 (define h (compiled-module-phase-to-linklet comp-mod))
42 (define reqs (instance-variable-value (compiled-module-declaration comp-mod) 'requires))
43 (define provs (instance-variable-value (compiled-module-declaration comp-mod) 'provides))
45 ;; Extract phase-specific (i.e., linklet-specific) info on variables:
49 ;; Extract phase-specific info on imports (for reporting bootstrap issues):
53 ;; Extract phase-specific info on side effects:
59 … (hash-ref (instance-variable-value (compiled-module-declaration comp-mod) 'phase-to-link-modules)
99 … (set-member? (linklet-info-variables re-li) (module-binding-sym binding))))
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/src/expander/extract/ |
| H A D | main.rkt | 3 "linklet-info.rkt"
40 ;; redirect to there, or as 'ignored avoids both
42 #:instance-knot-ties instance-knot-ties
59 (define seen (make-hash)) ; link -> linklet-info
62 (define linklets (make-hash)) ; link -> linklet-info
97 (for ([ex-lnk (in-list (linklet-info-re-exports (hash-ref seen start-link)))])
104 (when (linklet-info-side-effects? li)
115 #:instance-knot-ties instance-knot-ties))
121 ;; module provides must refer to instance variables
134 #:instance-knot-ties instance-knot-ties
[all …]
|
| H A D | flatten.rkt | 5 "linklet-info.rkt"
77 (define linklet (linklet-info-linklet li))
101 [i-lnk (in-list (linklet-info-imports li))])
121 ;; (If a variable was given an alternative name for all imports or
141 (define linklet (linklet-info-linklet li))
164 [i-lnk (in-list (linklet-info-imports li))])
171 (define orig-s (bootstrap:s-expr-linklet-body (linklet-info-linklet li)))
180 (or (for/or ([alt-path (in-list alt-paths)])
191 " module: ~a\n"
195 … (define exports+locals (bootstrap:s-expr-linklet-exports+locals (linklet-info-linklet li)))
[all …]
|
| H A D | get-linklet.rkt | 10 "linklet-info.rkt"
27 (unless (or (symbol? root-name) ; skip pre-defined modules
37 (define h (compiled-module-phase-to-linklet comp-mod))
42 (define reqs (instance-variable-value (compiled-module-declaration comp-mod) 'requires))
43 (define provs (instance-variable-value (compiled-module-declaration comp-mod) 'provides))
45 ;; Extract phase-specific (i.e., linklet-specific) info on variables:
49 ;; Extract phase-specific info on imports (for reporting bootstrap issues):
53 ;; Extract phase-specific info on side effects:
59 … (hash-ref (instance-variable-value (compiled-module-declaration comp-mod) 'phase-to-link-modules)
99 … (set-member? (linklet-info-variables re-li) (module-binding-sym binding))))
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/src/expander/eval/ |
| H A D | module.rkt | 79 (define language-info (hash-ref h 'language-info #f))
83 ;; we don't retain other info --- especially the syntax-literals linklet.
127 ;; can while staying independent of a specific declaration or
136 #:language-info language-info
144 #:phase-level-linklet-info-callback
146 (module-linklet-info (hash-ref phases-h phase-level #f)
220 ;; to point back to the module's info:
312 (unless (or (eq? syntax-literals-data-instance empty-syntax-literals-data-instance)
325 ;; dh - hash from linklet directory to access submodules, or #f if
328 ;; h - hash from the module's linklet bundle
[all …]
|
| /dports/lang/racket/racket-8.3/src/expander/eval/ |
| H A D | module.rkt | 79 (define language-info (hash-ref h 'language-info #f))
83 ;; we don't retain other info --- especially the syntax-literals linklet.
127 ;; can while staying independent of a specific declaration or
136 #:language-info language-info
144 #:phase-level-linklet-info-callback
146 (module-linklet-info (hash-ref phases-h phase-level #f)
220 ;; to point back to the module's info:
312 (unless (or (eq? syntax-literals-data-instance empty-syntax-literals-data-instance)
325 ;; dh - hash from linklet directory to access submodules, or #f if
328 ;; h - hash from the module's linklet bundle
[all …]
|
| /dports/lang/racket/racket-8.3/src/expander/run/ |
| H A D | linklet.rkt | 14 ;; linklet, and instantiation of a linklet produces an "instance"
23 ;; module (which is a collection of linklets plus some static
55 (struct compiled-linklet linklet (compiled-proc ; takes self instance plus instance arguments to r…
60 (struct instance (name ; for debugging, typically a module name + phase
86 (or (hash-ref (instance-variables i) sym #f)
128 (define-values (vars trans) (module->exports mod-name))
145 (and (or ref-site?
148 (variable-reference->module-declaration-inspector
265 ;; Preserve info about a local identifier:
368 (or (hash-ref eval-cache cl #f)
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/src/expander/run/ |
| H A D | linklet.rkt | 14 ;; linklet, and instantiation of a linklet produces an "instance"
23 ;; module (which is a collection of linklets plus some static
55 (struct compiled-linklet linklet (compiled-proc ; takes self instance plus instance arguments to r…
60 (struct instance (name ; for debugging, typically a module name + phase
86 (or (hash-ref (instance-variables i) sym #f)
128 (define-values (vars trans) (module->exports mod-name))
145 (and (or ref-site?
148 (variable-reference->module-declaration-inspector
265 ;; Preserve info about a local identifier:
368 (or (hash-ref eval-cache cl #f)
[all …]
|
| /dports/lang/racket/racket-8.3/src/expander/namespace/ |
| H A D | module.rkt | 25 namespace->module-linklet-info
26 (struct-out module-linklet-info)
66 language-info ; #f or vector
69 … phase-level-linklet-info-callback ; phase-level namespace -> module-linklet-info-or-#f
91 (struct module-linklet-info (linklet-or-instance ; #f, linklet, or instance supplied for cross-link…
92 module-uses ; #f or vector for linklet's imports
109 #:phase-level-linklet-info-callback [phase-level-linklet-info-callback
126 phase-level-linklet-info-callback
252 (define (namespace->module-linklet-info ns name phase-level)
255 ((module-phase-level-linklet-info-callback m) phase-level ns (module-inspector m))))
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/src/expander/namespace/ |
| H A D | module.rkt | 25 namespace->module-linklet-info
26 (struct-out module-linklet-info)
66 language-info ; #f or vector
69 … phase-level-linklet-info-callback ; phase-level namespace -> module-linklet-info-or-#f
91 (struct module-linklet-info (linklet-or-instance ; #f, linklet, or instance supplied for cross-link…
92 module-uses ; #f or vector for linklet's imports
109 #:phase-level-linklet-info-callback [phase-level-linklet-info-callback
126 phase-level-linklet-info-callback
252 (define (namespace->module-linklet-info ns name phase-level)
255 ((module-phase-level-linklet-info-callback m) phase-level ns (module-inspector m))))
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/src/expander/ |
| H A D | main.rkt | 29 "boot/linklet-primitive.rkt"
95 namespace->instance
103 module->language-info
133 syntax-debug-info
174 (let ([linklet-primitives
177 (hash-remove (hash-remove linklet-primitives
180 (declare-hash-based-module! '#%linklet-primitive linklet-primitives #:namespace ns
184 (declare-hash-based-module! '#%linklet-expander linklet-expander-primitives #:namespace ns
189 (declare-reexporting-module! '#%linklet (list '#%linklet-primitive
203 #:protected? (or (eq? name '#%foreign)
[all …]
|
| H A D | run.rkt | 29 (only-in "run/linklet.rkt" linklet-compile-to-s-expr))
57 (define instance-knot-ties (make-hasheq))
133 (hash-update! instance-knot-ties
199 (and (or cache-dir extract?)
219 ;; linklet compiler:
237 ;; and/or load them from the cache
294 (or (not cache-save-only)
301 (define accomplice (make-log-receiver (current-logger) 'info 'cm-accomplice))
350 [(linklet-as-s-expr? l) (linklet-as-s-expr l)]
387 #:instance-knot-ties instance-knot-ties
[all …]
|
| /dports/lang/racket/racket-8.3/src/expander/ |
| H A D | main.rkt | 29 "boot/linklet-primitive.rkt"
95 namespace->instance
103 module->language-info
133 syntax-debug-info
174 (let ([linklet-primitives
177 (hash-remove (hash-remove linklet-primitives
180 (declare-hash-based-module! '#%linklet-primitive linklet-primitives #:namespace ns
184 (declare-hash-based-module! '#%linklet-expander linklet-expander-primitives #:namespace ns
189 (declare-reexporting-module! '#%linklet (list '#%linklet-primitive
203 #:protected? (or (eq? name '#%foreign)
[all …]
|