1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
/*
* Part of Scheme 48 1.9. See file COPYING for notices and license.
*
* Authors: Marcus Crestani, Harald Glab-Phlak
*/
/* Modelled on Jim Blandy's foreign function interface that he put in
his Scheme implementation called Minor. */
#ifndef _H_FFI
#define _H_FFI
/* internal interface */
s48_call_t s48_first_call (void);
s48_call_t s48_get_current_call (void);
s48_call_t s48_push_call (s48_call_t call);
void s48_pop_to (s48_call_t call);
void s48_initialize_ffi (void);
char * s48_make_local_bv (s48_call_t call, s48_ref_t byte_vector, long s);
char * s48_make_local_bv_readonly (s48_call_t call, s48_ref_t byte_vector, long s);
void s48_copy_local_bvs_to_scheme (s48_call_t call);
void s48_copy_local_bvs_from_scheme (s48_call_t call);
/* gc interface */
void s48_trace_external_calls (void);
#ifdef DEBUG_FFI
void init_debug_ffi (void);
static size_t count_calls(), count_local_refs(), count_global_refs();
#endif
#endif /* _H_FFI */
|
