mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-15 08:10:17 +02:00
Code Activity

(scm_makstr, scm_makfromstr, scm_variable_set_name_hint,

Browse source 
scm_builtin_variable, scm_internal_with_fluids, scm_make_gsubr,
scm_make_gsubr_with_generic, scm_create_hook, SCM_LIST0, SCM_LIST1,
SCM_LIST2, SCM_LIST3, SCM_LIST4, SCM_LIST5, SCM_LIST6, SCM_LIST7,
SCM_LIST8, SCM_LIST9, scm_listify, scm_sloppy_memq, scm_sloppy_memv,
scm_sloppy_member, scm_read_and_eval_x): Re-added from release_1_6
branch.
This commit is contained in:
Marius Vollmer 2003-05-20 19:14:20 +00:00
parent 726571e0a7
commit 965445d4b3
2 changed files with 212 additions and 31 deletions
Download patch file Download diff file Expand all files Collapse all files

77
libguile/deprecated.h
View file

@ -86,6 +86,52 @@ SCM_API SCM scm_close_all_ports_except (SCM ports);
#define scm_tc7_msymbol scm_tc7_symbol
#define scm_tcs_symbols scm_tc7_symbol
SCM_API SCM scm_makstr (size_t len, int);
SCM_API SCM scm_makfromstr (const char *src, size_t len, int);
SCM_API SCM scm_variable_set_name_hint (SCM var, SCM hint);
SCM_API SCM scm_builtin_variable (SCM name);
SCM_API SCM scm_internal_with_fluids (SCM fluids, SCM vals,
SCM (*cproc)(void *), void *cdata);
SCM_API SCM scm_make_gsubr (const char *name, int req, int opt, int rst,
SCM (*fcn)());
SCM_API SCM scm_make_gsubr_with_generic (const char *name,
int req,
int opt,
int rst,
SCM (*fcn)(),
SCM *gf);
extern SCM scm_create_hook (const char* name, int n_args);
#define SCM_LIST0 SCM_EOL
#define SCM_LIST1(e0) scm_cons ((e0), SCM_EOL)
#define SCM_LIST2(e0, e1) scm_cons2 ((e0), (e1), SCM_EOL)
#define SCM_LIST3(e0, e1, e2) scm_cons ((e0), SCM_LIST2 ((e1), (e2)))
#define SCM_LIST4(e0, e1, e2, e3)\
scm_cons2 ((e0), (e1), SCM_LIST2 ((e2), (e3)))
#define SCM_LIST5(e0, e1, e2, e3, e4)\
scm_cons ((e0), SCM_LIST4 ((e1), (e2), (e3), (e4)))
#define SCM_LIST6(e0, e1, e2, e3, e4, e5)\
scm_cons2 ((e0), (e1), SCM_LIST4 ((e2), (e3), (e4), (e5)))
#define SCM_LIST7(e0, e1, e2, e3, e4, e5, e6)\
scm_cons ((e0), SCM_LIST6 ((e1), (e2), (e3), (e4), (e5), (e6)))
#define SCM_LIST8(e0, e1, e2, e3, e4, e5, e6, e7)\
scm_cons2 ((e0), (e1), SCM_LIST6 ((e2), (e3), (e4), (e5), (e6), (e7)))
#define SCM_LIST9(e0, e1, e2, e3, e4, e5, e6, e7, e8)\
scm_cons ((e0),\
SCM_LIST8 ((e1), (e2), (e3), (e4), (e5), (e6), (e7), (e8)))
#define scm_listify scm_list_n
SCM_API SCM scm_sloppy_memq (SCM x, SCM lst);
SCM_API SCM scm_sloppy_memv (SCM x, SCM lst);
SCM_API SCM scm_sloppy_member (SCM x, SCM lst);
SCM_API SCM scm_read_and_eval_x (SCM port);
void scm_i_init_deprecated (void);
#endif
@ -95,37 +141,6 @@ void scm_i_init_deprecated (void);
#if 0
/* TODO */
scm_variable_set_name_hint
scm_builtin_variable
SCM_VARVCELL
SCM_UDVARIABLEP
SCM_DEFVARIABLEP
scm_internal_with_fluids
scm_make_gsubr
scm_make_gsubr_with_generic
scm_create_hook
list*
SCM_LIST0
SCM_LIST1
SCM_LIST2
SCM_LIST3
SCM_LIST4
SCM_LIST5
SCM_LIST6
SCM_LIST7
SCM_LIST8
SCM_LIST9
scm_listify
scm_sloppy_memq
scm_sloppy_memv
scm_sloppy_member
scm_end_of_file_key
scm_read_and_eval_x
scm_mkbig
scm_big2inum
scm_adjbig