/[guile]/guile/guile-core/libguile/unif.c
ViewVC logotype

Diff of /guile/guile-core/libguile/unif.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.120.2.6 by ttn, Thu Mar 14 05:26:16 2002 UTC revision 1.120.2.7 by ossau, Fri Mar 15 09:23:19 2002 UTC
# Line 582  scm_shap2ra (SCM args, const char *what) Line 582  scm_shap2ra (SCM args, const char *what)
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"
# Line 1084  SCM_REGISTER_PROC(s_array_ref, "array-re Line 1084  SCM_REGISTER_PROC(s_array_ref, "array-re
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
# Line 1262  SCM_REGISTER_PROC(s_uniform_array_set1_x Line 1262  SCM_REGISTER_PROC(s_uniform_array_set1_x
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  {  {
# Line 1371  SCM_DEFINE (scm_array_set_x, "array-set! Line 1371  SCM_DEFINE (scm_array_set_x, "array-set!
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"
# Line 1482  scm_ra2contig (SCM ra, int copy) Line 1482  scm_ra2contig (SCM ra, int copy)
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"
# Line 1650  loop: Line 1650  loop:
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"
# Line 2011  SCM_DEFINE (scm_bit_count_star, "bit-cou Line 2011  SCM_DEFINE (scm_bit_count_star, "bit-cou
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;
# Line 2187  static int l2ra(SCM lst, SCM ra, unsigne Line 2187  static int l2ra(SCM lst, SCM ra, unsigne
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"

Legend:
Removed from v.1.120.2.6  
changed lines
  Added in v.1.120.2.7

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26