WebSVN – DevTools – Diff – /core_devl/trunk/TOOLS/jats_ccsave_build.pl



#                   -infile     auto.xml/auto.pl
#                   -outfile    xxxdepends.xml/build.pl
#                   -pname      package_name
#                   -pversion   package_version
#                   -infofile   path_to_info_file
 
#                   -baselabel  View label
#                   -isawip     Is A WIP (optional)
#
#......................................................................#
 

my $opt_branch;
my $opt_newbranch;
my $opt_infofile;
my $opt_pname;
my $opt_pversion;
 
my $opt_basetag;
my $opt_isa_wip;
 
#
#   Globals

                "newbranch"     => \$opt_newbranch,         # string
 
                "infofile=s"    => \$opt_infofile,          # string
                "pname=s"       => \$opt_pname,             # string
                "pversion=s"    => \$opt_pversion,          # string
 
                "baselabel=s"   => \$opt_basetag,           # string
                "isawip:+"      => \$opt_isa_wip,           # Flag
 
                #
                #   Update documentation at the end of the file

#   Need to extract and save the path
#
$opt_basetag =~ tr~\\/~/~s;
$opt_basetag =~ m~^CC::/(.+)::(.+)~ || Error("Invalid baselabel format: $opt_basetag");
$ccpath = $1;
$wip_label = $2 if ( $opt_isa_wip );
 
#
#   Determine the name of the Branch to be used
#   This is based on the branch that the file is already on as ClearCase does
#   not allow multiple instances of a branch on different sub-branches

    {
 
        my $data = JatsProperties::New();
 
        $data->setProperty('Label', $tag_label);
        $data->setProperty('WipLabel', $opt_basetag ) if $opt_isa_wip;
        $data->setProperty('PackageName', $opt_pname);
        $data->setProperty('PackageVersion', $opt_pversion);
        $data->setProperty('clearcase.branch', $opt_branch);
        $data->setProperty('VCS.tag', 'CC::/' . $ccpath . '::' . $tag_label);
 

    -branch=xxx         - Branch to create (AutoBuilder)
    -newbranch          - Force file to be on a new (project) branch
    -infofile=path      - Save label information in 'path'
    -pname=name         - Name of the package
    -pversion=text      - Package version
 
    -baselabel=text     - Base VcsTag for sandbox
    -isawip             - Current package is a WIP
 
=head1 OPTIONS
 

=item B<-pversion=xxx>
 
This option specifies the package version. It will be used to construct a new
label for the package.
 
 
 
 
 
=item B<-baselabel=text>
 
This option specifies the Version Control Label that the current workspace
is based on. This may be used to determine the new label for the package.
 

 
=over 8
 
=item   1) Label - The label used to tag the file
 
 
 
=item   2) PackageName - The package name
 
=item   3) PackageVersion - The package version
 
=back
 
=back
 

Rev 353	Rev 357
Line 20...	Line 20...
20	`# -infile auto.xml/auto.pl`	20	`# -infile auto.xml/auto.pl`
21	`# -outfile xxxdepends.xml/build.pl`	21	`# -outfile xxxdepends.xml/build.pl`
22	`# -pname package_name`	22	`# -pname package_name`
23	`# -pversion package_version`	23	`# -pversion package_version`
24	`# -infofile path_to_info_file`	24	`# -infofile path_to_info_file`
25	`# -wiplabel Existing WIP label (deprecate)`	-
26	`# -baselabel View label`	25	`# -baselabel View label`
27	`# -isawip Is A WIP (optional)`	26	`# -isawip Is A WIP (optional)`
28	`#`	27	`#`
29	`#......................................................................#`	28	`#......................................................................#`
30		29
Line 52...	Line 51...
52	`my $opt_branch;`	51	`my $opt_branch;`
53	`my $opt_newbranch;`	52	`my $opt_newbranch;`
54	`my $opt_infofile;`	53	`my $opt_infofile;`
55	`my $opt_pname;`	54	`my $opt_pname;`
56	`my $opt_pversion;`	55	`my $opt_pversion;`
57	`my $opt_wiptag;`	-
58	`my $opt_basetag;`	56	`my $opt_basetag;`
59	`my $opt_isa_wip;`	57	`my $opt_isa_wip;`
60		58
61	`#`	59	`#`
62	`# Globals`	60	`# Globals`
Line 85...	Line 83...
85	`"newbranch" => \$opt_newbranch, # string`	83	`"newbranch" => \$opt_newbranch, # string`
86		84
87	`"infofile=s" => \$opt_infofile, # string`	85	`"infofile=s" => \$opt_infofile, # string`
88	`"pname=s" => \$opt_pname, # string`	86	`"pname=s" => \$opt_pname, # string`
89	`"pversion=s" => \$opt_pversion, # string`	87	`"pversion=s" => \$opt_pversion, # string`
90	`"wiplabel=s" => \$opt_wiptag, # string`	-
91	`"baselabel=s" => \$opt_basetag, # string`	88	`"baselabel=s" => \$opt_basetag, # string`
92	`"isawip:+" => \$opt_isa_wip, # Flag`	89	`"isawip:+" => \$opt_isa_wip, # Flag`
93		90
94	`#`	91	`#`
95	`# Update documentation at the end of the file`	92	`# Update documentation at the end of the file`
Line 150...	Line 147...
150	`# Need to extract and save the path`	147	`# Need to extract and save the path`
151	`#`	148	`#`
152	`$opt_basetag =~ tr~\\/~/~s;`	149	`$opt_basetag =~ tr~\\/~/~s;`
153	`$opt_basetag =~ m~^CC::/(.+)::(.+)~ \|\| Error("Invalid baselabel format: $opt_basetag");`	150	`$opt_basetag =~ m~^CC::/(.+)::(.+)~ \|\| Error("Invalid baselabel format: $opt_basetag");`
154	`$ccpath = $1;`	151	`$ccpath = $1;`
155	`$wip_label = $2 if ( $opt_isa_wip \|\| $opt_wiptag );`	152	`$wip_label = $2 if ( $opt_isa_wip );`
156		153
157	`#`	154	`#`
158	`# Determine the name of the Branch to be used`	155	`# Determine the name of the Branch to be used`
159	`# This is based on the branch that the file is already on as ClearCase does`	156	`# This is based on the branch that the file is already on as ClearCase does`
160	`# not allow multiple instances of a branch on different sub-branches`	157	`# not allow multiple instances of a branch on different sub-branches`
Line 549...	Line 546...
549	`{`	546	`{`
550		547
551	`my $data = JatsProperties::New();`	548	`my $data = JatsProperties::New();`
552		549
553	`$data->setProperty('Label', $tag_label);`	550	`$data->setProperty('Label', $tag_label);`
554	`$data->setProperty('WipLabel', $wip_label ) if $wip_label;`	551	`$data->setProperty('WipLabel', $opt_basetag ) if $opt_isa_wip;`
555	`$data->setProperty('PackageName', $opt_pname);`	552	`$data->setProperty('PackageName', $opt_pname);`
556	`$data->setProperty('PackageVersion', $opt_pversion);`	553	`$data->setProperty('PackageVersion', $opt_pversion);`
557	`$data->setProperty('clearcase.branch', $opt_branch);`	554	`$data->setProperty('clearcase.branch', $opt_branch);`
558	`$data->setProperty('VCS.tag', 'CC::/' . $ccpath . '::' . $tag_label);`	555	`$data->setProperty('VCS.tag', 'CC::/' . $ccpath . '::' . $tag_label);`
559		556
Line 651...	Line 648...
651	`-branch=xxx - Branch to create (AutoBuilder)`	648	`-branch=xxx - Branch to create (AutoBuilder)`
652	`-newbranch - Force file to be on a new (project) branch`	649	`-newbranch - Force file to be on a new (project) branch`
653	`-infofile=path - Save label information in 'path'`	650	`-infofile=path - Save label information in 'path'`
654	`-pname=name - Name of the package`	651	`-pname=name - Name of the package`
655	`-pversion=text - Package version`	652	`-pversion=text - Package version`
656	`-wiplabel=text - Current package WIP VcsTag`	-
657	`-baselabel=text - Base VcsTag for sandbox`	653	`-baselabel=text - Base VcsTag for sandbox`
658	`-isawip - Current package is a WIP`	654	`-isawip - Current package is a WIP`
659		655
660	`=head1 OPTIONS`	656	`=head1 OPTIONS`
661		657
Line 729...	Line 725...
729	`=item B<-pversion=xxx>`	725	`=item B<-pversion=xxx>`
730		726
731	`This option specifies the package version. It will be used to construct a new`	727	`This option specifies the package version. It will be used to construct a new`
732	`label for the package.`	728	`label for the package.`
733		729
734	`=item B<-wiplabel=text>`	-
735		-
736	`Deprecated option. Do not use. Use -isawip instead.`	-
737		-
738	`=item B<-baselabel=text>`	730	`=item B<-baselabel=text>`
739		731
740	`This option specifies the Version Control Label that the current workspace`	732	`This option specifies the Version Control Label that the current workspace`
741	`is based on. This may be used to determine the new label for the package.`	733	`is based on. This may be used to determine the new label for the package.`
742		734
Line 808...	Line 800...
808		800
809	`=over 8`	801	`=over 8`
810		802
811	`=item 1) Label - The label used to tag the file`	803	`=item 1) Label - The label used to tag the file`
812		804
813	`=item 3) WipLabel - The WIP label provided (optional)`	-
814		-
815	`=item 4) PackageName - The package name`	805	`=item 2) PackageName - The package name`
816		806
817	`=item 5) PackageVersion - The package version`	807	`=item 3) PackageVersion - The package version`
818		808
819	`=back`	809	`=back`
820		810
821	`=back`	811	`=back`
822		812

Subversion Repositories DevTools

(root)/core_devl/trunk/TOOLS/jats_ccsave_build.pl – Rev 353 → 357