Author: bernhard
Date: Sat Mar 3 09:10:18 2007
New Revision: 17310
Modified:
trunk/lib/Parrot/Distribution.pm
Log:
#41679: Making ParrotDistribution error a little more verbose
Instead of saying something is wrong, it will no tell how many there
are wrong using which wildcards.
Courtesy of Elizabeth Mattijsen <[EMAIL PROTECTED]>
Modified: trunk/lib/Parrot/Distribution.pm
==============================================================================
--- trunk/lib/Parrot/Distribution.pm (original)
+++ trunk/lib/Parrot/Distribution.pm Sat Mar 3 09:10:18 2007
@@ -514,6 +514,150 @@
}
+=item C<perl_script_file_directories()>
+
+Returns the directories which contain perl source files.
+
+(but misses Configure.pl...)
+
+=cut
+
+sub perl_script_file_directories
+{
+ my $self = shift;
+
+ return
+ map $self->directory_with_name($_) =>
+ 'compilers/imcc',
+ 'editor',
+ 'examples/benchmarks', 'examples/mops',
+ 'languages',
+ map("languages/$_" => qw<
+ APL/tools
+ BASIC/compiler BASIC/interpreter
+ WMLScript/build
+ dotnet dotnet/build dotnet/tools
+ lua
+ m4/tools
+ plumhead
+ python
+ regex
+ scheme scheme/Scheme
+ tcl/tools
+ urm
+ >
+ ),
+ map("tools/$_" => qw<build dev docs util>),
+ ;
+}
+
+=item C<perl_script_file_with_name($name)>
+
+Returns the perl script with the specified name.
+
+=cut
+
+sub perl_script_file_with_name
+{
+ my $self = shift;
+ my $name = shift || return;
+
+ $name .= '.pl' unless $name =~ /\.pl$/o;
+
+ foreach my $dir ($self->perl_script_file_directories)
+ {
+ return $dir->file_with_name($name)
+ if $dir->file_exists_with_name($name);
+ }
+
+ print 'WARNING: ' . __FILE__ . ':' . __LINE__ . ' File not found:' . $name
."\n";
+
+ return;
+}
+
+
+=item C<perl_module_file_directories()>
+
+Returns the directories which contain perl module files.
+
+=cut
+
+sub perl_module_file_directories
+{
+ my $self = shift;
+
+ return
+ map $self->directory_with_name($_) =>
+ map("config/$_" => qw<auto auto/cpu/i386 auto/cpu/ppc
+ auto/cpu/sun4 auto/cpu/x86_64
+ gen gen/cpu/i386 gen/cpu/x86_64 init init/hints inter>),
+ 'ext/Parrot-Embed/lib/Parrot',
+ map("languages/$_" => qw<
+ APL/t
+ BASIC/compiler
+ HQ9plus/lib/Parrot/Test
+ WMLScript/build/SRM WMLScript/t/Parrot/Test
+ bc/lib/Parrot/Test bc/lib/Parrot/Test/Bc
+ dotnet/build/SRM dotnet/t
+ jako/lib/Jako
+ jako/lib/Jako/Construct
+ lua/Lua lua/t/Parrot/Test
+ m4/lib/Parrot/Test m4/lib/Parrot/Test/M4
+ parrot_compiler/lib/Parrot/Test
+ perl6/t/01-sanity
+ plumhead/lib/Parrot/Test plumhead/lib/Parrot/Test/Plumhead
+ pugs/t
+ regex/lib
+ scheme scheme/Scheme
+ tcl/lib/Parrot/Test
+ urm/lib/URM
+ >
+ ),
+ map("languages/jako/lib/Jako/Construct/$_" => qw<
+ Block Block/Conditional Block/Loop Declaration
+ Expression Expression/Value Statement Type
+ >
+ ),
+ map("languages/regex/lib/$_" => qw<
+ Parrot/Test Regex Regex/CodeGen Regex/Ops Regex/Parse
+ >
+ ),
+ map("lib/$_" => qw<
+ Class Digest/Perl File Parrot Parse Pod Pod/Simple Test Text
+ >
+ ),
+ map("lib/Parrot/$_" => qw<
+ Config Configure Configure/Step Docs Docs/Section IO
+ OpLib OpTrans PIR Pmc2c Test
+ >
+ ),
+ ;
+}
+
+=item C<perl_module_file_with_name($name)>
+
+Returns the perl module file with the specified name.
+
+=cut
+
+sub perl_module_file_with_name
+{
+ my $self = shift;
+ my $name = shift || return;
+
+ $name .= '.pm' unless $name =~ /\.pm$/o;
+
+ foreach my $dir ($self->perl_module_file_directories)
+ {
+ return $dir->file_with_name($name)
+ if $dir->file_exists_with_name($name);
+ }
+
+ print 'WARNING: ' . __FILE__ . ':' . __LINE__ . ' File not found:' . $name
."\n";
+
+ return;
+}
+
=item C<docs_directory()>
Returns the documentation directory.
