Subversion Repositories gelsvn

Rev

Rev 68 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 68 Rev 71
Line 15... Line 15...
15 
use VC7ProjectCreator;
 15 
use VC7ProjectCreator;
16 
 
 16 
 
17 
use vars qw(@ISA);
 17 
use vars qw(@ISA);
18 
@ISA = qw(VC7ProjectCreator);
 18 
@ISA = qw(VC7ProjectCreator);
19 
 
 19 
 
- 
 
 20 
my(%info) = ('cplusplus' => {'ext'      => '.vcproj',
- 
 
 21 
                             'dllexe'   => 'vc8exe',
- 
 
 22 
                             'libexe'   => 'vc8libexe',
- 
 
 23 
                             'dll'      => 'vc8dll',
- 
 
 24 
                             'lib'      => 'vc8lib',
- 
 
 25 
                             'template' => 'vc8',
- 
 
 26 
                            },
- 
 
 27 
            );
- 
 
 28 
 
20 
# ************************************************************
 29 
# ************************************************************
21 
# Subroutine Section
 30 
# Subroutine Section
22 
# ************************************************************
 31 
# ************************************************************
23 
 
 32 
 
24 
sub get_configurable {
 33 
sub get_configurable {
Line 27... Line 36...
27 
  my(%config) = ('vcversion' => '8.00',
 36 
  my(%config) = ('vcversion' => '8.00',
28 
                );
 37 
                );
29 
  return $config{$name};
 38 
  return $config{$name};
30 
}
 39 
}
31 
 
 40 
 
- 
 
 41 
sub get_info_hash {
- 
 
 42 
  my($self) = shift;
- 
 
 43 
  my($key)  = shift;
- 
 
 44 
 
- 
 
 45 
  if (defined $info{$key})  {
- 
 
 46 
    return $info{$key};
- 
 
 47 
  }
- 
 
 48 
  return $self->SUPER::get_info_hash($key);
- 
 
 49 
}
- 
 
 50 
 
32 
1;
 51 
1;