| /dports/lang/racket/racket-8.3/collects/racket/ |
| H A D | fasl.rkt | 13 (provide s-exp->fasl
110 (define fasl-highest-small-integer (- 255 (- fasl-small-integer-start fasl-lowest-small-integer) 1))
111 (define fasl-prefix #"racket/fasl:")
112 (define fasl-prefix-length (bytes-length fasl-prefix))
277 … (write-fasl-integer (if (treat-immutable? v) fasl-immutable-bytes-type fasl-bytes-type) o)
303 (write-fasl-integer fasl-srcloc-type o)
461 [(fasl-string-type) (read-fasl-string i)]
463 [(fasl-bytes-type) (read-fasl-bytes i)]
465 [(fasl-path-type) (bytes->path (read-fasl-bytes i)
492 [(fasl-vector-type fasl-immutable-vector-type)
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/collects/racket/ |
| H A D | fasl.rkt | 13 (provide s-exp->fasl
110 (define fasl-highest-small-integer (- 255 (- fasl-small-integer-start fasl-lowest-small-integer) 1))
111 (define fasl-prefix #"racket/fasl:")
112 (define fasl-prefix-length (bytes-length fasl-prefix))
277 … (write-fasl-integer (if (treat-immutable? v) fasl-immutable-bytes-type fasl-bytes-type) o)
303 (write-fasl-integer fasl-srcloc-type o)
461 [(fasl-string-type) (read-fasl-string i)]
463 [(fasl-bytes-type) (read-fasl-bytes i)]
465 [(fasl-path-type) (bytes->path (read-fasl-bytes i)
492 [(fasl-vector-type fasl-immutable-vector-type)
[all …]
|
| /dports/lang/chez-scheme/ChezScheme-9.5.4/s/ |
| H A D | strip.ss | 132 [(fasl-type-visit fasl-type-revisit fasl-type-visit-revisit)
146 [(fasl-type-uncompressed) (fasl-entry situation (read-fasl p #f))]
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)
287 [(fasl-type-immediate fasl-type-entry fasl-type-library fasl-type-library-code)
376 [ptr (fasl) fasl]
514 (vector-for-each (lambda (fasl) (write-fasl p t fasl)) vfasl)))]
519 (vector-for-each (lambda (fasl) (write-fasl p t fasl)) vfasl)))]
565 [ptr (fasl) (write-fasl p t fasl)]
648 (write-fasl p t fasl)]
[all …]
|
| H A D | fasl.ss | 1 ;;; fasl.ss
22 fasl-enter
23 fasl-out
632 (module (fasl-write fasl-file)
678 ($fasl-target (make-target bld-graph bld wrf start make-table wrf-graph fasl-base-rtd fasl-write fa…
688 (set! $fasl-enter (lambda (x t a?) ((target-fasl-enter (fasl-target)) x t a?)))
689 (set! $fasl-out (lambda (x p t a?) ((target-fasl-out (fasl-target)) x p t a?)))
691 (set! $fasl-table (lambda () ((target-fasl-table (fasl-target)))))
693 (set! $fasl-base-rtd (lambda (x p) ((target-fasl-base-rtd (fasl-target)) x p)))
694 (set! fasl-write (lambda (x p) ((target-fasl-write (fasl-target)) x p)))
[all …]
|
| /dports/lang/owl-lisp/owl-079f58f45039805517b9b880feec050e151c52b3/ |
| H A D | Makefile | 36 fasl/boot.fasl: fasl/init.fasl
39 bin/vm fasl/init.fasl -r bin/fasl-build.scm bin/vm fasl/init.fasl -r owl/ol.scm -o $@
41 fasl/ol.fasl: fasl/boot.fasl owl/*.scm owl/*/*.scm scheme/*.scm tests/*.scm tests/*.sh
44 …bin/vm fasl/init.fasl -r bin/fasl-build.scm -f bin/vm fasl/boot.fasl -r owl/ol.scm -o fasl/bootp.f…
48 c/ol.c: fasl/ol.fasl
59 c/ol-small.c: fasl/ol.fasl
87 fasltest: bin/vm fasl/ol.fasl
88 sh tests/run all bin/vm fasl/ol.fasl
93 random-test: bin/vm bin/ol fasl/ol.fasl
94 sh tests/run random bin/vm fasl/ol.fasl
[all …]
|
| H A D | .gitignore | 6 fasl/boot.fasl
7 fasl/bootp.fasl
8 fasl/ol.fasl
|
| /dports/lang/racket/racket-8.3/src/ChezScheme/s/ |
| H A D | strip.ss | 110 [(fasl-type-visit fasl-type-revisit fasl-type-visit-revisit)
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)
277 [(fasl-type-immediate fasl-type-entry fasl-type-library fasl-type-library-code)
381 [ptr (fasl) fasl]
528 (vector-for-each (lambda (fasl) (write-fasl p t fasl)) vfasl)))]
533 (vector-for-each (lambda (fasl) (write-fasl p t fasl)) vfasl)))]
585 [ptr (fasl) (write-fasl p t fasl)]
673 (write-fasl p t fasl)]
[all …]
|
| H A D | fasl.ss | 1 ;;; fasl.ss
16 ;; The fasl reader is "fasl.c", which includes an overview of the fasl
25 fasl-enter
26 fasl-out
27 fasl-start
705 ($write-fasl-bytevectors p bv* size situation (constant fasl-type-fasl)))))
730 (module (fasl-write fasl-file)
785 ($fasl-target (make-target bld-graph bld wrf start make-table wrf-graph fasl-base-rtd fasl-write fa…
796 (set! $fasl-out (lambda (x p t a?) ((target-fasl-out (fasl-target)) x p t a?)))
802 (set! $fasl-base-rtd (lambda (x p) ((target-fasl-base-rtd (fasl-target)) x p)))
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/src/ChezScheme/s/ |
| H A D | strip.ss | 110 [(fasl-type-visit fasl-type-revisit fasl-type-visit-revisit)
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)
277 [(fasl-type-immediate fasl-type-entry fasl-type-library fasl-type-library-code)
381 [ptr (fasl) fasl]
528 (vector-for-each (lambda (fasl) (write-fasl p t fasl)) vfasl)))]
533 (vector-for-each (lambda (fasl) (write-fasl p t fasl)) vfasl)))]
585 [ptr (fasl) (write-fasl p t fasl)]
673 (write-fasl p t fasl)]
[all …]
|
| H A D | fasl.ss | 1 ;;; fasl.ss
16 ;; The fasl reader is "fasl.c", which includes an overview of the fasl
25 fasl-enter
26 fasl-out
27 fasl-start
705 ($write-fasl-bytevectors p bv* size situation (constant fasl-type-fasl)))))
730 (module (fasl-write fasl-file)
785 ($fasl-target (make-target bld-graph bld wrf start make-table wrf-graph fasl-base-rtd fasl-write fa…
796 (set! $fasl-out (lambda (x p t a?) ((target-fasl-out (fasl-target)) x p t a?)))
802 (set! $fasl-base-rtd (lambda (x p) ((target-fasl-base-rtd (fasl-target)) x p)))
[all …]
|
| /dports/x11/cl-clx/clx-0.7.5-65-g8e07155/ |
| H A D | exclMakefile | 40 L_OBJS = defsystem.fasl package.fasl excldep.fasl depdefs.fasl clx.fasl \
41 dependent.fasl exclcmac.fasl macros.fasl bufmac.fasl buffer.fasl \
42 display.fasl gcontext.fasl requests.fasl input.fasl fonts.fasl \
43 graphics.fasl text.fasl attributes.fasl translate.fasl keysyms.fasl \
44 manager.fasl image.fasl resource.fasl
46 L_NOMACROS_OBJS = package.fasl excldep.fasl depdefs.fasl clx.fasl \
47 dependent.fasl buffer.fasl display.fasl gcontext.fasl \
48 requests.fasl input.fasl fonts.fasl graphics.fasl text.fasl \
49 attributes.fasl translate.fasl keysyms.fasl manager.fasl image.fasl \
50 resource.fasl
[all …]
|
| /dports/lang/sbcl/sbcl-1.3.13/tests/ |
| H A D | load.impure.lisp | 139 (with-test-program source fasl
141 (load-and-assert fasl fasl fasl))))
189 (with-test-program source fasl
190 (load-and-assert fasl fasl fasl)))
197 (load-and-assert partial fasl fasl)))
213 (load-and-assert fasl fasl fasl)))
225 (handler-case (load fasl)
287 (load-and-assert spec fasl fasl))))
295 (load fasl)
330 (fasl nil)
[all …]
|
| H A D | defglobal.impure.lisp | 139 (multiple-value-bind (fasl warn fail) (compile-file lisp)
143 fasl))
154 (load fasl)
155 (ignore-errors (delete-file fasl)))
166 (load fasl)
167 (ignore-errors (delete-file fasl)))
173 (fasl (let ((.counter-3. :nasty))
180 (load fasl)
181 (ignore-errors (delete-file fasl)))
186 (let ((fasl (compile-form `(progn
[all …]
|
| /dports/devel/cl-asdf/asdf-a58828745a610c1af841a86587ba197707c89eb3/test/ |
| H A D | test-module-depend.script | 12 (defparameter file1-date (get-file-stamp file1.fasl))
13 (defparameter file3-date (get-file-stamp file3.fasl))
14 (assert-pathname-equal file1.fasl (test-fasl "file1"))
15 (assert-pathname-equal file2.fasl (test-fasl "file2"))
16 (assert-pathname-equal file3.fasl (test-fasl "file3"))
24 ;; now touch file1 and its fasl so the fasl is out of date,
29 (touch-file file1.fasl :timestamp (- file3-date 90))
30 (touch-file file2.fasl :timestamp (- file3-date 30))
31 (touch-file file3.fasl :timestamp (- file3-date 15))
34 (assert-compare (>= (- (get-file-stamp file2.fasl) file3-date) 0))
[all …]
|
| H A D | test1.script | 14 (defparameter file1.fasl (first *file1.out*))
15 (defparameter file2.fasl (first *file2.out*))
16 (assert-pathname-equal file1.fasl (test-fasl "file1"))
17 (assert-pathname-equal file2.fasl (test-fasl "file2"))
40 (assert-equal (+ *date* 500) (get-file-stamp file1.fasl))
50 (assert-equal (+ *date* 500) (get-file-stamp file1.fasl))
51 (defparameter *before* (get-file-stamp file2.fasl))
58 (dolist (f *file2.out*) (touch-file f :timestamp (+ *date* 2000))) ;; touch file2.fasl some time be…
61 (DBG :foo (file-write-date file2.fasl) *before*)
62 (assert-compare (>= (file-write-date file2.fasl) *before*))
|
| /dports/lang/racket/racket-8.3/share/pkgs/racket-doc/scribblings/reference/ |
| H A D | fasl.scrbl | 5 @examples[#:hidden #:eval fasl-eval (require racket/fasl)]
9 @note-lib-only[racket/fasl]
31 @racket[s-exp->fasl].
63 structures. The @racket[s-exp->fasl] and @racket[fasl->s-exp]
77 composition of @racket[s-exp->fasl] and @racket[fasl->s-exp] behave
82 @racket[s-exp->fasl] or read by @racket[fasl->s-exp]. Omitting a
95 #:eval fasl-eval
96 (define fasl (s-exp->fasl (list #("speed") 'racer #\!)))
97 fasl
98 (fasl->s-exp fasl)
[all …]
|
| /dports/lang/sbcl/sbcl-1.3.13/src/compiler/ |
| H A D | fopcompile.lisp | 308 (fasl *compile-object*))
485 (sb!fasl::dump-push handle fasl))))
492 (defun fopcompile-if (fasl args path for-value-p)
497 (sb!fasl::dump-integer else-label fasl)
500 (dump-fop 'sb!fasl::fop-skip-if-false fasl)
511 (sb!fasl::dump-integer end-label fasl)
512 (dump-fop 'sb!fasl::fop-skip fasl)
514 (sb!fasl::dump-integer else-label fasl)
521 (sb!fasl::dump-integer end-label fasl)
529 (defun fopcompile-constant (fasl form for-value-p)
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/src/schemify/ |
| H A D | fasl.rkt | 2 (require racket/fasl)
4 (provide ->fasl
5 fasl->)
8 (define (->fasl v [handle-fail #f]) (s-exp->fasl v #:handle-fail handle-fail))
9 (define (fasl-> f) (fasl->s-exp f))
|
| H A D | main.rkt | 6 "fasl-literal.rkt"
9 "fasl.rkt")
20 fasl-literal?
21 fasl-literals
31 ->fasl
32 fasl->)
|
| /dports/lang/racket/racket-8.3/src/schemify/ |
| H A D | fasl.rkt | 2 (require racket/fasl)
4 (provide ->fasl
5 fasl->)
8 (define (->fasl v [handle-fail #f]) (s-exp->fasl v #:handle-fail handle-fail))
9 (define (fasl-> f) (fasl->s-exp f))
|
| H A D | main.rkt | 6 "fasl-literal.rkt"
9 "fasl.rkt")
20 fasl-literal?
21 fasl-literals
31 ->fasl
32 fasl->)
|
| /dports/math/reduce/Reduce-svn5758-src/psl/dist/comp/win32/ |
| H A D | xvect | 1 (compiletime (define-constant fasl-vlth 256))
3 (de fasl-mkxvect() (list(mkvect fasl-vlth)))
5 (de fasl-xputw(v n w)
8 (fasl-xputb v n (wand w 255))
14 (de fasl-xputb(v n w)
16 (setq d (times fasl-vlth addressingunitsperitem))
19 (when (null (cdr v))(rplacd v (fasl-mkxvect)))
|
| H A D | nbittab.sl | 34 (compiletime (load inum fasl-dec))
183 (fasl-xputw code-vect* a w)))
189 (fasl-xputh code-vect* a w)))
195 (fasl-xputb code-vect* a w)))
224 (de fasl-findblock(v i)
230 (de fasl-xputw(v n w)
235 (fasl-xputb v n (wand w 255))
241 (de fasl-xputh(v n w)
246 (fasl-xputb v n (wand w 255))
252 (de fasl-xputb(v n w)
[all …]
|
| /dports/lang/mosh/mosh-0.2.7/lib/nmosh/bootstrap/ |
| H A D | util.nmosh.ss | 5 obj->fasl
6 fasl->obj
19 fasl-read
20 fasl-write!))
40 (define (obj->fasl obj)
42 (fasl-write! obj port)
45 (define (fasl->obj fasl)
46 (call-with-port (open-bytevector-input-port fasl) fasl-read))
|
| /dports/lang/mosh/mosh-0.2.7/boot/runtimes/psyntax-mosh/psyntax/ |
| H A D | compat.ss | 131 (define (scm->fasl filename)
142 (define (fasl-load filename)
156 ;; (let ([fasl-file (scm->fasl filename)])
163 ;; (fasl-save fasl-file obj)
167 ;; (let ([fasl-file (scm->fasl filename)])
169 ;; (if (and (file-exists? fasl-file) ((symbol-value 'file-newer?) fasl-file filename))
171 ;; [code (fasl-load fasl-file)]
195 (let ([fasl-file (scm->fasl filename)])
203 (fasl-save fasl-file obj)
208 (let ([fasl-file (scm->fasl filename)])
[all …]
|