modules/VC71WorkspaceCreator.pm

   1 package VC71WorkspaceCreator;
   2
   3 # ************************************************************
   4 # Description   : A VC7.1 Workspace Creator
   5 # Author        : Chad Elliott
   6 # Create Date   : 4/17/2003
   7 # ************************************************************
   8
   9 # ************************************************************
  10 # Pragmas
  11 # ************************************************************
  12
  13 use strict;
  14
  15 use VC71ProjectCreator;
  16 use VC7WorkspaceCreator;
  17
  18 use vars qw(@ISA);
  19 @ISA = qw(VC7WorkspaceCreator);
  20
  21 # ************************************************************
  22 # Subroutine Section
  23 # ************************************************************
  24
  25
  26 sub pre_workspace {
  27   my($self, $fh) = @_;
  28   my $crlf = $self->crlf();
  29
  30   ## This identifies it as a Visual Studio 2003 file
  31   print $fh 'Microsoft Visual Studio Solution File, Format Version 8.00', $crlf;
  32
  33   ## Optionally print the workspace comment
  34   $self->print_workspace_comment($fh,
  35             '#', $crlf,
  36             '# ', $crlf,
  37             '#', $crlf,
  38             '# This file was generated by MPC.  Any changes made directly to', $crlf,
  39             '# this file will be lost the next time it is generated.', $crlf,
  40             '#', $crlf,
  41             '# MPC Command:', $crlf,
  42             '# ', $self->create_command_line_string($0, @ARGV), $crlf);
  43 }
  44
  45
  46 sub print_inner_project {
  47   my($self, $fh, $gen, $pguid, $deps, $project_name, $name_to_guid_map) = @_;
  48
  49   if ($self->allow_empty_dependencies() || defined $$deps[0]) {
  50     ## Print out the project dependencies
  51     my $crlf = $self->crlf();
  52     print $fh "\tProjectSection(ProjectDependencies) = postProject$crlf";
  53     foreach my $dep (@$deps) {
  54       my $guid = $name_to_guid_map->{$dep};
  55       print $fh "\t\t{$guid} = {$guid}$crlf" if (defined $guid);
  56     }
  57     print $fh "\tEndProjectSection$crlf";
  58   }
  59 }
  60
  61
  62 sub allow_empty_dependencies {
  63   #my $self = shift;
  64   return 1;
  65 }
  66
  67
  68 sub print_configs {
  69   my($self, $fh, $configs) = @_;
  70   my $crlf = $self->crlf();
  71   foreach my $key (sort keys %$configs) {
  72     print $fh "\t\t$key = $key$crlf";
  73   }
  74 }
  75
  76
  77 sub print_dependencies {
  78   ## These are done in the print_inner_project method
  79 }
  80
  81
  82 1;