/dports/lang/racket/racket-8.3/collects/racket/ |
H A D | fasl.rkt | 59 (fasl-false-type 3) 60 (fasl-true-type 4) 61 (fasl-null-type 5) 70 (fasl-char-type 13) 254 [(char? v) 255 (write-byte fasl-char-type o) 256 (write-fasl-integer (char->integer v) o)] 383 ;; used by `fasl-graph-ref-type` and `fasl-graph-ref-type`: 456 [(fasl-char-type) (intern (integer->char (read-fasl-integer i)))] 492 [(fasl-vector-type fasl-immutable-vector-type) [all …]
|
/dports/lang/racket-minimal/racket-8.3/collects/racket/ |
H A D | fasl.rkt | 59 (fasl-false-type 3) 60 (fasl-true-type 4) 61 (fasl-null-type 5) 70 (fasl-char-type 13) 254 [(char? v) 255 (write-byte fasl-char-type o) 256 (write-fasl-integer (char->integer v) o)] 383 ;; used by `fasl-graph-ref-type` and `fasl-graph-ref-type`: 456 [(fasl-char-type) (intern (integer->char (read-fasl-integer i)))] 492 [(fasl-vector-type fasl-immutable-vector-type) [all …]
|
/dports/lang/chez-scheme/ChezScheme-9.5.4/s/ |
H A D | fasl.ss | 257 (put-uptr p (char->integer (string-ref x i))))))) 325 [(integer-8 unsigned-8 char) ($object-ref 'unsigned-8 x addr)] 340 [else ($oops 'fasl-write "cannot fasl record field of type ~s" type)])))) 354 [(char single-float double-float) #t] 368 [(_ fasl-fld-type) 374 [(integer-8 unsigned-8 char) (put-padty fasl-fld-u8) (put-u8 p val) 1] 403 [else ($oops 'fasl-write "cannot fasl record field of type ~s" type)])))) 517 (define wrf-char 520 (fxlogor (fxsll (char->integer x) (constant char-data-offset)) 521 (constant type-char)) [all …]
|
H A D | strip.ss | 124 (string-set! s i (integer->char (read-uptr p)))) 132 [(fasl-type-visit fasl-type-revisit fasl-type-visit-revisit) 161 (read-byte! (char->integer #\() p) ;) 165 (if (eqv? c (char->integer #\))) 215 [(fasl-type-ratnum fasl-type-exactnum fasl-type-inexactnum fasl-type-weak-pair) 287 [(fasl-type-immediate fasl-type-entry fasl-type-library fasl-type-library-code) 310 (if (and (eqv? (get) (char->integer #\#)) 311 (eqv? (get) (char->integer #\!)) 313 (or (eqv? b (char->integer #\/)) 314 (eqv? b (char->integer #\space))))) [all …]
|
H A D | cmacros.ss | 415 (define-constant fasl-type-header 0) 416 (define-constant fasl-type-box 1) 417 (define-constant fasl-type-symbol 2) 418 (define-constant fasl-type-ratnum 3) 419 (define-constant fasl-type-vector 4) 422 (define-constant fasl-type-pair 7) 423 (define-constant fasl-type-flonum 8) 426 (define-constant fasl-type-code 11) 439 (define-constant fasl-type-rtd 24) 460 (define-constant fasl-type-gzip 43) [all …]
|
H A D | compile.ss | 278 (put-u8 p (constant fasl-type-entry)) 281 (put-u8 p (constant fasl-type-library)) 284 (put-u8 p (constant fasl-type-library-code)) 289 (put-u8 p (constant fasl-type-closure)) 295 (put-u8 p (constant fasl-type-code)) 722 [(visit-stuff) x (c-print-fasl x op (constant fasl-type-visit))] 723 [(revisit-stuff) x (c-print-fasl x op (constant fasl-type-revisit))] 724 [else (c-print-fasl x op (constant fasl-type-visit-revisit))])) 1515 ($with-fasl-target (host-machine-type) 1658 (c-print-fasl ($np-boot-code 'invoke) op (constant fasl-type-visit-revisit)) [all …]
|
H A D | 7.ss | 148 (let ([bv (make-bytevector 8 (constant fasl-type-header))]) 181 [(eqv? ty (constant fasl-type-header)) 184 [(eqv? ty (constant fasl-type-visit)) 186 [(eqv? ty (constant fasl-type-revisit)) 187 (go2 (eqv? situation (constant fasl-type-visit)))] 188 [(eqv? ty (constant fasl-type-visit-revisit)) 201 …[(or (eqv? compressed-flag (constant fasl-type-gzip)) (eqv? compressed-flag (constant fasl-type-lz… 217 [(p) (go p (constant fasl-type-visit-revisit))] 221 [(visit) (constant fasl-type-visit)] 222 [(revisit) (constant fasl-type-revisit)] [all …]
|
/dports/lang/racket-minimal/racket-8.3/src/ChezScheme/s/ |
H A D | fasl.ss | 304 (put-uptr p (char->integer (string-ref x i))))))) 390 [(integer-8 unsigned-8 char) ($object-ref 'unsigned-8 x addr)] 405 [else ($oops 'fasl-write "cannot fasl record field of type ~s" type)])))) 419 [(char single-float double-float) #t] 433 [(_ fasl-fld-type) 439 [(integer-8 unsigned-8 char) (put-padty fasl-fld-u8) (put-u8 p val) 1] 468 [else ($oops 'fasl-write "cannot fasl record field of type ~s" type)])))) 596 (define wrf-char 599 (fxlogor (fxsll (char->integer x) (constant char-data-offset)) 600 (constant type-char)) [all …]
|
H A D | strip.ss | 102 (string-set! s i (integer->char (read-uptr p)))) 110 [(fasl-type-visit fasl-type-revisit fasl-type-visit-revisit) 142 (read-byte! (char->integer #\() p) ;) 146 (if (eqv? c (char->integer #\))) 196 [(fasl-type-ratnum fasl-type-exactnum fasl-type-inexactnum 277 [(fasl-type-immediate fasl-type-entry fasl-type-library fasl-type-library-code) 315 (if (and (eqv? (get) (char->integer #\#)) 316 (eqv? (get) (char->integer #\!)) 318 (or (eqv? b (char->integer #\/)) 319 (eqv? b (char->integer #\space))))) [all …]
|
H A D | vfasl.ss | 217 (fasl-tuple (constant fasl-type-box) (vector v))) 225 [(fasl-type-immediate fasl-type-base-rtd) (enbox v)] 394 [(bv i char) 395 …(let ([n (bitwise-ior (bitwise-arithmetic-shift-left (char->integer char) (constant char-data-offs… 396 (constant type-char))]) 401 (set-char! bv offset char))])) 538 [(fasl-type-entry fasl-type-library fasl-type-library-code) 577 [(fasl-type-box fasl-type-immutable-box) 590 [(fasl-type-ratnum) 628 [(fasl-type-symbol) [all …]
|
H A D | cmacros.ss | 484 (define-constant fasl-type-header 0) 485 (define-constant fasl-type-box 1) 486 (define-constant fasl-type-symbol 2) 487 (define-constant fasl-type-ratnum 3) 491 (define-constant fasl-type-pair 7) 495 (define-constant fasl-type-code 11) 508 (define-constant fasl-type-rtd 24) 531 (define-constant fasl-type-gzip 44) 532 (define-constant fasl-type-lz4 45) 534 (define-constant fasl-type-fasl 100) [all …]
|
H A D | compile.ss | 318 (put-u8 p (constant fasl-type-entry)) 321 (put-u8 p (constant fasl-type-library)) 324 (put-u8 p (constant fasl-type-library-code)) 329 (put-u8 p (constant fasl-type-closure)) 335 (put-u8 p (constant fasl-type-code)) 609 ($with-fasl-target (host-machine-type) 621 ($with-fasl-target (host-machine-type) 1615 ($with-fasl-target (host-machine-type) 1761 (c-print-fasl ($np-boot-code 'invoke) op (constant fasl-type-visit-revisit) #f #f) 1879 (put-u8 p (constant fasl-type-uncompressed)) [all …]
|
/dports/lang/racket/racket-8.3/src/ChezScheme/s/ |
H A D | fasl.ss | 304 (put-uptr p (char->integer (string-ref x i))))))) 390 [(integer-8 unsigned-8 char) ($object-ref 'unsigned-8 x addr)] 405 [else ($oops 'fasl-write "cannot fasl record field of type ~s" type)])))) 419 [(char single-float double-float) #t] 433 [(_ fasl-fld-type) 439 [(integer-8 unsigned-8 char) (put-padty fasl-fld-u8) (put-u8 p val) 1] 468 [else ($oops 'fasl-write "cannot fasl record field of type ~s" type)])))) 596 (define wrf-char 599 (fxlogor (fxsll (char->integer x) (constant char-data-offset)) 600 (constant type-char)) [all …]
|
H A D | strip.ss | 102 (string-set! s i (integer->char (read-uptr p)))) 110 [(fasl-type-visit fasl-type-revisit fasl-type-visit-revisit) 142 (read-byte! (char->integer #\() p) ;) 146 (if (eqv? c (char->integer #\))) 196 [(fasl-type-ratnum fasl-type-exactnum fasl-type-inexactnum 277 [(fasl-type-immediate fasl-type-entry fasl-type-library fasl-type-library-code) 315 (if (and (eqv? (get) (char->integer #\#)) 316 (eqv? (get) (char->integer #\!)) 318 (or (eqv? b (char->integer #\/)) 319 (eqv? b (char->integer #\space))))) [all …]
|
H A D | vfasl.ss | 217 (fasl-tuple (constant fasl-type-box) (vector v))) 225 [(fasl-type-immediate fasl-type-base-rtd) (enbox v)] 394 [(bv i char) 395 …(let ([n (bitwise-ior (bitwise-arithmetic-shift-left (char->integer char) (constant char-data-offs… 396 (constant type-char))]) 401 (set-char! bv offset char))])) 538 [(fasl-type-entry fasl-type-library fasl-type-library-code) 577 [(fasl-type-box fasl-type-immutable-box) 590 [(fasl-type-ratnum) 628 [(fasl-type-symbol) [all …]
|
H A D | cmacros.ss | 484 (define-constant fasl-type-header 0) 485 (define-constant fasl-type-box 1) 486 (define-constant fasl-type-symbol 2) 487 (define-constant fasl-type-ratnum 3) 491 (define-constant fasl-type-pair 7) 495 (define-constant fasl-type-code 11) 508 (define-constant fasl-type-rtd 24) 531 (define-constant fasl-type-gzip 44) 532 (define-constant fasl-type-lz4 45) 534 (define-constant fasl-type-fasl 100) [all …]
|
H A D | compile.ss | 318 (put-u8 p (constant fasl-type-entry)) 321 (put-u8 p (constant fasl-type-library)) 324 (put-u8 p (constant fasl-type-library-code)) 329 (put-u8 p (constant fasl-type-closure)) 335 (put-u8 p (constant fasl-type-code)) 609 ($with-fasl-target (host-machine-type) 621 ($with-fasl-target (host-machine-type) 1615 ($with-fasl-target (host-machine-type) 1761 (c-print-fasl ($np-boot-code 'invoke) op (constant fasl-type-visit-revisit) #f #f) 1879 (put-u8 p (constant fasl-type-uncompressed)) [all …]
|
H A D | 7.ss | 155 (let ([bv (make-bytevector 8 (constant fasl-type-header))]) 204 [(eqv? ty (constant fasl-type-header)) 207 [(eqv? ty (constant fasl-type-visit)) 209 [(eqv? ty (constant fasl-type-revisit)) 210 (go2 (eqv? situation (constant fasl-type-visit)))] 211 [(eqv? ty (constant fasl-type-visit-revisit)) 225 …[(or (eqv? compressed-flag (constant fasl-type-gzip)) (eqv? compressed-flag (constant fasl-type-lz… 248 [(visit) (constant fasl-type-visit)] 249 [(revisit) (constant fasl-type-revisit)] 250 [(load) (constant fasl-type-visit-revisit)] [all …]
|
/dports/lang/sbcl/sbcl-1.3.13/tests/ |
H A D | load.impure.lisp | 141 (load-and-assert fasl fasl fasl)))) 152 (char *test-program-string* pointer)) 155 (defmethod stream-unread-char ((stream load-impure-gray-stream) char) 190 (load-and-assert fasl fasl fasl))) 197 (load-and-assert partial fasl fasl))) 213 (load-and-assert fasl fasl fasl))) 287 (load-and-assert spec fasl fasl)))) 301 (defun load-empty-file (type) 303 :type type))) 330 (fasl nil) [all …]
|
/dports/lang/racket-minimal/racket-8.3/src/cs/c/ |
H A D | cross-serve.ss | 26 ;; Serve requests to compile or to fasl data: 32 (let ([compress? (eqv? (get-u8 in) (char->integer #\y))]) 36 (case (integer->char cmd) 41 (parameterize ([optimize-level (if (fx= cmd (char->integer #\u)) 44 [fasl-compressed compress?]) 47 ;; Reads host fasl format, then writes target fasl format 52 [fasl-compressed compress?]) 53 (fasl-write v o pred))))] 81 (define-record-type literal-placeholder 88 [literals (let ([vec (fasl-read (open-bytevector-input-port literals-bv))]) [all …]
|
/dports/lang/racket/racket-8.3/src/cs/c/ |
H A D | cross-serve.ss | 26 ;; Serve requests to compile or to fasl data: 32 (let ([compress? (eqv? (get-u8 in) (char->integer #\y))]) 36 (case (integer->char cmd) 41 (parameterize ([optimize-level (if (fx= cmd (char->integer #\u)) 44 [fasl-compressed compress?]) 47 ;; Reads host fasl format, then writes target fasl format 52 [fasl-compressed compress?]) 53 (fasl-write v o pred))))] 81 (define-record-type literal-placeholder 88 [literals (let ([vec (fasl-read (open-bytevector-input-port literals-bv))]) [all …]
|
/dports/lang/mosh/mosh-0.2.7/boot/runtimes/psyntax-mosh/psyntax/ |
H A D | compat.ss | 43 (integer->char 44 (+ (char->integer #\a) 53 ((or (char<=? #\a c #\z) 54 (char<=? #\A c #\Z) 55 (char<=? #\0 c #\9) 60 (let ((n (char->integer c))) 100 ;;; - source is a pair of file-name x char-position 163 ;; (fasl-save fasl-file obj) 195 (let ([fasl-file (scm->fasl filename)]) 203 (fasl-save fasl-file obj) [all …]
|
/dports/devel/cl-asdf/asdf-a58828745a610c1af841a86587ba197707c89eb3/test/ |
H A D | test-urls-1.script | 9 (with-open-file (stream1 url :element-type 'character 11 (with-open-file (stream2 local :element-type 'character 14 (let ((ch1 (read-char stream1 nil nil)) 15 (ch2 (read-char stream2 nil nil))) 30 (test (test-fasl path))
|
H A D | test-urls-2.script | 11 (with-open-file (stream1 url :element-type 'character 13 (with-open-file (stream2 local :element-type 'character 16 (let ((ch1 (read-char stream1 nil nil)) 17 (ch2 (read-char stream2 nil nil))) 34 (test (test-fasl path))
|
/dports/math/reduce/Reduce-svn5758-src/psl/dist/comp/ |
H A D | faslout.sl | 94 % checking for COMPILE flag on function type (EXPR, etc.). Changed to use 127 (load fasl-decls))) 155 (fasl-form u NIL)) 215 (writechar (char blank))) 219 (de fasl-putd (u) 251 (fasl-form 261 (fasl-form 271 (fasl-form 281 (fasl-form 317 (progn (prin2t "FASLOUT: IN files; or type in expressions") [all …]
|