summaryrefslogtreecommitdiff
path: root/srfi/srfi-4.h
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2004-10-26 17:01:35 +0000
committerMarius Vollmer <mvo@zagadka.de>2004-10-26 17:01:35 +0000
commit0d0f372f5b67914d11ec986338f15ea1e8b658b4 (patch)
tree1a0b7668e495ab9bbcd6828d19a9b948438be06d /srfi/srfi-4.h
parenta4022e691e12857b9c836c4bdc5b31462b73c1b2 (diff)
downloadguile-0d0f372f5b67914d11ec986338f15ea1e8b658b4.tar.gz
Moved content into core; only the skeletons remains.
Diffstat (limited to 'srfi/srfi-4.h')
-rw-r--r--srfi/srfi-4.h110
1 files changed, 5 insertions, 105 deletions
diff --git a/srfi/srfi-4.h b/srfi/srfi-4.h
index a27d86093..99a7d9b7c 100644
--- a/srfi/srfi-4.h
+++ b/srfi/srfi-4.h
@@ -1,5 +1,5 @@
-#ifndef SCM_SRFI_4_H
-#define SCM_SRFI_4_H
+#ifndef SCM_SRFI_SRFI_4_H
+#define SCM_SRFI_SRFI_4_H
/* srfi-4.c --- Homogeneous numeric vector datatypes.
*
* Copyright (C) 2001 Free Software Foundation, Inc.
@@ -20,108 +20,8 @@
*/
-/* SCM_SRFI4_API is a macro prepended to all function and data definitions
- which should be exported or imported in the resulting dynamic link
- library in the Win32 port. */
+/* All SRFI-4 procedures are in in the core now. */
-#if defined (SCM_SRFI4_IMPORT)
-# define SCM_SRFI4_API __declspec (dllimport) extern
-#elif defined (SCM_SRFI4_EXPORT) || defined (DLL_EXPORT)
-# define SCM_SRFI4_API __declspec (dllexport) extern
-#else
-# define SCM_SRFI4_API extern
-#endif
+#include <libguile.h>
-SCM_SRFI4_API SCM scm_u8vector_p (SCM obj);
-SCM_SRFI4_API SCM scm_make_u8vector (SCM n, SCM fill);
-SCM_SRFI4_API SCM scm_u8vector (SCM l);
-SCM_SRFI4_API SCM scm_u8vector_length (SCM uvec);
-SCM_SRFI4_API SCM scm_u8vector_ref (SCM uvec, SCM index);
-SCM_SRFI4_API SCM scm_u8vector_set_x (SCM uvec, SCM index, SCM value);
-SCM_SRFI4_API SCM scm_u8vector_to_list (SCM uvec);
-SCM_SRFI4_API SCM scm_list_to_u8vector (SCM l);
-
-SCM_SRFI4_API SCM scm_s8vector_p (SCM obj);
-SCM_SRFI4_API SCM scm_make_s8vector (SCM n, SCM fill);
-SCM_SRFI4_API SCM scm_s8vector (SCM l);
-SCM_SRFI4_API SCM scm_s8vector_length (SCM uvec);
-SCM_SRFI4_API SCM scm_s8vector_ref (SCM uvec, SCM index);
-SCM_SRFI4_API SCM scm_s8vector_set_x (SCM uvec, SCM index, SCM value);
-SCM_SRFI4_API SCM scm_s8vector_to_list (SCM uvec);
-SCM_SRFI4_API SCM scm_list_to_s8vector (SCM l);
-
-SCM_SRFI4_API SCM scm_u16vector_p (SCM obj);
-SCM_SRFI4_API SCM scm_make_u16vector (SCM n, SCM fill);
-SCM_SRFI4_API SCM scm_u16vector (SCM l);
-SCM_SRFI4_API SCM scm_u16vector_length (SCM uvec);
-SCM_SRFI4_API SCM scm_u16vector_ref (SCM uvec, SCM index);
-SCM_SRFI4_API SCM scm_u16vector_set_x (SCM uvec, SCM index, SCM value);
-SCM_SRFI4_API SCM scm_u16vector_to_list (SCM uvec);
-SCM_SRFI4_API SCM scm_list_to_u16vector (SCM l);
-
-SCM_SRFI4_API SCM scm_s16vector_p (SCM obj);
-SCM_SRFI4_API SCM scm_make_s16vector (SCM n, SCM fill);
-SCM_SRFI4_API SCM scm_s16vector (SCM l);
-SCM_SRFI4_API SCM scm_s16vector_length (SCM uvec);
-SCM_SRFI4_API SCM scm_s16vector_ref (SCM uvec, SCM index);
-SCM_SRFI4_API SCM scm_s16vector_set_x (SCM uvec, SCM index, SCM value);
-SCM_SRFI4_API SCM scm_s16vector_to_list (SCM uvec);
-SCM_SRFI4_API SCM scm_list_to_s16vector (SCM l);
-
-SCM_SRFI4_API SCM scm_u32vector_p (SCM obj);
-SCM_SRFI4_API SCM scm_make_u32vector (SCM n, SCM fill);
-SCM_SRFI4_API SCM scm_u32vector (SCM l);
-SCM_SRFI4_API SCM scm_u32vector_length (SCM uvec);
-SCM_SRFI4_API SCM scm_u32vector_ref (SCM uvec, SCM index);
-SCM_SRFI4_API SCM scm_u32vector_set_x (SCM uvec, SCM index, SCM value);
-SCM_SRFI4_API SCM scm_u32vector_to_list (SCM uvec);
-SCM_SRFI4_API SCM scm_list_to_u32vector (SCM l);
-
-SCM_SRFI4_API SCM scm_s32vector_p (SCM obj);
-SCM_SRFI4_API SCM scm_make_s32vector (SCM n, SCM fill);
-SCM_SRFI4_API SCM scm_s32vector (SCM l);
-SCM_SRFI4_API SCM scm_s32vector_length (SCM uvec);
-SCM_SRFI4_API SCM scm_s32vector_ref (SCM uvec, SCM index);
-SCM_SRFI4_API SCM scm_s32vector_set_x (SCM uvec, SCM index, SCM value);
-SCM_SRFI4_API SCM scm_s32vector_to_list (SCM uvec);
-SCM_SRFI4_API SCM scm_list_to_s32vector (SCM l);
-
-SCM_SRFI4_API SCM scm_u64vector_p (SCM obj);
-SCM_SRFI4_API SCM scm_make_u64vector (SCM n, SCM fill);
-SCM_SRFI4_API SCM scm_u64vector (SCM l);
-SCM_SRFI4_API SCM scm_u64vector_length (SCM uvec);
-SCM_SRFI4_API SCM scm_u64vector_ref (SCM uvec, SCM index);
-SCM_SRFI4_API SCM scm_u64vector_set_x (SCM uvec, SCM index, SCM value);
-SCM_SRFI4_API SCM scm_u64vector_to_list (SCM uvec);
-SCM_SRFI4_API SCM scm_list_to_u64vector (SCM l);
-
-SCM_SRFI4_API SCM scm_s64vector_p (SCM obj);
-SCM_SRFI4_API SCM scm_make_s64vector (SCM n, SCM fill);
-SCM_SRFI4_API SCM scm_s64vector (SCM l);
-SCM_SRFI4_API SCM scm_s64vector_length (SCM uvec);
-SCM_SRFI4_API SCM scm_s64vector_ref (SCM uvec, SCM index);
-SCM_SRFI4_API SCM scm_s64vector_set_x (SCM uvec, SCM index, SCM value);
-SCM_SRFI4_API SCM scm_s64vector_to_list (SCM uvec);
-SCM_SRFI4_API SCM scm_list_to_s64vector (SCM l);
-
-SCM_SRFI4_API SCM scm_f32vector_p (SCM obj);
-SCM_SRFI4_API SCM scm_make_f32vector (SCM n, SCM fill);
-SCM_SRFI4_API SCM scm_f32vector (SCM l);
-SCM_SRFI4_API SCM scm_f32vector_length (SCM uvec);
-SCM_SRFI4_API SCM scm_f32vector_ref (SCM uvec, SCM index);
-SCM_SRFI4_API SCM scm_f32vector_set_x (SCM uvec, SCM index, SCM value);
-SCM_SRFI4_API SCM scm_f32vector_to_list (SCM uvec);
-SCM_SRFI4_API SCM scm_list_to_f32vector (SCM l);
-
-SCM_SRFI4_API SCM scm_f64vector_p (SCM obj);
-SCM_SRFI4_API SCM scm_make_f64vector (SCM n, SCM fill);
-SCM_SRFI4_API SCM scm_f64vector (SCM l);
-SCM_SRFI4_API SCM scm_f64vector_length (SCM uvec);
-SCM_SRFI4_API SCM scm_f64vector_ref (SCM uvec, SCM index);
-SCM_SRFI4_API SCM scm_f64vector_set_x (SCM uvec, SCM index, SCM value);
-SCM_SRFI4_API SCM scm_f64vector_to_list (SCM uvec);
-SCM_SRFI4_API SCM scm_list_to_f64vector (SCM l);
-
-SCM_SRFI4_API void scm_init_srfi_4 (void);
-
-#endif /* SCM_SRFI_4_H */
+#endif /* SCM_SRFI_SRFI_4_H */