diff options
author | Johnny Willemsen <jwillemsen@remedy.nl> | 2008-10-17 19:13:37 +0000 |
---|---|---|
committer | Johnny Willemsen <jwillemsen@remedy.nl> | 2008-10-17 19:13:37 +0000 |
commit | b446c72abfa45228622e24cb0ab5b188151e4361 (patch) | |
tree | 28852efba161a13aef0deff9d35efe49a0484588 /modules/BCB2009WorkspaceCreator.pm | |
parent | f8e001e3020dbc4a24d5b5c99e04ef9d5404aa2d (diff) | |
download | MPC-b446c72abfa45228622e24cb0ab5b188151e4361.tar.gz |
Fri Oct 17 19:07:00 UTC 2008 Johnny Willemsen <jwillemsen@remedy.nl>
Diffstat (limited to 'modules/BCB2009WorkspaceCreator.pm')
-rw-r--r-- | modules/BCB2009WorkspaceCreator.pm | 36 |
1 files changed, 36 insertions, 0 deletions
diff --git a/modules/BCB2009WorkspaceCreator.pm b/modules/BCB2009WorkspaceCreator.pm new file mode 100644 index 00000000..2c6c69d8 --- /dev/null +++ b/modules/BCB2009WorkspaceCreator.pm @@ -0,0 +1,36 @@ +package BCB2009WorkspaceCreator; + +# ************************************************************ +# Description : A BCB2009 Workspace Creator +# Author : Johnny Willemsen +# Create Date : 17/10/2008 +# ************************************************************ + +# ************************************************************ +# Pragmas +# ************************************************************ + +use strict; + +use BCB2007WorkspaceCreator; +use BCB2009ProjectCreator; + +use vars qw(@ISA); +@ISA = qw(BCB2007WorkspaceCreator); + +sub pre_workspace { + my($self, $fh) = @_; + my $crlf = $self->crlf(); + + ## This identifies it as a Borland C++Builder 2009 file + print $fh '<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">', $crlf; + + ## Optionally print the workspace comment +# $self->print_workspace_comment($fh, +# '<!-- $Id$ -->', $crlf, +# '<!-- MPC Command -->', $crlf, +# '<!-- ', $self->create_command_line_string($0, @ARGV), ' -->', +# $crlf); +} + +1; |