match function

pixie-lang · Feb 18, 2016 · 95c2e2a · 95c2e2a
1 parent 495d090
commit 95c2e2a
Showing 1 changed file with 12 additions and 0 deletions.
diff --git a/pixie/regex.pxi b/pixie/regex.pxi
@@ -68,3 +68,15 @@
    :signatures [[rexegp-str opts]]}
   [regexp-str opts]
   (cre2_new regexp-str (count regexp-str) (cre2-opts opts)))
+
+(defn match
+  [pattern text]
+  (cre2_match
+   pattern
+   text
+   (count text)
+   0
+   (count text)
+   1 ;; anchor 1 - no, 2 - start, 3 - both
+   (cre2_string_t)
+   (+ 1 (cre2_num_capturing_groups pattern))))