modules/VC9WorkspaceCreator.pm

   1 package VC9WorkspaceCreator;
   2
   3 # ************************************************************
   4 # Description   : A VC9 Workspace Creator
   5 # Author        : Johnny Willemsen
   6 # Create Date   : 11/22/2007
   7 # ************************************************************
   8
   9 # ************************************************************
  10 # Pragmas
  11 # ************************************************************
  12
  13 use strict;
  14
  15 use VC9ProjectCreator;
  16 use VC8WorkspaceCreator;
  17
  18 use vars qw(@ISA);
  19 @ISA = qw(VC8WorkspaceCreator);
  20
  21 # ************************************************************
  22 # Subroutine Section
  23 # ************************************************************
  24
  25 sub pre_workspace {
  26   my($self, $fh) = @_;
  27   my $crlf = $self->crlf();
  28
  29   print $fh '', $crlf,
  30             'Microsoft Visual Studio Solution File, Format Version 10.00', $crlf;
  31   $self->print_workspace_comment($fh,
  32             '# Visual Studio 2008', $crlf,
  33             '#', $crlf,
  34             '# This file was generated by MPC.  Any changes made directly to', $crlf,
  35             '# this file will be lost the next time it is generated.', $crlf,
  36             '#', $crlf,
  37             '# MPC Command:', $crlf,
  38             '# ', $self->create_command_line_string($0, @ARGV), $crlf);
  39 }
  40
  41 sub website_trailing_slash {
  42   return 0;
  43 }
  44
  45 sub website_extra_props {
  46   my($self, $fh) = @_;
  47   print $fh "\t\t" . 'TargetFramework = "3.5"' . $self->crlf();
  48 }
  49
  50 1;