From eade4187ba0ae04fe8e6eed9a1e33bfd44b73c06 Mon Sep 17 00:00:00 2001
From: tomsmeding <tom.smeding@gmail.com>
Date: Sat, 20 Aug 2016 13:34:15 +0200
Subject: Parse comments

---
 parser.c | 33 +++++++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)

(limited to 'parser.c')

diff --git a/parser.c b/parser.c
index bab19a7..910f3da 100644
--- a/parser.c
+++ b/parser.c
@@ -59,6 +59,39 @@ static Token nexttoken(Cursor *cursor){
 	while(cursor->l>=1&&isspace(*cursor->s))advance(cursor,1);
 	if(cursor->l==0)return tt_eof();
 
+	bool acted;
+	do {
+		acted=false;
+		if(*cursor->s==';'){
+			acted=true;
+			int i;
+			for(i=1;i<cursor->l;i++){
+				if(cursor->s[i]=='\n')break;
+			}
+			if(i>=cursor->l-1){
+				advance(cursor,cursor->l);
+				return tt_eof();
+			}
+			advance(cursor,i+1);
+		}
+
+		if(cursor->l>=4&&cursor->s[0]=='#'&&cursor->s[1]=='|'){
+			acted=true;
+			int i;
+			for(i=3;i<cursor->l;i++){
+				if(cursor->s[i-1]=='|'&&cursor->s[i]=='#')break;
+			}
+			if(i>=cursor->l-1){
+				advance(cursor,cursor->l);
+				return tt_eof();
+			}
+			advance(cursor,i+1);
+		}
+	} while(acted);
+
+	while(cursor->l>=1&&isspace(*cursor->s))advance(cursor,1);
+	if(cursor->l==0)return tt_eof();
+
 	if(strchr(SYMBOLCHARS,*cursor->s)!=NULL||
 	   (cursor->l>=2&&cursor->s[0]=='\''&&strchr(SYMBOLCHARS,cursor->s[1]))){
 		advance(cursor,1);
-- 
cgit v1.2.3-70-g09d2