Subversion Repositories gelsvn

Rev

Rev 217 | Details | Compare with Previous | Last modification | View Log | RSS feed

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