test


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

fn main(argc: int, argv: **argv) int;

fn main(argc: int, argv: **argv) int
{
	if (argc != 2) {
		fprintf(stderr, "usage: %s <file>\n", argv[0]);
		return 1;
	}
	const fp: *FILE = fopen(argv[1], "rb");
	if (fp == null) {
		perror("main");
		return 1;
	}
	const data: *char = drain(fp);
	fclose(fp);
	if (data == null) {
		fprintf(stderr, "failed to drain '%s'\n", argv[1]);
		return 1;
	}
	const toks: *Token = lexer(data);
	free(data);
	if (toks == null) {
		fprintf(stderr, "lexer failed\n");
		return 1;
	}
	lexer_print(toks);
	lexer_free(toks);
	return 0;
}