5 # return program syntax
7 print "Syntax:\n\tdeptrack directory\n";
11 # worker function called by tagextract and tagstrip
13 my($tag1,$tag2,$intag,@lines) = @_;
19 while ($line = shift(@lines)) {
21 # we are inside the block
22 if (($pos=index($line, $tag2)) > -1) {
23 $add = substr($line,0,$pos);
24 $line = substr($line,$pos+length($tag2));
32 if (length($add)>0) { $out .= "$add\n"; }
36 # we are outside the block
37 while(($pos = index($line, $tag1)) > -1) {
38 $line = substr($line,$pos+length($tag1));
39 if (($pos=index($line, $tag2)) > -1) {
40 $add = substr($line,0,$pos);
41 $line = substr($line,$pos+length($tag2));
49 if (length($add)>0) { $out .= "$add\n"; }
56 # return only blocks of @lines between tag1 and tag2
58 my($tag1,$tag2,@lines) = @_;
59 return tagcrunch
($tag1,$tag2,0,@lines);
62 # return @lines minus blocks between tag1 and tag2
64 my($tag1,$tag2,@lines) = @_;
65 return tagcrunch
($tag2,$tag1,1,@lines);
74 opendir($dirhandle,$dir);
75 my @files=grep /.*.(php|inc)/,readdir($dirhandle);
77 foreach $file (@files) {
90 @lines = tagstrip
("<!--","-->",@lines);
91 @lines = tagextract
("<?php","?>",@lines);
92 @lines = tagstrip
("/*","*/",@lines);
100 foreach $dir (@ARGV) {