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
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
|
#include <u.h>
#include <libn.h>
#include <libbio.h>
// -----------------------------------------------------------------------
// Arena allocator
static mem·Arena* ARENA;
static
void*
bio·alloc(ulong size)
{
return mem·arenaalloc(ARENA, size);
}
static
void*
bio·realloc(void *ptr, ulong size)
{
void* new = mem·arenaalloc(ARENA, size);
memcpy(new, ptr, size);
return new;
}
static
void
bio·free(void *ptr)
{
/* stub */
}
static mem·Allocator arena = {.alloc = &bio·alloc, .realloc = &bio·realloc, .free = &bio·free };
// -----------------------------------------------------------------------
// Read/writer
static Stream* INPUT;
static
byte
get()
{
return io·getbyte(INPUT);
}
static
error
unget(byte c)
{
return io·ungetbyte(INPUT, c);
}
static io·Peeker peeker = {.get = &get, .unget = &unget};
static Stream* OUTPUT;
static
error
put(byte b)
{
return io·putbyte(OUTPUT, b);
}
static
int
putstr(string s)
{
return io·putstring(OUTPUT, s);
}
static io·Putter putter = {.put = &put, .putstr = &putstr};
// -----------------------------------------------------------------------
// Point of entry for testing
void
init()
{
ARENA = mem·newarena(mem·sys);
}
int
main()
{
init();
error err;
bio·Tree t;
Stream *fd[2];
fd[0] = io·open("/home/nolln/root/data/test/example.nwk", "r");
fd[1] = io·open("/home/nolln/root/data/test/example.proc.nwk", "w");
INPUT = fd[0];
OUTPUT = fd[1];
printf("starting\n");
t = bio·readnewick(peeker, arena);
err = bio·writenewick(t, putter);
printf("ending\n");
io·flush(fd[1]);
io·close(fd[0]); io·close(fd[1]);
return 0;
}
|