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



#   This is package_name . project extension (daf_utils.cr)
#
if ( $#opt_build  >= 0)
{
    Verbose( "Check and locate the build files");
    @build_list = ();
    foreach my $bentry ( @opt_build )
    {
        if ($bscanner->match( $bentry) )
        {
            UniquePush (\@build_list, $bscanner->getMatchList() );

    #   Create a config spec to be used to populate the view
    #       Do not branch directories
    #       Do not extract files from lost+found
    #
    Verbose( "Create config spec");
    my @config;
    push @config, "element * CHECKEDOUT";
    push @config, "element .../lost+found -none";
    push @config, "element * .../$opt_branch/LATEST" if $opt_branch;
    foreach (@opt_spec)
    {
        my $data = "element * $_";
        $data .= " -mkbranch $opt_branch" if $opt_branch;
        push @config, $data;
 
    }
 
    #
    #   Packages SHOULD be labled to the root.
    #   Do not extend this list fix the package - fix the labels in the VOB.
    #
    if ( $opt_latest_root )
    {
        push @config, "element -directory $ROOT_VOB .../$opt_latest_root/LATEST";
        push @config, "element -directory $ROOT_VOB .../mass_dev/LATEST";
        push @config, "element -directory $ROOT_VOB /main/LATEST";
    }
 
    #
    #   Do not branch directories above the load path
    #   Load only the version on /main

            my @parts = split ('/', $opt_path);
            shift @parts;
            foreach my $dir ( @parts )
            {
                $fulldir .= "/$dir";
                push @config, "element -dir $fulldir /main/LATEST"
            }
        }
        else
        {
            push @config, "element -dir $ROOT_VOB /main/LATEST";
        }
    }
 
    #
    #   Branch rule:
    #   Need /main/0 to allow files to be added to the view
    #   Will get a lot of stuff, so take care not to label it all
    #
    push @config, "element * /main/0 -mkbranch $opt_branch" if $opt_branch;
 
    #
    #   Load rule
    #   Use ROOT_VOB, unless the user has specified a path
    #   Quote the path so that spaces will be correcly handled
    #
    push @config, "load $ROOT_VOB" unless $opt_path;
    push @config, "load \"$VOB_PREFIX$opt_path\"" if $opt_path;
 
 
    FileCreate ($config_file, \@config);
    return $config_file;
}
 
#-------------------------------------------------------------------------------
#   Documentation

Rev 255	Rev 261
Line 633...	Line 633...
633	`# This is package_name . project extension (daf_utils.cr)`	633	`# This is package_name . project extension (daf_utils.cr)`
634	`#`	634	`#`
635	`if ( $#opt_build >= 0)`	635	`if ( $#opt_build >= 0)`
636	`{`	636	`{`
637	`Verbose( "Check and locate the build files");`	637	`Verbose( "Check and locate the build files");`
638	`my @build_list = ();`	638	`@build_list = ();`
639	`foreach my $bentry ( @opt_build )`	639	`foreach my $bentry ( @opt_build )`
640	`{`	640	`{`
641	`if ($bscanner->match( $bentry) )`	641	`if ($bscanner->match( $bentry) )`
642	`{`	642	`{`
643	`UniquePush (\@build_list, $bscanner->getMatchList() );`	643	`UniquePush (\@build_list, $bscanner->getMatchList() );`
Line 1208...	Line 1208...
1208	`# Create a config spec to be used to populate the view`	1208	`# Create a config spec to be used to populate the view`
1209	`# Do not branch directories`	1209	`# Do not branch directories`
1210	`# Do not extract files from lost+found`	1210	`# Do not extract files from lost+found`
1211	`#`	1211	`#`
1212	`Verbose( "Create config spec");`	1212	`Verbose( "Create config spec");`
1213	`open (CFG, ">$config_file") or Error ("Cannot create config spec");`	1213	`my @config;`
1214	`print CFG "element * CHECKEDOUT\n";`	1214	`push @config, "element * CHECKEDOUT";`
1215	`print CFG "element .../lost+found -none\n";`	1215	`push @config, "element .../lost+found -none";`
1216	`print CFG "element * .../$opt_branch/LATEST\n" if $opt_branch;`	1216	`push @config, "element * .../$opt_branch/LATEST" if $opt_branch;`
1217	`foreach (@opt_spec)`	1217	`foreach (@opt_spec)`
1218	`{`	1218	`{`
1219	`print CFG "element * $_";`	1219	`my $data = "element * $_";`
1220	`print CFG " -mkbranch $opt_branch" if $opt_branch;`	1220	`$data .= " -mkbranch $opt_branch" if $opt_branch;`
1221	`print CFG "\n";`	1221	`push @config, $data;`
1222		-
1223	`}`	1222	`}`
1224		1223
1225	`#`	1224	`#`
1226	`# Packages SHOULD be labled to the root.`	1225	`# Packages SHOULD be labled to the root.`
1227	`# Do not extend this list fix the package - fix the labels in the VOB.`	1226	`# Do not extend this list fix the package - fix the labels in the VOB.`
1228	`#`	1227	`#`
1229	`if ( $opt_latest_root )`	1228	`if ( $opt_latest_root )`
1230	`{`	1229	`{`
1231	`print CFG "element -directory $ROOT_VOB .../$opt_latest_root/LATEST\n";`	1230	`push @config, "element -directory $ROOT_VOB .../$opt_latest_root/LATEST";`
1232	`print CFG "element -directory $ROOT_VOB .../mass_dev/LATEST\n";`	1231	`push @config, "element -directory $ROOT_VOB .../mass_dev/LATEST";`
1233	`print CFG "element -directory $ROOT_VOB /main/LATEST\n";`	1232	`push @config, "element -directory $ROOT_VOB /main/LATEST";`
1234	`}`	1233	`}`
1235		1234
1236	`#`	1235	`#`
1237	`# Do not branch directories above the load path`	1236	`# Do not branch directories above the load path`
1238	`# Load only the version on /main`	1237	`# Load only the version on /main`
Line 1246...	Line 1245...
1246	`my @parts = split ('/', $opt_path);`	1245	`my @parts = split ('/', $opt_path);`
1247	`shift @parts;`	1246	`shift @parts;`
1248	`foreach my $dir ( @parts )`	1247	`foreach my $dir ( @parts )`
1249	`{`	1248	`{`
1250	`$fulldir .= "/$dir";`	1249	`$fulldir .= "/$dir";`
1251	`print CFG "element -dir $fulldir /main/LATEST\n"`	1250	`push @config, "element -dir $fulldir /main/LATEST"`
1252	`}`	1251	`}`
1253	`}`	1252	`}`
1254	`else`	1253	`else`
1255	`{`	1254	`{`
1256	`print CFG "element -dir $ROOT_VOB /main/LATEST\n";`	1255	`push @config, "element -dir $ROOT_VOB /main/LATEST";`
1257	`}`	1256	`}`
1258	`}`	1257	`}`
1259		1258
1260	`#`	1259	`#`
1261	`# Branch rule:`	1260	`# Branch rule:`
1262	`# Need /main/0 to allow files to be added to the view`	1261	`# Need /main/0 to allow files to be added to the view`
1263	`# Will get a lot of stuff, so take care not to label it all`	1262	`# Will get a lot of stuff, so take care not to label it all`
1264	`#`	1263	`#`
1265	`print CFG "element * /main/0 -mkbranch $opt_branch\n" if $opt_branch;`	1264	`push @config, "element * /main/0 -mkbranch $opt_branch" if $opt_branch;`
1266		1265
1267	`#`	1266	`#`
1268	`# Load rule`	1267	`# Load rule`
1269	`# Use ROOT_VOB, unless the user has specified a path`	1268	`# Use ROOT_VOB, unless the user has specified a path`
1270	`# Quote the path so that spaces will be correcly handled`	1269	`# Quote the path so that spaces will be correcly handled`
1271	`#`	1270	`#`
1272	`print CFG "load $ROOT_VOB\n" unless $opt_path;`	1271	`push @config, "load $ROOT_VOB" unless $opt_path;`
1273	`print CFG "load \"$VOB_PREFIX$opt_path\"\n" if $opt_path;`	1272	`push @config, "load \"$VOB_PREFIX$opt_path\"" if $opt_path;`
1274	`close CFG;`	-
1275		1273
-		1274	`FileCreate ($config_file, \@config);`
1276	`return $config_file;`	1275	`return $config_file;`
1277	`}`	1276	`}`
1278		1277
1279	`#-------------------------------------------------------------------------------`	1278	`#-------------------------------------------------------------------------------`
1280	`# Documentation`	1279	`# Documentation`

Subversion Repositories DevTools

(root)/core_devl/trunk/TOOLS/jats_cbuilder.pl @ 261 – Rev 255 → 261