Cleaning up some stuff.

src/array.c

-#include <stdlib.h>
-#include "array.c"
-

src/array.h

-typedef struct {
-  size_t length;
-  void *contents;
-} array;
-
-array make_array(size_t);
-void free_array(array);

src/text/lexical_patterns.c

-#include <stdio.h>
-#include "lexical_patterns.h"
-
-ALTERNATIVES_MATCHER(semicolon_or_lbrack, prefix_is_semicolon, prefix_is_lbrack);
-
-CHARS_MATCHER(import,  "@import");
-CHARS_MATCHER(include, "@include");
-CHARS_MATCHER(mixin,   "@mixin");
-CHARS_MATCHER(extend,  "@extend");
-
-static SEQUENCE_MATCHER(sign_and_identifier, prefix_is_sign, prefix_is_identifier);
-static ALTERNATIVES_MATCHER(word_initial, prefix_is_identifier, prefix_is_sign_and_identifier);
-static ALTERNATIVES_MATCHER(word_trailer, prefix_is_identifier, prefix_is_sign, prefix_is_digits);
-
-FIRST_REST_MATCHER(word, prefix_is_word_initial, prefix_is_word_trailer);
-
-SEQUENCE_MATCHER(class, prefix_is_dot, prefix_is_word);
-SEQUENCE_MATCHER(id, prefix_is_hash, prefix_is_word);
-SEQUENCE_MATCHER(pseudo_class, prefix_is_colon, prefix_is_word);
\ No newline at end of file

src/text/lexical_patterns.h

-#include "prefix_primitives.h"
-
-DECLARE(semicolon_or_lbrack);
-
-DECLARE(word);
-
-DECLARE(class);
-DECLARE(id);
-DECLARE(pseudo_class);

src/text/prefix_primitives.c

-#include <ctype.h>
-#include <stdarg.h>
-#include <stdio.h>
-#include "prefix_primitives.h"
-
-char *prefix_is_char(char *src, char pre) {
-  return pre == *src ? src+1 : NULL;
-}
-
-char *prefix_is_chars(char *src, char *pre) {
-  while (*pre && *src == *pre) src++, pre++;
-  return *pre ? NULL : src;
-}
-
-char *prefix_is_one_of(char *src, char *class) {
-  while(*class && *src != *class) class++;
-  return *class ? src+1 : NULL;
-}
-
-char *prefix_is_some_of(char *src, char *class) {
-  char *p = src;
-  while(prefix_is_one_of(p, class)) p++;
-  return p == src ? NULL : p;
-}
-
-char *prefix_is_delimited_by(char *src, char *beg, char *end, int esc) {
-  src = prefix_is_chars(src, beg);
-  if (!src) return NULL;
-  char *stop;
-  while (1) {
-    if (!*src) return NULL;
-    stop = prefix_is_chars(src, end);
-    if (stop && (!esc || *(src-1) != '\\')) return stop;
-    src = stop ? stop : src+1;
-  }
-}
-
-char *prefix_epsilon(char *src) {
-  return src;
-}
-
-char *prefix_not(char *src, prefix_matcher m) {
-  return m(src) ? NULL : src;
-}
-
-char *_prefix_alternatives(char *src, ...) {
-  va_list ap;
-  va_start(ap, src);
-  prefix_matcher m = va_arg(ap, prefix_matcher);
-  char *p = NULL;
-  while (m && !(p = (*m)(src))) m = va_arg(ap, prefix_matcher);
-  va_end(ap);
-  return p;
-}
-
-char *_prefix_sequence(char *src, ...) {
-  va_list ap;
-  va_start(ap, src);
-  prefix_matcher m;
-  while ((m = va_arg(ap, prefix_matcher)) && (src = (*m)(src))) ;
-  return src;
-}
-
-char *prefix_optional(char *src, prefix_matcher m) {
-  char *p = m(src);
-  return p ? p : src;
-}
-
-char *prefix_zero_plus(char *src, prefix_matcher m) {
-  char *p = m(src);
-  while(p) src = p, p = m(src);
-  return src;
-}
-
-char *prefix_one_plus(char *src, prefix_matcher m) {
-  char *p = m(src);
-  if (!p) return NULL;
-  while(p) src = p, p = m(src);
-  return src;
-}
-
-char *prefix_find_first(char *src, prefix_matcher m) {
-  while (*src && !m(src)) src++;
-  return *src ? src : NULL;
-}
-
-SINGLE_CTYPE_MATCHER(space);
-SINGLE_CTYPE_MATCHER(alpha);
-SINGLE_CTYPE_MATCHER(digit);
-SINGLE_CTYPE_MATCHER(xdigit);
-SINGLE_CTYPE_MATCHER(alnum);
-SINGLE_CTYPE_MATCHER(punct);
-
-CTYPE_SEQUENCE_MATCHER(space);
-CTYPE_SEQUENCE_MATCHER(alpha);
-CTYPE_SEQUENCE_MATCHER(digit);
-CTYPE_SEQUENCE_MATCHER(xdigit);
-CTYPE_SEQUENCE_MATCHER(alnum);
-CTYPE_SEQUENCE_MATCHER(punct);
-
-TO_EOL_MATCHER(shell_comment, "#");
-TO_EOL_MATCHER(c_line_comment, "//");
-DELIMITED_MATCHER(c_block_comment, "/*", "*/", 0);
-DELIMITED_MATCHER(double_quoted_string, "\"", "\"", 1);
-DELIMITED_MATCHER(single_quoted_string, "\'", "\'", 1);
-DELIMITED_MATCHER(interpolant, "#{", "}", 0);
-
-CHAR_MATCHER (lparen,      '(');
-CHAR_MATCHER (rparen,      ')');
-CHAR_MATCHER (lbrack,      '[');
-CHAR_MATCHER (rbrack,      ']');
-CHAR_MATCHER (lbrace,      '{');
-CHAR_MATCHER (rbrace,      '}');
-
-CHAR_MATCHER (underscore,  '_');
-CHAR_MATCHER (hyphen,      '-');
-CHAR_MATCHER (semicolon,   ';');
-CHAR_MATCHER (colon,       ':');
-CHAR_MATCHER (period,      '.');
-CHAR_MATCHER (dot,         '.');
-CHAR_MATCHER (question,    '?');
-CHAR_MATCHER (exclamation, '!');
-CHAR_MATCHER (tilde,       '~');
-CHAR_MATCHER (backquote,   '`');
-CHAR_MATCHER (quote,       '\"');
-CHAR_MATCHER (apostrophe,  '\'');
-CHAR_MATCHER (ampersand,   '&');
-CHAR_MATCHER (caret,       '^');
-CHAR_MATCHER (pipe,        '|');
-CHAR_MATCHER (slash,       '/');
-CHAR_MATCHER (backslash,   '\\');
-CHAR_MATCHER (asterisk,    '*');
-CHAR_MATCHER (star,        '*');
-CHAR_MATCHER (pound,       '#');
-CHAR_MATCHER (hash,        '#');
-
-CHAR_MATCHER (plus,        '+');
-CHAR_MATCHER (minus,       '-');
-CHAR_MATCHER (times,       '*');
-CHAR_MATCHER (divide,      '/');
-
-CHAR_MATCHER (percent,     '%');
-CHAR_MATCHER (dollar,      '$');
-
-CHAR_MATCHER (gt,          '>');
-CHARS_MATCHER(gte,         ">=");
-CHAR_MATCHER (lt,          '<');
-CHARS_MATCHER(lte,         "<=");
-CHAR_MATCHER (eq,          '=');
-CHAR_MATCHER (assign,      '=');
-CHARS_MATCHER(equal,       "==");
-
-CHAR_CLASS_MATCHER(sign,   "+-");
-CHAR_CLASS_MATCHER(delimiter, "()[]{}");
-
-static ALTERNATIVES_MATCHER(identifier_initial, prefix_is_alphas, prefix_is_underscore);
-static ALTERNATIVES_MATCHER(identifier_trailer, prefix_is_alnums, prefix_is_underscore);
-FIRST_REST_MATCHER(identifier, prefix_is_identifier_initial, prefix_is_identifier_trailer);
-
-static OPTIONAL_MATCHER(optional_sign, prefix_is_sign);
-SEQUENCE_MATCHER(integer, prefix_is_optional_sign, prefix_is_digits);
\ No newline at end of file

src/text/prefix_primitives.h

-typedef char *(*prefix_matcher)(char *);
-
-#define DECLARE(name) \
-char *prefix_is_ ## name(char *)
-
-#define CHAR_MATCHER(name, prefix) \
-char *prefix_is_ ## name(char *src) { \
-  return prefix_is_char(src, prefix); \
-}
-
-#define CHARS_MATCHER(name, prefix) \
-char *prefix_is_ ## name(char *src) { \
-  return prefix_is_chars(src, prefix); \
-}
-
-#define CHAR_CLASS_MATCHER(name, class) \
-char *prefix_is_ ## name(char *src) { \
-  return prefix_is_one_of(src, class); \
-}
-
-#define CHARS_CLASS_MATCHER(name, class) \
-char *prefix_is_ ## name(char *src) { \
-  return prefix_is_some_of(src, class); \
-}
-
-#define SINGLE_CTYPE_MATCHER(type) \
-char *prefix_is_ ## type(char *src) { \
-  return is ## type(*src) ? src+1 : NULL; \
-}
-
-#define CTYPE_SEQUENCE_MATCHER(type) \
-char *prefix_is_ ## type ## s(char *src) { \
-  char *p = src; \
-  while (is ## type(*p)) p++; \
-  return p == src ? NULL : p; \
-}
-
-#define TO_EOL_MATCHER(name, prefix) \
-char *prefix_is_ ## name(char *src) { \
-  if (!(src = prefix_is_chars(src, prefix))) return NULL; \
-  while(*src && *src != '\n') src++; \
-  return src; \
-}
-
-#define DELIMITED_MATCHER(name, begin, end, escapable) \
-char *prefix_is_ ## name(char *src) { \
-  return prefix_is_delimited_by(src, begin, end, escapable); \
-}
-
-#define ALTERNATIVES_MATCHER(name, ...) \
-char *prefix_is_ ## name(char *src) { \
-  return prefix_alternatives(src, __VA_ARGS__); \
-}
-
-#define SEQUENCE_MATCHER(name, ...) \
-char *prefix_is_ ## name(char *src) { \
-  return prefix_sequence(src, __VA_ARGS__); \
-}
-
-#define OPTIONAL_MATCHER(name, matcher) \
-char *prefix_is_ ## name(char *src) { \
-  return prefix_optional(src, matcher); \
-}
-
-#define FIRST_REST_MATCHER(name, first_matcher, rest_matcher) \
-char *prefix_is_ ## name(char *src) { \
-  if (src = first_matcher(src)) src = prefix_zero_plus(src, rest_matcher); \
-  return src; \
-}
-
-char *prefix_is_char(char *src, char pre);
-char *prefix_is_chars(char *src, char *pre);
-char *prefix_is_one_of(char *src, char *class);
-char *prefix_is_some_of(char *src, char *class);
-char *prefix_is_delimited_by(char *src, char *beg, char *end, int esc);
-
-char *prefix_epsilon(char *src);
-char *prefix_not(char *src, prefix_matcher m);
-char *_prefix_alternatives(char *src, ...);
-#define prefix_alternatives(src, ...) _prefix_alternatives(src, __VA_ARGS__, NULL)
-char *_prefix_sequence(char *src, ...);
-#define prefix_sequence(src, ...) _prefix_sequence(src, __VA_ARGS__, NULL)
-char *prefix_optional(char *src, prefix_matcher m);
-char *prefix_zero_plus(char *src, prefix_matcher m);
-char *prefix_one_plus(char *src, prefix_matcher m);
-char *prefix_find_first(char *src, prefix_matcher m);
-
-DECLARE(space);
-DECLARE(alpha);
-DECLARE(digit);
-DECLARE(xdigit);
-DECLARE(alnum);
-DECLARE(punct);
-
-DECLARE(spaces);
-DECLARE(alphas);
-DECLARE(digits);
-DECLARE(xdigits);
-DECLARE(alnums);
-DECLARE(puncts);
-
-DECLARE(shell_comment);
-DECLARE(c_line_comment);
-DECLARE(c_block_comment);
-DECLARE(double_quoted_string);
-DECLARE(single_quoted_string);
-DECLARE(interpolant);
-
-DECLARE(lparen);
-DECLARE(rparen);
-DECLARE(lbrack);
-DECLARE(rbrack);
-DECLARE(lbrace);
-DECLARE(rbrace);
-
-DECLARE(underscore);
-DECLARE(hyphen);
-DECLARE(semicolon);
-DECLARE(colon);
-DECLARE(period);
-DECLARE(dot);
-DECLARE(question);
-DECLARE(exclamation);
-DECLARE(tilde);
-DECLARE(backquote);
-DECLARE(quote);
-DECLARE(apostrophe);
-DECLARE(ampersand);
-DECLARE(caret);
-DECLARE(pipe);
-DECLARE(slash);
-DECLARE(backslash);
-DECLARE(asterisk);
-DECLARE(star);
-DECLARE(pound);
-DECLARE(hash);
-                                  
-DECLARE(plus);
-DECLARE(minus);
-DECLARE(times);
-DECLARE(divide);
-                                  
-DECLARE(percent);
-DECLARE(dollar);
-                                  
-DECLARE(gt);
-DECLARE(gte);
-DECLARE(lt);
-DECLARE(lte);
-DECLARE(eq);
-DECLARE(assign);
-DECLARE(equal);
-
-DECLARE(sign);
-DECLARE(delimiter);
-
-DECLARE(identifier);
-DECLARE(integer);
\ No newline at end of file

src/text/test.c

-#include <stdio.h>
-#include <ctype.h>
-#include <string.h>
-#include <stdlib.h>
-// #include "prefix_primitives.h"
-#include "lexical_patterns.h"
-
-void print_slice(char *s, char *t) {
-  if (t) {
-    printf("succeeded with %ld characters:\t", t - s);
-    while (s < t) putchar(*s++);
-    putchar('\n');
-  }
-  else {
-    printf("failed\n");
-  }
-}
-
-#define test1(matcher, src) \
-(printf("testing << %s >>\n", #matcher), print_slice(src, matcher(src)))
-
-#define testn(matcher, src, ...) \
-(printf("testing << %s >>\n", #matcher), print_slice(src, matcher(src, __VA_ARGS__)))
-
-int main() {
-  char *spaces = "  \t \t \v \r\n  \n\nhello world";
-  char *dqstring = "\"blah blah \\\" blah\"";
-  char *sqstring = "'this \\'is\\' a \"string\" now' blah blah blah";
-  char *scomment = "# a shell-style comment";
-  char *bcomment = "/* this is a c comment \\*/ blah blah";
-  char *non_comment = "/* blah blah";
-  char *interpolant = "#{ this is an interpolant \\} blah blah";
-  char *words = "hello my name is aaron";
-  char *id1 = "_identifier123{blah bloo}";
-  char *non_id = "12non_ident_ifier_";
-  char *word2 = "-blah-bl+ah_bl12-34+1:foobar;";
-  char *non_word = "-12blah-bloo";
-  char *selector = "#foo > :first-child { color: #abcdef; }";
-  char *lcomment = "// blah blah blah // end\n blah blah";
-  char *id2 = "badec4669264hello";
-  char *integer1 = "3837483+3";
-  char *integer2 = "+294739-4";
-  char *integer3 = "-294729+1";
-  char *class = ".blah-blah_bloo112-blah+blee4 hello";
-  char *id = "#foo_bar-baz123-hux blee";
-  
-  test1(prefix_is_spaces, spaces);
-  test1(prefix_is_spaces, words);
-  
-  testn(prefix_is_char, words, 'h');
-  testn(prefix_is_char, words, 'a');
-  
-  testn(prefix_is_chars, words, "hello");
-  testn(prefix_is_chars, words, "hello world");
-  
-  testn(prefix_is_one_of, words, "abcdefgh");
-  testn(prefix_is_one_of, words, "ijklmnop");
-  
-  testn(prefix_is_some_of, id1, "_deint");
-  testn(prefix_is_some_of, id1, "abcd");
-  
-  test1(prefix_is_shell_comment, scomment);
-  test1(prefix_is_shell_comment, lcomment);
-
-  test1(prefix_is_c_block_comment, bcomment);
-  test1(prefix_is_c_block_comment, non_comment);
-  
-  test1(prefix_is_double_quoted_string, dqstring);
-  test1(prefix_is_double_quoted_string, sqstring);
-
-  test1(prefix_is_single_quoted_string, sqstring);
-  test1(prefix_is_single_quoted_string, dqstring);
-
-  test1(prefix_is_interpolant, interpolant);
-  test1(prefix_is_interpolant, lcomment);
-  
-  test1(prefix_is_c_line_comment, lcomment);
-  test1(prefix_is_c_line_comment, non_comment);
-  
-  test1(prefix_epsilon, words);
-  
-  testn(prefix_not, words, prefix_is_puncts);
-  testn(prefix_not, words, prefix_is_alphas);
-  
-  testn(prefix_sequence, id2, prefix_is_alphas, prefix_is_digits);
-  testn(prefix_sequence, id2, prefix_is_alphas, prefix_is_puncts);
-  
-  testn(prefix_optional, non_id, prefix_is_digits);
-  testn(prefix_optional, words, prefix_is_digits);
-  
-  testn(prefix_zero_plus, words, prefix_is_alphas);
-  testn(prefix_zero_plus, non_id, prefix_is_alphas);
-  
-  testn(prefix_one_plus, words, prefix_is_alphas);
-  testn(prefix_one_plus, non_id, prefix_is_alphas);
-  
-  test1(prefix_is_identifier, id1);
-  test1(prefix_is_identifier, non_id);
-  
-  test1(prefix_is_integer, integer1);
-  test1(prefix_is_integer, integer2);
-  test1(prefix_is_integer, integer3);
-  test1(prefix_is_integer, word2);
-  
-  test1(prefix_is_word, word2);
-  test1(prefix_is_word, integer3);
-  
-  test1(prefix_is_class, class);
-  test1(prefix_is_class, words);
-  
-  test1(prefix_is_id, id);
-  test1(prefix_is_id, class);
-  
-  testn(prefix_find_first, word2, prefix_is_semicolon_or_lbrack);
-
-  return 0;
-}