| /dports/lang/racket/racket-8.3/src/cs/ |
| H A D | schemify.sls | 23 [correlated? rumble:correlated?]
24 [correlated-e rumble:correlated-e]
25 [correlated-property rumble:correlated-property]
27 [datum->correlated rumble:datum->correlated]
28 [correlated->datum rumble:correlated->datum]
29 [correlated-source rumble:correlated-source]
30 [correlated-line rumble:correlated-line]
31 [correlated-column rumble:correlated-column]
33 [correlated-span rumble:correlated-span])
50 'syntax-source rumble:correlated-source
[all …]
|
| H A D | expander.sls | 8 compile-keep-source-locations!)
14 [correlated? syntax?]
15 [correlated-source syntax-source]
16 [correlated-line syntax-line]
17 [correlated-column syntax-column]
18 [correlated-position syntax-position]
19 [correlated-span syntax-span]
20 [correlated-e syntax-e]
21 [correlated->datum syntax->datum]
22 [datum->correlated datum->syntax]
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/src/cs/ |
| H A D | schemify.sls | 23 [correlated? rumble:correlated?]
24 [correlated-e rumble:correlated-e]
25 [correlated-property rumble:correlated-property]
27 [datum->correlated rumble:datum->correlated]
28 [correlated->datum rumble:correlated->datum]
29 [correlated-source rumble:correlated-source]
30 [correlated-line rumble:correlated-line]
31 [correlated-column rumble:correlated-column]
33 [correlated-span rumble:correlated-span])
50 'syntax-source rumble:correlated-source
[all …]
|
| H A D | expander.sls | 8 compile-keep-source-locations!)
14 [correlated? syntax?]
15 [correlated-source syntax-source]
16 [correlated-line syntax-line]
17 [correlated-column syntax-column]
18 [correlated-position syntax-position]
19 [correlated-span syntax-span]
20 [correlated-e syntax-e]
21 [correlated->datum syntax->datum]
22 [datum->correlated datum->syntax]
[all …]
|
| /dports/lang/racket/racket-8.3/src/cs/linklet/ |
| H A D | annotation.ss | 18 …[(correlated? v) (let-values ([(e stripped-e) (correlated->annotation* (correlated-e v) serializab…
41 [(correlated? name) (correlated-e name)]
46 (let ([src (correlated-source v)]
56 … (make-source-object (source->sfd src serializable? sfd-cache) pos (+ pos span) line (add1 column))
57 … (make-source-object (source->sfd src serializable? sfd-cache) pos (+ pos span)))
73 (define (source->sfd src serializable? sfd-cache)
76 ;; We'll use a file-position object in source objects, so
78 (let ([sfd (source-file-descriptor
81 ;; to the containing source can be preserved):
105 ;; A correlated might have a srcloc that has a source that cannot be
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/src/cs/linklet/ |
| H A D | annotation.ss | 18 …[(correlated? v) (let-values ([(e stripped-e) (correlated->annotation* (correlated-e v) serializab…
41 [(correlated? name) (correlated-e name)]
46 (let ([src (correlated-source v)]
56 … (make-source-object (source->sfd src serializable? sfd-cache) pos (+ pos span) line (add1 column))
57 … (make-source-object (source->sfd src serializable? sfd-cache) pos (+ pos span)))
73 (define (source->sfd src serializable? sfd-cache)
76 ;; We'll use a file-position object in source objects, so
78 (let ([sfd (source-file-descriptor
81 ;; to the containing source can be preserved):
105 ;; A correlated might have a srcloc that has a source that cannot be
[all …]
|
| /dports/lang/racket/racket-8.3/collects/racket/ |
| H A D | linklet.rkt | 35 correlated?
36 datum->correlated
37 correlated->datum
38 correlated-e
42 correlated-source
43 correlated-line
46 correlated-span)
61 syntax-source
67 (define (correlated? e)
73 (define (correlated-e e)
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/collects/racket/ |
| H A D | linklet.rkt | 35 correlated?
36 datum->correlated
37 correlated->datum
38 correlated-e
42 correlated-source
43 correlated-line
46 correlated-span)
61 syntax-source
67 (define (correlated? e)
73 (define (correlated-e e)
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/src/schemify/ |
| H A D | wrap.rkt | 12 wrap-source
18 [syntax? correlated?]
22 [syntax-source correlated-source]
29 (if (correlated? v)
30 (correlated-e v)
34 (correlated? v))
44 [(correlated? v) (unwrap-list (correlated-e v))]
48 (if (correlated? v)
66 [(correlated? v) (wrap-list? (correlated-e v))]
92 (define (wrap-source a)
[all …]
|
| /dports/lang/racket/racket-8.3/src/schemify/ |
| H A D | wrap.rkt | 12 wrap-source
18 [syntax? correlated?]
22 [syntax-source correlated-source]
29 (if (correlated? v)
30 (correlated-e v)
34 (correlated? v))
44 [(correlated? v) (unwrap-list (correlated-e v))]
48 (if (correlated? v)
66 [(correlated? v) (wrap-list? (correlated-e v))]
92 (define (wrap-source a)
[all …]
|
| /dports/lang/racket/racket-8.3/src/expander/host/ |
| H A D | correlate.rkt | 7 ;; `compile-linklet`, which is an S-expression with source locations
13 ;; `correlated?`, `datum->correlated`, etc. Additionally,
22 ;; ignores all but the contained datum, the properties, and the source
38 correlated?
40 correlated-e
41 correlated-cadr
49 correlated-source
50 correlated-line
62 (define (correlated? e)
74 (car (correlated-e (cdr (correlated-e e)))))
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/src/expander/host/ |
| H A D | correlate.rkt | 7 ;; `compile-linklet`, which is an S-expression with source locations
13 ;; `correlated?`, `datum->correlated`, etc. Additionally,
22 ;; ignores all but the contained datum, the properties, and the source
38 correlated?
40 correlated-e
41 correlated-cadr
49 correlated-source
50 correlated-line
62 (define (correlated? e)
74 (car (correlated-e (cdr (correlated-e e)))))
[all …]
|
| /dports/lang/racket/racket-8.3/src/cs/rumble/ |
| H A D | correlated.ss | 2 ;; This correlated-like layer is meant to be for just source locations
12 (define/who datum->correlated
42 [(correlated? e) (correlated->datum (correlated-e e))]
62 (make-correlated (correlated-e v)
71 (define (correlated-source v)
72 (correlated-srcloc-field 'correlated-source v srcloc-source))
74 (correlated-srcloc-field 'correlated-line v srcloc-line))
76 (correlated-srcloc-field 'correlated-column v srcloc-column))
78 (correlated-srcloc-field 'correlated-position v srcloc-position))
80 (correlated-srcloc-field 'correlated-span v srcloc-span))
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/src/cs/rumble/ |
| H A D | correlated.ss | 2 ;; This correlated-like layer is meant to be for just source locations
12 (define/who datum->correlated
42 [(correlated? e) (correlated->datum (correlated-e e))]
62 (make-correlated (correlated-e v)
71 (define (correlated-source v)
72 (correlated-srcloc-field 'correlated-source v srcloc-source))
74 (correlated-srcloc-field 'correlated-line v srcloc-line))
76 (correlated-srcloc-field 'correlated-column v srcloc-column))
78 (correlated-srcloc-field 'correlated-position v srcloc-position))
80 (correlated-srcloc-field 'correlated-span v srcloc-span))
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/src/expander/compile/ |
| H A D | correlated-linklet.rkt | 6 (provide correlated-linklet?
7 make-correlated-linklet
37 ;; Ignore compiled version, if any, and evaluate from correlated source:
56 (struct faslable-correlated (e source position line column span props)
76 [(correlated? v)
77 (faslable-correlated
79 (correlated-source v)
81 (correlated-line v)
104 (faslable-correlated-linklet (->faslable (correlated-linklet-expr v))
124 (define c (datum->correlated (faslable-> (faslable-correlated-e v))
[all …]
|
| H A D | correlate.rkt | 10 ;; a "correlated")
15 ->correlated
16 correlate-source-name
19 keep-source-locations?)
21 (define keep-source-locations? #f)
25 (datum->correlated s-exp (srcloc->vector (syntax-srcloc stx)))
35 (if keep-source-locations?
39 (define (->correlated s)
40 (datum->correlated s #f))
45 (correlated-property (datum->correlated sym #f)
[all …]
|
| /dports/lang/racket/racket-8.3/src/expander/compile/ |
| H A D | correlated-linklet.rkt | 6 (provide correlated-linklet?
7 make-correlated-linklet
37 ;; Ignore compiled version, if any, and evaluate from correlated source:
56 (struct faslable-correlated (e source position line column span props)
76 [(correlated? v)
77 (faslable-correlated
79 (correlated-source v)
81 (correlated-line v)
104 (faslable-correlated-linklet (->faslable (correlated-linklet-expr v))
124 (define c (datum->correlated (faslable-> (faslable-correlated-e v))
[all …]
|
| H A D | correlate.rkt | 10 ;; a "correlated")
15 ->correlated
16 correlate-source-name
19 keep-source-locations?)
21 (define keep-source-locations? #f)
25 (datum->correlated s-exp (srcloc->vector (syntax-srcloc stx)))
35 (if keep-source-locations?
39 (define (->correlated s)
40 (datum->correlated s #f))
45 (correlated-property (datum->correlated sym #f)
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/src/cs/expander/ |
| H A D | env.ss | 3 [correlated? syntax?]
4 [correlated-source syntax-source]
5 [correlated-line syntax-line]
6 [correlated-column syntax-column]
7 [correlated-position syntax-position]
8 [correlated-span syntax-span]
9 [correlated-e syntax-e]
10 [correlated->datum syntax->datum]
11 [datum->correlated datum->syntax]
12 [correlated-property syntax-property]
[all …]
|
| /dports/lang/racket/racket-8.3/src/cs/expander/ |
| H A D | env.ss | 3 [correlated? syntax?]
4 [correlated-source syntax-source]
5 [correlated-line syntax-line]
6 [correlated-column syntax-column]
7 [correlated-position syntax-position]
8 [correlated-span syntax-span]
9 [correlated-e syntax-e]
10 [correlated->datum syntax->datum]
11 [datum->correlated datum->syntax]
12 [correlated-property syntax-property]
[all …]
|
| /dports/lang/racket/racket-8.3/src/expander/run/ |
| H A D | linklet.rkt | 35 ;; needs to be replaced with a variant that "compiles" to source.
53 (struct source-linklet linklet (src) #:prefab)
322 (source-linklet (marshal (correlated->datum/lambda-name c)))]
366 [(source-linklet? cl)
367 ;; Previously "compiled" to source:
375 ;; Check whether we previously compiled a linket to source
377 (source-linklet? cl))
380 (source-linklet-src cl))
400 ;; Previously "compiled" to source
407 ;; Previously "compiled" to source
[all …]
|
| H A D | correlated-to-host-syntax.rkt | 8 (provide correlated->host-syntax)
10 (define (correlated->host-syntax v)
14 [(correlated? v)
15 (define e (correlated->host-syntax (correlated-e v)))
18 (vector (correlated-source v)
19 (correlated-line v)
20 (correlated-column v)
21 (correlated-position v)
22 (correlated-span v))))
23 (define keys (correlated-property-symbol-keys v))
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/src/expander/run/ |
| H A D | linklet.rkt | 35 ;; needs to be replaced with a variant that "compiles" to source.
53 (struct source-linklet linklet (src) #:prefab)
322 (source-linklet (marshal (correlated->datum/lambda-name c)))]
366 [(source-linklet? cl)
367 ;; Previously "compiled" to source:
375 ;; Check whether we previously compiled a linket to source
377 (source-linklet? cl))
380 (source-linklet-src cl))
400 ;; Previously "compiled" to source
407 ;; Previously "compiled" to source
[all …]
|
| H A D | correlated-to-host-syntax.rkt | 8 (provide correlated->host-syntax)
10 (define (correlated->host-syntax v)
14 [(correlated? v)
15 (define e (correlated->host-syntax (correlated-e v)))
18 (vector (correlated-source v)
19 (correlated-line v)
20 (correlated-column v)
21 (correlated-position v)
22 (correlated-span v))))
23 (define keys (correlated-property-symbol-keys v))
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/zo-lib/compiler/ |
| H A D | faslable-correlated.rkt | 3 (provide (struct-out faslable-correlated-linklet)
4 (struct-out faslable-correlated)
5 strip-correlated)
7 (struct faslable-correlated-linklet (expr name)
10 (struct faslable-correlated (e source position line column span props)
13 (define (strip-correlated v)
19 [(faslable-correlated? v)
20 (strip (faslable-correlated-e v))]
|