modules/WixWorkspaceCreator.pm

   1 package WixWorkspaceCreator;
   2
   3 # ************************************************************
   4 # Description   : A Wix Workspace creator
   5 # Author        : James H. Hill
   6 # Create Date   : 6/23/2009
   7 # ************************************************************
   8
   9 # ************************************************************
  10 # Pragmas
  11 # ************************************************************
  12
  13 use strict;
  14 use WixProjectCreator;
  15 use WorkspaceCreator;
  16 use WinWorkspaceBase;
  17
  18 use vars qw(@ISA);
  19 @ISA = qw(WinWorkspaceBase WorkspaceCreator);
  20
  21 # ************************************************************
  22 # Data Section
  23 # ************************************************************
  24
  25
  26 # ************************************************************
  27 # Subroutine Section
  28 # ************************************************************
  29
  30 sub workspace_file_extension {
  31   return '.wxs';
  32 }
  33
  34 sub workspace_file_name {
  35   my $self = shift;
  36   return $self->get_modified_workspace_name($self->get_workspace_name(),
  37                                             '.wxi');
  38 }
  39
  40 sub pre_workspace {
  41   my($self, $fh) = @_;
  42   my $crlf = $self->crlf();
  43   my $name = $self->get_workspace_name();
  44
  45   ## Begin the project definition for the workspace
  46   print $fh '<?xml version="1.0" encoding="utf-8" standalone="yes"?>', $crlf,
  47             '<Include>', $crlf;
  48 }
  49
  50 sub write_comps {
  51   my($self, $fh) = @_;
  52   my $crlf = $self->crlf();
  53
  54
  55   # print the target for clean
  56   foreach my $project ($self->sort_dependencies($self->get_projects())) {
  57     print $fh "  <?include $project ?>", $crlf;
  58   }
  59 }
  60
  61 sub post_workspace {
  62   my($self, $fh) = @_;
  63   my $info = $self->get_project_info();
  64   my $crlf = $self->crlf();
  65
  66   # Create a component group consisting of all the projects.
  67   print $fh $crlf,
  68             '  <Fragment>', $crlf,
  69             '    <ComponentGroup Id="',
  70             $self->get_workspace_name(), '">', $crlf;
  71
  72   foreach my $project ($self->sort_dependencies($self->get_projects())) {
  73     print $fh '      <ComponentGroupRef Id="ComponentGroup.',
  74               $$info{$project}->[0], '" />', $crlf;
  75   }
  76
  77   print $fh '    </ComponentGroup>', $crlf,
  78             '  </Fragment>', $crlf,
  79             '</Include>', $crlf;
  80 }
  81
  82 1;