582 |
|
|
583 |
SCM_DEFINE (scm_dimensions_to_uniform_array, "dimensions->uniform-array", 2, 1, 0, |
SCM_DEFINE (scm_dimensions_to_uniform_array, "dimensions->uniform-array", 2, 1, 0, |
584 |
(SCM dims, SCM prot, SCM fill), |
(SCM dims, SCM prot, SCM fill), |
585 |
"@deffnx primitive make-uniform-vector length prototype [fill]\n" |
"@deffnx {Scheme Procedure} make-uniform-vector length prototype [fill]\n" |
586 |
"Create and return a uniform array or vector of type\n" |
"Create and return a uniform array or vector of type\n" |
587 |
"corresponding to @var{prototype} with dimensions @var{dims} or\n" |
"corresponding to @var{prototype} with dimensions @var{dims} or\n" |
588 |
"length @var{length}. If @var{fill} is supplied, it's used to\n" |
"length @var{length}. If @var{fill} is supplied, it's used to\n" |
1084 |
|
|
1085 |
SCM_DEFINE (scm_uniform_vector_ref, "uniform-vector-ref", 2, 0, 0, |
SCM_DEFINE (scm_uniform_vector_ref, "uniform-vector-ref", 2, 0, 0, |
1086 |
(SCM v, SCM args), |
(SCM v, SCM args), |
1087 |
"@deffnx primitive array-ref v . args\n" |
"@deffnx {Scheme Procedure} array-ref v . args\n" |
1088 |
"Return the element at the @code{(index1, index2)} element in\n" |
"Return the element at the @code{(index1, index2)} element in\n" |
1089 |
"@var{array}.") |
"@var{array}.") |
1090 |
#define FUNC_NAME s_scm_uniform_vector_ref |
#define FUNC_NAME s_scm_uniform_vector_ref |
1262 |
PROC is used (and it's called from C too). */ |
PROC is used (and it's called from C too). */ |
1263 |
SCM_DEFINE (scm_array_set_x, "array-set!", 2, 0, 1, |
SCM_DEFINE (scm_array_set_x, "array-set!", 2, 0, 1, |
1264 |
(SCM v, SCM obj, SCM args), |
(SCM v, SCM obj, SCM args), |
1265 |
"@deffnx primitive uniform-array-set1! v obj args\n" |
"@deffnx {Scheme Procedure} uniform-array-set1! v obj args\n" |
1266 |
"Sets the element at the @code{(index1, index2)} element in @var{array} to\n" |
"Set the element at the @code{(index1, index2)} element in @var{array} to\n" |
1267 |
"@var{new-value}. The value returned by array-set! is unspecified.") |
"@var{new-value}. The value returned by array-set! is unspecified.") |
1268 |
#define FUNC_NAME s_scm_array_set_x |
#define FUNC_NAME s_scm_array_set_x |
1269 |
{ |
{ |
1371 |
wouldn't have contiguous elements. */ |
wouldn't have contiguous elements. */ |
1372 |
SCM_DEFINE (scm_array_contents, "array-contents", 1, 1, 0, |
SCM_DEFINE (scm_array_contents, "array-contents", 1, 1, 0, |
1373 |
(SCM ra, SCM strict), |
(SCM ra, SCM strict), |
1374 |
"@deffnx primitive array-contents array strict\n" |
"@deffnx {Scheme Procedure} array-contents array strict\n" |
1375 |
"If @var{array} may be @dfn{unrolled} into a one dimensional shared array\n" |
"If @var{array} may be @dfn{unrolled} into a one dimensional shared array\n" |
1376 |
"without changing their order (last subscript changing fastest), then\n" |
"without changing their order (last subscript changing fastest), then\n" |
1377 |
"@code{array-contents} returns that shared array, otherwise it returns\n" |
"@code{array-contents} returns that shared array, otherwise it returns\n" |
1482 |
|
|
1483 |
SCM_DEFINE (scm_uniform_array_read_x, "uniform-array-read!", 1, 3, 0, |
SCM_DEFINE (scm_uniform_array_read_x, "uniform-array-read!", 1, 3, 0, |
1484 |
(SCM ra, SCM port_or_fd, SCM start, SCM end), |
(SCM ra, SCM port_or_fd, SCM start, SCM end), |
1485 |
"@deffnx primitive uniform-vector-read! uve [port-or-fdes] [start] [end]\n" |
"@deffnx {Scheme Procedure} uniform-vector-read! uve [port-or-fdes] [start] [end]\n" |
1486 |
"Attempts to read all elements of @var{ura}, in lexicographic order, as\n" |
"Attempt to read all elements of @var{ura}, in lexicographic order, as\n" |
1487 |
"binary objects from @var{port-or-fdes}.\n" |
"binary objects from @var{port-or-fdes}.\n" |
1488 |
"If an end of file is encountered during\n" |
"If an end of file is encountered during\n" |
1489 |
"uniform-array-read! the objects up to that point only are put into @var{ura}\n" |
"uniform-array-read! the objects up to that point only are put into @var{ura}\n" |
1650 |
|
|
1651 |
SCM_DEFINE (scm_uniform_array_write, "uniform-array-write", 1, 3, 0, |
SCM_DEFINE (scm_uniform_array_write, "uniform-array-write", 1, 3, 0, |
1652 |
(SCM v, SCM port_or_fd, SCM start, SCM end), |
(SCM v, SCM port_or_fd, SCM start, SCM end), |
1653 |
"@deffnx primitive uniform-vector-write uve [port-or-fdes] [start] [end]\n" |
"@deffnx {Scheme Procedure} uniform-vector-write uve [port-or-fdes] [start] [end]\n" |
1654 |
"Writes all elements of @var{ura} as binary objects to\n" |
"Writes all elements of @var{ura} as binary objects to\n" |
1655 |
"@var{port-or-fdes}.\n\n" |
"@var{port-or-fdes}.\n\n" |
1656 |
"The optional arguments @var{start}\n" |
"The optional arguments @var{start}\n" |
2011 |
|
|
2012 |
SCM_DEFINE (scm_bit_invert_x, "bit-invert!", 1, 0, 0, |
SCM_DEFINE (scm_bit_invert_x, "bit-invert!", 1, 0, 0, |
2013 |
(SCM v), |
(SCM v), |
2014 |
"Modifies @var{bv} by replacing each element with its negation.") |
"Modify @var{bv} by replacing each element with its negation.") |
2015 |
#define FUNC_NAME s_scm_bit_invert_x |
#define FUNC_NAME s_scm_bit_invert_x |
2016 |
{ |
{ |
2017 |
long int k; |
long int k; |
2187 |
|
|
2188 |
SCM_DEFINE (scm_list_to_uniform_array, "list->uniform-array", 3, 0, 0, |
SCM_DEFINE (scm_list_to_uniform_array, "list->uniform-array", 3, 0, 0, |
2189 |
(SCM ndim, SCM prot, SCM lst), |
(SCM ndim, SCM prot, SCM lst), |
2190 |
"@deffnx procedure list->uniform-vector prot lst\n" |
"@deffnx {Scheme Procedure} list->uniform-vector prot lst\n" |
2191 |
"Return a uniform array of the type indicated by prototype\n" |
"Return a uniform array of the type indicated by prototype\n" |
2192 |
"@var{prot} with elements the same as those of @var{lst}.\n" |
"@var{prot} with elements the same as those of @var{lst}.\n" |
2193 |
"Elements must be of the appropriate type, no coercions are\n" |
"Elements must be of the appropriate type, no coercions are\n" |