From: Jeremy Laine <jeremy.laine@m4x.org>
Date: Fri, 22 Nov 2002 20:35:40 +0000 (+0000)
Subject: initial commit
X-Git-Tag: start~42
X-Git-Url: http://git.polytechnique.org/?a=commitdiff_plain;h=14d630ddb2e3b3f2df5cee54eb195b81b2b7b059;p=old-projects.git

initial commit
---

diff --git a/deptrack/deptrack.pl b/deptrack/deptrack.pl
new file mode 100755
index 0000000..15b1183
--- /dev/null
+++ b/deptrack/deptrack.pl
@@ -0,0 +1,102 @@
+#!/usr/bin/perl -w
+#
+# $Id$
+
+# return program syntax 
+sub syntax {
+  print "Syntax:\n\tdeptrack directory\n";
+  die;
+}
+
+# worker function called by tagextract and tagstrip
+sub tagcrunch {
+  my($tag1,$tag2,$intag,@lines) = @_;
+  my $line;
+  my $pos;
+  my $out;
+  my $add;
+   
+  while ($line = shift(@lines)) {
+    if ($intag) {
+      # we are inside the block
+      if (($pos=index($line, $tag2)) > -1) {
+        $add = substr($line,0,$pos);
+	$line = substr($line,$pos+length($tag2));
+	$intag = 0;
+      } else {
+        $add = $line;
+	$line = "";
+      }
+      $add =~ s/^\s*//;
+      $add =~ s/\s*$//;
+      if (length($add)>0) { $out .= "$add\n"; }
+    }
+  
+    if (!$intag) {
+      # we are outside the block
+      while(($pos = index($line, $tag1)) > -1) {
+        $line = substr($line,$pos+length($tag1));
+        if (($pos=index($line, $tag2)) > -1) {
+            $add = substr($line,0,$pos);
+	    $line = substr($line,$pos+length($tag2));
+	} else {
+	  $add = $line; 
+	  $line="";
+          $intag=1;
+	}
+        $add =~ s/^\s*//;
+	$add =~ s/\s*$//;
+        if (length($add)>0) { $out .= "$add\n"; }
+      }
+    } 
+  }
+  return $out;
+}
+
+# return only blocks of @lines between tag1 and tag2
+sub tagextract {
+  my($tag1,$tag2,@lines) = @_;
+  return tagcrunch($tag1,$tag2,0,@lines);
+}
+
+# return @lines minus blocks between tag1 and tag2
+sub tagstrip {
+  my($tag1,$tag2,@lines) = @_;
+  return tagcrunch($tag2,$tag1,1,@lines);
+}
+
+# parse a directory
+sub parsedir {
+  my $dirhandle;
+  my $dir = $_[0];
+  my $file;
+  
+  opendir($dirhandle,$dir);
+  my @files=grep /.*.(php|inc)/,readdir($dirhandle);
+  closedir($dirhandle);
+  foreach $file (@files) {
+    parsefile($file);
+  }
+}
+
+# parse a file
+sub parsefile {
+  my $fhandle;
+  my $file = $_[0];
+  
+  open($fhandle,$file);
+  @lines = <$fhandle>;
+  close($fhandle);
+  @lines = tagstrip("<!--","-->",@lines);
+  @lines = tagextract("<?php","?>",@lines);
+  @lines = tagstrip("/*","*/",@lines);
+  print @lines;
+}
+
+my $dir;
+my $nargs = @ARGV;
+$nargs || syntax();
+
+foreach $dir (@ARGV) {
+  parsedir($dir);
+}