-
Notifications
You must be signed in to change notification settings - Fork 0
/
embedded3.c
54 lines (38 loc) · 1.08 KB
/
embedded3.c
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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
/* embedded3-c.c */
#include <chicken.h>
#include <assert.h>
#ifdef C_SIXTY_FOUR
# ifdef C_LLP
# define UWORD_FORMAT_STRING "0x%016llx"
# else
# define UWORD_FORMAT_STRING "0x%016lx"
# endif
#else
# define UWORD_FORMAT_STRING "0x%08x"
#endif
extern double baz(int);
int main() {
char buffer[ 256 ];
int status;
C_word val = C_SCHEME_UNDEFINED;
C_word *data[ 1 ];
data[ 0 ] = &val;
CHICKEN_run(C_toplevel);
status = CHICKEN_read("(bar 99)", &val);
assert(status);
C_gc_protect(data, 1);
printf("data: "UWORD_FORMAT_STRING"\n", (C_uword)val);
status = CHICKEN_eval_string_to_string("(bar)", buffer, 255);
assert(!status);
CHICKEN_get_error_message(buffer, 255);
printf("ouch (expected): %s\n", buffer);
status = CHICKEN_eval_string_to_string("(bar 23)", buffer, 255);
assert(status);
printf("-> %s\n", buffer);
printf("data: "UWORD_FORMAT_STRING"\n", (C_uword)val);
status = CHICKEN_eval_to_string(val, buffer, 255);
assert(status);
printf("-> %s\n", buffer);
printf("-> %g\n", baz(22));
return 0;
}