From f26bc0110af9a6140a44cd01720ecadf0a3c8167 Mon Sep 17 00:00:00 2001 From: Joel Martin Date: Sat, 10 May 2014 16:03:25 -0500 Subject: Perl: include from same directory. --- perl/step0_repl.pl | 6 ++++-- perl/step1_read_print.pl | 2 ++ perl/step2_eval.pl | 2 ++ perl/step3_env.pl | 2 ++ perl/step4_if_fn_do.pl | 2 ++ perl/step5_tco.pl | 2 ++ perl/step6_file.pl | 2 ++ perl/step7_quote.pl | 2 ++ perl/step8_macros.pl | 2 ++ perl/step9_interop.pl | 2 ++ perl/stepA_more.pl | 2 ++ 11 files changed, 24 insertions(+), 2 deletions(-) diff --git a/perl/step0_repl.pl b/perl/step0_repl.pl index d20b167..36d6375 100644 --- a/perl/step0_repl.pl +++ b/perl/step0_repl.pl @@ -1,6 +1,8 @@ use strict; use warnings FATAL => qw(all); -use readline qw(readline); +use File::Basename; +use lib dirname (__FILE__); +use readline qw(mal_readline); # read sub READ { @@ -27,7 +29,7 @@ sub REP { } while (1) { - my $line = readline("user> "); + my $line = mal_readline("user> "); if (! defined $line) { last; } print(REP($line), "\n"); } diff --git a/perl/step1_read_print.pl b/perl/step1_read_print.pl index 988c307..14675b9 100644 --- a/perl/step1_read_print.pl +++ b/perl/step1_read_print.pl @@ -1,5 +1,7 @@ use strict; use warnings FATAL => qw(all); +use File::Basename; +use lib dirname (__FILE__); use readline qw(mal_readline); use feature qw(switch); diff --git a/perl/step2_eval.pl b/perl/step2_eval.pl index 1655a29..0cbd697 100644 --- a/perl/step2_eval.pl +++ b/perl/step2_eval.pl @@ -1,5 +1,7 @@ use strict; use warnings FATAL => qw(all); +use File::Basename; +use lib dirname (__FILE__); use readline qw(mal_readline); use feature qw(switch); use Data::Dumper; diff --git a/perl/step3_env.pl b/perl/step3_env.pl index c0e722b..9a7efa4 100644 --- a/perl/step3_env.pl +++ b/perl/step3_env.pl @@ -1,5 +1,7 @@ use strict; use warnings FATAL => qw(all); +use File::Basename; +use lib dirname (__FILE__); use readline qw(mal_readline); use feature qw(switch); use Data::Dumper; diff --git a/perl/step4_if_fn_do.pl b/perl/step4_if_fn_do.pl index 8771155..4a4a8d5 100644 --- a/perl/step4_if_fn_do.pl +++ b/perl/step4_if_fn_do.pl @@ -1,5 +1,7 @@ use strict; use warnings FATAL => qw(all); +use File::Basename; +use lib dirname (__FILE__); use readline qw(mal_readline); use feature qw(switch); use Data::Dumper; diff --git a/perl/step5_tco.pl b/perl/step5_tco.pl index 44de718..a225d79 100644 --- a/perl/step5_tco.pl +++ b/perl/step5_tco.pl @@ -1,5 +1,7 @@ use strict; use warnings FATAL => qw(all); +use File::Basename; +use lib dirname (__FILE__); use readline qw(mal_readline); use feature qw(switch); use Data::Dumper; diff --git a/perl/step6_file.pl b/perl/step6_file.pl index 9fcac1d..86ac3f3 100644 --- a/perl/step6_file.pl +++ b/perl/step6_file.pl @@ -1,5 +1,7 @@ use strict; use warnings FATAL => qw(all); +use File::Basename; +use lib dirname (__FILE__); use readline qw(mal_readline); use feature qw(switch); use Data::Dumper; diff --git a/perl/step7_quote.pl b/perl/step7_quote.pl index 19c0599..2e08c1a 100644 --- a/perl/step7_quote.pl +++ b/perl/step7_quote.pl @@ -1,5 +1,7 @@ use strict; use warnings FATAL => qw(all); +use File::Basename; +use lib dirname (__FILE__); use readline qw(mal_readline); use feature qw(switch); use Data::Dumper; diff --git a/perl/step8_macros.pl b/perl/step8_macros.pl index 47004a2..d723651 100644 --- a/perl/step8_macros.pl +++ b/perl/step8_macros.pl @@ -1,5 +1,7 @@ use strict; use warnings FATAL => qw(all); +use File::Basename; +use lib dirname (__FILE__); use readline qw(mal_readline); use feature qw(switch); use Data::Dumper; diff --git a/perl/step9_interop.pl b/perl/step9_interop.pl index 45dd4af..4f53b6a 100644 --- a/perl/step9_interop.pl +++ b/perl/step9_interop.pl @@ -1,5 +1,7 @@ use strict; use warnings FATAL => qw(all); +use File::Basename; +use lib dirname (__FILE__); use readline qw(mal_readline); use feature qw(switch); use Data::Dumper; diff --git a/perl/stepA_more.pl b/perl/stepA_more.pl index eca2b6e..3703c47 100644 --- a/perl/stepA_more.pl +++ b/perl/stepA_more.pl @@ -1,5 +1,7 @@ use strict; use warnings FATAL => qw(all); +use File::Basename; +use lib dirname (__FILE__); use readline qw(mal_readline); use feature qw(switch); use Data::Dumper; -- cgit v1.2.3