[svn:parrot] r43410 - branches/one_make/tools/dev

coke at svn.parrot.org coke at svn.parrot.org
Fri Jan 8 01:19:40 UTC 2010


Author: coke
Date: Fri Jan  8 01:19:39 2010
New Revision: 43410
URL: https://trac.parrot.org/parrot/changeset/43410

Log:
report on missing deps from load_bytecode; look in runtime/parrot/library

Modified:
   branches/one_make/tools/dev/checkdepend.pl

Modified: branches/one_make/tools/dev/checkdepend.pl
==============================================================================
--- branches/one_make/tools/dev/checkdepend.pl	Fri Jan  8 00:26:06 2010	(r43409)
+++ branches/one_make/tools/dev/checkdepend.pl	Fri Jan  8 01:19:39 2010	(r43410)
@@ -102,10 +102,12 @@
     $guts =~ s{^=.*^=cut$}{}gsm;
 
     my @includes;
-    while ($guts =~ m/.include (["'])(.*)\1/g) {
+    while ($guts =~ m/\.include\s+(["'])(.*)\1/g) {
+        push @includes, $2;
+    } 
+    while ($guts =~ m/\bload_bytecode\s+(["'])(.*)\1/g) {
         push @includes, $2;
     } 
-    # XXX also check load_bytecode
 
     # Canonicalize each of these includes.
 
@@ -125,6 +127,11 @@
             push @{$deps{$file}}, $make_dep;
             next;
         }
+        $make_dep = collapse_path(File::Spec->catfile('runtime/parrot/library',$include));
+        if (defined($make_dep) && -f $make_dep) {
+            push @{$deps{$file}}, $make_dep;
+            next;
+        }
 
         # relative to top level?
         $make_dep = collapse_path(File::Spec->catfile($include));


More information about the parrot-commits mailing list