| /dports/lang/chibi-scheme/chibi-scheme-0.10/lib/srfi/160/ |
| H A D | s16.sld | 4 make-s16vector
6 s16vector?
7 s16vector-ref
8 s16vector-set!
9 s16vector-length
12 (rename vector-copy s16vector-copy)
18 (rename vector= s16vector=)
19 (rename vector-take s16vector-take)
26 (rename vector-map s16vector-map)
62 (define uvector? s16vector?)
[all …]
|
| H A D | base.sld | 23 make-s16vector s16vector s16? s16vector?
24 s16vector-ref s16vector-set! s16vector-length
25 s16vector->list list->s16vector
87 (define s16vector-length uvector-length)
100 (define (list->s16vector ls) (list->uvector SEXP_S16 ls))
113 (define (s16vector . ls) (list->s16vector ls))
144 (define (make-s16vector len . o)
149 (s16vector-set! res i (car o))))
220 (define-uvector->list s16vector->list s16vector-length s16vector-ref)
|
| H A D | uvprims.stub | 128 (define-c boolean (s16vector? "uvector_of") (sexp (value SEXP_S16 int)))
156 (define-c short s16vector-ref (s16vector int)
158 (define-c void (s16vector-set! "s16vector_set") (s16vector int short)
|
| /dports/lang/gauche/Gauche-0.9.10/test/include/ |
| H A D | srfi-160-tests.scm | 2 (define s5 (s16vector 1 2 3 4 5))
3 (define s4 (s16vector 1 2 3 4))
4 (define s5+ (s16vector 1 2 3 4 6))
56 (test-assert "=" (s16vector= (s16vector 1 2 3) (s16vector 1 2 3)))
57 (test-assert "not =" (not (s16vector= (s16vector 1 2 3) (s16vector 3 2 1))))
58 (test-assert "not =2" (not (s16vector= (s16vector 1 2 3) (s16vector 1 2))))
71 (test "segment" (list (s16vector 1 2 3) (s16vector 4 5))
75 (s16vector-fold list 0 (s16vector 1 2 3) (s16vector 4 5 6)))
78 (s16vector-fold-right list 0 (s16vector 1 2 3) (s16vector 4 5 6)))
98 (s16vector 6 7 8 9 10))
[all …]
|
| /dports/lang/guile1/guile-1.8.8/test-suite/tests/ |
| H A D | srfi-4.test | 115 (s16vector? (s16vector)))
121 (= (s16vector-length (s16vector)) 0))
124 (= (s16vector-length (s16vector -3)) 1))
127 (not (= (s16vector-length (s16vector 3)) 3)))
129 (pass-if "s16vector-ref"
130 (= (s16vector-ref (s16vector 1 2 3) 1) 2))
134 (s16vector-set! s 4 33)
135 (s16vector-ref s 4)) 33))
137 (pass-if "s16vector->list/list->s16vector"
138 (equal? (s16vector->list (s16vector 1 2 3 4))
[all …]
|
| /dports/lang/sagittarius-scheme/sagittarius-0.9.8/test/tests/srfi/ |
| H A D | %3a160.scm | 174 (define s4 (s16vector 1 2 3 4))
227 (test-assert "=" (s16vector= (s16vector 1 2 3) (s16vector 1 2 3)))
228 (test-assert "not =" (not (s16vector= (s16vector 1 2 3) (s16vector 3 2 1))))
229 (test-assert "not =2" (not (s16vector= (s16vector 1 2 3) (s16vector 1 2))))
242 (test "segment" (list (s16vector 1 2 3) (s16vector 4 5))
246 (s16vector-fold list 0 (s16vector 1 2 3) (s16vector 4 5 6)))
249 (s16vector-fold-right list 0 (s16vector 1 2 3) (s16vector 4 5 6)))
269 (s16vector 6 7 8 9 10))
316 (let ((v (s16vector 1 2 3)))
319 (let ((v (s16vector 1 2 3)))
[all …]
|
| H A D | %3a123.scm | 53 (test-assert "srfi-4" (= 1 (ref (s16vector 0 1 2) 1)))
87 (test-assert "srfi-4" (let ((s16v (s16vector 0 1 2)))
|
| /dports/lang/guile2/guile-2.2.7/test-suite/tests/ |
| H A D | srfi-4.test | 139 (s16vector? (s16vector)))
145 (= (s16vector-length (s16vector)) 0))
148 (= (s16vector-length (s16vector -3)) 1))
151 (not (= (s16vector-length (s16vector 3)) 3)))
153 (pass-if "s16vector-ref"
154 (= (s16vector-ref (s16vector 1 2 3) 1) 2))
158 (s16vector-set! s 4 33)
161 (pass-if "s16vector->list/list->s16vector"
162 (equal? (s16vector->list (s16vector 1 2 3 4))
163 (s16vector->list (list->s16vector '(1 2 3 4)))))
[all …]
|
| /dports/lang/guile/guile-3.0.7/test-suite/tests/ |
| H A D | srfi-4.test | 139 (s16vector? (s16vector)))
145 (= (s16vector-length (s16vector)) 0))
148 (= (s16vector-length (s16vector -3)) 1))
151 (not (= (s16vector-length (s16vector 3)) 3)))
153 (pass-if "s16vector-ref"
154 (= (s16vector-ref (s16vector 1 2 3) 1) 2))
158 (s16vector-set! s 4 33)
161 (pass-if "s16vector->list/list->s16vector"
162 (equal? (s16vector->list (s16vector 1 2 3 4))
163 (s16vector->list (list->s16vector '(1 2 3 4)))))
[all …]
|
| /dports/lang/gambit-c/gambit-4.9.3/tests/unit-tests/07-vector/ |
| H A D | s16vector.scm | 9 (define v2 (##s16vector -32768 -2 0 1 32767))
14 (define v6 (s16vector -32768 -2 0 1 32767))
32 (check-true (##s16vector? (##s16vector)))
33 (check-true (##s16vector? (##s16vector 11)))
34 (check-true (##s16vector? (##s16vector 11 22)))
35 (check-true (##s16vector? (##s16vector 11 22 33)))
148 (check-true (s16vector? (s16vector)))
149 (check-true (s16vector? (s16vector 11)))
150 (check-true (s16vector? (s16vector 11 22)))
151 (check-true (s16vector? (s16vector 11 22 33)))
[all …]
|
| H A D | gentests | 9 …s8/s16/g" -e "s/-129/-32769/g" -e "s/128/32768/g" -e "s/127/32767/g" < s8vector.scm > s16vector.scm
|
| /dports/lang/racket/racket-8.3/share/pkgs/racket-doc/ffi/examples/ |
| H A D | sndfile.rkt | 314 ;; write-sound-internal/s16vector
325 (error 'write-sound-internal/s16vector
419 ['short make-s16vector]
426 ['short s16vector->cpointer]
485 ;; read-sound/s16vector : path-string -> (list/c _pointer nat nat)
488 (provide read-sound/s16vector)
489 (define (read-sound/s16vector file)
494 ;; write-sound/s16vector : _pointer nat nat path-string -> (void)
496 (provide write-sound/s16vector)
497 (define (write-sound/s16vector data sample-rate file)
[all …]
|
| /dports/lang/chicken5/chicken-5.3.0/ |
| H A D | srfi-4.scm | 57 s16vector s16vector->blob s16vector->blob/shared s16vector->list
329 (let ((v (##sys#make-structure 's16vector (alloc 'make-s16vector 2 len ext?))))
442 (list->NNNvector s16vector)
462 (define s16vector unknown
507 (NNNvector->list s16vector)
571 (define s16vector->blob/shared (pack 's16vector 's16vector->blob/shared))
582 (define s16vector->blob (pack-copy 's16vector 's16vector->blob))
593 (define blob->s16vector/shared (unpack 's16vector 2 'blob->s16vector/shared))
604 (define blob->s16vector (unpack-copy 's16vector 2 'blob->s16vector))
647 (s16vector s16 ,s16vector->list)
[all …]
|
| H A D | srfi-4.import.scm | 53 (s16vector . srfi-4#s16vector)
|
| H A D | types.db | 2156 (srfi-4#blob->s16vector (#(procedure #:clean #:enforce) srfi-4#blob->s16vector (blob) (struct s16ve…
2157 (srfi-4#blob->s16vector/shared (#(procedure #:clean #:enforce) srfi-4#blob->s16vector/shared (blob)…
2198 (srfi-4#list->s16vector (#(procedure #:clean #:enforce) srfi-4#list->s16vector ((list-of fixnum)) (…
2217 (srfi-4#s16vector (#(procedure #:clean #:enforce) srfi-4#s16vector (#!rest fixnum) (struct s16vecto…
2218 (srfi-4#s16vector->blob (#(procedure #:clean #:enforce) srfi-4#s16vector->blob ((struct s16vector))…
2219 (srfi-4#s16vector->blob/shared (#(procedure #:clean #:enforce) srfi-4#s16vector->blob/shared ((stru…
2220 (srfi-4#s16vector->list (#(procedure #:clean #:enforce) srfi-4#s16vector->list ((struct s16vector))…
2222 (srfi-4#s16vector-length (#(procedure #:clean #:enforce) srfi-4#s16vector-length ((struct s16vector…
2225 (srfi-4#s16vector-ref (#(procedure #:clean #:enforce) srfi-4#s16vector-ref ((struct s16vector) fixn…
2226 (srfi-4#s16vector-set! (#(procedure #:clean #:enforce) srfi-4#s16vector-set! ((struct s16vector) fi…
[all …]
|
| /dports/lang/gambit-c/gambit-4.9.3/tests/unit-tests/05-serdes/ |
| H A D | serdes.scm | 79 (s16vector)
80 (s16vector 0 1 2 3 4 5 6 7 8 9 10 -32768 32767)
|
| /dports/lang/gambit-c/gambit-4.9.3/gsc/tests/65-s16vector/ |
| H A D | vectorlength.scm | 3 (define a (##s16vector 32767 -32768))
|
| H A D | vectorshrink.scm | 3 (define v1 (##s16vector 32767 -32768))
|
| H A D | vector.scm | 7 (define y (##s16vector 32767 -32768))
|
| H A D | vectorset.scm | 3 (define v1 (##s16vector -32768 -111 0 111 32767))
|
| H A D | vectorref.scm | 3 (define v1 (##s16vector -32768 -111 0 111 32767))
|
| /dports/lang/gauche/Gauche-0.9.10/ext/windows/ |
| H A D | console.stub | 104 scroll-rectangle::<s16vector>
105 clip-rectangle::<s16vector>?
110 (Scm_Error "s16vector of minimum length 4 required for scroll-rectangle: %S"
113 (Scm_Error "s16vector of minimum length 4 required for clip-rectangle: %S"
340 region::<s16vector>)
387 window::<s16vector>)
390 (Scm_Error "s16vector of minimum length 4 required for window: %S"
|
| /dports/lang/guile1/guile-1.8.8/srfi/ |
| H A D | srfi-4.scm | 45 s16vector? make-s16vector s16vector s16vector-length s16vector-ref
|
| /dports/lang/racket/racket-8.3/doc/foreign/ |
| H A D | blueboxes.rktd | 599 (make-s16vector len) -> s16vector?
601 (s16vector val ...) -> s16vector?
603 (s16vector? v) -> boolean?
606 vec : s16vector?
608 vec : s16vector?
610 (s16vector-set! vec k val) -> void?
611 vec : s16vector?
614 (list->s16vector lst) -> s16vector?
617 vec : s16vector?
618 (s16vector->cpointer vec) -> cpointer?
[all …]
|
| /dports/lang/sagittarius-scheme/sagittarius-0.9.8/sitelib/srfi/%3a4/ |
| H A D | numeric-vectors.scm | 41 make-s16vector s16vector s16vector? s16vector-length s16vector-ref
238 ((16) s16vector)
|