Fixes for captures and backrefs, and added block comments

1 files changed, 15 insertions, 1 deletions

diff --git a/utils.c b/utils.c
index 6b9af5c..012c1eb 100644
--- a/utils.c
+++ b/utils.c
@@ -9,6 +9,7 @@
  */
 const char *after_spaces(const char *str)
 {
+    int block_comment_depth = 0;
     // Skip whitespace and comments:
   skip_whitespace:
     switch (*str) {
@@ -17,7 +18,20 @@ const char *after_spaces(const char *str)
             goto skip_whitespace;
         }
         case '#': {
-            while (*str && *str != '\n') ++str;
+            if (str[1] == '(') {
+                ++block_comment_depth;
+                for (str += 2; *str && block_comment_depth > 0; ++str) {
+                    if (str[0] == '#' && str[1] == '(') {
+                        ++block_comment_depth;
+                        ++str;
+                    } else if (str[0] == ')' && str[1] == '#') {
+                        --block_comment_depth;
+                        ++str;
+                    }
+                }
+            } else {
+                while (*str && *str != '\n') ++str;
+            }
             goto skip_whitespace;
         }
     }