From: K.Kosako <kkosako0@gmail.com>
Date: Sun, 30 Jul 2017 08:29:36 +0000 (+0900)
Subject: implement absent clear
X-Git-Tag: v6.5.0^2~22
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=34535212b94bbe3677e39efb9575056cd5c67b71;p=onig

implement absent clear
---

diff --git a/src/regparse.c b/src/regparse.c
index fc183a2..2d639b7 100644
--- a/src/regparse.c
+++ b/src/regparse.c
@@ -5641,6 +5641,13 @@ parse_enclosure(Node** np, OnigToken* tok, int term, UChar** src, UChar* end,
           if (PEND) return ONIGERR_END_PATTERN_IN_GROUP;
 
           head_bar = 1;
+          if (PPEEK_IS(')')) { // (?~|)  : absent clear
+            PINC;
+            r = node_new_update_var_gimmick(np, UPDATE_VAR_RIGHT_RANGE_INIT,
+                                            0, env);
+            if (r != 0) return r;
+            goto end;
+          }
         }
         else
           head_bar = 0;