| /dports/lang/racket/racket-8.3/collects/racket/ |
| H A D | fasl.rkt | 77 (fasl-immutable-string-type 19)
79 (fasl-immutable-bytes-type 21)
92 (fasl-immutable-vector-type 32)
93 (fasl-box-type 33)
94 (fasl-immutable-box-type 34)
97 (fasl-immutable-hash-type 37)
277 … (write-fasl-integer (if (treat-immutable? v) fasl-immutable-bytes-type fasl-bytes-type) o)
338 (write-byte (if (treat-immutable? v) fasl-immutable-box-type fasl-box-type) o)
349 (write-byte (if (treat-immutable? v) fasl-immutable-hash-type fasl-hash-type) o)
499 [(fasl-box-type) (box (loop))]
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/collects/racket/ |
| H A D | fasl.rkt | 77 (fasl-immutable-string-type 19)
79 (fasl-immutable-bytes-type 21)
92 (fasl-immutable-vector-type 32)
93 (fasl-box-type 33)
94 (fasl-immutable-box-type 34)
97 (fasl-immutable-hash-type 37)
277 … (write-fasl-integer (if (treat-immutable? v) fasl-immutable-bytes-type fasl-bytes-type) o)
338 (write-byte (if (treat-immutable? v) fasl-immutable-box-type fasl-box-type) o)
349 (write-byte (if (treat-immutable? v) fasl-immutable-hash-type fasl-hash-type) o)
499 [(fasl-box-type) (box (loop))]
[all …]
|
| /dports/lang/chez-scheme/ChezScheme-9.5.4/s/ |
| H A D | fasl.ss | 93 (define bld-box
166 [(box? x) (bld-graph x t a? bld-box)]
262 (constant fasl-type-immutable-string)
269 (constant fasl-type-immutable-vector)
281 (constant fasl-type-immutable-fxvector)
293 (constant fasl-type-immutable-bytevector)
492 (define wrf-box
494 (put-u8 p (if (immutable-box? x)
495 (constant fasl-type-immutable-box)
496 (constant fasl-type-box)))
[all …]
|
| H A D | cmacros.ss | 416 (define-constant fasl-type-box 1)
453 (define-constant fasl-type-immutable-vector 37)
454 (define-constant fasl-type-immutable-string 38)
455 (define-constant fasl-type-immutable-fxvector 39)
456 (define-constant fasl-type-immutable-bytevector 40)
457 (define-constant fasl-type-immutable-box 41)
753 (define-constant type-immutable-box #b10001110) ; low 7 bits match `type-box`
938 (define-constant type-immutable-vector
944 (define-constant type-immutable-string
961 (define-constant type-mutable-box (constant type-box))
[all …]
|
| H A D | strip.ss | 132 [(fasl-type-visit fasl-type-revisit fasl-type-visit-revisit)
137 [(fasl-type-gzip fasl-type-lz4)
173 (fasl-type-case ty
210 [(fasl-type-box fasl-type-immutable-box) (fasl-tuple ty (vector (read-fasl p g)))]
215 [(fasl-type-ratnum fasl-type-exactnum fasl-type-inexactnum fasl-type-weak-pair)
218 … [(fasl-type-vector fasl-type-immutable-vector) (fasl-vector ty (read-vfasl p g (read-uptr p)))]
219 [(fasl-type-fxvector fasl-type-immutable-fxvector)
227 [(fasl-type-bytevector fasl-type-immutable-bytevector)
240 [(fasl-type-string fasl-type-immutable-string) (fasl-string ty (read-string p))]
287 [(fasl-type-immediate fasl-type-entry fasl-type-library fasl-type-library-code)
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/src/ChezScheme/s/ |
| H A D | fasl.ss | 47 (fields (mutable count) (immutable hash)
112 (define bld-box
212 [(box? x) (bld-graph x t a? d #t bld-box)]
309 (constant fasl-type-immutable-string)
316 (constant fasl-type-immutable-vector)
348 (constant fasl-type-immutable-bytevector)
571 (define wrf-box
573 (put-u8 p (if (immutable-box? x)
574 (constant fasl-type-immutable-box)
575 (constant fasl-type-box)))
[all …]
|
| H A D | vfasl.ss | 217 (fasl-tuple (constant fasl-type-box) (vector v)))
231 [(fasl-type-box) (enbox v)]
577 [(fasl-type-box fasl-type-immutable-box)
584 (if (eqv? ty (constant fasl-type-immutable-box))
585 (constant type-immutable-box)
636 (let ([immutable? (eqv? ty (constant fasl-type-immutable-string))])
664 [(fasl-type-immutable-vector)
670 [(fasl-type-vector fasl-type-immutable-vector)
713 (make-vsingleton (if (eqv? ty (constant fasl-type-immutable-bytevector))
828 (eqv? ty (constant fasl-type-immutable-string)))
[all …]
|
| H A D | strip.ss | 110 [(fasl-type-visit fasl-type-revisit fasl-type-visit-revisit)
118 [(fasl-type-gzip fasl-type-lz4)
191 [(fasl-type-box fasl-type-immutable-box) (fasl-tuple ty (vector (read-fasl p g)))]
196 [(fasl-type-ratnum fasl-type-exactnum fasl-type-inexactnum
200 [(fasl-type-vector fasl-type-immutable-vector fasl-type-flvector)
209 [(fasl-type-bytevector fasl-type-immutable-bytevector)
229 [(fasl-type-string fasl-type-immutable-string) (fasl-string ty (read-string p))]
277 [(fasl-type-immediate fasl-type-entry fasl-type-library fasl-type-library-code)
393 (fields (mutable count) (immutable ht))
754 [(fasl-type-box fasl-type-immutable-box)
[all …]
|
| H A D | cmacros.ss | 485 (define-constant fasl-type-box 1)
522 (define-constant fasl-type-immutable-vector 37)
523 (define-constant fasl-type-immutable-string 38)
525 (define-constant fasl-type-immutable-bytevector 40)
526 (define-constant fasl-type-immutable-box 41)
534 (define-constant fasl-type-fasl 100)
871 (define-constant type-immutable-box #b10001110) ; low 7 bits match `type-box`
1120 (define-constant type-immutable-vector
1126 (define-constant type-immutable-string
1137 (define-constant type-mutable-box (constant type-box))
[all …]
|
| /dports/lang/racket/racket-8.3/src/ChezScheme/s/ |
| H A D | fasl.ss | 47 (fields (mutable count) (immutable hash)
112 (define bld-box
212 [(box? x) (bld-graph x t a? d #t bld-box)]
309 (constant fasl-type-immutable-string)
316 (constant fasl-type-immutable-vector)
348 (constant fasl-type-immutable-bytevector)
571 (define wrf-box
573 (put-u8 p (if (immutable-box? x)
574 (constant fasl-type-immutable-box)
575 (constant fasl-type-box)))
[all …]
|
| H A D | vfasl.ss | 217 (fasl-tuple (constant fasl-type-box) (vector v)))
231 [(fasl-type-box) (enbox v)]
577 [(fasl-type-box fasl-type-immutable-box)
584 (if (eqv? ty (constant fasl-type-immutable-box))
585 (constant type-immutable-box)
636 (let ([immutable? (eqv? ty (constant fasl-type-immutable-string))])
664 [(fasl-type-immutable-vector)
670 [(fasl-type-vector fasl-type-immutable-vector)
713 (make-vsingleton (if (eqv? ty (constant fasl-type-immutable-bytevector))
828 (eqv? ty (constant fasl-type-immutable-string)))
[all …]
|
| H A D | strip.ss | 110 [(fasl-type-visit fasl-type-revisit fasl-type-visit-revisit)
118 [(fasl-type-gzip fasl-type-lz4)
191 [(fasl-type-box fasl-type-immutable-box) (fasl-tuple ty (vector (read-fasl p g)))]
196 [(fasl-type-ratnum fasl-type-exactnum fasl-type-inexactnum
200 [(fasl-type-vector fasl-type-immutable-vector fasl-type-flvector)
209 [(fasl-type-bytevector fasl-type-immutable-bytevector)
229 [(fasl-type-string fasl-type-immutable-string) (fasl-string ty (read-string p))]
277 [(fasl-type-immediate fasl-type-entry fasl-type-library fasl-type-library-code)
393 (fields (mutable count) (immutable ht))
754 [(fasl-type-box fasl-type-immutable-box)
[all …]
|
| H A D | cmacros.ss | 485 (define-constant fasl-type-box 1)
522 (define-constant fasl-type-immutable-vector 37)
523 (define-constant fasl-type-immutable-string 38)
525 (define-constant fasl-type-immutable-bytevector 40)
526 (define-constant fasl-type-immutable-box 41)
534 (define-constant fasl-type-fasl 100)
871 (define-constant type-immutable-box #b10001110) ; low 7 bits match `type-box`
1120 (define-constant type-immutable-vector
1126 (define-constant type-immutable-string
1137 (define-constant type-mutable-box (constant type-box))
[all …]
|
| H A D | primdata.ss | 746 (immutable [flags])
1069 (fasl-strip-options [flags])
1165 (box [sig [(ptr) -> (box)]] [flags unrestricted alloc])
1167 (box-cas! [sig [(box ptr ptr) -> (boolean)]] [flags cptypes2])
1168 (box-immobile [sig [(ptr) -> (box)]] [flags unrestricted alloc])
1169 (box-immutable [sig [(ptr) -> (box)]] [flags unrestricted alloc])
1446 (immutable-box? [sig [(ptr) -> (boolean)]] [flags pure unrestricted mifoldable discard])
1666 (set-box! [sig [(box ptr) -> (void)]] [flags true cptypes2])
1761 (strip-fasl-file [sig [(pathname pathname fasl-strip-options) -> (void)]] [flags true])
1969 ($fasl-out [flags single-valued])
[all …]
|
| /dports/lang/racket/racket-8.3/src/ChezScheme/mats/ |
| H A D | misc.ms | 4927 (mat fasl-immutable
4932 (box-immutable 1)
4940 (box-immutable 1)))
4945 (immutable-box? (list-ref l 3))))
4949 (immutable? (fasl-read (open-bytevector-input-port (get))))))
4951 (compile-to-file (list `(set! fasl-immutable-round-trip ',l)) "testfile-immut-sff.so")
4954 (let ([l2 (eval 'fasl-immutable-round-trip)])
4967 (immutable? immutable-objs)
5215 (box? (box-immobile 10))
5227 (let* ([b (box-immobile (format "box ~a" i))]
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/src/ChezScheme/mats/ |
| H A D | misc.ms | 4927 (mat fasl-immutable
4932 (box-immutable 1)
4940 (box-immutable 1)))
4945 (immutable-box? (list-ref l 3))))
4949 (immutable? (fasl-read (open-bytevector-input-port (get))))))
4951 (compile-to-file (list `(set! fasl-immutable-round-trip ',l)) "testfile-immut-sff.so")
4954 (let ([l2 (eval 'fasl-immutable-round-trip)])
4967 (immutable? immutable-objs)
5215 (box? (box-immobile 10))
5227 (let* ([b (box-immobile (format "box ~a" i))]
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/racket-doc/scribblings/reference/ |
| H A D | serialization.scrbl | 2 @(require "mz.rkt" racket/serialize (for-label racket/serialize racket/fasl))
36 @racket[write] or @racket[s-exp->fasl], later read from a stream using
37 @racket[read] or @racket[fasl->s-exp], and then converted to a value
160 either a box or not:
182 @item{@racket['b] for a box;}
297 immutable pair.}
311 immutable vector.}
327 box.}
331 box.}
471 is missing, the structure type will be treated as immutable for the
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/src/ChezScheme/rktboot/ |
| H A D | scheme-lang.rkt | 275 immutable-box?
282 fasl-compressed
920 [($capture-fasl-target)
1072 ;; to immutable. For fasl purposes, claim all as mutable.
1076 (and any-immutable?
1081 (and any-immutable?
1086 (and any-immutable?
1090 (define (immutable-box? s)
1091 (and any-immutable?
1092 (box? s)
[all …]
|
| /dports/lang/racket/racket-8.3/src/ChezScheme/rktboot/ |
| H A D | scheme-lang.rkt | 275 immutable-box?
282 fasl-compressed
920 [($capture-fasl-target)
1072 ;; to immutable. For fasl purposes, claim all as mutable.
1076 (and any-immutable?
1081 (and any-immutable?
1086 (and any-immutable?
1090 (define (immutable-box? s)
1091 (and any-immutable?
1092 (box? s)
[all …]
|
| /dports/lang/chez-scheme/ChezScheme-9.5.4/mats/ |
| H A D | misc.ms | 1097 (define-record-type frob (fields x))
2508 [(5) (box (cons 3 4))]
4529 (mat fasl-immutable
4535 (box-immutable 1)))
4540 (box-immutable 1)))
4546 (immutable-box? (list-ref l 4))))
4550 (immutable? (fasl-read (open-bytevector-input-port (get))))))
4552 (compile-to-file (list `(set! fasl-immutable-round-trip ',l)) "testfile-immut-sff.so")
4555 (let ([l2 (eval 'fasl-immutable-round-trip)])
4560 (immutable? immutable-objs)
[all …]
|
| /dports/lang/chez-scheme/ChezScheme-9.5.4/csug/ |
| H A D | objects.stex | 1220 \index{\scheme{box-immutable}}\scheme{box-immutable}.
1221 Any attempt to modify an immutable box causes an exception to be raised.
1316 \formdef{immutable-box?}{\categoryprocedure}{(immutable-box? \var{obj})}
1317 \returns \scheme{#t} if \var{obj} is an immutable box, \scheme{#f} otherwise
1323 (mutable-box? (box-immutable 1)) ;=> #f
1324 (immutable-box? (box 1)) ;=> #f
1325 (immutable-box? (box-immutable 1)) ;=> #t
1331 \formdef{box-immutable}{\categoryprocedure}{(box-immutable \var{obj})}
1332 \returns a new immutable box containing \var{obj}
1342 (define b (box-immutable 1))
[all …]
|
| /dports/lang/chez-scheme/ChezScheme-9.5.4/release_notes/ |
| H A D | release_notes.stex | 114 fasl objects.
384 The new procedures \scheme{box-cas!} and \scheme{vector-cas!}
385 atomically update a box or vector with a given new value when the
387 guaranteed even if multiple threads attempt to update the same box or
446 Immutable vectors are created via \scheme{vector->immutable-vector},
449 Immutable boxes are created via \scheme{box-immutable}.
619 interaction environment are immutable, as if imported directly from
620 the immutable Scheme environment.
1945 \subsection{String ports from immutable strings (9.5.4)}
2041 \scheme{(lambda (x) (apply box? x) x)} to \scheme{(lambda (x) x)},
[all …]
|
| /dports/lang/chez-scheme/ChezScheme-9.5.4/ |
| H A D | LOG | 382 - added immutable strings, vectors, fxvector, bytevectors, and boxes
388 - various tweaks to the immutable object support; also taught cp0
407 - fixed typo: fxvector-immutable-flag used in place of
408 bytevector-immutable-flag in computation of type-immutable-bytevector
412 latter for immutable bytevectors) so that the maximum bytevector
422 - added record-type-equal-procedure, record-type-hash-procedure,
477 - fix strip-fasl-file for immutable strings and vectors,
873 single immutable lambda bindings, even when not recursive, for
982 - added box-cas! and vector-cas!
1354 be of the right type.
[all …]
|
| /dports/lang/racket/racket-8.3/src/ChezScheme/ |
| H A D | LOG | 382 - added immutable strings, vectors, fxvector, bytevectors, and boxes
388 - various tweaks to the immutable object support; also taught cp0
407 - fixed typo: fxvector-immutable-flag used in place of
408 bytevector-immutable-flag in computation of type-immutable-bytevector
412 latter for immutable bytevectors) so that the maximum bytevector
422 - added record-type-equal-procedure, record-type-hash-procedure,
477 - fix strip-fasl-file for immutable strings and vectors,
873 single immutable lambda bindings, even when not recursive, for
982 - added box-cas! and vector-cas!
1399 be of the right type.
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/src/ChezScheme/ |
| H A D | LOG | 382 - added immutable strings, vectors, fxvector, bytevectors, and boxes
388 - various tweaks to the immutable object support; also taught cp0
407 - fixed typo: fxvector-immutable-flag used in place of
408 bytevector-immutable-flag in computation of type-immutable-bytevector
412 latter for immutable bytevectors) so that the maximum bytevector
422 - added record-type-equal-procedure, record-type-hash-procedure,
477 - fix strip-fasl-file for immutable strings and vectors,
873 single immutable lambda bindings, even when not recursive, for
982 - added box-cas! and vector-cas!
1399 be of the right type.
[all …]
|