| /dports/lang/racket-minimal/racket-8.3/src/expander/compile/ |
| H A D | linklet.rkt | 7 (provide linklet-directory?
10 hash->linklet-directory
13 linklet-directory->hash
16 (struct linklet-directory (ht)
24 (struct linklet-bundle (ht)
31 (define/who (hash->linklet-directory ht)
47 (unless (linklet-directory? v)
55 (linklet-directory ht))
72 (define/who (linklet-directory->hash ld)
73 (check who linklet-directory? ld)
[all …]
|
| H A D | compiled-in-memory.rkt | 5 ;; `eval-compiled-in-memory`. The marshaled form is just the linklet
6 ;; directory, which has the same essential information, but loses sharing
9 (provide (struct-out compiled-in-memory))
11 (struct compiled-in-memory (linklet-directory ;; includes content of `{pre,post}-compiled-tops`; ma…
12 ;; Shortcuts, instead of using the metadata linklet:
19 ;; For each phase (that has a linklet), optionally report
21 ;; into the linklet, and each inner list matches the order of
22 ;; variables from that imported linklet; each member of the
39 (write (compiled-in-memory-linklet-directory cim) port)))
|
| H A D | recompile.rkt | 30 (linklet-directory? c))
57 (compiled-expression-recompile (compiled-in-memory-linklet-directory c))]))
65 [(linklet-directory? c)
66 (for/fold ([accum accum]) ([(k v) (in-hash (linklet-directory->hash c))])
79 [(linklet-directory? c)
80 (hash->linklet-directory
81 (for/hasheq ([(k v) (in-hash (linklet-directory->hash c))])
92 (struct recompiled (bundle
94 ;; inlnining among submodules within a linklet directory
146 ;; If `mod-name` refers to a submodule in the same linklet directory,
[all …]
|
| H A D | module.rkt | 34 #:force-linklet-directory? [force-linklet-directory? #f]
48 ;; Extract submodules; each list is (cons linklet-directory-key compiled-in-memory)
76 #:force-linklet-directory? force-linklet-directory?
88 #:force-linklet-directory? force-linklet-directory?
111 (define body-cctx (struct-copy compile-context cctx
343 ;; Combine with submodules in a linklet directory
348 (not force-linklet-directory?))
356 (compiled-in-memory-linklet-directory
358 (hash->linklet-directory ht)]))
389 (define ld (compiled-in-memory-linklet-directory cim))
[all …]
|
| /dports/lang/racket/racket-8.3/src/expander/compile/ |
| H A D | linklet.rkt | 7 (provide linklet-directory?
10 hash->linklet-directory
13 linklet-directory->hash
16 (struct linklet-directory (ht)
24 (struct linklet-bundle (ht)
31 (define/who (hash->linklet-directory ht)
47 (unless (linklet-directory? v)
55 (linklet-directory ht))
72 (define/who (linklet-directory->hash ld)
73 (check who linklet-directory? ld)
[all …]
|
| H A D | compiled-in-memory.rkt | 5 ;; `eval-compiled-in-memory`. The marshaled form is just the linklet
6 ;; directory, which has the same essential information, but loses sharing
9 (provide (struct-out compiled-in-memory))
11 (struct compiled-in-memory (linklet-directory ;; includes content of `{pre,post}-compiled-tops`; ma…
12 ;; Shortcuts, instead of using the metadata linklet:
19 ;; For each phase (that has a linklet), optionally report
21 ;; into the linklet, and each inner list matches the order of
22 ;; variables from that imported linklet; each member of the
39 (write (compiled-in-memory-linklet-directory cim) port)))
|
| H A D | recompile.rkt | 30 (linklet-directory? c))
57 (compiled-expression-recompile (compiled-in-memory-linklet-directory c))]))
65 [(linklet-directory? c)
66 (for/fold ([accum accum]) ([(k v) (in-hash (linklet-directory->hash c))])
79 [(linklet-directory? c)
80 (hash->linklet-directory
81 (for/hasheq ([(k v) (in-hash (linklet-directory->hash c))])
92 (struct recompiled (bundle
94 ;; inlnining among submodules within a linklet directory
146 ;; If `mod-name` refers to a submodule in the same linklet directory,
[all …]
|
| H A D | module.rkt | 34 #:force-linklet-directory? [force-linklet-directory? #f]
48 ;; Extract submodules; each list is (cons linklet-directory-key compiled-in-memory)
76 #:force-linklet-directory? force-linklet-directory?
88 #:force-linklet-directory? force-linklet-directory?
111 (define body-cctx (struct-copy compile-context cctx
343 ;; Combine with submodules in a linklet directory
348 (not force-linklet-directory?))
356 (compiled-in-memory-linklet-directory
358 (hash->linklet-directory ht)]))
389 (define ld (compiled-in-memory-linklet-directory cim))
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/src/expander/eval/ |
| H A D | reflect-compiled.rkt | 12 compiled->linklet-directory-or-bundle
13 normalize-to-linklet-directory)
17 (linklet-directory? c)
22 (or (and (linklet-directory? ld)
39 ;; uses a linklet directory
40 (define (normalize-to-linklet-directory c)
42 [(linklet-directory? (compiled->linklet-directory-or-bundle c))
43 ;; already in linklet-directory form:
46 (hash->linklet-directory (hasheq #f c))]
48 (struct-copy compiled-in-memory c
[all …]
|
| H A D | reflect-name.rkt | 12 rebuild-linklet-directory
13 compiled->linklet-directory-or-bundle)
37 (define ld (compiled->linklet-directory-or-bundle c))
40 (hash-ref (linklet-directory->hash ld) #f)))
64 (struct-copy compiled-in-memory c
67 [linklet-directory (rebuild-linklet-directory
77 [(linklet-directory? c)
78 (hash->linklet-directory
79 (for/hasheq ([(key val) (in-hash (linklet-directory->hash c))])
91 (define (rebuild-linklet-directory main submods #:bundle-ok? [bundle-ok? #f])
[all …]
|
| H A D | reflect-submodule.rkt | 33 [(linklet-directory? c)
34 (define ht (linklet-directory->hash c))
49 (or (linklet-bundle? (compiled->linklet-directory-or-bundle c))
65 (define n-c (normalize-to-linklet-directory c))
67 (struct-copy compiled-in-memory n-c
70 [linklet-directory (rebuild-linklet-directory
72 … (hash-ref (linklet-directory->hash (compiled->linklet-directory-or-bundle n-c)) #f)
80 (define n-c (normalize-to-linklet-directory c))
82 (rebuild-linklet-directory
84 (hash-ref (linklet-directory->hash (compiled->linklet-directory-or-bundle n-c)) #f)
[all …]
|
| H A D | main.rkt | 2 (require "../common/struct-star.rkt"
46 (linklet-directory? s)
51 (linklet-directory? (syntax-e s))
101 (struct lifted-parsed-begin (seq last))
105 #:to-correlated-linklet? to-correlated-linklet?)
116 #:to-correlated-linklet? to-correlated-linklet?
181 (expand-capturing-lifts s (struct*-copy expand-context (make-expand-context ns)
218 (define tl-ctx (struct*-copy expand-context ctx
226 (expand-capturing-lifts s (struct*-copy expand-context tl-ctx
323 (expand-in-context s (struct*-copy expand-context ctx
[all …]
|
| /dports/lang/racket/racket-8.3/src/expander/eval/ |
| H A D | reflect-compiled.rkt | 12 compiled->linklet-directory-or-bundle
13 normalize-to-linklet-directory)
17 (linklet-directory? c)
22 (or (and (linklet-directory? ld)
39 ;; uses a linklet directory
40 (define (normalize-to-linklet-directory c)
42 [(linklet-directory? (compiled->linklet-directory-or-bundle c))
43 ;; already in linklet-directory form:
46 (hash->linklet-directory (hasheq #f c))]
48 (struct-copy compiled-in-memory c
[all …]
|
| H A D | reflect-name.rkt | 12 rebuild-linklet-directory
13 compiled->linklet-directory-or-bundle)
37 (define ld (compiled->linklet-directory-or-bundle c))
40 (hash-ref (linklet-directory->hash ld) #f)))
64 (struct-copy compiled-in-memory c
67 [linklet-directory (rebuild-linklet-directory
77 [(linklet-directory? c)
78 (hash->linklet-directory
79 (for/hasheq ([(key val) (in-hash (linklet-directory->hash c))])
91 (define (rebuild-linklet-directory main submods #:bundle-ok? [bundle-ok? #f])
[all …]
|
| H A D | reflect-submodule.rkt | 33 [(linklet-directory? c)
34 (define ht (linklet-directory->hash c))
49 (or (linklet-bundle? (compiled->linklet-directory-or-bundle c))
65 (define n-c (normalize-to-linklet-directory c))
67 (struct-copy compiled-in-memory n-c
70 [linklet-directory (rebuild-linklet-directory
72 … (hash-ref (linklet-directory->hash (compiled->linklet-directory-or-bundle n-c)) #f)
80 (define n-c (normalize-to-linklet-directory c))
82 (rebuild-linklet-directory
84 (hash-ref (linklet-directory->hash (compiled->linklet-directory-or-bundle n-c)) #f)
[all …]
|
| H A D | main.rkt | 2 (require "../common/struct-star.rkt"
46 (linklet-directory? s)
51 (linklet-directory? (syntax-e s))
101 (struct lifted-parsed-begin (seq last))
105 #:to-correlated-linklet? to-correlated-linklet?)
116 #:to-correlated-linklet? to-correlated-linklet?
181 (expand-capturing-lifts s (struct*-copy expand-context (make-expand-context ns)
218 (define tl-ctx (struct*-copy expand-context ctx
226 (expand-capturing-lifts s (struct*-copy expand-context tl-ctx
323 (expand-in-context s (struct*-copy expand-context ctx
[all …]
|
| /dports/lang/racket/racket-8.3/src/expander/extract/ |
| H A D | module.rkt | 2 (require "../host/linklet.rkt"
6 "../compile/linklet.rkt"
9 (provide (struct-out compiled-module)
15 (struct compiled-module (declaration ; linklet instance
16 phase-to-linklet)) ; phase -> linklet
30 ;; For submodules, recur into the compilation directory:
33 [(linklet-bundle? cd)
34 (linklet-bundle->hash cd)]
36 (define h (linklet-directory->hash cd))
42 ;; Instantiate the declaration linklet
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/src/expander/extract/ |
| H A D | module.rkt | 2 (require "../host/linklet.rkt"
6 "../compile/linklet.rkt"
9 (provide (struct-out compiled-module)
15 (struct compiled-module (declaration ; linklet instance
16 phase-to-linklet)) ; phase -> linklet
30 ;; For submodules, recur into the compilation directory:
33 [(linklet-bundle? cd)
34 (linklet-bundle->hash cd)]
36 (define h (linklet-directory->hash cd))
42 ;; Instantiate the declaration linklet
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/compiler-lib/compiler/ |
| H A D | decompile.rkt | 2 (require racket/linklet
53 [(linkl-directory? top)
57 'linklet-directory
60 (for/list ([(k v) (in-hash (linkl-directory-table top))])
63 (define main (hash-ref (linkl-directory-table top) '() #f))
97 (for/list ([(k l) (in-hash (linkl-directory-table l-dir))]
184 (define b (hash-ref (linkl-directory-table ld) (list (string->symbol (format "~a" i))) #f))
207 `(linklet
219 [(struct faslable-correlated-linklet (expr name))
223 [(? linklet?)
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/src/expander/ |
| H A D | main.rkt | 29 "boot/linklet-primitive.rkt"
43 (only-in "eval/shadow-directory.rkt" shadow-directory-place-init!)
168 (declare-hash-based-module! '#%place-struct place-struct-primitives #:namespace ns
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
206 (declare-reexporting-module! '#%builtin (list* '#%place-struct
210 '#%linklet
[all …]
|
| /dports/lang/racket/racket-8.3/src/expander/ |
| H A D | main.rkt | 29 "boot/linklet-primitive.rkt"
43 (only-in "eval/shadow-directory.rkt" shadow-directory-place-init!)
168 (declare-hash-based-module! '#%place-struct place-struct-primitives #:namespace ns
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
206 (declare-reexporting-module! '#%builtin (list* '#%place-struct
210 '#%linklet
[all …]
|
| /dports/lang/racket/racket-8.3/src/expander/run/ |
| H A D | linklet.rkt | 26 ;; Finally, a "linklet directory" is a primitive construct that is a
29 ;; extracted from the marshaled form of a linklet directory --- the
51 (struct linklet () #:prefab)
53 (struct source-linklet linklet (src) #:prefab)
55 (struct compiled-linklet linklet (compiled-proc ; takes self instance plus instance arguments to r…
142 (struct variable-reference (instance primitive-varref))
364 ;; Normal mode: compiled to struct
426 (struct path-bytes (bstr) #:prefab)
427 (struct unreadable (str) #:prefab)
428 (struct void-value () #:prefab)
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/src/expander/run/ |
| H A D | linklet.rkt | 26 ;; Finally, a "linklet directory" is a primitive construct that is a
29 ;; extracted from the marshaled form of a linklet directory --- the
51 (struct linklet () #:prefab)
53 (struct source-linklet linklet (src) #:prefab)
55 (struct compiled-linklet linklet (compiled-proc ; takes self instance plus instance arguments to r…
142 (struct variable-reference (instance primitive-varref))
364 ;; Normal mode: compiled to struct
426 (struct path-bytes (bstr) #:prefab)
427 (struct unreadable (str) #:prefab)
428 (struct void-value () #:prefab)
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/compiler-lib/compiler/demodularizer/ |
| H A D | find.rkt | 5 racket/linklet
7 "linklet.rkt"
14 (struct mod (compiled zo)) ; includes submodules; `zo` is #f for excluded
15 (struct one-mod (compiled zo decl)) ; module without submodules
38 [current-load-relative-directory
61 (or (hash-ref (linklet-directory->hash compiled) #f #f)
64 (loop (or (hash-ref (linklet-directory->hash compiled) (car submod) #f)
74 (or (hash-ref (linkl-directory-table zo) submod #f)
80 (unless data-linklet
87 (define data-instance (instantiate-linklet data-linklet
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/racket-doc/scribblings/raco/ |
| H A D | zo-struct.scrbl | 41 @defstruct+[(linkl-directory zo)
54 by a @racket[linkl-directory].
59 implementing literal syntax objects. A linklet directory normally
61 top-level form; for a linklet directory that corresponds to a
65 For a module with submodules, the linklet directory maps submodule
151 @defstruct+[struct-shape ()]
152 @defstruct+[(struct-type-shape struct-shape) ([field-count exact-nonnegative-integer?] [authentic? …
157 @defstruct+[(struct-type-property-shape struct-shape) ([has-guard? boolean?])]
158 @defstruct+[(property-predicate-shape struct-shape) ()]
159 @defstruct+[(property-accessor-shape struct-shape) ()]
[all …]
|