modules/VS2019ProjectCreator.pm

   1 package VS2019ProjectCreator;
   2
   3 # ************************************************************
   4 # Description   : A vs2019 (Visual Studio 2019) Project Creator
   5 # Author        : Johnny Willemsen
   6 # Create Date   : 28/03/2010
   7 # ************************************************************
   8
   9 # ************************************************************
  10 # Pragmas
  11 # ************************************************************
  12
  13 use strict;
  14
  15 use VC12ProjectCreator;
  16
  17 use vars qw(@ISA);
  18 @ISA = qw(VC12ProjectCreator);
  19
  20 ## NOTE: We call the constant as a function to support Perl 5.6.
  21 my %info = (Creator::cplusplus() => {'ext'      => '.vcxproj',
  22                                      'dllexe'   => 'vs2019exe',
  23                                      'libexe'   => 'vs2019libexe',
  24                                      'dll'      => 'vs2019dll',
  25                                      'lib'      => 'vs2019lib',
  26                                      'template' => [ 'vc10', 'vc10filters' ],
  27                                     },
  28            );
  29
  30 my %config = ('vcversion' => '16.00',
  31               'toolsversion' => '16.0',
  32              );
  33
  34 # ************************************************************
  35 # Subroutine Section
  36 # ************************************************************
  37
  38 sub get_info_hash {
  39   my($self, $key) = @_;
  40
  41   ## If we have the setting in our information map, then use it.
  42   return $info{$key} if (defined $info{$key});
  43
  44   ## Otherwise, see if our parent type can take care of it.
  45   return $self->SUPER::get_info_hash($key);
  46 }
  47
  48 sub get_configurable {
  49   my($self, $name) = @_;
  50
  51   ## If we have the setting in our config map, then use it.
  52   return $config{$name} if (defined $config{$name});
  53
  54   ## Otherwise, see if our parent type can take care of it.
  55   return $self->SUPER::get_configurable($name);
  56 }
  57
  58 1;