inc 0.1.3

Incremental approach to compiler construction
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

#include <stdarg.h>
#include <stdbool.h>
#include <stdint.h>
#include <stdlib.h>
#include <uchar.h>

#define BOOL 1

#define CHAR 2

#define FALSE (0 << SHIFT) | BOOL

#define MASK 7

#define NIL 4

#define NUM 0

#define PAIR 3

#define SHIFT 3

#define STR 5

#define SYM 6

#define TRUE (1 << SHIFT) | BOOL

#define VEC 7

#define WORDSIZE 8

int64_t car(int64_t val);

int64_t cdr(int64_t val);

void print(int64_t val, bool nested);

int64_t rt_open_write(int64_t fname);

uintptr_t string_length(int64_t val);

int64_t symbol_eq(int64_t a, int64_t b);

int64_t writeln(int64_t data, int64_t port);