diff options
author | Marius Vollmer <mvo@zagadka.de> | 2004-10-26 17:01:35 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2004-10-26 17:01:35 +0000 |
commit | 0d0f372f5b67914d11ec986338f15ea1e8b658b4 (patch) | |
tree | 1a0b7668e495ab9bbcd6828d19a9b948438be06d /srfi/srfi-4.h | |
parent | a4022e691e12857b9c836c4bdc5b31462b73c1b2 (diff) | |
download | guile-0d0f372f5b67914d11ec986338f15ea1e8b658b4.tar.gz |
Moved content into core; only the skeletons remains.
Diffstat (limited to 'srfi/srfi-4.h')
-rw-r--r-- | srfi/srfi-4.h | 110 |
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 */ |