Allow escape of more meta-characters in regex

1 files changed, 16 insertions, 1 deletions

diff --git a/compiler/standardClient.ey b/compiler/standardClient.ey
index f75af2c..efe7298 100644
--- a/compiler/standardClient.ey
+++ b/compiler/standardClient.ey
@@ -122,7 +122,7 @@
       [ { ^d } {
         { _ 0 "0" * ge -01 0 "9" * le and }" terminal =a
         tail
-      } { ^\ } {
+      } { ^\ } { # FIXME the following code looks like it could be compressed a bit
         { 0 "\\" * eq }" terminal =a
         tail
       } { ^. } {
@@ -134,6 +134,21 @@
       } { ^[ } {
         { 0 "[" * eq }" terminal =a
         tail
+      } { ^? } {
+        { 0 "?" * eq }" terminal =a
+        tail
+      } { ^* } {
+        { 0 "*" * eq }" terminal =a
+        tail
+      } { ^+ } {
+        { 0 "+" * eq }" terminal =a
+        tail
+      } { ^$ } {
+        { 0 "$" * eq }" terminal =a
+        tail
+      } { ^^ } {
+        { 0 "^" * eq }" terminal =a
+        tail
       } { 1 } {
         "invalid character '" "' after \\ in regex" -120 cat cat die
       } ] conds