diff options
| author | Joel Martin <github@martintribe.org> | 2015-03-07 09:04:07 -0600 |
|---|---|---|
| committer | Joel Martin <github@martintribe.org> | 2015-03-07 09:04:07 -0600 |
| commit | 10b07148ba8efec543ded60a4b7916960709ce1e (patch) | |
| tree | 43c10dbc3c6bd2035c34cabf5aca3aa08e37a2f6 /perl | |
| parent | 64574360c510d644f5b8c175dbe3114f1f2d7b68 (diff) | |
| download | mal-10b07148ba8efec543ded60a4b7916960709ce1e.tar.gz mal-10b07148ba8efec543ded60a4b7916960709ce1e.zip | |
All step0: add test, fix bugs, remove step0 eval.
Diffstat (limited to 'perl')
| -rw-r--r-- | perl/readline.pm | 2 | ||||
| -rw-r--r-- | perl/step0_repl.pl | 5 |
2 files changed, 6 insertions, 1 deletions
diff --git a/perl/readline.pm b/perl/readline.pm index 0629f39..149c3fb 100644 --- a/perl/readline.pm +++ b/perl/readline.pm @@ -54,6 +54,7 @@ sub mal_readline { if ($rl_mode eq "terminal") { if (defined ($line = $_rl->readline($prompt))) { save_line($line); + chomp $line; return $line; } else { return undef; @@ -62,6 +63,7 @@ sub mal_readline { print "$prompt"; if (defined ($line = readline(*STDIN))) { save_line($line); + chomp($line); return $line; } else { return undef; diff --git a/perl/step0_repl.pl b/perl/step0_repl.pl index 36d6375..a2f15cb 100644 --- a/perl/step0_repl.pl +++ b/perl/step0_repl.pl @@ -2,7 +2,7 @@ use strict; use warnings FATAL => qw(all); use File::Basename; use lib dirname (__FILE__); -use readline qw(mal_readline); +use readline qw(mal_readline set_rl_mode); # read sub READ { @@ -28,6 +28,9 @@ sub REP { return PRINT(EVAL(READ($str), {})); } +if (scalar(@ARGV) > 0 && $ARGV[0] eq "--raw") { + set_rl_mode("raw"); +} while (1) { my $line = mal_readline("user> "); if (! defined $line) { last; } |