/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 …]
|