modules/BCB2009WorkspaceCreator.pm

   1 package BCB2009WorkspaceCreator;
   2
   3 # ************************************************************
   4 # Description   : A BCB2009 Workspace Creator
   5 # Author        : Johnny Willemsen
   6 # Create Date   : 17/10/2008
   7 # ************************************************************
   8
   9 # ************************************************************
  10 # Pragmas
  11 # ************************************************************
  12
  13 use strict;
  14
  15 use BCB2007WorkspaceCreator;
  16 use BCB2009ProjectCreator;
  17
  18 use vars qw(@ISA);
  19 @ISA = qw(BCB2007WorkspaceCreator);
  20
  21 sub pre_workspace {
  22   my($self, $fh) = @_;
  23   my $crlf = $self->crlf();
  24
  25   ## This identifies it as a Borland C++Builder 2009 file
  26   print $fh '<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">', $crlf;
  27
  28   ## Optionally print the workspace comment
  29 #  $self->print_workspace_comment($fh,
  30 #            '<!-- MPC Command -->', $crlf,
  31 #            '<!-- ', $self->create_command_line_string($0, @ARGV), ' -->',
  32 #            $crlf);
  33 }
  34
  35 1;