Src/update_wix.perl

   1 #
   2 #  update_wix.perl updates the alphabet, training and color entries in the WIX installer
   3 #  files.
   4 #
   5 #  Ron Bessems <ron.b@promixis.com>
   6 #
   7
   8 use XML::LibXML;
   9 use XML::LibXML::PrettyPrint;
  10
  11 sub parse_makefile {
  12
  13     my $filename = @_[0];
  14     my $regexp = @_[1];
  15     my @alphabets;
  16
  17     open(my $fh, '<:encoding(UTF-8)', $filename) or die "Could not open file '$filename' $!";
  18
  19     while (my $row = <$fh>) {
  20         my @matches = $row =~ @_[1];
  21         if ( scalar @matches > 0 ) {
  22             push @alphabets, @matches[0];
  23         }
  24     }
  25
  26     close $fh;
  27
  28     return @alphabets;
  29
  30 }
  31
  32 #Parses Makefile.am and extras the files it lists.
  33 sub parse_alphabet_makefile {
  34     return parse_makefile( @_[0],  qr/(alphabet\.(:?\w|.)*\.xml)/);
  35 }
  36
  37 #Parses Makefile.am and extras the files it lists.
  38 sub parse_training_makefile {
  39     return parse_makefile( @_[0],  qr/(training_(:?\w|.)*\.txt)/);
  40 }
  41
  42 #Parses Makefile.am and extras the files it lists.
  43 sub parse_colours_makefile {
  44     return parse_makefile( @_[0],  qr/(colour(:?\w|.)*\.xml)/);
  45 }
  46
  47
  48 # Finds the node with specified xpath, removes it's subnodes and then adds the files as children.
  49 sub update_nodes {
  50     my $xc = @_[0];
  51     my $xpath = @_[1];
  52     my $prefix = @_[2];
  53     my $files = @_[3];
  54
  55     my @nodes = $xc->findnodes($xpath);
  56     if ( scalar @nodes != 1 ) {
  57         die "Could not find $xpath Node.";
  58     }
  59
  60     my $node = @nodes[0];
  61
  62     $node->removeChildNodes();
  63     for my $file (@$files) {
  64         my $source = "$prefix$file";
  65         my $fileNode = $node->addNewChild( '', 'File' );
  66
  67         $fileNode->setAttribute('Id', $file );
  68         $fileNode->setAttribute('Name', $file );
  69         $fileNode->setAttribute('DiskId', '1' );
  70         $fileNode->setAttribute('Source', $source);
  71     }
  72
  73 }
  74
  75 # Takes the source XML and replaces the alphabets, training and colours.
  76 sub parse_xml {
  77
  78     my $filename = @_[0];
  79     my $alphabets = @_[1];
  80     my $training = @_[2];
  81     my $colours = @_[3];
  82
  83     my $parser = XML::LibXML->new;
  84     my $dom = $parser->parse_file($filename) or die("Could not load $filename");
  85
  86     my $xc = XML::LibXML::XPathContext->new($dom);
  87     $xc->registerNs('Wix', 'http://schemas.microsoft.com/wix/2006/wi');
  88
  89     update_nodes($xc, q {//Wix:Component[@Id="Alphabets"]}, "..\\..\\Data\\alphabets\\", $alphabets);
  90     update_nodes($xc, q {//Wix:Component[@Id="Training"]}, "..\\..\\Data\\training\\", $training);
  91     update_nodes($xc, q {//Wix:Component[@Id="Colours"]}, "..\\..\\Data\\colours\\", $colours);
  92
  93     open my $out_fh, '>', $filename;
  94     print {$out_fh} XML::LibXML::PrettyPrint->pretty_print($dom);
  95     close $out_fh;
  96 }
  97
  98 my @alphabets = parse_alphabet_makefile("../Data/alphabets/Makefile.am");
  99 my @training = parse_training_makefile("../Data/training/Makefile.am");
 100 my @colours = parse_colours_makefile("../Data/colours/Makefile.am");
 101
 102 print("Found " . scalar @alphabets . " alphabets\n");
 103 print("Found " . scalar @training . " training files\n");
 104 print("Found " . scalar @colours . " colours\n");
 105
 106 my @files = ( "Installer/Dasher.wxs", "InstallerTobii/InstallerTobii.wxs", "InstallerW2K/InstallerW2K.wxs");
 107
 108 for my $file (@files) {
 109     parse_xml ( $file, \@alphabets, \@training, \@colours);
 110 }