diff options
author | Abdullah Sowayan <sowayan@users.noreply.github.com> | 2010-02-24 20:20:21 +0000 |
---|---|---|
committer | Abdullah Sowayan <sowayan@users.noreply.github.com> | 2010-02-24 20:20:21 +0000 |
commit | 035b47c1a6985e2b884182ab0f3bb1afa714a48f (patch) | |
tree | 48d75721f242b7a0eb4398a65b672a152bdaa37f /ACE/MPC/modules/VC9WorkspaceCreator.pm | |
parent | a3894e5127aa8cf1892e717ab30f02e053cdb482 (diff) | |
download | ATCD-035b47c1a6985e2b884182ab0f3bb1afa714a48f.tar.gz |
Diffstat (limited to 'ACE/MPC/modules/VC9WorkspaceCreator.pm')
-rw-r--r-- | ACE/MPC/modules/VC9WorkspaceCreator.pm | 42 |
1 files changed, 42 insertions, 0 deletions
diff --git a/ACE/MPC/modules/VC9WorkspaceCreator.pm b/ACE/MPC/modules/VC9WorkspaceCreator.pm new file mode 100644 index 00000000000..e0a5ba6b667 --- /dev/null +++ b/ACE/MPC/modules/VC9WorkspaceCreator.pm @@ -0,0 +1,42 @@ +package VC9WorkspaceCreator; + +# ************************************************************ +# Description : A VC9 Workspace Creator +# Author : Johnny Willemsen +# Create Date : 11/22/2007 +# ************************************************************ + +# ************************************************************ +# Pragmas +# ************************************************************ + +use strict; + +use VC9ProjectCreator; +use VC8WorkspaceCreator; + +use vars qw(@ISA); +@ISA = qw(VC8WorkspaceCreator); + +# ************************************************************ +# Subroutine Section +# ************************************************************ + +sub pre_workspace { + my($self, $fh) = @_; + my $crlf = $self->crlf(); + + print $fh '', $crlf, + 'Microsoft Visual Studio Solution File, Format Version 10.00', $crlf; + $self->print_workspace_comment($fh, + '# Visual Studio 2008', $crlf, + '# $Id$', $crlf, + '#', $crlf, + '# This file was generated by MPC. Any changes made directly to', $crlf, + '# this file will be lost the next time it is generated.', $crlf, + '#', $crlf, + '# MPC Command:', $crlf, + '# ', $self->create_command_line_string($0, @ARGV), $crlf); +} + +1; |