mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 13:00:26 +02:00
Code Activity

Deprecated everything.

Browse source
This commit is contained in:
Marius Vollmer 2005-06-12 12:34:52 +00:00
parent 9b26d381c1
commit 5c56ebe15b
8 changed files with 32 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/gh.h
View file

@ -23,6 +23,8 @@
*/ */
#include <libguile.h> #include <libguile.h>
#if SCM_ENABLE_DEPRECATED
#ifdef __cplusplus #ifdef __cplusplus
extern "C" { extern "C" {
#endif #endif
@ -230,6 +232,8 @@ SCM_API void gh_newline (void);
} }
#endif #endif
#endif
#endif /* __GH_H */ #endif /* __GH_H */
/* /*

4
libguile/gh_data.c
View file

@ -28,6 +28,8 @@
#include <assert.h> #include <assert.h>
#if SCM_ENABLE_DEPRECATED
/* data conversion C->scheme */ /* data conversion C->scheme */
SCM SCM
@ -648,6 +650,8 @@ gh_module_lookup (SCM module, const char *sname)
} }
#undef FUNC_NAME #undef FUNC_NAME
#endif /* SCM_ENABLE_DEPRECATED */
/* /*
Local Variables: Local Variables:
c-file-style: "gnu" c-file-style: "gnu"

4
libguile/gh_eval.c
View file

@ -20,6 +20,8 @@
#include "libguile/gh.h" #include "libguile/gh.h"
#if SCM_ENABLE_DEPRECATED
typedef SCM (*gh_eval_t) (void *data, SCM jmpbuf); typedef SCM (*gh_eval_t) (void *data, SCM jmpbuf);
/* Evaluate the string; toss the value. */ /* Evaluate the string; toss the value. */
@ -94,6 +96,8 @@ gh_eval_file_with_standard_handler (const char *scheme_code)
return gh_eval_file_with_catch (scheme_code, gh_standard_handler); return gh_eval_file_with_catch (scheme_code, gh_standard_handler);
} }
#endif /* SCM_ENABLE_DEPRECATED */
/* /*
Local Variables: Local Variables:
c-file-style: "gnu" c-file-style: "gnu"

4
libguile/gh_funcs.c
View file

@ -21,6 +21,8 @@
#include "libguile/gh.h" #include "libguile/gh.h"
#if SCM_ENABLE_DEPRECATED
/* allows you to define new scheme primitives written in C */ /* allows you to define new scheme primitives written in C */
SCM SCM
gh_new_procedure (const char *proc_name, SCM (*fn) (), gh_new_procedure (const char *proc_name, SCM (*fn) (),
@ -143,6 +145,8 @@ gh_call3 (SCM proc, SCM arg1, SCM arg2, SCM arg3)
return scm_apply (proc, arg1, scm_cons2 (arg2, arg3, scm_listofnull)); return scm_apply (proc, arg1, scm_cons2 (arg2, arg3, scm_listofnull));
} }
#endif /* SCM_ENABLE_DEPRECATED */
/* /*
Local Variables: Local Variables:
c-file-style: "gnu" c-file-style: "gnu"

4
libguile/gh_init.c
View file

@ -22,6 +22,8 @@
#include "libguile/gh.h" #include "libguile/gh.h"
#if SCM_ENABLE_DEPRECATED
typedef void (*main_prog_t) (int argc, char **argv); typedef void (*main_prog_t) (int argc, char **argv);
typedef void (*repl_prog_t) (int argc, char **argv); typedef void (*repl_prog_t) (int argc, char **argv);
@ -80,6 +82,8 @@ gh_standard_handler (void *data SCM_UNUSED, SCM tag, SCM throw_args SCM_UNUSED)
return SCM_BOOL_F; return SCM_BOOL_F;
} }
#endif /* SCM_ENABLE_DEPRECATED */
/* /*
Local Variables: Local Variables:
c-file-style: "gnu" c-file-style: "gnu"

4
libguile/gh_io.c
View file

@ -18,6 +18,8 @@
#include "libguile/gh.h" #include "libguile/gh.h"
#if SCM_ENABLE_DEPRECATED
void void
gh_display (SCM x) gh_display (SCM x)
{ {
@ -36,6 +38,8 @@ gh_newline ()
scm_newline (scm_current_output_port ()); scm_newline (scm_current_output_port ());
} }
#endif /* SCM_ENABLE_DEPRECATED */
/* /*
Local Variables: Local Variables:
c-file-style: "gnu" c-file-style: "gnu"

4
libguile/gh_list.c
View file

@ -20,6 +20,8 @@
#include "libguile/gh.h" #include "libguile/gh.h"
#if SCM_ENABLE_DEPRECATED
/* returns the length of a list */ /* returns the length of a list */
unsigned long unsigned long
gh_length (SCM l) gh_length (SCM l)
@ -166,6 +168,8 @@ gh_set_cdr_x(SCM pair, SCM value)
return scm_set_cdr_x(pair, value); return scm_set_cdr_x(pair, value);
} }
#endif /* SCM_ENABLE_DEPRECATED */
/* /*
Local Variables: Local Variables:
c-file-style: "gnu" c-file-style: "gnu"

4
libguile/gh_predicates.c
View file

@ -20,6 +20,8 @@
#include "libguile/gh.h" #include "libguile/gh.h"
#if SCM_ENABLE_DEPRECATED
/* type predicates: tell you if an SCM object has a given type */ /* type predicates: tell you if an SCM object has a given type */
int int
gh_boolean_p (SCM val) gh_boolean_p (SCM val)
@ -110,6 +112,8 @@ gh_null_p(SCM l)
return (scm_is_true(scm_null_p(l))); return (scm_is_true(scm_null_p(l)));
} }
#endif /* SCM_ENABLE_DEPRECATED */
/* /*
Local Variables: Local Variables:
c-file-style: "gnu" c-file-style: "gnu"