* srfi-14.c: Okay. Now I got it. Really. This time it's fixed.

[bpt/guile.git] / libguile.h

diff --git a/libguile.h b/libguile.h
index 14a8070..cb7d3bf 100644 (file)
--- a/libguile.h
+++ b/libguile.h
@@ -1,7 +1,7 @@
 #ifndef LIBGUILEH
 #define LIBGUILEH
 
-/*     Copyright (C) 1995, 1996, 1997, 1998, 2000 Free Software Foundation, Inc.
+/*     Copyright (C) 1995, 1996, 1997, 1998, 2000, 2001 Free Software Foundation, Inc.
  * 
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
@@ -78,12 +78,15 @@ extern "C" {
 #include "libguile/fports.h"
 #include "libguile/gc.h"
 #include "libguile/gdbint.h"
+#include "libguile/goops.h"
 #include "libguile/gsubr.h"
 #include "libguile/guardians.h"
 #include "libguile/hash.h"
 #include "libguile/hashtab.h"
 #include "libguile/init.h"
 #include "libguile/ioext.h"
+#include "libguile/rdelim.h"
+#include "libguile/rw.h"
 #include "libguile/keywords.h"
 #include "libguile/list.h"
 #include "libguile/load.h"
@@ -119,11 +122,11 @@ extern "C" {
 #include "libguile/strports.h"
 #include "libguile/struct.h"
 #include "libguile/symbols.h"
-#include "libguile/tag.h"
 #include "libguile/tags.h"
 #include "libguile/throw.h"
 #include "libguile/unif.h"
 #include "libguile/validate.h"
+#include "libguile/values.h"
 #include "libguile/variable.h"
 #include "libguile/vectors.h"
 #include "libguile/version.h"
@@ -133,6 +136,53 @@ extern "C" {
 #include "libguile/threads.h"
 #endif
 
+/* Deprecated type names.  Don't use them for new code. */
+
+#if SCM_DEBUG_DEPRECATED == 0
+
+typedef scm_t_array_dim scm_array_dim_t;
+typedef scm_t_array scm_array_t;
+typedef scm_t_bits scm_bits_t;
+typedef scm_t_c_bvec_limb scm_c_bvec_limb_t;
+typedef scm_t_c_hook_entry scm_c_hook_entry_t;
+typedef scm_t_c_hook_function scm_c_hook_function_t;
+typedef scm_t_c_hook scm_c_hook_t;
+typedef scm_t_catch_body scm_catch_body_t;
+typedef scm_t_catch_handler scm_catch_handler_t;
+typedef scm_t_complex scm_complex_t;
+typedef scm_t_contregs scm_contregs_t;
+typedef scm_t_debug_frame scm_debug_frame_t;
+typedef scm_t_debug_info scm_debug_info_t;
+typedef scm_t_double scm_double_t;
+typedef scm_t_fport scm_fport_t;
+typedef scm_t_guard scm_guard_t;
+typedef scm_t_i_rstate scm_i_rstate_t;
+typedef scm_t_info_frame scm_info_frame_t;
+typedef scm_t_inner scm_inner_t;
+typedef scm_t_method scm_method_t;
+typedef scm_t_option scm_option_t;
+typedef scm_t_port_rw_active scm_port_rw_active_t;
+typedef scm_t_port scm_port_t;
+typedef scm_t_ptob_descriptor scm_ptob_descriptor_t;
+typedef scm_t_rng scm_rng_t;
+typedef scm_t_rstate scm_rstate_t;
+typedef scm_t_signed_bits scm_signed_bits_t;
+typedef scm_t_srcprops_chunk scm_srcprops_chunk_t;
+typedef scm_t_srcprops scm_srcprops_t;
+typedef scm_t_stack scm_stack_t;
+typedef scm_t_struct_free scm_struct_free_t;
+typedef scm_t_subr_entry scm_subr_entry_t;
+
+#ifdef USE_THREADS
+
+typedef scm_t_cond scm_cond_t;
+typedef scm_t_key scm_key_t;
+typedef scm_t_mutex scm_mutex_t;
+
+#endif
+
+#endif /* !SCM_DEBUG_DEPRECATED */
+
 #ifdef __cplusplus
 }
 #endif