From 1f366ef7f04cccb99ef26489153a6e3db37cd7fa Mon Sep 17 00:00:00 2001 From: Marius Vollmer Date: Tue, 11 Jan 2005 16:55:29 +0000 Subject: (SCM_ARRAYP, SCM_ARRAY_NDIM, SCM_ARRAY_CONTP, SCM_ARRAY_MEM, SCM_ARRAY_V, SCM_ARRAY_BASE, SCM_ARRAY_DIMS, scm_t_array): New deprecated versions. --- libguile/deprecated.c | 60 +++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 60 insertions(+) (limited to 'libguile/deprecated.c') diff --git a/libguile/deprecated.c b/libguile/deprecated.c index 91cb86ccf..1429e2238 100644 --- a/libguile/deprecated.c +++ b/libguile/deprecated.c @@ -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 () { -- cgit v1.2.3