diff options
Diffstat (limited to 'libguile/generalized-arrays.h')
-rw-r--r-- | libguile/generalized-arrays.h | 73 |
1 files changed, 0 insertions, 73 deletions
diff --git a/libguile/generalized-arrays.h b/libguile/generalized-arrays.h deleted file mode 100644 index 130807b29..000000000 --- a/libguile/generalized-arrays.h +++ /dev/null @@ -1,73 +0,0 @@ -#ifndef SCM_GENERALIZED_ARRAYS_H -#define SCM_GENERALIZED_ARRAYS_H - -/* Copyright 1995-1997,1999-2001,2004,2006,2008-2009,2013-2014,2018 - Free Software Foundation, Inc. - - This file is part of Guile. - - Guile is free software: you can redistribute it and/or modify it - under the terms of the GNU Lesser General Public License as published - by the Free Software Foundation, either version 3 of the License, or - (at your option) any later version. - - Guile is distributed in the hope that it will be useful, but WITHOUT - ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or - FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public - License for more details. - - You should have received a copy of the GNU Lesser General Public - License along with Guile. If not, see - <https://www.gnu.org/licenses/>. */ - - - -#include "libguile/array-handle.h" -#include "libguile/boolean.h" -#include <libguile/error.h> - - - -/* These functions operate on all kinds of arrays that Guile knows about. - */ - - -#define SCM_VALIDATE_ARRAY(pos, v) \ - do { \ - SCM_ASSERT (SCM_HEAP_OBJECT_P (v) \ - && scm_is_true (scm_array_p (v, SCM_UNDEFINED)), \ - v, pos, FUNC_NAME); \ - } while (0) - - -/** Arrays */ - -SCM_API int scm_is_array (SCM obj); -SCM_API SCM scm_array_p (SCM v, SCM unused); -SCM_INTERNAL SCM scm_array_p_2 (SCM); - -SCM_API int scm_is_typed_array (SCM obj, SCM type); -SCM_API SCM scm_typed_array_p (SCM v, SCM type); - -SCM_API size_t scm_c_array_length (SCM ra); -SCM_API SCM scm_array_length (SCM ra); - -SCM_API SCM scm_array_dimensions (SCM ra); -SCM_API SCM scm_array_type (SCM ra); -SCM_API SCM scm_array_type_code (SCM ra); -SCM_API SCM scm_array_in_bounds_p (SCM v, SCM args); - -SCM_API SCM scm_c_array_ref_1 (SCM v, ssize_t idx0); -SCM_API SCM scm_c_array_ref_2 (SCM v, ssize_t idx0, ssize_t idx1); - -SCM_API void scm_c_array_set_1_x (SCM v, SCM obj, ssize_t idx0); -SCM_API void scm_c_array_set_2_x (SCM v, SCM obj, ssize_t idx0, ssize_t idx1); - -SCM_API SCM scm_array_ref (SCM v, SCM args); -SCM_API SCM scm_array_set_x (SCM v, SCM obj, SCM args); -SCM_API SCM scm_array_to_list (SCM v); - -SCM_INTERNAL void scm_init_generalized_arrays (void); - - -#endif /* SCM_GENERALIZED_ARRAYS_H */ |