[ regex macro ]

jbr · Nov 11, 2010 · 2183f86 · 2183f86
1 parent 986ebcb
commit 2183f86
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 0 deletions.
diff --git a/lib/macros.lisp b/lib/macros.lisp
@@ -56,6 +56,9 @@
 (defmacro new (fn)
   (concat "(new " (translate fn) ")"))
 
+(defmacro regex (string &optional glim)
+  (macros.new (macros.call "RegExp" string (or glim "undefined"))))
+
 (defmacro timestamp ()
   (concat "\"" (send (new (-date)) to-string) "\""))
 

diff --git a/test/test.lisp b/test/test.lisp
@@ -47,6 +47,8 @@
 
 (assert-translation "/regex/"   "/regex/")
 
+(assert-translation "(regex \"regex\")" "(new RegExp(\"regex\", undefined))")
+(assert-translation "(regex \"regex\" 'g)" "(new RegExp(\"regex\", \"g\"))")
 
 (assert-translation "(pow a b)" "Math.pow(a, b)")
 (assert-translation "(incr x)"  "((x)++)")