multiline comment and stuff

1 files changed, 12 insertions, 0 deletions

diff --git a/bootstrap/parse.c b/bootstrap/parse.c
index be32985..8707709 100644
--- a/bootstrap/parse.c
+++ b/bootstrap/parse.c
@@ -394,6 +394,18 @@ lex(struct parser *P) {
          tok.t = '#FIL';
       } else if (!strcmp(s, "#LINE")) {
          tok.t = '#LIN';
+      } else if (!strcmp(s, "#!")) {
+         if (chr(P) != '{') fatal(P, P->tokspan, "expected '{' after '#!'");
+         int bal = 1;
+         while (bal != 0) {
+            switch (lex(P).t) {
+            case '{': ++bal; break;
+            case '}': --bal; break;
+            case TKeof: fatal(P, tok.span, "unterminated comment");
+            }
+         }
+         return lex(P);
+
       } else {
          fatal(P, P->tokspan, "invalid #keyword");
       }