|
version 1.2, 2009/07/29 21:40:26
|
version 1.3, 2009/07/30 00:43:17
|
|
|
|
| my($reltype); | my($reltype); |
| my($printonly); | my($printonly); |
| my($showtagcmd); | my($showtagcmd); |
| |
my($verbose); |
| my($dir); | my($dir); |
| my($cmd); | my($cmd); |
| my($line); | my($line); |
| Line 71 while ($arg = shift(@ARGV)) |
|
| Line 72 while ($arg = shift(@ARGV)) |
|
| } | } |
| elsif ($arg eq "-t") | elsif ($arg eq "-t") |
| { | { |
| # print files that would otherwise be tagged |
# print tag commands, but don't execute the commands |
| $showtagcmd = 1; | $showtagcmd = 1; |
| } | } |
| } |
elsif ($arg eq "-v") |
| |
|
| if (!defined($root)) |
|
| { | { |
| $root = getcwd(); |
$verbose = 1; |
| |
} |
| } | } |
| | |
| $err = 0; | $err = 0; |
| | |
| # exclusions are relevant to non-JSOC releases |
|
| SetExclusions(\@exclspec, \%exclusions); |
|
| |
|
| #while (my($k, $v) = each %exclusions) |
|
| #{ |
|
| # print STDOUT "key $k, value $v\n"; |
|
| #} |
|
| #exit; |
|
| |
|
| # obtain a list of ALL files | # obtain a list of ALL files |
| $cmd = kAllFiles; | $cmd = kAllFiles; |
| | |
|
|
|
| `cvs co CORE > /dev/null 2>&1`; | `cvs co CORE > /dev/null 2>&1`; |
| chdir("$dir/JSOC"); | chdir("$dir/JSOC"); |
| | |
| |
# Exclusions will apply to the CORE files of the NetDRMS release only |
| |
SetExclusions(\@exclspec, \%exclusions); |
| |
|
| |
if ($verbose) |
| |
{ |
| |
while (my($k, $v) = each %exclusions) |
| |
{ |
| |
print STDOUT "key $k, value $v\n"; |
| |
} |
| |
} |
| |
|
| $reltype = kRelTypeDRMS; | $reltype = kRelTypeDRMS; |
| $verstr = "NetDRMS_Ver_${drmsmaj}-${drmsmin}"; | $verstr = "NetDRMS_Ver_${drmsmaj}-${drmsmin}"; |
| @filelist = GenerateFileList($cmd, $reltype, \%exclusions, \$err); | @filelist = GenerateFileList($cmd, $reltype, \%exclusions, \$err); |
| Line 379 sub SetExclusions |
|
| Line 381 sub SetExclusions |
|
| | |
| chdir($cwd); | chdir($cwd); |
| } | } |
| |
else |
| |
{ |
| $$exclout{"$file"} = "T"; | $$exclout{"$file"} = "T"; |
| } | } |
| } | } |
| |
} |
| | |
| sub ExcludeFile | sub ExcludeFile |
| { | { |
| Line 415 sub GenerateFileList |
|
| Line 419 sub GenerateFileList |
|
| while (defined($line = <ALLFILES>)) | while (defined($line = <ALLFILES>)) |
| { | { |
| chomp($line); | chomp($line); |
| |
|
| |
if ($line =~ /^\.\/(.+)/) |
| |
{ |
| |
$line = $1; |
| |
} |
| |
|
| if ($reltype == kRelTypeJSOC || !ExcludeFile($line, $exclusions)) | if ($reltype == kRelTypeJSOC || !ExcludeFile($line, $exclusions)) |
| { | { |
| $file = $line; | $file = $line; |
Return to
createtags.pl
CVS log
Up to [Development] / JSOC / CM