forked from geekscape/aiko_arduino_legacy
-
Notifications
You must be signed in to change notification settings - Fork 6
/
AikoSExpression.cpp
90 lines (77 loc) · 2.39 KB
/
AikoSExpression.cpp
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
#include "AikoSExpression.h"
#include <stdlib.h>
namespace Aiko {
char* SExpression::scan(char* head, char* tail, SExpression* expression) {
if (expression) expression->head_ = expression->tail_ = 0;
char* s = skipWhitespace(head, tail);
if (s < tail) {
switch(*s) {
case '(':
s = scanArray(s, tail, expression);
break;
default:
s = scanRawString(s, tail, expression);
break;
}
s = skipWhitespace(s, tail);
}
return s;
}
unsigned char SExpression::isEqualTo(char* s) {
return size() == strlen(s) && strncmp(s, head_, size()) == 0;
}
char* SExpression::scanRawString(char* head, char* tail, SExpression* expression) {
char* s;
for (s = head; s < tail && *s != ' ' && *s != ')'; s++);
if (expression) {
expression->head_ = head;
expression->tail_ = s;
expression->isArray_ = false;
}
return s;
}
char* SExpression::scanArray(char* head, char* tail, SExpression* expression) {
char* s = SExpressionArray::parse(head, tail, 0);
if (expression) {
expression->head_ = head;
expression->tail_ = s;
expression->isArray_ = true;
}
return s;
}
char* SExpression::skipWhitespace(char* head, char* tail) {
while (head < tail && *head == ' ') head++;
return head;
}
SExpressionArray::SExpressionArray(SExpression* expressions, unsigned char maxLength) {
maxLength_ = maxLength;
expressions_ = expressions;
isMalloced_ = false;
}
SExpressionArray::SExpressionArray(unsigned char maxLength) {
maxLength_ = maxLength;
expressions_ = static_cast<SExpression*>(calloc(maxLength_, sizeof(SExpression)));
isMalloced_ = true;
}
SExpressionArray::~SExpressionArray() {
if (isMalloced_) free(expressions_);
}
char* SExpressionArray::parse(char* head, char* tail, SExpressionArray* array) {
char* s = skipWhitespace(head, tail);
if (array) array->head_ = s;
if (s < tail && *s == '(') {
s++;
if(array) array->length_ = 0;
while (s < tail && *s != ')') {
SExpression* expression = array ? &(array->expressions_[array->length_++]) : 0;
s = SExpression::scan(s, tail, expression);
}
if (s < tail && *s == ')') {
if (array) array->tail_ = s;
s = skipWhitespace(++s, tail);
return s;
}
}
return 0;
}
};