47 |
* If you do not wish that, delete this exception notice. */ |
* If you do not wish that, delete this exception notice. */ |
48 |
|
|
49 |
#include "libguile/__scm.h" |
#include "libguile/__scm.h" |
50 |
|
#include "libguile/strings.h" |
51 |
|
|
52 |
#if (SCM_ENABLE_DEPRECATED == 1) |
#if (SCM_ENABLE_DEPRECATED == 1) |
53 |
|
|
|
#include "libguile/strings.h" |
|
|
|
|
54 |
#define scm_substring_move_left_x scm_substring_move_x |
#define scm_substring_move_left_x scm_substring_move_x |
55 |
#define scm_substring_move_right_x scm_substring_move_x |
#define scm_substring_move_right_x scm_substring_move_x |
56 |
|
|
57 |
|
typedef long long long_long; |
58 |
|
typedef unsigned long long ulong_long; |
59 |
|
|
60 |
|
#define scm_sizet size_t |
61 |
|
|
62 |
|
SCM_API SCM scm_wta (SCM arg, const char *pos, const char *s_subr); |
63 |
|
|
64 |
|
#define SCM_WNA 8 |
65 |
|
#define SCM_OUTOFRANGE 10 |
66 |
|
#define SCM_NALLOC 11 |
67 |
|
|
68 |
|
SCM_API void scm_register_module_xxx (char *module_name, void *init_func); |
69 |
|
SCM_API SCM scm_registered_modules (void); |
70 |
|
SCM_API SCM scm_clear_registered_modules (void); |
71 |
|
|
72 |
void scm_i_init_deprecated (void); |
void scm_i_init_deprecated (void); |
73 |
|
|
74 |
#endif |
#endif |
78 |
#if 0 |
#if 0 |
79 |
/* TODO */ |
/* TODO */ |
80 |
|
|
|
long_long |
|
|
ulong_long |
|
|
scm_sizet |
|
|
SCM_WNA |
|
|
SCM_OUTOFRANGE |
|
|
SCM_NALLOC |
|
|
|
|
|
SCM_HUP_SIGNAL |
|
|
SCM_INT_SIGNAL |
|
|
SCM_FPE_SIGNAL |
|
|
SCM_BUS_SIGNAL |
|
|
|
|
|
SCM_SEGV_SIGNAL |
|
|
SCM_ALRM_SIGNAL |
|
|
SCM_GC_SIGNAL |
|
|
SCM_TICK_SIGNAL |
|
|
|
|
|
SCM_SIG_ORD |
|
|
SCM_ORD_SIG |
|
|
SCM_NUM_SIGS |
|
|
|
|
|
scm_register_module_xxx |
|
|
scm_registered_modules |
|
|
|
|
|
scm_clear_registered_modules |
|
|
scm_wta |
|
|
|
|
81 |
scm_eval_3 |
scm_eval_3 |
82 |
scm_eval2 |
scm_eval2 |
83 |
|
|