diff options
| -rw-r--r-- | compiler/elymasTokenize.ey | 1 | ||||
| -rw-r--r-- | interpreter/Elymas.pm | 2 |
2 files changed, 3 insertions, 0 deletions
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') { |