| /dports/lang/racket/racket-8.3/src/expander/read/ |
| H A D | vector.rkt | 2 (require racket/fixnum
13 "fixnum-flonum.rkt")
16 read-fixnum-or-flonum-vector)
24 [(fixnum) (lambda (init-c in config) (read-fixnum read-one init-c in config))]
27 (define seq (read-unwrapped-sequence read-one-element
38 [(fixnum) (for/fxvector #:length (length seq) ([e (in-list seq)]) e)]
49 [(fixnum) "fx"]
64 [(fixnum) (make-fxvector expected-len (last-or 0))]
70 [(fixnum) (for ([e (in-list seq)]
87 (define (read-fixnum-or-flonum-vector read-one dispatch-c c c2 in config)
[all …]
|
| H A D | fixnum-flonum.rkt | 9 (provide read-fixnum
10 read-flonum)
12 (define (read-fixnum read-one init-c in config)
13 (define c (read-char/skip-whitespace-and-comments init-c read-one in config))
15 (define v (read-number-literal c in config "#e"))
17 [(fixnum? v) v]
21 "expected a fixnum, found ~a"
24 (define (read-flonum read-one init-c in config)
25 (define c (read-char/skip-whitespace-and-comments init-c read-one in config))
27 (define v (read-number-literal c in config "#i"))
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/src/expander/read/ |
| H A D | vector.rkt | 2 (require racket/fixnum
13 "fixnum-flonum.rkt")
16 read-fixnum-or-flonum-vector)
24 [(fixnum) (lambda (init-c in config) (read-fixnum read-one init-c in config))]
27 (define seq (read-unwrapped-sequence read-one-element
38 [(fixnum) (for/fxvector #:length (length seq) ([e (in-list seq)]) e)]
49 [(fixnum) "fx"]
64 [(fixnum) (make-fxvector expected-len (last-or 0))]
70 [(fixnum) (for ([e (in-list seq)]
87 (define (read-fixnum-or-flonum-vector read-one dispatch-c c c2 in config)
[all …]
|
| H A D | fixnum-flonum.rkt | 9 (provide read-fixnum
10 read-flonum)
12 (define (read-fixnum read-one init-c in config)
13 (define c (read-char/skip-whitespace-and-comments init-c read-one in config))
15 (define v (read-number-literal c in config "#e"))
17 [(fixnum? v) v]
21 "expected a fixnum, found ~a"
24 (define (read-flonum read-one init-c in config)
25 (define c (read-char/skip-whitespace-and-comments init-c read-one in config))
27 (define v (read-number-literal c in config "#i"))
[all …]
|
| /dports/databases/pgloader3/pgloader-3.6.2/src/utils/ |
| H A D | state.lisp | 13 (read 0 :type fixnum) ; how many rows did we read
14 (rows 0 :type fixnum) ; how many rows did we write
15 (errs 0 :type fixnum) ; how many errors did we see
27 (read 0 :type fixnum)
28 (rows 0 :type fixnum)
29 (errs 0 :type fixnum)
33 (bytes 0 :type fixnum))
39 (bytes 0 :type fixnum)
122 (when read
147 (when read
[all …]
|
| /dports/lang/chicken5/chicken-5.3.0/ |
| H A D | types.db | 1137 (chicken.read-syntax#copy-read-table (#(procedure #:clean #:enforce) chicken.read-syntax#copy-read-…
1138 (chicken.read-syntax#current-read-table
1139 …(#(procedure #:clean) chicken.read-syntax#current-read-table (#!optional (struct read-table)) (str…
1142 (chicken.read-syntax#set-parameterized-read-syntax!
1147 (chicken.read-syntax#set-read-syntax!
1152 (chicken.read-syntax#set-sharp-read-syntax!
1524 (chicken.io#read-lines (#(procedure #:enforce) chicken.io#read-lines (#!optional input-port fixnum)…
1526 (chicken.io#read-string! (#(procedure #:enforce) chicken.io#read-string! ((or fixnum false) string …
1966 (chicken.file.posix#file-read (#(procedure #:clean #:enforce) chicken.file.posix#file-read (fixnum …
2001 (chicken.file.posix#open/read fixnum)
[all …]
|
| /dports/lang/sagittarius-scheme/sagittarius-0.9.8/ext/crypto/ |
| H A D | math_stub.stub | 24 (define-c-proc make-secure-random (name::<string> bits::<fixnum>)
33 (define-c-proc read-sys-random (bits::<fixnum>) Sg_ReadSysRandom)
35 (define-c-proc read-random-bytes (prng::<prng> size::<fixnum>)
37 (Sg_WrongTypeOfArgumentViolation 'read-random-bytes
42 (define-c-proc read-random-bytes!
43 (prng::<prng> bv::<bytevector> size::<fixnum>)
45 (Sg_WrongTypeOfArgumentViolation 'read-random-bytes
61 :optional (start::<fixnum> 0) (end::<fixnum> -1))
65 :optional (start::<fixnum> 0) (end::<fixnum> -1))
|
| /dports/lang/clisp/clisp-df3b9f6fdcff22832898e89a989eb499c0f842ed/benchmarks/ |
| H A D | fft.lisp | 18 (nv2 (the (values fixnum fixnum) (floor n 2)))
24 (setq m (the fixnum (1+ m))
25 i (the fixnum (+ i i)))
29 (read)
45 (setq j (the fixnum (+ j k))
46 i (the fixnum (1+ i)))
49 (do ( (l 1 (the fixnum (1+ (the fixnum l)))))
51 (declare (type fixnum l))
53 le1 (the (values fixnum fixnum) (floor le 2))
58 (do ((j 1 (the fixnum (1+ (the fixnum j)))))
[all …]
|
| /dports/lang/sagittarius-scheme/sagittarius-0.9.8/src/ |
| H A D | lib_core.stub | 1851 (binary-port-read-u8-op p Sg_Getb))
1857 (binary-port-read-u8-op p Sg_Peekb))
1868 (define-cise-stmt read-to-buffer
1869 ((_ port result buf start count read)
2385 (check-port-open read-char p)
2386 (check-input-port read-char p)
2387 (check-textual-port read-char p)
2398 (read-shared?::<boolean> #f))
2399 (check-port-open read p)
2400 (check-input-port read p)
[all …]
|
| /dports/lang/sagittarius-scheme/sagittarius-0.9.8/ext/zlib/ |
| H A D | zlib_stub.stub | 11 (level::<fixnum> windowbits::<fixnum> memlevel::<fixnum> strategy::<fixnum>)
20 ::<fixnum>
25 ::<fixnum>
30 (define-c-proc inflate-init (windowbits::<fixnum>)
34 (strm::<z-stream> :optional (bits::<fixnum> -1)) ::<fixnum>
38 ::<fixnum>
46 ::<fixnum>
49 (define-c-proc inflate-end (strm::<z-stream> flush::<fixnum>) ::<fixnum>
68 (define-c-proc zstream-read-count (strm::<z-stream> in::<bytevector>)
69 ::<fixnum> :no-side-effect
[all …]
|
| /dports/devel/libconfig/libconfig-1.7.2/contrib/libconfig-ruby/ |
| H A D | README | 7 # be careful with big *fixnum* (plain int) values in configs
8 # int is 32 bit, but ruby fixnum is only 31!
9 # For example, 2100000000 will be read as -47483648.
14 c.read!('test.cfg')
16 c.read('test.cfg')
23 c.append 'fixnum', Config::Fixnum.new(150)
|
| /dports/lang/guile2/guile-2.2.7/test-suite/tests/ |
| H A D | srcprop.test | 32 (read-enable 'positions)
33 (with-test-prefix "read properties"
35 (let ((x (read (open-input-string str))))
51 (and (reads-with-srcprops? (number->string (1+ most-positive-fixnum)))
52 (reads-with-srcprops? (number->string (1- most-negative-fixnum)))))
58 (reads-with-srcprops? (number->string most-positive-fixnum))
59 (reads-with-srcprops? (number->string most-negative-fixnum)))))
79 (read-enable 'positions)
82 (let ((s (read (open-input-string "(+ 3 4)"))))
103 (read-enable 'positions)
[all …]
|
| /dports/lang/guile/guile-3.0.7/test-suite/tests/ |
| H A D | srcprop.test | 32 (read-enable 'positions)
33 (with-test-prefix "read properties"
35 (let ((x (read (open-input-string str))))
51 (and (reads-with-srcprops? (number->string (1+ most-positive-fixnum)))
52 (reads-with-srcprops? (number->string (1- most-negative-fixnum)))))
58 (reads-with-srcprops? (number->string most-positive-fixnum))
59 (reads-with-srcprops? (number->string most-negative-fixnum)))))
79 (read-enable 'positions)
82 (let ((s (read (open-input-string "(+ 3 4)"))))
103 (read-enable 'positions)
[all …]
|
| /dports/lang/racket/racket-8.3/src/ChezScheme/mats/ |
| H A D | date.ms | 512 (eqv? (fixnum? 999999999)
513 (fixnum? (date-nanosecond $date-d8)))
523 (fixnum? (date-zone-offset $date-d5))
601 ((lambda (x) (and (fixnum? x) (<= 1 x 31))) (date-day $date-d2))
602 ((lambda (x) (and (fixnum? x) (<= 1 x 31))) (date-day $date-d3))
603 ((lambda (x) (and (fixnum? x) (<= 1 x 31))) (date-day $date-d4))
611 (and (fixnum? (read (open-input-string (substring s 8 10))))
612 (fixnum? (read (open-input-string (substring s 20 24))))))
615 (and (= (read (open-input-string (substring s 8 10))) (date-day d))
616 (= (read (open-input-string (substring s 11 13))) (date-hour d))
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/src/ChezScheme/mats/ |
| H A D | date.ms | 512 (eqv? (fixnum? 999999999)
513 (fixnum? (date-nanosecond $date-d8)))
523 (fixnum? (date-zone-offset $date-d5))
601 ((lambda (x) (and (fixnum? x) (<= 1 x 31))) (date-day $date-d2))
602 ((lambda (x) (and (fixnum? x) (<= 1 x 31))) (date-day $date-d3))
603 ((lambda (x) (and (fixnum? x) (<= 1 x 31))) (date-day $date-d4))
611 (and (fixnum? (read (open-input-string (substring s 8 10))))
612 (fixnum? (read (open-input-string (substring s 20 24))))))
615 (and (= (read (open-input-string (substring s 8 10))) (date-day d))
616 (= (read (open-input-string (substring s 11 13))) (date-hour d))
[all …]
|
| /dports/lang/chez-scheme/ChezScheme-9.5.4/mats/ |
| H A D | date.ms | 518 (fixnum? (date-zone-offset $date-d5))
593 ((lambda (x) (and (fixnum? x) (<= 0 x 23))) (date-hour $date-d2))
594 ((lambda (x) (and (fixnum? x) (<= 0 x 23))) (date-hour $date-d3))
596 ((lambda (x) (and (fixnum? x) (<= 1 x 31))) (date-day $date-d2))
597 ((lambda (x) (and (fixnum? x) (<= 1 x 31))) (date-day $date-d3))
598 ((lambda (x) (and (fixnum? x) (<= 1 x 31))) (date-day $date-d4))
606 (and (fixnum? (read (open-input-string (substring s 8 10))))
607 (fixnum? (read (open-input-string (substring s 20 24))))))
610 (and (= (read (open-input-string (substring s 8 10))) (date-day d))
611 (= (read (open-input-string (substring s 11 13))) (date-hour d))
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/racket-doc/scribblings/reference/ |
| H A D | fixnums.scrbl | 43 @defproc[(fx- [a fixnum?] [b fixnum?] ...) fixnum?]
45 @defproc[(fxquotient [a fixnum?] [b fixnum?]) fixnum?]
46 @defproc[(fxremainder [a fixnum?] [b fixnum?]) fixnum?]
47 @defproc[(fxmodulo [a fixnum?] [b fixnum?]) fixnum?]
67 @defproc[(fxlshift [a fixnum?] [b fixnum?]) fixnum?]
68 @defproc[(fxrshift [a fixnum?] [b fixnum?]) fixnum?]
89 @defproc[(fx+/wraparound [a fixnum?] [b fixnum?]) fixnum?]
90 @defproc[(fx-/wraparound [a fixnum?] [b fixnum?]) fixnum?]
113 @defproc[(fxmin [a fixnum?] [b fixnum?] ...) fixnum?]
114 @defproc[(fxmax [a fixnum?] [b fixnum?] ...) fixnum?]
[all …]
|
| /dports/misc/cheat/cheat-4.2.2/vendor/github.com/alecthomas/chroma/chroma-0.9.1/lexers/f/ |
| H A D | factor.go | 80 …fixnum`, `>float`, `>integer`, `(all-integers?)`, `(each-integer)`, `(find-integer)`, `*`, `+`, `?…
84 …read-buffer`, `invalid-read-buffer?`, `lines`, `nl`, `output-stream`, `output-stream?`, `print`, `…
|
| /dports/misc/cheat/cheat-4.2.2/vendor/github.com/alecthomas/chroma/lexers/f/ |
| H A D | factor.go | 80 …fixnum`, `>float`, `>integer`, `(all-integers?)`, `(each-integer)`, `(find-integer)`, `*`, `+`, `?…
84 …read-buffer`, `invalid-read-buffer?`, `lines`, `nl`, `output-stream`, `output-stream?`, `print`, `…
|
| /dports/www/gitlab-workhorse/gitlab-foss-0a901d60f8ae4a60c04ae82e6e9c3a03e9321417/workhorse/vendor/github.com/alecthomas/chroma/lexers/f/ |
| H A D | factor.go | 76 …fixnum`, `>float`, `>integer`, `(all-integers?)`, `(each-integer)`, `(find-integer)`, `*`, `+`, `?…
80 …read-buffer`, `invalid-read-buffer?`, `lines`, `nl`, `output-stream`, `output-stream?`, `print`, `…
|
| /dports/devel/gh/cli-2.4.0/vendor/github.com/alecthomas/chroma/lexers/f/ |
| H A D | factor.go | 76 …fixnum`, `>float`, `>integer`, `(all-integers?)`, `(each-integer)`, `(find-integer)`, `*`, `+`, `?…
80 …read-buffer`, `invalid-read-buffer?`, `lines`, `nl`, `output-stream`, `output-stream?`, `print`, `…
|
| /dports/www/gitea/gitea-1.16.5/vendor/github.com/alecthomas/chroma/lexers/f/ |
| H A D | factor.go | 80 …fixnum`, `>float`, `>integer`, `(all-integers?)`, `(each-integer)`, `(find-integer)`, `*`, `+`, `?…
84 …read-buffer`, `invalid-read-buffer?`, `lines`, `nl`, `output-stream`, `output-stream?`, `print`, `…
|
| /dports/sysutils/chezmoi/chezmoi-2.9.3/vendor/github.com/alecthomas/chroma/lexers/f/ |
| H A D | factor.go | 80 …fixnum`, `>float`, `>integer`, `(all-integers?)`, `(each-integer)`, `(find-integer)`, `*`, `+`, `?…
84 …read-buffer`, `invalid-read-buffer?`, `lines`, `nl`, `output-stream`, `output-stream?`, `print`, `…
|
| /dports/www/gohugo/hugo-0.91.2/vendor/github.com/alecthomas/chroma/lexers/f/ |
| H A D | factor.go | 80 …fixnum`, `>float`, `>integer`, `(all-integers?)`, `(each-integer)`, `(find-integer)`, `*`, `+`, `?…
84 …read-buffer`, `invalid-read-buffer?`, `lines`, `nl`, `output-stream`, `output-stream?`, `print`, `…
|
| /dports/devel/chroma/chroma-0.9.2/lexers/f/ |
| H A D | factor.go | 80 …fixnum`, `>float`, `>integer`, `(all-integers?)`, `(each-integer)`, `(find-integer)`, `*`, `+`, `?…
84 …read-buffer`, `invalid-read-buffer?`, `lines`, `nl`, `output-stream`, `output-stream?`, `print`, `…
|