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
|
#include <stdint.h>
#include <assert.h>
#include <stdio.h>
#include <fwd/mod.h>
long fwdprint_nl(fwd_extern_args_t args)
{
assert(args.argc == 0);
putchar('\n');
return 0;
}
long fwdprint_i64(fwd_extern_args_t args)
{
assert(args.argc == 1);
int64_t n = FWD_ARG_T(args, 0, int64_t);
printf("%lld", (long long)n);
return 0;
}
long fwdprint_str(fwd_extern_args_t args)
{
assert(args.argc == 1);
const char *s = FWD_ARG_T(args, 0, const char *);
printf("%s", s);
return 0;
}
int fwdopen(fwd_state_t *state)
{
FWD_REGISTER(state, fwdprint_nl,
FWD_VOID);
FWD_REGISTER(state, fwdprint_i64,
FWD_VOID, FWD_T(int64_t));
FWD_REGISTER(state, fwdprint_str,
FWD_VOID, FWD_T(const char *));
return 0;
}
|
