modules/VC8ProjectCreator.pm

   1 package VC8ProjectCreator;
   2
   3 # ************************************************************
   4 # Description   : A VC8 Project Creator
   5 # Author        : Johnny Willemsen
   6 # Create Date   : 4/21/2004
   7 # ************************************************************
   8
   9 # ************************************************************
  10 # Pragmas
  11 # ************************************************************
  12
  13 use strict;
  14
  15 use VC7ProjectCreator;
  16
  17 use vars qw(@ISA);
  18 @ISA = qw(VC7ProjectCreator);
  19
  20 # ************************************************************
  21 # Data Section
  22 # ************************************************************
  23
  24 ## NOTE: We call the constant as a function to support Perl 5.6.
  25 my %info = (Creator::cplusplus() => {'ext'      => '.vcproj',
  26                                      'dllexe'   => 'vc8exe',
  27                                      'libexe'   => 'vc8libexe',
  28                                      'dll'      => 'vc8dll',
  29                                      'lib'      => 'vc8lib',
  30                                      'template' => 'vc8',
  31                                     },
  32             Creator::csharp() => {'ext'      => '.csproj',
  33                                   'dllexe'   => 'vc8csharp',
  34                                   'libexe'   => 'vc8csharp',
  35                                   'dll'      => 'vc8csharp',
  36                                   'lib'      => 'vc8csharp',
  37                                   'template' => 'vc8csharp',
  38                                  },
  39             Creator::java()   => {'ext'      => '.vjsproj',
  40                                   'dllexe'   => 'vc8java',
  41                                   'libexe'   => 'vc8java',
  42                                   'dll'      => 'vc8java',
  43                                   'lib'      => 'vc8java',
  44                                   'template' => 'vc8java',
  45                                  },
  46             Creator::vb()     => {'ext'      => '.vbproj',
  47                                   'dllexe'   => 'vc8vb',
  48                                   'libexe'   => 'vc8vb',
  49                                   'dll'      => 'vc8vb',
  50                                   'lib'      => 'vc8vb',
  51                                   'template' => 'vc8vb',
  52                                  },
  53            );
  54
  55 my %config = ('vcversion' => '8.00');
  56
  57 # ************************************************************
  58 # Subroutine Section
  59 # ************************************************************
  60
  61 sub languageSupported {
  62   return defined $info{$_[0]->get_language()};
  63 }
  64
  65
  66 sub webapp_supported {
  67   #my $self = shift;
  68   return 1;
  69 }
  70
  71
  72 sub require_dependencies {
  73   ## With vc8, they fixed it such that static libraries that depend on
  74   ## other static libraries will not be included into the target library
  75   ## by default.  Way to go Microsoft!
  76   return 1;
  77 }
  78
  79 sub post_file_creation {
  80   my($self, $file) = @_;
  81
  82   ## VC8 stores information in a .user file that may conflict
  83   ## with information stored in the project file.  If we have
  84   ## created a new project file, we will remove the corresponding
  85   ## .user file to avoid strange conflicts.
  86   unlink("$file.user");
  87   return undef;
  88 }
  89
  90 sub get_configurable {
  91   #my($self, $name) = @_;
  92   return $config{$_[1]};
  93 }
  94
  95 sub get_info_hash {
  96   my($self, $key) = @_;
  97
  98   ## If we have the setting in our information map, the use it.
  99   return $info{$key} if (defined $info{$key});
 100
 101   ## Otherwise, see if our parent type can take care of it.
 102   return $self->SUPER::get_info_hash($key);
 103 }
 104
 105 sub translate_value {
 106   my($self, $key, $val) = @_;
 107
 108   ## Microsoft uses AnyCPU in the project file, but uses Any CPU in the
 109   ## solution file.
 110   $val = 'Any CPU' if ($key eq 'platform' && $val eq 'AnyCPU');
 111
 112   return $self->SUPER::translate_value($key, $val);
 113 }
 114
 115 1;