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:
parent
9b26d381c1
commit
5c56ebe15b
8 changed files with 32 additions and 0 deletions
|
@ -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 */
|
||||
|
||||
/*
|
||||
|
|
|
@ -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"
|
||||
|
|
|
@ -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"
|
||||
|
|
|
@ -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"
|
||||
|
|
|
@ -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"
|
||||
|
|
|
@ -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"
|
||||
|
|
|
@ -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"
|
||||
|
|
|
@ -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"
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue