mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

(SCM_ARRAYP, SCM_ARRAY_NDIM, SCM_ARRAY_CONTP, SCM_ARRAY_MEM,

Browse source 
SCM_ARRAY_V, SCM_ARRAY_BASE, SCM_ARRAY_DIMS, scm_t_array): New
deprecated versions.
This commit is contained in:
Marius Vollmer 2005-01-11 16:55:29 +00:00
parent 8789459042
commit 1f366ef7f0
2 changed files with 71 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

60
libguile/deprecated.c
View file

@ -1297,6 +1297,66 @@ scm_vector_equal_p (SCM x, SCM y)
return scm_equal_p (x, y);
}
int
SCM_ARRAYP (SCM a)
{
scm_c_issue_deprecation_warning
("SCM_ARRAYP is deprecated. Use scm_is_array instead.");
return SCM_I_ARRAYP(a) || SCM_I_ENCLOSED_ARRAYP(a);
}
size_t
SCM_ARRAY_NDIM (SCM a)
{
scm_c_issue_deprecation_warning
("SCM_ARRAY_NDIM is deprecated. "
"Use scm_c_array_rank or scm_array_handle_rank instead.");
return scm_c_array_rank (a);
}
int
SCM_ARRAY_CONTP (SCM a)
{
scm_c_issue_deprecation_warning
("SCM_ARRAY_CONTP is deprecated. Do not use it.");
return SCM_I_ARRAY_CONTP (a);
}
scm_t_array *
SCM_ARRAY_MEM (SCM a)
{
scm_c_issue_deprecation_warning
("SCM_ARRAY_MEM is deprecated. Do not use it.");
return (scm_t_array *)SCM_I_ARRAY_MEM (a);
}
SCM
SCM_ARRAY_V (SCM a)
{
/* We could use scm_shared_array_root here, but it is better to move
them away from expecting vectors as the basic storage for arrays.
*/
scm_c_issue_deprecation_warning
("SCM_ARRAY_V is deprecated. Do not use it.");
return SCM_I_ARRAY_V (a);
}
size_t
SCM_ARRAY_BASE (SCM a)
{
scm_c_issue_deprecation_warning
("SCM_ARRAY_BASE is deprecated. Do not use it.");
return SCM_I_ARRAY_BASE (a);
}
scm_t_array_dim *
SCM_ARRAY_DIMS (SCM a)
{
scm_c_issue_deprecation_warning
("SCM_ARRAY_DIMS is deprecated. Use scm_array_handle_dims instead.");
return SCM_I_ARRAY_DIMS (a);
}
void
scm_i_init_deprecated ()
{

11
libguile/deprecated.h
View file

@ -476,6 +476,17 @@ SCM_API SCM SCM_VECTOR_REF (SCM x, size_t idx);
SCM_API void SCM_VECTOR_SET (SCM x, size_t idx, SCM val);
SCM_API SCM scm_vector_equal_p (SCM x, SCM y);
typedef scm_i_t_array scm_t_array;
SCM_API int SCM_ARRAYP (SCM a);
SCM_API size_t SCM_ARRAY_NDIM (SCM a);
SCM_API int SCM_ARRAY_CONTP (SCM a);
SCM_API scm_t_array *SCM_ARRAY_MEM (SCM a);
SCM_API SCM SCM_ARRAY_V (SCM a);
SCM_API size_t SCM_ARRAY_BASE (SCM a);
SCM_API scm_t_array_dim *SCM_ARRAY_DIMS (SCM a);
void scm_i_init_deprecated (void);
#endif