| /dports/lang/racket-minimal/racket-8.3/src/expander/compile/ |
| H A D | correlated-linklet.rkt | 6 (provide correlated-linklet?
7 make-correlated-linklet
9 correlated-linklet-expr
10 correlated-linklet-name
22 (define (make-correlated-linklet expr name)
29 [(correlated-linklet? l)
40 [(correlated-linklet? l)
44 (compile-linklet (correlated-linklet-expr l)
54 (define correlated-linklet-vm-bytes #"linklet")
104 (faslable-correlated-linklet (->faslable (correlated-linklet-expr v))
[all …]
|
| H A D | module.rkt | 25 "correlated-linklet.rkt"
36 #:to-correlated-linklet? [to-correlated-linklet? #f]
78 #:to-correlated-linklet? to-correlated-linklet?
90 #:to-correlated-linklet? to-correlated-linklet?
178 #:to-correlated-linklet? to-correlated-linklet?
202 (if to-correlated-linklet?
203 (make-correlated-linklet s 'decl)
217 (if to-correlated-linklet?
218 (make-correlated-linklet s 'syntax-literals)
268 (make-correlated-linklet s 'syntax-literals-data)
[all …]
|
| H A D | write-linklet.rkt | 4 "correlated-linklet.rkt")
9 (define (write-linklet-bundle b as-correlated-linklet? linklet-bundle->hash port)
19 (let ([vm-bytes (if as-correlated-linklet?
20 correlated-linklet-vm-bytes
25 (write-bytes (make-bytes 20 0) port)
27 (if as-correlated-linklet?
28 (write-correlated-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)
55 (let ([vm-bytes (if as-correlated-linklet?
[all …]
|
| H A D | multi-top-data.rkt | 7 "correlated-linklet.rkt"
8 "../host/linklet.rkt")
10 (provide build-shared-data-linklet)
26 #:to-correlated-linklet? to-correlated-linklet?)
28 (define mpis (make-module-path-index-table))
36 (define syntax-literals (make-syntax-literals))
69 (define linklet-s
70 `(linklet
89 (if to-correlated-linklet?
90 (make-correlated-linklet linklet-s #f)
[all …]
|
| H A D | top.rkt | 3 "../host/linklet.rkt"
13 "linklet.rkt"
24 "correlated-linklet.rkt")
43 #:to-correlated-linklet? [to-correlated-linklet? #f])
49 (define mpis (make-module-path-index-table))
75 #:to-correlated-linklet? to-correlated-linklet?
93 (hash->linklet-bundle
111 (if to-correlated-linklet?
112 (make-correlated-linklet s #f)
122 `(linklet
[all …]
|
| H A D | recompile.rkt | 10 "correlated-linklet.rkt"
36 (define recompileds (make-hash))
112 (correlated-linklet? v))
123 (eval-correlated-linklet (hash-ref orig-h key))))
126 (instantiate-linklet (eval-metadata-linklet 'data)
129 (instantiate-linklet (eval-metadata-linklet 'decl)
135 (define mpis (make-module-path-index-table))
164 (module-linklet-info linklet
179 (compile-module-linklet (if (correlated-linklet? body-linklet)
180 (correlated-linklet-expr body-linklet)
[all …]
|
| /dports/lang/racket/racket-8.3/src/expander/compile/ |
| H A D | correlated-linklet.rkt | 6 (provide correlated-linklet?
7 make-correlated-linklet
9 correlated-linklet-expr
10 correlated-linklet-name
22 (define (make-correlated-linklet expr name)
29 [(correlated-linklet? l)
40 [(correlated-linklet? l)
44 (compile-linklet (correlated-linklet-expr l)
54 (define correlated-linklet-vm-bytes #"linklet")
104 (faslable-correlated-linklet (->faslable (correlated-linklet-expr v))
[all …]
|
| H A D | module.rkt | 25 "correlated-linklet.rkt"
36 #:to-correlated-linklet? [to-correlated-linklet? #f]
78 #:to-correlated-linklet? to-correlated-linklet?
90 #:to-correlated-linklet? to-correlated-linklet?
178 #:to-correlated-linklet? to-correlated-linklet?
202 (if to-correlated-linklet?
203 (make-correlated-linklet s 'decl)
217 (if to-correlated-linklet?
218 (make-correlated-linklet s 'syntax-literals)
268 (make-correlated-linklet s 'syntax-literals-data)
[all …]
|
| H A D | write-linklet.rkt | 4 "correlated-linklet.rkt")
9 (define (write-linklet-bundle b as-correlated-linklet? linklet-bundle->hash port)
19 (let ([vm-bytes (if as-correlated-linklet?
20 correlated-linklet-vm-bytes
25 (write-bytes (make-bytes 20 0) port)
27 (if as-correlated-linklet?
28 (write-correlated-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)
55 (let ([vm-bytes (if as-correlated-linklet?
[all …]
|
| H A D | multi-top-data.rkt | 7 "correlated-linklet.rkt"
8 "../host/linklet.rkt")
10 (provide build-shared-data-linklet)
26 #:to-correlated-linklet? to-correlated-linklet?)
28 (define mpis (make-module-path-index-table))
36 (define syntax-literals (make-syntax-literals))
69 (define linklet-s
70 `(linklet
89 (if to-correlated-linklet?
90 (make-correlated-linklet linklet-s #f)
[all …]
|
| H A D | top.rkt | 3 "../host/linklet.rkt"
13 "linklet.rkt"
24 "correlated-linklet.rkt")
43 #:to-correlated-linklet? [to-correlated-linklet? #f])
49 (define mpis (make-module-path-index-table))
75 #:to-correlated-linklet? to-correlated-linklet?
93 (hash->linklet-bundle
111 (if to-correlated-linklet?
112 (make-correlated-linklet s #f)
122 `(linklet
[all …]
|
| /dports/lang/racket/racket-8.3/src/expander/run/ |
| H A D | linklet.rkt | 64 (define (make-instance name [data #f] [mode #f] . content)
65 (define i (instance name data (make-hasheq)))
71 (raise-argument-error 'make-instance
75 (raise-arguments-error 'make-instance
169 (define cu-namespace (make-empty-namespace))
189 ;; notion of correlated that works for `compile-linklet` to the notion
315 (define linklet-compile-to-s-expr (make-parameter #f #f 'linklet-compile-to-s-expr))
322 (source-linklet (marshal (correlated->datum/lambda-name c)))]
373 (define eval-cache (make-weak-hasheq))
387 (define target-instance (make-instance 'anonymous))
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/src/expander/run/ |
| H A D | linklet.rkt | 64 (define (make-instance name [data #f] [mode #f] . content)
65 (define i (instance name data (make-hasheq)))
71 (raise-argument-error 'make-instance
75 (raise-arguments-error 'make-instance
169 (define cu-namespace (make-empty-namespace))
189 ;; notion of correlated that works for `compile-linklet` to the notion
315 (define linklet-compile-to-s-expr (make-parameter #f #f 'linklet-compile-to-s-expr))
322 (source-linklet (marshal (correlated->datum/lambda-name c)))]
373 (define eval-cache (make-weak-hasheq))
387 (define target-instance (make-instance 'anonymous))
[all …]
|
| /dports/lang/racket/racket-8.3/collects/racket/ |
| H A D | linklet.rkt | 2 (require '#%linklet)
4 (provide linklet?
6 compile-linklet
7 recompile-linklet
8 eval-linklet
9 instantiate-linklet
14 linklet-directory?
18 linklet-bundle?
19 hash->linklet-bundle
20 linklet-bundle->hash
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/collects/racket/ |
| H A D | linklet.rkt | 2 (require '#%linklet)
4 (provide linklet?
6 compile-linklet
7 recompile-linklet
8 eval-linklet
9 instantiate-linklet
14 linklet-directory?
18 linklet-bundle?
19 hash->linklet-bundle
20 linklet-bundle->hash
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/src/expander/eval/ |
| H A D | main.rkt | 30 "../compile/correlated-linklet.rkt")
72 (define to-correlated-linklet? (and serializable?
89 … #:to-correlated-linklet? to-correlated-linklet?)))
96 #:to-correlated-linklet? to-correlated-linklet?
105 #:to-correlated-linklet? to-correlated-linklet?)
112 #:to-correlated-linklet? to-correlated-linklet?)]
116 #:to-correlated-linklet? to-correlated-linklet?
123 #:to-correlated-linklet? to-correlated-linklet?)])))
138 … #:to-correlated-linklet? to-correlated-linklet?))
145 #:to-correlated-linklet? [to-correlated-linklet? #f])
[all …]
|
| /dports/lang/racket/racket-8.3/src/expander/eval/ |
| H A D | main.rkt | 30 "../compile/correlated-linklet.rkt")
72 (define to-correlated-linklet? (and serializable?
89 … #:to-correlated-linklet? to-correlated-linklet?)))
96 #:to-correlated-linklet? to-correlated-linklet?
105 #:to-correlated-linklet? to-correlated-linklet?)
112 #:to-correlated-linklet? to-correlated-linklet?)]
116 #:to-correlated-linklet? to-correlated-linklet?
123 #:to-correlated-linklet? to-correlated-linklet?)])))
138 … #:to-correlated-linklet? to-correlated-linklet?))
145 #:to-correlated-linklet? [to-correlated-linklet? #f])
[all …]
|
| /dports/lang/racket/racket-8.3/src/cs/ |
| H A D | schemify.sls | 2 (export schemify-linklet
3 jitify-schemified-linklet
6 interpretable-jitified-linklet
7 interpret-linklet
8 linklet-bigger-than?
23 [correlated? rumble:correlated?]
24 [correlated-e rumble:correlated-e]
30 [correlated-line rumble:correlated-line]
91 (include "primitive/linklet.ss")
92 (let ([knowns (make-hashtable equal-hash equal?)])
[all …]
|
| H A D | expander.sls | 14 [correlated? syntax?]
16 [correlated-line syntax-line]
20 [correlated-e syntax-e]
31 (linklet))
39 (define user-installed-tables (make-hasheq))
45 [(|#%linklet|) linklet-table]
47 [(|#%read|) (make-hasheq)]
64 (let ([ht (make-hasheq)])
79 (include "primitive/linklet.ss")
100 ;; For interpretation of the outer shell of a linklet:
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/src/cs/ |
| H A D | schemify.sls | 2 (export schemify-linklet
3 jitify-schemified-linklet
6 interpretable-jitified-linklet
7 interpret-linklet
8 linklet-bigger-than?
23 [correlated? rumble:correlated?]
24 [correlated-e rumble:correlated-e]
30 [correlated-line rumble:correlated-line]
91 (include "primitive/linklet.ss")
92 (let ([knowns (make-hashtable equal-hash equal?)])
[all …]
|
| H A D | expander.sls | 14 [correlated? syntax?]
16 [correlated-line syntax-line]
20 [correlated-e syntax-e]
31 (linklet))
39 (define user-installed-tables (make-hasheq))
45 [(|#%linklet|) linklet-table]
47 [(|#%read|) (make-hasheq)]
64 (let ([ht (make-hasheq)])
79 (include "primitive/linklet.ss")
100 ;; For interpretation of the outer shell of a linklet:
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/compiler-lib/compiler/private/ |
| H A D | deserialize.rkt | 5 compiler/faslable-correlated)
15 (struct-out faslable-correlated-linklet)
16 strip-correlated)
22 (define gen (make-vector (vector-length gen-vec) #f))
45 (define shared-vs (make-vector num-shared #f))
124 (make-instance 'deserialize #f 'constant
131 (define (make-eager-instance)
132 (make-instance 'instance #f 'constant
150 [(faslable-correlated-linklet? l)
151 (compile-linklet (strip-correlated (faslable-correlated-linklet-expr l))
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/racket-doc/scribblings/reference/ |
| H A D | linklet.scrbl | 53 instance} can be synthesized directly with @racket[make-instance].
62 @tech{correlated object}, the grammar of a linklet as recognized by
120 @defproc*[([(compile-linklet [form (or/c correlated? any/c)]
128 [(compile-linklet [form (or/c correlated? any/c)]
379 @defproc[(make-instance [name any/c]
401 the first value provided to @racket[make-instance] or the name of a
408 the second value provided to @racket[make-instance] or the default
517 @defproc[(correlated-line [crlt correlated?])
519 @defproc[(correlated-column [crlt correlated?])
523 @defproc[(correlated-span [crlt correlated?])
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/src/schemify/ |
| H A D | schemify-demo.rkt | 3 (only-in racket/linklet
4 datum->correlated
5 correlated?
6 correlated-e)
12 (let ([ns (make-base-namespace)])
56 (datum->correlated (map wrap p))]
60 (datum->correlated p)]))
64 [(correlated? p) (unwrap (correlated-e p))]
69 (schemify-linklet `(linklet
76 (make-struct-type 's #f 2 0 #f))
[all …]
|
| /dports/lang/racket/racket-8.3/src/schemify/ |
| H A D | schemify-demo.rkt | 3 (only-in racket/linklet
4 datum->correlated
5 correlated?
6 correlated-e)
12 (let ([ns (make-base-namespace)])
56 (datum->correlated (map wrap p))]
60 (datum->correlated p)]))
64 [(correlated? p) (unwrap (correlated-e p))]
69 (schemify-linklet `(linklet
76 (make-struct-type 's #f 2 0 #f))
[all …]
|