Subversion Repositories gelsvn

Rev

Rev 107 | Only display areas with differences | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 107 Rev 217
1 
package VC71ProjectCreator;
 1 
package VC71ProjectCreator;
2 
 
 2 
 
3 
# ************************************************************
 3 
# ************************************************************
4 
# Description   : A VC7.1 Project Creator
 4 
# Description   : A VC7.1 Project Creator
5 
# Author        : Chad Elliott
 5 
# Author        : Chad Elliott
6 
# Create Date   : 4/17/2003
 6 
# Create Date   : 4/17/2003
7 
# ************************************************************
 7 
# ************************************************************
8 
 
 8 
 
9 
# ************************************************************
 9 
# ************************************************************
10 
# Pragmas
 10 
# Pragmas
11 
# ************************************************************
 11 
# ************************************************************
12 
 
 12 
 
13 
use strict;
 13 
use strict;
14 
 
 14 
 
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 
# ************************************************************
 20 
# ************************************************************
- 
 
 21 
# Data Section
- 
 
 22 
# ************************************************************
- 
 
 23 
 
- 
 
 24 
my(%config) = ('vcversion'    => '7.10',
- 
 
 25 
               'forloopscope' => 'TRUE',
- 
 
 26 
              );
- 
 
 27 
 
- 
 
 28 
# ************************************************************
21 
# Subroutine Section
 29 
# Subroutine Section
22 
# ************************************************************
 30 
# ************************************************************
23 
 
 31 
 
24 
sub get_configurable {
 32 
sub get_configurable {
25 
  my($self)   = shift;
 33 
  my($self) = shift;
26 
  my($name)   = shift;
 34 
  my($name) = shift;
27 
  my(%config) = ('vcversion'    => '7.10',
 - 
 
28 
                 'forloopscope' => 'TRUE',
 - 
 
29 
                );
 - 
 
30 
  return $config{$name};
 35 
  return $config{$name};
31 
}
 36 
}
32 
 
 37 
 
33 
1;
 38 
1;
34 
 
 39