modules/VC12WorkspaceCreator.pm

   1 package VC12WorkspaceCreator;
   2
   3 # ************************************************************
   4 # Description   : A VC12 Workspace Creator
   5 # Author        : Johnny Willemsen
   6 # Create Date   : 10/20/2012
   7 # ************************************************************
   8
   9 # ************************************************************
  10 # Pragmas
  11 # ************************************************************
  12
  13 use strict;
  14
  15 use VC12ProjectCreator;
  16 use VC11WorkspaceCreator;
  17
  18 use vars qw(@ISA);
  19 @ISA = qw(VC11WorkspaceCreator);
  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 12.00', $crlf;
  31   $self->print_workspace_comment($fh,
  32             '# Visual Studio 2013', $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
  42 1;