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

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

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

revision 1.77.2.2 by ttn, Thu Mar 14 05:26:15 2002 UTC revision 1.77.2.3 by ossau, Fri Mar 15 09:23:19 2002 UTC
# Line 458  scm_ramapc (int (*cproc)(), SCM data, SC Line 458  scm_ramapc (int (*cproc)(), SCM data, SC
458    
459  SCM_DEFINE (scm_array_fill_x, "array-fill!", 2, 0, 0,  SCM_DEFINE (scm_array_fill_x, "array-fill!", 2, 0, 0,
460              (SCM ra, SCM fill),              (SCM ra, SCM fill),
461              "Stores @var{fill} in every element of @var{array}.  The value returned\n"              "Store @var{fill} in every element of @var{array}.  The value returned\n"
462              "is unspecified.")              "is unspecified.")
463  #define FUNC_NAME s_scm_array_fill_x  #define FUNC_NAME s_scm_array_fill_x
464  {  {
# Line 829  SCM_REGISTER_PROC(s_array_copy_in_order_ Line 829  SCM_REGISTER_PROC(s_array_copy_in_order_
829    
830  SCM_DEFINE (scm_array_copy_x, "array-copy!", 2, 0, 0,  SCM_DEFINE (scm_array_copy_x, "array-copy!", 2, 0, 0,
831              (SCM src, SCM dst),              (SCM src, SCM dst),
832              "@deffnx primitive array-copy-in-order! src dst\n"              "@deffnx {Scheme Procedure} array-copy-in-order! src dst\n"
833              "Copies every element from vector or array @var{source} to the\n"              "Copy every element from vector or array @var{source} to the\n"
834              "corresponding element of @var{destination}.  @var{destination} must have\n"              "corresponding element of @var{destination}.  @var{destination} must have\n"
835              "the same rank as @var{source}, and be at least as large in each\n"              "the same rank as @var{source}, and be at least as large in each\n"
836              "dimension.  The order is unspecified.")              "dimension.  The order is unspecified.")
# Line 1512  SCM_REGISTER_PROC(s_array_map_in_order_x Line 1512  SCM_REGISTER_PROC(s_array_map_in_order_x
1512    
1513  SCM_DEFINE (scm_array_map_x, "array-map!", 2, 0, 1,  SCM_DEFINE (scm_array_map_x, "array-map!", 2, 0, 1,
1514              (SCM ra0, SCM proc, SCM lra),              (SCM ra0, SCM proc, SCM lra),
1515              "@deffnx primitive array-map-in-order! ra0 proc . lra\n"              "@deffnx {Scheme Procedure} array-map-in-order! ra0 proc . lra\n"
1516              "@var{array1}, @dots{} must have the same number of dimensions as\n"              "@var{array1}, @dots{} must have the same number of dimensions as\n"
1517              "@var{array0} and have a range for each index which includes the range\n"              "@var{array0} and have a range for each index which includes the range\n"
1518              "for the corresponding index in @var{array0}.  @var{proc} is applied to\n"              "for the corresponding index in @var{array0}.  @var{proc} is applied to\n"
# Line 1664  rafe (SCM ra0,SCM proc,SCM ras) Line 1664  rafe (SCM ra0,SCM proc,SCM ras)
1664    
1665  SCM_DEFINE (scm_array_for_each, "array-for-each", 2, 0, 1,  SCM_DEFINE (scm_array_for_each, "array-for-each", 2, 0, 1,
1666              (SCM proc, SCM ra0, SCM lra),              (SCM proc, SCM ra0, SCM lra),
1667              "@var{proc} is applied to each tuple of elements of @var{array0} @dots{}\n"              "Apply @var{proc} to each tuple of elements of @var{array0} @dots{}\n"
1668              "in row-major order.  The value returned is unspecified.")              "in row-major order.  The value returned is unspecified.")
1669  #define FUNC_NAME s_scm_array_for_each  #define FUNC_NAME s_scm_array_for_each
1670  {  {
# Line 1677  SCM_DEFINE (scm_array_for_each, "array-f Line 1677  SCM_DEFINE (scm_array_for_each, "array-f
1677    
1678  SCM_DEFINE (scm_array_index_map_x, "array-index-map!", 2, 0, 0,  SCM_DEFINE (scm_array_index_map_x, "array-index-map!", 2, 0, 0,
1679              (SCM ra, SCM proc),              (SCM ra, SCM proc),
1680              "applies @var{proc} to the indices of each element of @var{array} in\n"              "Apply @var{proc} to the indices of each element of @var{array} in\n"
1681              "turn, storing the result in the corresponding element.  The value\n"              "turn, storing the result in the corresponding element.  The value\n"
1682              "returned and the order of application are unspecified.\n\n"              "returned and the order of application are unspecified.\n\n"
1683              "One can implement @var{array-indexes} as\n"              "One can implement @var{array-indexes} as\n"

Legend:
Removed from v.1.77.2.2  
changed lines
  Added in v.1.77.2.3

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