Subversion Repositories DevTools

Rev

Rev 363 | Rev 1329 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 363 Rev 383
Line 172... Line 172...
172
push @opt_spec, @ARGV;
172
push @opt_spec, @ARGV;
173
 
173
 
174
unless(  @opt_spec  )
174
unless(  @opt_spec  )
175
{
175
{
176
    Error ("Need a view or a label. -help for options") if ( $opt_delete  && ! $opt_viewname );
176
    Error ("Need a view or a label. -help for options") if ( $opt_delete  && ! $opt_viewname );
177
    Error ("Need a label or config_spec. -help for options") unless $opt_delete;
177
    Error ("Need a label or URL. -help for options") unless $opt_delete;
178
}
178
}
179
 
179
 
180
#
180
#
181
#   Convert label with embedded VCS information into a 'normal' form.
181
#   Convert label with embedded VCS information into a 'normal' form.
182
#   Form:
182
#   Form:
Line 203... Line 203...
203
    Error ("Multiple labels not supported",
203
    Error ("Multiple labels not supported",
204
           "Use one label to describe a package" );
204
           "Use one label to describe a package" );
205
}
205
}
206
 
206
 
207
#
207
#
-
 
208
#   Check branch and tags names
-
 
209
#
-
 
210
if ( $opt_branch )
-
 
211
{
-
 
212
#    Error ("Branch Name cannot start with '-'") if ( $opt_branch =~ m/^-/ );
-
 
213
    $opt_branch = SvnIsaSimpleLabel($opt_branch);
-
 
214
}
-
 
215
 
-
 
216
#
208
#   User has specified both debug and production
217
#   User has specified both debug and production
209
#   Then set both to 0 : ie default
218
#   Then set both to 0 : ie default
210
#
219
#
211
if ( $opt_debug_build + $opt_prod_build > 1 )
220
if ( $opt_debug_build + $opt_prod_build > 1 )
212
{
221
{
Line 269... Line 278...
269
#   of multiple views and reduce the risk of unexpected deletion
278
#   of multiple views and reduce the risk of unexpected deletion
270
#
279
#
271
if ( $opt_viewname )
280
if ( $opt_viewname )
272
{
281
{
273
    Error ("View Name contains invalid characters" )
282
    Error ("View Name contains invalid characters" )
274
        unless ( $opt_viewname =~ m~^[-.:0-9a-zA-Z_]+$~ )
283
        unless ( $opt_viewname =~ m~^[0-9a-z]([-.:0-9a-z_]*[0-9a-z])?$~i )
275
}
284
}
276
else
285
else
277
{
286
{
278
    #
287
    #
279
    #   Create a view name based on the provide 'label'
288
    #   Create a view name based on the provide 'label'
-
 
289
    #   Unless creating a branch. Branch name will be appended later
280
    #
290
    #
281
    if ( $svn_label->Type )
291
    if ( $svn_label->Type )
282
    {
292
    {
283
        $opt_viewname = $svn_label->Path;
293
        $opt_viewname = $svn_label->Path;
284
        $opt_viewname .= '_' . ($svn_label->Version || 'trunk');
294
        $opt_viewname .= '_' . ($svn_label->Version || 'trunk') unless $opt_branch;
285
 
295
 
286
        #
296
        #
287
        #   Tags and Branches 'should' include the package name
297
        #   Tags and Branches 'should' include the package name
288
        #   This will lead to a duplication of the package name
298
        #   This will lead to a duplication of the package name
289
        #   ie: aaaaa/package/tags/package_version
299
        #   ie: aaaaa/package/tags/package_version
Line 991... Line 1001...
991
location will be the root directory of the development sandbox.
1001
location will be the root directory of the development sandbox.
992
 
1002
 
993
=item B<-branch=xxx or -mkbranch=xxx>
1003
=item B<-branch=xxx or -mkbranch=xxx>
994
 
1004
 
995
This option will create workspace branch that is tagged with the named branch.
1005
This option will create workspace branch that is tagged with the named branch.
996
This is intended to facilitate the maintenance of existing packages - the
1006
This is intended to facilitate the maintenance of existing packages and the
997
creation of a patch.
1007
creation of private development branches.
998
 
1008
 
999
The named branch must NOT exist within the subversion repository. The script will
1009
The named branch must NOT exist within the subversion repository. The script will
1000
check for its existence.
1010
check for its existence.
1001
 
1011
 
1002
The tool will copy the specified source version to the branch and then create a
1012
The tool will copy the specified source version to the branch and then create a
1003
workspace based on the branch.
1013
workspace based on the branch.
1004
 
1014
 
-
 
1015
A branch name of TIMESTAMP will be treated in special manner. The name will be
-
 
1016
replaced with a unique name based on the users name and the current date time.
-
 
1017
 
1005
=item B<-tag=text>
1018
=item B<-tag=text>
1006
 
1019
 
1007
This option is not used.
1020
This option is not used.
1008
It is present to maintain compatability with the buildtool interface.
1021
It is present to maintain compatability with the buildtool interface.
1009
 
1022