modules/VC10WorkspaceCreator.pm

   1 package VC10WorkspaceCreator;
   2
   3 # ************************************************************
   4 # Description   : A VC10 Workspace Creator
   5 # Author        : Johnny Willemsen
   6 # Create Date   : 11/10/2008
   7 # ************************************************************
   8
   9 # ************************************************************
  10 # Pragmas
  11 # ************************************************************
  12
  13 use strict;
  14
  15 use VC10ProjectCreator;
  16 use VC9WorkspaceCreator;
  17
  18 use vars qw(@ISA);
  19 @ISA = qw(VC9WorkspaceCreator);
  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 11.00', $crlf;
  31   $self->print_workspace_comment($fh,
  32             '# Visual Studio 2010', $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_extra_props {
  42   my($self, $fh) = @_;
  43   print $fh "\t\t" .
  44       'TargetFrameworkMoniker = ".NETFramework,Version%3Dv4.0"' .
  45       $self->crlf();
  46 }
  47
  48 sub cpp_proj_ref {
  49   my($self, $spc, $refguid, $attr, $relative) = @_;
  50   my $crlf = $self->crlf();
  51   return $spc . '<ProjectReference Include="' . $relative . '">' . $crlf .
  52       $spc . "\t<Project>\{$refguid\}</Project>$crlf" .
  53       (defined $$attr{'copylocal'}
  54        ? $spc . "\t<Private>" . $$attr{'copylocal'} . "</Private>$crlf"
  55        : ''
  56       ) .
  57       $spc . '</ProjectReference>' . $crlf;
  58 }
  59
  60 1;