Author: paultcochrane
Date: Mon Jan 8 09:51:06 2007
New Revision: 16488
Modified:
trunk/ (props changed)
trunk/lib/Parrot/Distribution.pm
Log:
[lib] grepping out files matching imc(lexer|parser).[hc] and
(lexer|parser).[hc] as they are usually automatically generated (at least,
at present within imcc and cola).
Modified: trunk/lib/Parrot/Distribution.pm
==============================================================================
--- trunk/lib/Parrot/Distribution.pm (original)
+++ trunk/lib/Parrot/Distribution.pm Mon Jan 8 09:51:06 2007
@@ -469,7 +469,7 @@
sub get_c_language_files {
my $self = shift;
- return (
+ my @c_language_files = (
$self->c_source_files,
$self->c_header_files,
$self->pmc_source_files,
@@ -479,6 +479,9 @@
$self->ops_source_files,
);
+ return grep $_->path !~ m{ \b (imc)?(parser|lexer)\.[hc] $ }x,
+ @c_language_files;
+
# XXX: lex_source_files() collects lisp files as well... how to fix ???
#grep( $_->{PATH} !~ m{ \b imc(parser|lexer)\.[hc] $ }x,
