summaryrefslogtreecommitdiff
path: root/srfi/srfi-4.h
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2001-11-02 00:21:25 +0000
committerMarius Vollmer <mvo@zagadka.de>2001-11-02 00:21:25 +0000
commit064a03fd191f8a384421fcd4e0302a43b91b1eb1 (patch)
tree157b585939f28cbbff89d9ebda8e2b02b69dd496 /srfi/srfi-4.h
parent88a934718716ccfa73925b9f30593a8f6e52d6ee (diff)
downloadguile-064a03fd191f8a384421fcd4e0302a43b91b1eb1.tar.gz
Defined SCM_SRFI4_API. Prefixed each exported
symbol with SCM_SRFI4_API.
Diffstat (limited to 'srfi/srfi-4.h')
-rw-r--r--srfi/srfi-4.h174
1 files changed, 93 insertions, 81 deletions
diff --git a/srfi/srfi-4.h b/srfi/srfi-4.h
index 2b8df5161..f53784d60 100644
--- a/srfi/srfi-4.h
+++ b/srfi/srfi-4.h
@@ -46,96 +46,108 @@
* If you do not wish that, delete this exception notice. */
-SCM scm_u8vector_p (SCM obj);
-SCM scm_make_u8vector (SCM n, SCM fill);
-SCM scm_u8vector (SCM l);
-SCM scm_u8vector_length (SCM uvec);
-SCM scm_u8vector_ref (SCM uvec, SCM index);
-SCM scm_u8vector_set_x (SCM uvec, SCM index, SCM value);
-SCM scm_u8vector_to_list (SCM uvec);
-SCM scm_list_to_u8vector (SCM l);
+/* 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. */
-SCM scm_s8vector_p (SCM obj);
-SCM scm_make_s8vector (SCM n, SCM fill);
-SCM scm_s8vector (SCM l);
-SCM scm_s8vector_length (SCM uvec);
-SCM scm_s8vector_ref (SCM uvec, SCM index);
-SCM scm_s8vector_set_x (SCM uvec, SCM index, SCM value);
-SCM scm_s8vector_to_list (SCM uvec);
-SCM scm_list_to_s8vector (SCM l);
+#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
-SCM scm_u16vector_p (SCM obj);
-SCM scm_make_u16vector (SCM n, SCM fill);
-SCM scm_u16vector (SCM l);
-SCM scm_u16vector_length (SCM uvec);
-SCM scm_u16vector_ref (SCM uvec, SCM index);
-SCM scm_u16vector_set_x (SCM uvec, SCM index, SCM value);
-SCM scm_u16vector_to_list (SCM uvec);
-SCM scm_list_to_u16vector (SCM l);
+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 scm_s16vector_p (SCM obj);
-SCM scm_make_s16vector (SCM n, SCM fill);
-SCM scm_s16vector (SCM l);
-SCM scm_s16vector_length (SCM uvec);
-SCM scm_s16vector_ref (SCM uvec, SCM index);
-SCM scm_s16vector_set_x (SCM uvec, SCM index, SCM value);
-SCM scm_s16vector_to_list (SCM uvec);
-SCM scm_list_to_s16vector (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 scm_u32vector_p (SCM obj);
-SCM scm_make_u32vector (SCM n, SCM fill);
-SCM scm_u32vector (SCM l);
-SCM scm_u32vector_length (SCM uvec);
-SCM scm_u32vector_ref (SCM uvec, SCM index);
-SCM scm_u32vector_set_x (SCM uvec, SCM index, SCM value);
-SCM scm_u32vector_to_list (SCM uvec);
-SCM scm_list_to_u32vector (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 scm_s32vector_p (SCM obj);
-SCM scm_make_s32vector (SCM n, SCM fill);
-SCM scm_s32vector (SCM l);
-SCM scm_s32vector_length (SCM uvec);
-SCM scm_s32vector_ref (SCM uvec, SCM index);
-SCM scm_s32vector_set_x (SCM uvec, SCM index, SCM value);
-SCM scm_s32vector_to_list (SCM uvec);
-SCM scm_list_to_s32vector (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 scm_u64vector_p (SCM obj);
-SCM scm_make_u64vector (SCM n, SCM fill);
-SCM scm_u64vector (SCM l);
-SCM scm_u64vector_length (SCM uvec);
-SCM scm_u64vector_ref (SCM uvec, SCM index);
-SCM scm_u64vector_set_x (SCM uvec, SCM index, SCM value);
-SCM scm_u64vector_to_list (SCM uvec);
-SCM scm_list_to_u64vector (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 scm_s64vector_p (SCM obj);
-SCM scm_make_s64vector (SCM n, SCM fill);
-SCM scm_s64vector (SCM l);
-SCM scm_s64vector_length (SCM uvec);
-SCM scm_s64vector_ref (SCM uvec, SCM index);
-SCM scm_s64vector_set_x (SCM uvec, SCM index, SCM value);
-SCM scm_s64vector_to_list (SCM uvec);
-SCM scm_list_to_s64vector (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 scm_f32vector_p (SCM obj);
-SCM scm_make_f32vector (SCM n, SCM fill);
-SCM scm_f32vector (SCM l);
-SCM scm_f32vector_length (SCM uvec);
-SCM scm_f32vector_ref (SCM uvec, SCM index);
-SCM scm_f32vector_set_x (SCM uvec, SCM index, SCM value);
-SCM scm_f32vector_to_list (SCM uvec);
-SCM scm_list_to_f32vector (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 scm_f64vector_p (SCM obj);
-SCM scm_make_f64vector (SCM n, SCM fill);
-SCM scm_f64vector (SCM l);
-SCM scm_f64vector_length (SCM uvec);
-SCM scm_f64vector_ref (SCM uvec, SCM index);
-SCM scm_f64vector_set_x (SCM uvec, SCM index, SCM value);
-SCM scm_f64vector_to_list (SCM uvec);
-SCM scm_list_to_f64vector (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);
-void scm_init_srfi_4 (void);
+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 */