From 2988080c3277bddfa2a2c4ec7768e748e2d8c20b Mon Sep 17 00:00:00 2001
From: Bruce Hill <bruce@bruce-hill.com>
Date: Sat, 14 May 2022 15:18:54 -0400
Subject: Added :tag

---
 pattern.c | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

(limited to 'pattern.c')

diff --git a/pattern.c b/pattern.c
index edd007d..c9eefb2 100644
--- a/pattern.c
+++ b/pattern.c
@@ -513,6 +513,22 @@ static pat_t *_bp_simplepattern(const char *str, const char *end, bool inside_st
             return new_pat(BP_END_OF_FILE, start, ++str, 0, 0);
         return new_pat(BP_END_OF_LINE, start, str, 0, 0);
     }
+    // Tagged pattern :Tag: pat...
+    case ':': {
+        const char *name = str;
+        str = after_name(name, end);
+        if (str == name)
+            parse_err(start, str, "There should be an identifier after this ':'");
+        size_t namelen = (size_t)(str - name);
+
+        pat_t *p = bp_simplepattern(str, end);
+        if (p) str = p->end;
+        pat_t *tagged = new_pat(BP_TAGGED, start, str, p ? p->min_matchlen : 0, p ? p->max_matchlen : 0);
+        tagged->args.capture.capture_pat = p;
+        tagged->args.capture.name = start;
+        tagged->args.capture.namelen = namelen;
+        return tagged;
+    }
     default: {
         pat_t *def = _bp_definition(start, end);
         if (def) return def;
-- 
cgit v1.2.3