1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 04:10:18 +02:00

Deprecated everything.

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

View file

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

View file

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

View file

@ -20,6 +20,8 @@
#include "libguile/gh.h"
#if SCM_ENABLE_DEPRECATED
typedef SCM (*gh_eval_t) (void *data, SCM jmpbuf);
/* 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);
}
#endif /* SCM_ENABLE_DEPRECATED */
/*
Local Variables:
c-file-style: "gnu"

View file

@ -21,6 +21,8 @@
#include "libguile/gh.h"
#if SCM_ENABLE_DEPRECATED
/* allows you to define new scheme primitives written in C */
SCM
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));
}
#endif /* SCM_ENABLE_DEPRECATED */
/*
Local Variables:
c-file-style: "gnu"

View file

@ -22,6 +22,8 @@
#include "libguile/gh.h"
#if SCM_ENABLE_DEPRECATED
typedef void (*main_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;
}
#endif /* SCM_ENABLE_DEPRECATED */
/*
Local Variables:
c-file-style: "gnu"

View file

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

View file

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

View file

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