Handle comments in parser.

datatypes.h

@@ -179,6 +179,7 @@ struct GstParser {
     uint32_t count;
     uint32_t cap;
     uint32_t index;
+    uint32_t flags;
     enum {
 		GST_PARSER_PENDING = 0,
 		GST_PARSER_FULL,

parse.c

@@ -383,8 +383,27 @@ static int form_state(GstParser *p, uint8_t c) {
 }
 
 /* Handle a character */
-static int dispatch_char(GstParser *p, uint8_t c) {
+static void dispatch_char(GstParser *p, uint8_t c) {
     int done = 0;
+    ++p->index;
+
+    /* Handle comments */
+    if (p->flags & GST_PARSER_FLAG_INCOMMENT) {
+        if (c == '\n') {
+			p->flags = GST_PARSER_FLAG_EXPECTING_COMMENT;
+        }
+		return;
+    } else if (p->flags & GST_PARSER_FLAG_EXPECTING_COMMENT) {
+        if (c == '#') {
+			p->flags = GST_PARSER_FLAG_INCOMMENT;
+			return;
+        } else if (!is_whitespace(c)) {
+			p->flags = 0;
+        } else {
+    		return;
+        }
+    }
+
     while (!done && p->status == GST_PARSER_PENDING) {
         GstParseState *top = parser_peek(p);
         switch (top->type) {
@@ -402,8 +421,6 @@ static int dispatch_char(GstParser *p, uint8_t c) {
                 break;
         }
     }
-    ++p->index;
-    return !done;
 }
 
 /* Parse a C style string. The first value encountered when parsed is put
@@ -431,5 +448,6 @@ void gst_parser(GstParser *p, Gst *vm) {
     p->error = NULL;
     p->status = GST_PARSER_PENDING;
     p->value.type = GST_NIL;
+    p->flags = GST_PARSER_FLAG_EXPECTING_COMMENT;
     parser_push(p, PTYPE_ROOT, ' ');
 }

parse.h

@@ -3,6 +3,10 @@
 
 #include "datatypes.h"
 
+/* Some parser flags */
+#define GST_PARSER_FLAG_INCOMMENT 1
+#define GST_PARSER_FLAG_EXPECTING_COMMENT 2
+
 /* Initialize a parser */
 void gst_parser(GstParser *p, Gst *vm);