Home
last modified time | relevance | path

Searched +refs:hash +refs:linklet +refs:bundle (Results 1 – 25 of 81) sorted by relevance

1234

/dports/lang/racket-minimal/racket-8.3/src/expander/compile/
H A Dlinklet.rkt8 linklet-bundle?
11 hash->linklet-bundle
14 linklet-bundle->hash)
21 linklet-bundle->hash
24 (struct linklet-bundle (ht)
28 linklet-bundle->hash
57 (define/who (hash->linklet-bundle ht)
70 (linklet-bundle ht))
76 (define/who (linklet-bundle->hash ld)
78 (linklet-bundle-ht ld))
[all …]
H A Drecompile.rkt29 [(or (linklet-bundle? c)
45 (hash-set! recompileds k (recompile-bundle b
63 [(linklet-bundle? c)
77 [(linklet-bundle? c)
78 (recompiled-bundle (hash-ref recompileds (reverse rev-path)))]
80 (hash->linklet-directory
81 (for/hasheq ([(k v) (in-hash (linklet-directory->hash c))])
106 (define orig-h (linklet-bundle->hash b))
159 (or (hash-ref (linklet-bundle->hash b) phase #f)
173 (for/hash ([(phase body-linklet) (in-hash h)]
[all …]
H A Dread-linklet.rkt7 (provide read-linklet-bundle-or-directory)
9 (define (read-linklet-bundle-or-directory in)
44 (read-correlated-linklet-bundle-hash in)
45 (read-linklet-bundle-hash in)))
47 (raise-read-error 'read-linklet-bundle-hash
56 (hash->linklet-bundle
64 "expected a linklet bundle"))
88 (list->bundle-directory accum hash->linklet-directory)]
136 (define (list->bundle-directory l hash->linklet-directory)
164 (hash->linklet-directory accum)
[all …]
H A Dmodule.rkt301 [bundle (hash-set bundle 'decl (or declaration-linklet
306 (hash-set bundle 'data data-linklet)
309 (hash-set bundle 'stx syntax-literals-linklet)
312 (hash-set bundle 'stx-data syntax-literals-data-linklet)
328 (hash-set bundle 'min-phase min-phase))]
332 [bundle (if (hash-count side-effects)
333 (hash-set bundle 'side-effects (sort (hash-keys side-effects) <))
339 (hash-set bundle 'unsafe? #t)
341 (hash->linklet-bundle bundle)))
358 (hash->linklet-directory ht)]))
[all …]
H A Dwrite-linklet.rkt2 (require "../host/linklet.rkt"
6 (provide write-linklet-bundle
9 (define (write-linklet-bundle b as-correlated-linklet? linklet-bundle->hash port)
15 ;; 20 bytes of SHA-1 hash
28 (write-correlated-linklet-bundle-hash (linklet-bundle->hash b) port)
29 (write-linklet-bundle-hash (linklet-bundle->hash b) port)))
31 (define (linklet-bundle->bytes b as-correlated-linklet? linklet-bundle->hash)
33 (write-linklet-bundle b as-correlated-linklet? linklet-bundle->hash o)
36 (define (write-linklet-directory ld as-correlated-linklet? linklet-directory->hash linklet-bundle->…
68 … (for/fold ([accum accum] [saw-bundle? #f]) ([(key value) (in-hash (linklet-directory->hash ld))])
[all …]
H A Dcorrelated-linklet.rkt16 write-correlated-linklet-bundle-hash
17 read-correlated-linklet-bundle-hash)
64 (define (write-correlated-linklet-bundle-hash ht o)
92 [(hash? v)
94 [(hash-eq? v)
97 [(hash-eqv? v)
101 (for/hash ([(key value) (in-hash v)])
110 (define (read-correlated-linklet-bundle-hash in)
135 [(hash? v)
137 [(hash-eq? v)
[all …]
/dports/lang/racket/racket-8.3/src/expander/compile/
H A Dlinklet.rkt8 linklet-bundle?
11 hash->linklet-bundle
14 linklet-bundle->hash)
21 linklet-bundle->hash
24 (struct linklet-bundle (ht)
28 linklet-bundle->hash
57 (define/who (hash->linklet-bundle ht)
70 (linklet-bundle ht))
76 (define/who (linklet-bundle->hash ld)
78 (linklet-bundle-ht ld))
[all …]
H A Drecompile.rkt29 [(or (linklet-bundle? c)
45 (hash-set! recompileds k (recompile-bundle b
63 [(linklet-bundle? c)
77 [(linklet-bundle? c)
78 (recompiled-bundle (hash-ref recompileds (reverse rev-path)))]
80 (hash->linklet-directory
81 (for/hasheq ([(k v) (in-hash (linklet-directory->hash c))])
106 (define orig-h (linklet-bundle->hash b))
159 (or (hash-ref (linklet-bundle->hash b) phase #f)
173 (for/hash ([(phase body-linklet) (in-hash h)]
[all …]
H A Dread-linklet.rkt7 (provide read-linklet-bundle-or-directory)
9 (define (read-linklet-bundle-or-directory in)
44 (read-correlated-linklet-bundle-hash in)
45 (read-linklet-bundle-hash in)))
47 (raise-read-error 'read-linklet-bundle-hash
56 (hash->linklet-bundle
64 "expected a linklet bundle"))
88 (list->bundle-directory accum hash->linklet-directory)]
136 (define (list->bundle-directory l hash->linklet-directory)
164 (hash->linklet-directory accum)
[all …]
H A Dmodule.rkt301 [bundle (hash-set bundle 'decl (or declaration-linklet
306 (hash-set bundle 'data data-linklet)
309 (hash-set bundle 'stx syntax-literals-linklet)
312 (hash-set bundle 'stx-data syntax-literals-data-linklet)
328 (hash-set bundle 'min-phase min-phase))]
332 [bundle (if (hash-count side-effects)
333 (hash-set bundle 'side-effects (sort (hash-keys side-effects) <))
339 (hash-set bundle 'unsafe? #t)
341 (hash->linklet-bundle bundle)))
358 (hash->linklet-directory ht)]))
[all …]
H A Dwrite-linklet.rkt2 (require "../host/linklet.rkt"
6 (provide write-linklet-bundle
9 (define (write-linklet-bundle b as-correlated-linklet? linklet-bundle->hash port)
15 ;; 20 bytes of SHA-1 hash
28 (write-correlated-linklet-bundle-hash (linklet-bundle->hash b) port)
29 (write-linklet-bundle-hash (linklet-bundle->hash b) port)))
31 (define (linklet-bundle->bytes b as-correlated-linklet? linklet-bundle->hash)
33 (write-linklet-bundle b as-correlated-linklet? linklet-bundle->hash o)
36 (define (write-linklet-directory ld as-correlated-linklet? linklet-directory->hash linklet-bundle->…
68 … (for/fold ([accum accum] [saw-bundle? #f]) ([(key value) (in-hash (linklet-directory->hash ld))])
[all …]
H A Dcorrelated-linklet.rkt16 write-correlated-linklet-bundle-hash
17 read-correlated-linklet-bundle-hash)
64 (define (write-correlated-linklet-bundle-hash ht o)
92 [(hash? v)
94 [(hash-eq? v)
97 [(hash-eqv? v)
101 (for/hash ([(key value) (in-hash v)])
110 (define (read-correlated-linklet-bundle-hash in)
135 [(hash? v)
137 [(hash-eq? v)
[all …]
/dports/lang/racket-minimal/racket-8.3/src/expander/eval/
H A Dreflect-compiled.rkt12 compiled->linklet-directory-or-bundle
18 (linklet-bundle? c)))
21 (define ld (compiled->linklet-directory-or-bundle c))
23 (let ([b (hash-ref (linklet-directory->hash ld) #f #f)])
24 (and b (hash-ref (linklet-bundle->hash b) 'decl #f)))
26 (and (linklet-bundle? ld)
27 (hash-ref (linklet-bundle->hash ld) 'decl #f)
32 (define (compiled->linklet-directory-or-bundle c)
42 [(linklet-directory? (compiled->linklet-directory-or-bundle c))
45 [(linklet-bundle? c)
[all …]
H A Dreflect-name.rkt13 compiled->linklet-directory-or-bundle)
38 (define b (if (linklet-bundle? ld)
40 (hash-ref (linklet-directory->hash ld) #f)))
41 (hash-ref (linklet-bundle->hash b) 'name))
78 (hash->linklet-directory
79 (for/hasheq ([(key val) (in-hash (linklet-directory->hash c))])
85 ;; linklet bundle
89 (hash->linklet-bundle (hash-set (linklet-bundle->hash lb) 'name name)))
91 (define (rebuild-linklet-directory main submods #:bundle-ok? [bundle-ok? #f])
96 (hash->linklet-directory
[all …]
H A Dreflect-submodule.rkt14 ;; inconvenient, because each linklet bundle for a module encodes its
30 ;; We have a raw linklet directory or bundle, which is designed
34 (define ht (linklet-directory->hash c))
35 (define bh (linklet-bundle->hash (hash-ref ht #f)))
40 ;; a linklet bundle represents a module with no submodules
49 (or (linklet-bundle? (compiled->linklet-directory-or-bundle c))
72 … (hash-ref (linklet-directory->hash (compiled->linklet-directory-or-bundle n-c)) #f)
84 (hash-ref (linklet-directory->hash (compiled->linklet-directory-or-bundle n-c)) #f)
87 (map compiled->linklet-directory-or-bundle
101 (hash->linklet-bundle
[all …]
H A Dmulti-top.rkt2 (require "../host/linklet.rkt"
10 "../compile/linklet.rkt"
17 (instantiate-linklet (force-compile-linklet data-linklet)
41 (define is-module? (or (linklet-bundle? ld)
42 (let ([b (hash-ref (linklet-directory->hash ld) #f #f)])
43 (and b (hash-ref (linklet-bundle->hash b) 'decl #f)))))
88 [(linklet-bundle? ld)
92 (define h (linklet-directory->hash ld))
93 (define mod (hash-ref h #f #f))
95 (define mh (linklet-bundle->hash mod))
[all …]
/dports/lang/racket/racket-8.3/src/expander/eval/
H A Dreflect-compiled.rkt12 compiled->linklet-directory-or-bundle
18 (linklet-bundle? c)))
21 (define ld (compiled->linklet-directory-or-bundle c))
23 (let ([b (hash-ref (linklet-directory->hash ld) #f #f)])
24 (and b (hash-ref (linklet-bundle->hash b) 'decl #f)))
26 (and (linklet-bundle? ld)
27 (hash-ref (linklet-bundle->hash ld) 'decl #f)
32 (define (compiled->linklet-directory-or-bundle c)
42 [(linklet-directory? (compiled->linklet-directory-or-bundle c))
45 [(linklet-bundle? c)
[all …]
H A Dreflect-name.rkt13 compiled->linklet-directory-or-bundle)
38 (define b (if (linklet-bundle? ld)
40 (hash-ref (linklet-directory->hash ld) #f)))
41 (hash-ref (linklet-bundle->hash b) 'name))
78 (hash->linklet-directory
79 (for/hasheq ([(key val) (in-hash (linklet-directory->hash c))])
85 ;; linklet bundle
89 (hash->linklet-bundle (hash-set (linklet-bundle->hash lb) 'name name)))
91 (define (rebuild-linklet-directory main submods #:bundle-ok? [bundle-ok? #f])
96 (hash->linklet-directory
[all …]
H A Dreflect-submodule.rkt14 ;; inconvenient, because each linklet bundle for a module encodes its
30 ;; We have a raw linklet directory or bundle, which is designed
34 (define ht (linklet-directory->hash c))
35 (define bh (linklet-bundle->hash (hash-ref ht #f)))
40 ;; a linklet bundle represents a module with no submodules
49 (or (linklet-bundle? (compiled->linklet-directory-or-bundle c))
72 … (hash-ref (linklet-directory->hash (compiled->linklet-directory-or-bundle n-c)) #f)
84 (hash-ref (linklet-directory->hash (compiled->linklet-directory-or-bundle n-c)) #f)
87 (map compiled->linklet-directory-or-bundle
101 (hash->linklet-bundle
[all …]
/dports/lang/racket/racket-8.3/src/expander/boot/
H A Dlinklet-primitive.rkt5 linklet?
12 "../common/reflect-hash.rkt"
18 (define-syntax (reflect-hash-except stx)
21 #`(reflect-hash #,@(for/list ([id (in-list (syntax->list #'(id ...)))]
32 (linklet-operations=> reflect-hash-except))
35 (reflect-hash linklet-directory?
36 linklet-directory->hash
37 hash->linklet-directory
38 linklet-bundle?
39 linklet-bundle->hash
[all …]
/dports/lang/racket-minimal/racket-8.3/src/expander/boot/
H A Dlinklet-primitive.rkt5 linklet?
12 "../common/reflect-hash.rkt"
18 (define-syntax (reflect-hash-except stx)
21 #`(reflect-hash #,@(for/list ([id (in-list (syntax->list #'(id ...)))]
32 (linklet-operations=> reflect-hash-except))
35 (reflect-hash linklet-directory?
36 linklet-directory->hash
37 hash->linklet-directory
38 linklet-bundle?
39 linklet-bundle->hash
[all …]
/dports/lang/racket/racket-8.3/collects/racket/
H A Dlinklet.rkt2 (require '#%linklet)
4 (provide linklet?
6 compile-linklet
7 recompile-linklet
9 instantiate-linklet
15 hash->linklet-directory
16 linklet-directory->hash
18 linklet-bundle?
19 hash->linklet-bundle
20 linklet-bundle->hash
[all …]
/dports/lang/racket-minimal/racket-8.3/collects/racket/
H A Dlinklet.rkt2 (require '#%linklet)
4 (provide linklet?
6 compile-linklet
7 recompile-linklet
9 instantiate-linklet
15 hash->linklet-directory
16 linklet-directory->hash
18 linklet-bundle?
19 hash->linklet-bundle
20 linklet-bundle->hash
[all …]
/dports/lang/racket/racket-8.3/src/expander/extract/
H A Dmodule.rkt2 (require "../host/linklet.rkt"
6 "../compile/linklet.rkt"
16 phase-to-linklet)) ; phase -> linklet
24 (or (hash-ref compiled-modules name #f)
33 [(linklet-bundle? cd)
34 (linklet-bundle->hash cd)]
36 (define h (linklet-directory->hash cd))
39 (linklet-bundle->hash (hash-ref h #f))
43 (define data-instance (instantiate-linklet (hash-ref h 'data)
45 (define decl (instantiate-linklet (hash-ref h 'decl)
[all …]
/dports/lang/racket-minimal/racket-8.3/src/expander/extract/
H A Dmodule.rkt2 (require "../host/linklet.rkt"
6 "../compile/linklet.rkt"
16 phase-to-linklet)) ; phase -> linklet
24 (or (hash-ref compiled-modules name #f)
33 [(linklet-bundle? cd)
34 (linklet-bundle->hash cd)]
36 (define h (linklet-directory->hash cd))
39 (linklet-bundle->hash (hash-ref h #f))
43 (define data-instance (instantiate-linklet (hash-ref h 'data)
45 (define decl (instantiate-linklet (hash-ref h 'decl)
[all …]

1234