| /dports/lang/racket/racket-8.3/collects/racket/ |
| H A D | serialize.rkt | 114 [make-deserialize-id (lambda (vers)
121 [deserialize-id (make-deserialize-id #'vers)]
122 [other-deserialize-ids (map make-deserialize-id
162 (quote-syntax #,deserialize-id)
169 (define #,deserialize-id
170 (make-deserialize-info
248 other-deserialize-ids
256 #'(module+ deserialize-info))
257 #,@(map (lambda (deserialize-id)
265 (cons deserialize-id
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/collects/racket/ |
| H A D | serialize.rkt | 114 [make-deserialize-id (lambda (vers)
121 [deserialize-id (make-deserialize-id #'vers)]
122 [other-deserialize-ids (map make-deserialize-id
162 (quote-syntax #,deserialize-id)
169 (define #,deserialize-id
170 (make-deserialize-info
248 other-deserialize-ids
256 #'(module+ deserialize-info))
257 #,@(map (lambda (deserialize-id)
265 (cons deserialize-id
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/serialize-cstruct-lib/ffi/ |
| H A D | serialize-cstruct.rkt | 3 (require (for-syntax racket/base
4 racket/syntax
6 syntax/parse
7 syntax/stx)
25 (define-syntax (define-serializable-cstruct stx)
26 (syntax-parse stx
64 (if (zero? (syntax-e vers))
69 (if (zero? (syntax-e vers))
125 (quote-syntax deser-ID)
142 #,@(if (eq? (syntax-local-context) 'module)
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/compatibility-lib/mzlib/ |
| H A D | serialize.rkt | 2 (require-for-syntax syntax/struct)
17 (define-values (prop:internal-deserialize internal-deserialize? internal-deserialize-info)
62 (quote-syntax #,deserialize-id)
66 (let ([b (identifier-binding (quote-syntax #,deserialize-id))])
68 (cons '#,deserialize-id (caddr b))
69 '#,deserialize-id))
82 prop:internal-deserialize
342 (with-syntax ([deserializer-id (make-deserialize-name id version-num)]
355 (make-deserialize-info
361 (with-syntax ([deserializer-id (make-deserialize-name id (car other-version))])
[all …]
|
| /dports/lang/racket/racket-8.3/src/expander/syntax/ |
| H A D | serialize.rkt | 3 "../syntax/syntax.rkt"
9 (provide syntax-serialize
10 syntax-deserialize)
15 (define/who (syntax-serialize stx
19 (check who syntax? stx)
28 (define data (generate-deserialize stx
38 (serialized-syntax (version)
39 (generate-module-path-index-deserialize mpis #:as-data? #t)
44 (define/who (syntax-deserialize data [base-mpi #f])
56 (define orig-mpis (deserialize-module-path-index-data (serialized-syntax-mpis data)))
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/src/expander/syntax/ |
| H A D | serialize.rkt | 3 "../syntax/syntax.rkt"
9 (provide syntax-serialize
10 syntax-deserialize)
15 (define/who (syntax-serialize stx
19 (check who syntax? stx)
28 (define data (generate-deserialize stx
38 (serialized-syntax (version)
39 (generate-module-path-index-deserialize mpis #:as-data? #t)
44 (define/who (syntax-deserialize data [base-mpi #f])
56 (define orig-mpis (deserialize-module-path-index-data (serialized-syntax-mpis data)))
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/compiler-lib/compiler/private/ |
| H A D | deserialize.rkt | 10 (provide deserialize-instance
19 (struct provided (binding protected? syntax?))
117 (define (syntax-module-path-index-shift . args)
118 (error 'syntax-module-path-index-shift "not supported"))
120 (define (syntax-shift-phase-level . args)
121 (error 'syntax-shift-phase-level "not supported"))
123 (define deserialize-instance
125 'deserialize-module-path-indexes deserialize-module-path-indexes
126 'syntax-module-path-index-shift syntax-module-path-index-shift
127 'syntax-shift-phase-level syntax-shift-phase-level
[all …]
|
| /dports/lang/racket/racket-8.3/collects/racket/private/ |
| H A D | kw-syntax-serialize.rkt | 1 (module kw-syntax-binding "pre-base.rkt"
4 (provide syntax-serialize
5 syntax-deserialize)
7 (define (syntax-serialize stx
11 (k:syntax-serialize stx base-mpi preserve-prop-keys provides-namespace))
13 (define (syntax-deserialize data
15 (k:syntax-deserialize data base-mpi)))
|
| /dports/lang/racket-minimal/racket-8.3/collects/racket/private/ |
| H A D | kw-syntax-serialize.rkt | 1 (module kw-syntax-binding "pre-base.rkt"
4 (provide syntax-serialize
5 syntax-deserialize)
7 (define (syntax-serialize stx
11 (k:syntax-serialize stx base-mpi preserve-prop-keys provides-namespace))
13 (define (syntax-deserialize data
15 (k:syntax-deserialize data base-mpi)))
|
| /dports/lang/racket-minimal/racket-8.3/src/expander/compile/ |
| H A D | serialize.rkt | 2 (require (for-syntax racket/base)
7 "../syntax/syntax.rkt"
189 (error 'syntax-deserialize "ill-formed serialization"))
243 (define-values (requires) ,(generate-deserialize requires #:mpis mpis #:syntax-support? #f))
244 (define-values (provides) ,(generate-deserialize provides #:mpis mpis #:syntax-support? #f))
729 (error 'syntax-deserialize "ill-formed serialization"))
771 [(#:syntax)
774 (deserialize-syntax content
783 (deserialize-datum->syntax content
790 (deserialize-syntax content
[all …]
|
| H A D | reserved-symbol.rkt | 10 syntax-literals-id
11 get-syntax-literal!-id
14 deserialize-syntax-id
15 deserialized-syntax-vector-id
25 (define syntax-literals-id (make-built-in-symbol! 'syntax-literals))
26 (define get-syntax-literal!-id (make-built-in-symbol! 'get-syntax-literal!))
29 (define deserialize-syntax-id (make-built-in-symbol! 'deserialize-syntax))
30 (define deserialized-syntax-vector-id (make-built-in-symbol! 'deserialized-syntax-vector))
|
| H A D | header.rkt | 99 ;; using `deserialize-syntax-literal-data` (shared among module
103 #:skip-deserialize? [skip-deserialize? #f])
112 ,@(if skip-deserialize?
116 (,deserialize-syntax-id ,bulk-binding-registry-id))))
137 ;; result defines `deserialize-syntax-id`
141 `((define-values (,deserialize-syntax-id) #f))]
143 `((define-values (,deserialize-syntax-id)
160 ,(generate-deserialize (vector->immutable-vector
164 (set! ,deserialize-syntax-id #f)))))]))
178 `(let-values ([(ns+stxss) ,(generate-deserialize (cons
[all …]
|
| H A D | top.rkt | 4 "../syntax/scope.rkt"
5 "../syntax/taint.rkt"
59 syntax-literals
98 ;; deserialize module path indexes, syntax objects, etc.
103 syntax-literals
118 (vector deserialize-instance
124 (,deserialize-imports
130 ,syntax-literals-id)
132 ,(generate-module-path-index-deserialize mpis))
136 (define-values (,syntax-literals-id) ,syntax-literals-expr))))
[all …]
|
| /dports/lang/racket/racket-8.3/src/expander/compile/ |
| H A D | serialize.rkt | 2 (require (for-syntax racket/base)
7 "../syntax/syntax.rkt"
189 (error 'syntax-deserialize "ill-formed serialization"))
243 (define-values (requires) ,(generate-deserialize requires #:mpis mpis #:syntax-support? #f))
244 (define-values (provides) ,(generate-deserialize provides #:mpis mpis #:syntax-support? #f))
729 (error 'syntax-deserialize "ill-formed serialization"))
771 [(#:syntax)
774 (deserialize-syntax content
783 (deserialize-datum->syntax content
790 (deserialize-syntax content
[all …]
|
| H A D | reserved-symbol.rkt | 10 syntax-literals-id
11 get-syntax-literal!-id
14 deserialize-syntax-id
15 deserialized-syntax-vector-id
25 (define syntax-literals-id (make-built-in-symbol! 'syntax-literals))
26 (define get-syntax-literal!-id (make-built-in-symbol! 'get-syntax-literal!))
29 (define deserialize-syntax-id (make-built-in-symbol! 'deserialize-syntax))
30 (define deserialized-syntax-vector-id (make-built-in-symbol! 'deserialized-syntax-vector))
|
| H A D | header.rkt | 99 ;; using `deserialize-syntax-literal-data` (shared among module
103 #:skip-deserialize? [skip-deserialize? #f])
112 ,@(if skip-deserialize?
116 (,deserialize-syntax-id ,bulk-binding-registry-id))))
137 ;; result defines `deserialize-syntax-id`
141 `((define-values (,deserialize-syntax-id) #f))]
143 `((define-values (,deserialize-syntax-id)
160 ,(generate-deserialize (vector->immutable-vector
164 (set! ,deserialize-syntax-id #f)))))]))
178 `(let-values ([(ns+stxss) ,(generate-deserialize (cons
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/src/expander/eval/ |
| H A D | module.rkt | 54 (list deserialize-instance
158 … (force-syntax-deserialize syntax-literals-data-instance bulk-binding-registry))
266 (force-syntax-deserialize syntax-literals-data-instance bulk-binding-registry))
280 (list deserialize-instance
311 (define (force-syntax-deserialize syntax-literals-data-instance bulk-binding-registry)
315 …(let ([deserialize-syntax (instance-variable-value syntax-literals-data-instance deserialize-synta…
317 ;; `deserialize-syntax` has been set to #f
318 (when deserialize-syntax
319 (deserialize-syntax bulk-binding-registry)))))
373 (list deserialize-instance
[all …]
|
| /dports/lang/racket/racket-8.3/src/expander/eval/ |
| H A D | module.rkt | 54 (list deserialize-instance
158 … (force-syntax-deserialize syntax-literals-data-instance bulk-binding-registry))
266 (force-syntax-deserialize syntax-literals-data-instance bulk-binding-registry))
280 (list deserialize-instance
311 (define (force-syntax-deserialize syntax-literals-data-instance bulk-binding-registry)
315 …(let ([deserialize-syntax (instance-variable-value syntax-literals-data-instance deserialize-synta…
317 ;; `deserialize-syntax` has been set to #f
318 (when deserialize-syntax
319 (deserialize-syntax bulk-binding-registry)))))
373 (list deserialize-instance
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/web-server-lib/web-server/lang/ |
| H A D | closure.rkt | 3 syntax/free-vars
4 racket/syntax
13 (syntax-local-lift-expression
17 (syntax-local-lift-expression
25 (define CLOSURE:deserialize-info-id
28 (make-deserialize-info
40 (#%plain-lambda () (error 'deserialize "closure not initialized")))])
58 (quote-syntax #,CLOSURE:deserialize-info-id)
108 (syntax-local-lift-provide
110 #,CLOSURE:deserialize-info-id))
[all …]
|
| H A D | serial-lambda.rkt | 5 (for-syntax racket/base
9 (define-syntax (serial-lambda stx)
10 (syntax-case stx ()
12 (let ([labeling (make-labeling (string->bytes/utf-8 (format "~a" (syntax->datum stx))))])
17 (define-syntax (serial-case-lambda stx)
18 (syntax-case stx ()
20 (let ([labeling (make-labeling (string->bytes/utf-8 (format "~a" (syntax->datum stx))))])
29 [closure->deserialize-name (serializable? . -> . symbol?)])
30 (define (closure->deserialize-name proc)
|
| /dports/lang/racket/racket-8.3/share/pkgs/racket-doc/scribblings/reference/ |
| H A D | stx-serialize.scrbl | 8 @defproc[(syntax-serialize [stx syntax?]
17 then writing the compiled form, @racket[syntax-serialize] provides
28 @racket[syntax-property] for a preserved property.}
31 the serialized syntax object can rely on @deftech{bulk
38 @racket[provides-namespace] (i.e., the deserialize-time
56 deserialize time. If @racket[base-module-path-index] is
57 @racket[#f], then no shifting is supported at deserialize time,
69 @defproc[(syntax-deserialize [v any/c]
71 syntax?]{
73 Converts the result of @racket[syntax-serialize] back to a syntax
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/src/expander/namespace/ |
| H A D | provided.rkt | 9 deserialize-provided)
11 ;; Wrapper for provides that are protected or syntax
12 (struct provided (binding protected? syntax?)
20 (ser-push! (provided-syntax? p))))
27 (and (provided? v) (provided-syntax? v)))
29 (define (deserialize-provided binding protected? syntax?)
30 (provided binding protected? syntax?))
|
| /dports/lang/racket/racket-8.3/src/expander/namespace/ |
| H A D | provided.rkt | 9 deserialize-provided)
11 ;; Wrapper for provides that are protected or syntax
12 (struct provided (binding protected? syntax?)
20 (ser-push! (provided-syntax? p))))
27 (and (provided? v) (provided-syntax? v)))
29 (define (deserialize-provided binding protected? syntax?)
30 (provided binding protected? syntax?))
|
| /dports/lang/racket/racket-8.3/share/pkgs/compiler-lib/compiler/demodularizer/ |
| H A D | bundle.rkt | 16 any-syntax-literals?
30 (list* (if any-syntax-literals? '(.get-syntax-literal!) '())
35 (list* (if any-syntax-literals? (list (function-shape 1 #f)) '())
48 `(linklet ,(list* (if any-syntax-literals? '(.get-syntax-literal!) '())
102 '((deserialize-module-path-indexes))
117 `(linklet ((deserialize-module-path-indexes))
120 (deserialize-module-path-indexes (quote ,(car serialized-mpis))
168 (let ([deserialize-pos 1]
173 '((deserialize
206 `(linklet ((deserialize
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/slideshow-doc/scribblings/quick/images/ |
| H A D | exprs.dat | 4 ((3) 1 (((lib "scribble/core.rkt") . deserialize-info:image-element-v0)) 0 () () (0 #f (q "[image]"…
5 ((3) 0 () 0 () () (q define-syntax pict+code (syntax-rules () ((pict+code expr) (hc-append 10 expr …
8 ((3) 1 (((lib "scribble/core.rkt") . deserialize-info:image-element-v0)) 0 () () (0 #f (q "[image]"…
22 ((3) 1 (((lib "scribble/core.rkt") . deserialize-info:element-v0)) 0 () () (0 #f (c (u . "#(struct:…
24 ((3) 1 (((lib "scribble/core.rkt") . deserialize-info:element-v0)) 0 () () (0 #f (c (u . "#(struct:…
26 ((3) 1 (((lib "scribble/core.rkt") . deserialize-info:image-element-v0)) 0 () () (0 #f (q "[image]"…
|