commit e674d40

Add underscores in function names

smh

  1@@ -32,13 +32,13 @@ static expl_node* list(parser* p);
  2 static expl_node* lookup(environment* env, const char* name);
  3 static expl_node* value(parser* p, expl_type type);
  4 
  5-static void skipspace(parser* p);
  6+static void skip_space(parser* p);
  7 static char* _strndup(const char* src, size_t len);
  8 static void unescape(char* src);
  9 
 10-static expl_node* newnode(expl_type type);
 11-static void freenode(expl_node* node);
 12-static void freeenv(environment* env);
 13+static expl_node* new_node(expl_type type);
 14+static void free_node(expl_node* node);
 15+static void free_environment(environment* env);
 16 
 17 static int
 18 define(environment** env, const char* name, expl_node* value)
 19@@ -63,7 +63,7 @@ define(environment** env, const char* name, expl_node* value)
 20 static expl_node*
 21 expression(parser* p)
 22 {
 23-	skipspace(p);
 24+	skip_space(p);
 25 	switch (p->src[p->pos]) {
 26 	case '"':
 27 		return value(p, EXPL_TYPE_STRING);
 28@@ -95,7 +95,7 @@ list(parser* p)
 29 
 30 	advance(p);
 31 
 32-	node = newnode(EXPL_TYPE_LIST);
 33+	node = new_node(EXPL_TYPE_LIST);
 34 	if (!node) {
 35 		p->err = EXPL_ERR_OUT_OF_MEMORY;
 36 		return NULL;
 37@@ -103,21 +103,21 @@ list(parser* p)
 38 
 39 	next = &node->child;
 40 
 41-	skipspace(p);
 42+	skip_space(p);
 43 	while (!current_char(p, ')') && !current_char(p, '\0')) {
 44 		*next = expression(p);
 45 		if (!*next) {
 46-			freenode(node);
 47+			free_node(node);
 48 			return NULL;
 49 		}
 50 
 51 		next = &(*next)->next;
 52-		skipspace(p);
 53+		skip_space(p);
 54 	}
 55 
 56 	if (current_char(p, '\0')) {
 57 		p->err = EXPL_ERR_EXPECTED_LIST;
 58-		freenode(node);
 59+		free_node(node);
 60 		return NULL;
 61 	}
 62 
 63@@ -172,7 +172,7 @@ value(parser* p, expl_type type)
 64 		return NULL;
 65 	}
 66 
 67-	node = newnode(type);
 68+	node = new_node(type);
 69 	if (!node) {
 70 		p->err = EXPL_ERR_OUT_OF_MEMORY;
 71 		return NULL;
 72@@ -180,7 +180,7 @@ value(parser* p, expl_type type)
 73 
 74 	node->value = _strndup(p->src + start, p->pos - start);
 75 	if (!node->value) {
 76-		freenode(node);
 77+		free_node(node);
 78 		p->err = EXPL_ERR_OUT_OF_MEMORY;
 79 		return NULL;
 80 	}
 81@@ -194,7 +194,7 @@ value(parser* p, expl_type type)
 82 }
 83 
 84 static void
 85-skipspace(parser* p)
 86+skip_space(parser* p)
 87 {
 88 	while (isspace((unsigned char)p->src[p->pos]) || current_char(p, ';')) {
 89 		/* comment */
 90@@ -252,7 +252,7 @@ unescape(char* src)
 91 }
 92 
 93 static expl_node*
 94-newnode(expl_type type)
 95+new_node(expl_type type)
 96 {
 97 	expl_node* node = malloc(sizeof(*node));
 98 	if (!node)
 99@@ -267,7 +267,7 @@ newnode(expl_type type)
100 }
101 
102 static void
103-freenode(expl_node* node)
104+free_node(expl_node* node)
105 {
106 	if (!node)
107 		return;
108@@ -275,14 +275,14 @@ freenode(expl_node* node)
109 	if (node->value)
110 		free(node->value);
111 
112-	freenode(node->child);
113-	freenode(node->next);
114+	free_node(node->child);
115+	free_node(node->next);
116 
117 	free(node);
118 }
119 
120 static void
121-freeenv(environment* env)
122+free_environment(environment* env)
123 {
124 	while (env) {
125 		environment* next = env->next;
126@@ -303,16 +303,16 @@ expl_parse(const char* source)
127 		return NULL;
128 	p.src = source;
129 
130-	skipspace(&p);
131+	skip_space(&p);
132 	while (!current_char(&p, '\0')) {
133 		*next = expression(&p);
134 		if (!*next) {
135-			freenode(head);
136+			free_node(head);
137 			return NULL;
138 		}
139 
140 		next = &(*next)->next;
141-		skipspace(&p);
142+		skip_space(&p);
143 	}
144 
145 	return head;
146@@ -350,9 +350,9 @@ expl_print(const expl_node* node, int depth)
147 int
148 main(void)
149 {
150-	expl_node* node = expl_parse("(fn (\"hi\" x) (* x x))");
151+	expl_node* node = expl_parse("(fn square (x \"hi\") (* x x))");
152 	expl_print(node, 0);
153-	freenode(node);
154+	free_node(node);
155 	return EXIT_SUCCESS;
156 }
157 #endif