HLisp/parser.c at master · l3yaer/HLisp · GitHub

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
#include "parser.h"
#include "reader.h"
#include "token.h"
#include "types.h"

static hlisp_atom_t *read_atom(struct hlisp_reader *reader, const char *str);

static hlisp_atom_t *read_symbol(struct hlisp_reader *reader, const char *str)
{
	hlisp_tok_t *tok = reader_peek(reader);
	return make_atom_symbol(str + tok->start, tok->size);
}

static hlisp_atom_t *read_string(struct hlisp_reader *reader, const char *str)
{
	hlisp_tok_t *tok = reader_peek(reader);
	return make_atom_string(str + tok->start, tok->size);
}

static hlisp_atom_t *read_list(struct hlisp_reader *reader, const char *str)
{
	hlisp_atom_t *atom = make_atom_list();
	while (reader_pos(reader) < reader_max_pos(reader)) {
		hlisp_atom_t *val = read_atom(reader, str);
		atom->value.list = hlisp_list_append(atom->value.list, val);
		free(val);
	}
	return atom;
}

static hlisp_atom_t *read_integer(struct hlisp_reader *reader, const char *str)
{
	hlisp_tok_t *tok = reader_peek(reader);
	return make_atom_integer(strtol(str + tok->start, NULL, 0));
}

static hlisp_atom_t *read_float(struct hlisp_reader *reader, const char *str)
{
	hlisp_tok_t *tok = reader_peek(reader);
	return make_atom_float(strtod(str + tok->start, NULL));
}

static hlisp_atom_t *read_bool(struct hlisp_reader *reader, const char *str)
{
	hlisp_tok_t *tok = reader_peek(reader);
	return make_atom_bool(strncmp(str + tok->start, "true", 4) == 0 ? 1 :
										0);
}

static hlisp_atom_t *read_atom(struct hlisp_reader *reader, const char *str)
{
	hlisp_tok_t *tok = reader_next(reader);
	switch (tok->type) {
	case HLISP_TOKEN_SYMBOL:
		return read_symbol(reader, str);
	case HLISP_TOKEN_NIL:
		return make_atom_nil();
	case HLISP_TOKEN_NUMBER_INT:
		return read_integer(reader, str);
	case HLISP_TOKEN_NUMBER_FLOAT:
		return read_float(reader, str);
	case HLISP_TOKEN_STRING:
		return read_string(reader, str);
	case HLISP_TOKEN_LIST:
		return read_list(reader, str);
	case HLISP_TOKEN_BOOL:
		return read_bool(reader, str);
	default:
		break;
	}
	return NULL;
}

struct hlisp_atom *read_form(struct hlisp_reader *reader, const char *str)
{
	reader_reset(reader);
	return read_atom(reader, str);
}