WebSVN – DevTools – Diff – /core_devl/trunk/TOOLS/jats_svnsave_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_ofile = "build.pl";
my $opt_help = 0;
my $opt_infofile;
my $opt_pname;
my $opt_pversion;
 
my $opt_baselabel;
my $opt_isa_wip;
 
#
#   Globals

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

               'replace'  => 0,
               'comment'  => 'Created by Jats SaveBuild',
               );
    Message ("Repository Ref: " . $session->RmRef);
 
    if ( $opt_isa_wip )
    {
        #
        #   If the build is based on a WIP, then we can delete the
        #   WIP if its based on a branch
        #

    {
 
        my $data = JatsProperties::New();
 
        $data->setProperty('Label', $tag_label);
        $data->setProperty('WipLabel', $opt_baselabel) if $opt_isa_wip;
        $data->setProperty('PackageName', $opt_pname);
        $data->setProperty('PackageVersion', $opt_pversion);
        $data->setProperty('subversion.tag', $session->RmRef);
        $data->setProperty('VCS.tag', 'SVN::' . $session->RmRef);
 

    -infile=xxx         - Input file (auto.pl)
    -outfile=xxx        - Output file (build.pl)
    -infofile=path      - Save label information in 'path'
    -pname=name         - Name of the package
    -pversion=text      - Package version
 
    -baselabel=text     - Base label 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 51...	Line 50...
51	`my $opt_ofile = "build.pl";`	50	`my $opt_ofile = "build.pl";`
52	`my $opt_help = 0;`	51	`my $opt_help = 0;`
53	`my $opt_infofile;`	52	`my $opt_infofile;`
54	`my $opt_pname;`	53	`my $opt_pname;`
55	`my $opt_pversion;`	54	`my $opt_pversion;`
56	`my $opt_wiplabel;`	-
57	`my $opt_baselabel;`	55	`my $opt_baselabel;`
58	`my $opt_isa_wip;`	56	`my $opt_isa_wip;`
59		57
60	`#`	58	`#`
61	`# Globals`	59	`# Globals`
Line 78...	Line 76...
78	`"infile=s" => \$opt_infile, # string`	76	`"infile=s" => \$opt_infile, # string`
79		77
80	`"infofile=s" => \$opt_infofile, # string`	78	`"infofile=s" => \$opt_infofile, # string`
81	`"pname=s" => \$opt_pname, # string`	79	`"pname=s" => \$opt_pname, # string`
82	`"pversion=s" => \$opt_pversion, # string`	80	`"pversion=s" => \$opt_pversion, # string`
83	`"wiplabel=s" => \$opt_wiplabel, # string`	-
84	`"baselabel=s" => \$opt_baselabel, # string`	81	`"baselabel=s" => \$opt_baselabel, # string`
85	`"isawip:+" => \$opt_isa_wip, # Flag`	82	`"isawip:+" => \$opt_isa_wip, # Flag`
86		83
87	`#`	84	`#`
88	`# Update documentation at the end of the file`	85	`# Update documentation at the end of the file`
Line 272...	Line 269...
272	`'replace' => 0,`	269	`'replace' => 0,`
273	`'comment' => 'Created by Jats SaveBuild',`	270	`'comment' => 'Created by Jats SaveBuild',`
274	`);`	271	`);`
275	`Message ("Repository Ref: " . $session->RmRef);`	272	`Message ("Repository Ref: " . $session->RmRef);`
276		273
277	`if ( $opt_isa_wip \|\| $opt_wiplabel )`	274	`if ( $opt_isa_wip )`
278	`{`	275	`{`
279	`#`	276	`#`
280	`# If the build is based on a WIP, then we can delete the`	277	`# If the build is based on a WIP, then we can delete the`
281	`# WIP if its based on a branch`	278	`# WIP if its based on a branch`
282	`#`	279	`#`
Line 302...	Line 299...
302	`{`	299	`{`
303		300
304	`my $data = JatsProperties::New();`	301	`my $data = JatsProperties::New();`
305		302
306	`$data->setProperty('Label', $tag_label);`	303	`$data->setProperty('Label', $tag_label);`
307	`$data->setProperty('WipLabel', $opt_wiplabel ) if $opt_baselabel;`	304	`$data->setProperty('WipLabel', $opt_baselabel) if $opt_isa_wip;`
308	`$data->setProperty('PackageName', $opt_pname);`	305	`$data->setProperty('PackageName', $opt_pname);`
309	`$data->setProperty('PackageVersion', $opt_pversion);`	306	`$data->setProperty('PackageVersion', $opt_pversion);`
310	`$data->setProperty('subversion.tag', $session->RmRef);`	307	`$data->setProperty('subversion.tag', $session->RmRef);`
311	`$data->setProperty('VCS.tag', 'SVN::' . $session->RmRef);`	308	`$data->setProperty('VCS.tag', 'SVN::' . $session->RmRef);`
312		309
Line 337...	Line 334...
337	`-infile=xxx - Input file (auto.pl)`	334	`-infile=xxx - Input file (auto.pl)`
338	`-outfile=xxx - Output file (build.pl)`	335	`-outfile=xxx - Output file (build.pl)`
339	`-infofile=path - Save label information in 'path'`	336	`-infofile=path - Save label information in 'path'`
340	`-pname=name - Name of the package`	337	`-pname=name - Name of the package`
341	`-pversion=text - Package version`	338	`-pversion=text - Package version`
342	`-wiplabel=text - Current package WIP label`	-
343	`-baselabel=text - Base label for sandbox`	339	`-baselabel=text - Base label for sandbox`
344	`-isawip - Current package is a WIP`	340	`-isawip - Current package is a WIP`
345		341
346	`=head1 OPTIONS`	342	`=head1 OPTIONS`
347		343
Line 400...	Line 396...
400	`=item B<-pversion=xxx>`	396	`=item B<-pversion=xxx>`
401		397
402	`This option specifies the package version. It will be used to construct a new`	398	`This option specifies the package version. It will be used to construct a new`
403	`label for the package.`	399	`label for the package.`
404		400
405	`=item B<-wiplabel=text>`	-
406		-
407	`Deprecated option. Do not use. Use -isawip instead.`	-
408		-
409	`=item B<-baselabel=text>`	401	`=item B<-baselabel=text>`
410		402
411	`This option specifies the Version Control Label that the current workspace`	403	`This option specifies the Version Control Label that the current workspace`
412	`is based on. This may be used to determine the new label for the package.`	404	`is based on. This may be used to determine the new label for the package.`
413		405
Line 463...	Line 455...
463		455
464	`=over 8`	456	`=over 8`
465		457
466	`=item 1) Label - The label used to tag the file`	458	`=item 1) Label - The label used to tag the file`
467		459
468	`=item 3) WipLabel - The WIP label provided (optional)`	-
469		-
470	`=item 4) PackageName - The package name`	460	`=item 2) PackageName - The package name`
471		461
472	`=item 5) PackageVersion - The package version`	462	`=item 3) PackageVersion - The package version`
473		463
474	`=back`	464	`=back`
475		465
476	`=back`	466	`=back`
477		467

Subversion Repositories DevTools

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