From 5431c7fd4d5a1abfcee1548e2e372f8b1300c88f Mon Sep 17 00:00:00 2001
From: Drahflow <drahflow@gmx.de>
Date: Wed, 28 May 2014 00:24:03 +0200
Subject: \e support in strings

---
 compiler/elymasTokenize.ey | 1 +
 interpreter/Elymas.pm      | 2 ++
 2 files changed, 3 insertions(+)

diff --git a/compiler/elymasTokenize.ey b/compiler/elymasTokenize.ey
index df3c1ed..3cc1c97 100644
--- a/compiler/elymasTokenize.ey
+++ b/compiler/elymasTokenize.ey
@@ -17,6 +17,7 @@
           0 /strmatched defv { /f deff strmatched { -- } { { 1 =strmatched f } rxparse } ? * } /strparse deff
 
           { "^\\\\\\\\(.*)" regex } { str "\\" cat =str } strparse
+          { "^\\\\e(.*)" regex } { str "\e" cat =str } strparse
           { "^\\\\n(.*)" regex } { str "\n" cat =str } strparse
           { "^\\\\r(.*)" regex } { str "\r" cat =str } strparse
           { "^\\\\0(.*)" regex } { str "\0" cat =str } strparse
diff --git a/interpreter/Elymas.pm b/interpreter/Elymas.pm
index 8fc16da..c2bb960 100644
--- a/interpreter/Elymas.pm
+++ b/interpreter/Elymas.pm
@@ -734,6 +734,8 @@ sub tokenize {
         } elsif($line =~ /^\\(.)(.*)/s) {
           if($1 eq '\\') {
             $str .= '\\';
+          } elsif($1 eq 'e') {
+            $str .= "\e";
           } elsif($1 eq 'n') {
             $str .= "\n";
           } elsif($1 eq 'r') {
-- 
cgit v1.2.3