+
−#!perl -w
+
−use strict;
+
−
+
−# import some modules
+
−use File::Spec;
+
−
+
−# define global variables
+
−my $inputDir=$ARGV[0];
+
−my $outOptionSetFile=$ARGV[1];
+
−my $pathSetDir=$ARGV[2];
+
−my $cfgFilesDir=$ARGV[3];
+
−
+
−my %Symbols;
+
−my @AoA_Pathes;
+
−my %Conditions;
+
−
+
−if ($#ARGV < 0) {
+
−  print "usage:   gen_optionSet <inputDir> <outputFile> <pathSetDir> <cfgFilesDir>\n";
+
−  print "example: gen_optionSet busyb_integration busyb_integration/osFragment.xml x:/g23m/system/busyb x:/g23m/__out__/ssa_config\n";
+
−  exit;
+
−}
+
−
+
−# Find the target set files
+
−#
+
−my @osFiles = glob("$inputDir/*.os");
+
−$#osFiles >= 0 || die "No *.os files found\n";
+
−
+
−# open the output files
+
−#
+
−open (OUT,">$outOptionSetFile")||die "can't open $outOptionSetFile \n";
+
−
+
−
+
−foreach (@osFiles) {
+
−  my $condition = calcConditionFromFileName($_);
+
−
+
−  my $condString = $_;
+
−  $condString =~ /((\w|-)+)\.os/;
+
−  $condString = "config_$1";
+
−
+
−  # open the input file
+
−  #
+
−  open (IN,"<$_")||die "can't open $_ \n";
+
−  
+
−  # read the input file
+
−  #
+
−  my $line;
+
−  while(defined($line = <IN>))
+
−  {
+
−    # remove trailing \n
+
−    chomp($line);
+
−      if ($line =~ /^\[(\w+)\]\s*/) {
+
−        my @dirNames = split(/\s+/,$');
+
−        foreach (@dirNames) {
+
−          my $dirName = calcRelativePathFromPathset ($_, $pathSetDir);
+
−          $Symbols{$1} .= "<condValue path=\"$dirName\" require=\"$condition\"/>\n";
+
−        }
+
−      }
+
−  }
+
−  $Conditions{$condition} = $condString;
+
−}
+
−
+
−
+
−
+
−
+
−
+
−# print the optionSet fragment
+
−#
+
−print OUT "<!-- This is a generated file! Do not change ! -->\n\n";
+
−print OUT "<!-- It's output is based on the information in the following files:\n";
+
−foreach (@osFiles) {
+
−  print OUT "\t$_\n";
+
−}
+
−print OUT "\n<!-- All of it must be placed somewhere in a optionSet document! -->\n\n\n";
+
−
+
−
+
−#print OUT "<optionDef description=\"auto generated options - SSA_WCP_INCLUDES\" name=\"SSA_WCP_INCLUDES\">\n";
+
−#print OUT "<condOption name=\"include\">\n";
+
−#foreach (sort(keys (%Symbols))) {
+
−#  print OUT "<condValue valRef=\"$_.include\"/>\n";
+
−#}
+
−#print OUT "</condOption></optionDef>\n";
+
−
+
−print OUT "<optionDef description=\"auto generated options - CFG_INCLUDES\" name=\"CFG_INCLUDES\">\n";
+
−print OUT "<condOption name=\"include\">\n";
+
−foreach (keys (%Conditions)) {
+
−  my $path = calcRelativePathFromPathset($cfgFilesDir, $pathSetDir) . "\\" . $Conditions{$_};
+
−  print OUT "<condValue path=\"$path\" require=\"$_\"/>\n";
+
−}
+
−print OUT "</condOption></optionDef>\n\n";
+
−
+
−
+
−foreach (sort(keys (%Symbols))) {
+
−  print OUT "<optionDef description=\"auto generated options - $_\" name=\"$_\">\n";
+
−  print OUT "<condOption name=\"include\">\n";
+
−  print OUT "$Symbols{$_}";
+
−  print OUT "</condOption></optionDef>\n\n";
+
−}
+
−
+
−
+
−# close the files
+
−#
+
−close IN;
+
−close OUT;
+
−
+
−
+
−###########################################
+
−# calculate the condition from the filename
+
−# make aaa==1 &#38 bbb==2 from aaa1_bbb2.ts
+
−#
+
−sub calcConditionFromFileName
+
−{
+
−my $condition = "";
+
−my @cond;
+
−my $i = 0;
+
−
+
−# remove directory part
+
−my ($drive,$directories,$file);
+
−($drive,$directories,$file) = File::Spec->splitpath($_[0]);
+
−
+
−# now remove file extension
+
−$file =~ /\.\w*/;
+
−
+
−# now split the name into sub conditions e.g. aaa1 bbb2
+
−@cond = split(/_/,$`);
+
−
+
−foreach (@cond) {
+
−  while (s/([a-zA-Z0-9]+)-(\d+)//) {
+
−    $condition = $condition . "(" . $1 . "==" . $2 .")";
+
−    defined($cond[++$i]) && ($condition = $condition . " &#38;&#38; ");
+
−    }
+
−  }
+
−  $condition =~ s/ &#38;&#38; $//;
+
−  return $condition;
+
−}
+
−###########################################
+
−
+
−########################################################
+
−# correct obscure behavior of File::Spec->abs2rel,
+
−# which inserts a drive letter befor a relative path !!!
+
−#
+
−sub calcRelativePathFromPathset
+
−{
+
−  my ($drive,$directories,$file);
+
−
+
−  ($drive,$directories,$file) = File::Spec->splitpath( File::Spec->abs2rel ($_[0], $_[1]) );
+
−
+
−  return File::Spec->catpath("",$directories,$file);
+
−}
+
−########################################################