Subversion Repositories gelsvn

Rev

Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
107 bj 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 
my(%info) = ('cplusplus' => {'ext'      => '.vcproj',
21 
                             'dllexe'   => 'vc8exe',
22 
                             'libexe'   => 'vc8libexe',
23 
                             'dll'      => 'vc8dll',
24 
                             'lib'      => 'vc8lib',
25 
                             'template' => 'vc8',
26 
                            },
27 
            );
28 
 
29 
# ************************************************************
30 
# Subroutine Section
31 
# ************************************************************
32 
 
33 
sub get_configurable {
34 
  my($self)   = shift;
35 
  my($name)   = shift;
36 
  my(%config) = ('vcversion' => '8.00',
37 
                );
38 
  return $config{$name};
39 
}
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 
 
51 
1;