| line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
|
1
|
|
|
|
|
|
|
package ClearCase::Wrapper::DSB; |
|
2
|
|
|
|
|
|
|
|
|
3
|
|
|
|
|
|
|
$VERSION = '1.14'; |
|
4
|
|
|
|
|
|
|
|
|
5
|
1
|
|
|
1
|
|
4427
|
use AutoLoader 'AUTOLOAD'; |
|
|
1
|
|
|
|
|
17322
|
|
|
|
1
|
|
|
|
|
6
|
|
|
6
|
|
|
|
|
|
|
|
|
7
|
1
|
|
|
1
|
|
48
|
use strict; |
|
|
1
|
|
|
|
|
2
|
|
|
|
1
|
|
|
|
|
52
|
|
|
8
|
|
|
|
|
|
|
|
|
9
|
|
|
|
|
|
|
############################################################################# |
|
10
|
|
|
|
|
|
|
# Usage Message Extensions |
|
11
|
|
|
|
|
|
|
############################################################################# |
|
12
|
|
|
|
|
|
|
{ |
|
13
|
|
|
|
|
|
|
local $^W = 0; |
|
14
|
1
|
|
|
1
|
|
81
|
no strict 'vars'; |
|
|
1
|
|
|
|
|
2
|
|
|
|
1
|
|
|
|
|
1327
|
|
|
15
|
|
|
|
|
|
|
|
|
16
|
|
|
|
|
|
|
# Usage message additions for actual cleartool commands that we extend. |
|
17
|
|
|
|
|
|
|
$catcs = "\n* [-cmnt|-expand|-sources|-start]"; |
|
18
|
|
|
|
|
|
|
$describe = "\n* [--par/ents ]"; |
|
19
|
|
|
|
|
|
|
$lock = "\n* [-allow|-deny login-name[,...]] [-iflocked]"; |
|
20
|
|
|
|
|
|
|
$lsregion = "\n* [-current]"; |
|
21
|
|
|
|
|
|
|
$mklabel = "\n* [-up]"; |
|
22
|
|
|
|
|
|
|
$setcs = "\n* [-clone view-tag] [-expand] [-sync|-needed]"; |
|
23
|
|
|
|
|
|
|
$setview = "\n* [-me] [-drive drive:] [-persistent]"; |
|
24
|
|
|
|
|
|
|
$update = "\n* [-quiet]"; |
|
25
|
|
|
|
|
|
|
$winkin = "\n* [-vp] [-tag view-tag]"; |
|
26
|
|
|
|
|
|
|
|
|
27
|
|
|
|
|
|
|
# Usage messages for pseudo cleartool commands that we implement here. |
|
28
|
|
|
|
|
|
|
# Note: we used to localize $0 but that turns out to trigger a bug |
|
29
|
|
|
|
|
|
|
# in perl 5.6.1. |
|
30
|
|
|
|
|
|
|
my $z = (($ARGV[0] eq 'help') ? $ARGV[1] : $ARGV[0]) || ''; |
|
31
|
|
|
|
|
|
|
$comment = "$z [-new] [-element] object-selector ..."; |
|
32
|
|
|
|
|
|
|
$diffcs = "$z view-tag-1 [view-tag-2]"; |
|
33
|
|
|
|
|
|
|
$eclipse = "$z element ..."; |
|
34
|
|
|
|
|
|
|
$edattr = "$z [-view [-tag view-tag]] | [-element] object-selector ..."; |
|
35
|
|
|
|
|
|
|
$grep = "$z [grep-flags] pattern element"; |
|
36
|
|
|
|
|
|
|
$protectview = "$z [-force] [-replace]" |
|
37
|
|
|
|
|
|
|
. "\n[-chown login-name] [-chgrp group-name] [-chmod permissions]" |
|
38
|
|
|
|
|
|
|
. "\n[-add_group group-name[,...]]" |
|
39
|
|
|
|
|
|
|
. "\n[-delete_group group-name[,...]]" |
|
40
|
|
|
|
|
|
|
. "\n{-tag view-tag | view-storage-dir-pname ...}"; |
|
41
|
|
|
|
|
|
|
$recheckout = "$z [-keep|-rm] pname ..."; |
|
42
|
|
|
|
|
|
|
$winkout = "$z [-dir|-rec|-all] [-f file] [-pro/mote] [-do]" |
|
43
|
|
|
|
|
|
|
. "\n[-meta file [-print] file ..."; |
|
44
|
|
|
|
|
|
|
$workon = "$z [-me] [-login] [-exec command-invocation] view-tag"; |
|
45
|
|
|
|
|
|
|
} |
|
46
|
|
|
|
|
|
|
|
|
47
|
|
|
|
|
|
|
############################################################################# |
|
48
|
|
|
|
|
|
|
# Command Aliases |
|
49
|
|
|
|
|
|
|
############################################################################# |
|
50
|
|
|
|
|
|
|
*des = *describe; |
|
51
|
|
|
|
|
|
|
*desc = *describe; |
|
52
|
|
|
|
|
|
|
*edcmnt = *comment; |
|
53
|
|
|
|
|
|
|
*egrep = *grep; |
|
54
|
|
|
|
|
|
|
*mkbrtype = *mklbtype; # not synonyms but the code's the same |
|
55
|
|
|
|
|
|
|
*reco = *recheckout; |
|
56
|
|
|
|
|
|
|
*work = *workon; |
|
57
|
|
|
|
|
|
|
|
|
58
|
|
|
|
|
|
|
1; |
|
59
|
|
|
|
|
|
|
|
|
60
|
|
|
|
|
|
|
__END__ |