Subversion Repositories gelsvn

Rev

Rev 107 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 107 Rev 217
Line 13... Line 13...
13 
use strict;
 13 
use strict;
14 
 
 14 
 
15 
use GUID;
 15 
use GUID;
16 
use ProjectCreator;
 16 
use ProjectCreator;
17 
use VCProjectBase;
 17 
use VCProjectBase;
- 
 
 18 
use XMLProjectBase;
18 
 
 19 
 
19 
use vars qw(@ISA);
 20 
use vars qw(@ISA);
20 
@ISA = qw(VCProjectBase ProjectCreator);
 21 
@ISA = qw(XMLProjectBase VCProjectBase ProjectCreator);
21 
 
 22 
 
22 
# ************************************************************
 23 
# ************************************************************
23 
# Data Section
 24 
# Data Section
24 
# ************************************************************
 25 
# ************************************************************
25 
 
 26 
 
Line 44... Line 45...
44 
                             'lib'      => 'vc7vb',
 45 
                             'lib'      => 'vc7vb',
45 
                             'template' => 'vc7vb',
 46 
                             'template' => 'vc7vb',
46 
                            },
 47 
                            },
47 
            );
 48 
            );
48 
 
 49 
 
- 
 
 50 
my(%config) = ('vcversion'    => '7.00',
- 
 
 51 
               'forloopscope' => 'TRUE',
- 
 
 52 
              );
- 
 
 53 
 
49 
# ************************************************************
 54 
# ************************************************************
50 
# Subroutine Section
 55 
# Subroutine Section
51 
# ************************************************************
 56 
# ************************************************************
52 
 
 57 
 
53 
sub get_info_hash {
 58 
sub get_info_hash {
54 
  my($self) = shift;
 59 
  my($self) = shift;
55 
  my($key)  = shift;
 60 
  my($key)  = shift;
56 
  return $info{$key};
 61 
  return $info{$key};
57 
}
 62 
}
58 
 
 63 
 
59 
sub get_quote_symbol {
 - 
 
60 
  #my($self) = shift;
 - 
 
61 
  return '"';
 - 
 
62 
}
 - 
 
63 
 
 - 
 
64 
 
 - 
 
65 
sub get_gt_symbol {
 - 
 
66 
  #my($self) = shift;
 - 
 
67 
  return '>';
 - 
 
68 
}
 - 
 
69 
 
 - 
 
70 
 
 - 
 
71 
sub get_lt_symbol {
 - 
 
72 
  #my($self) = shift;
 - 
 
73 
  return '<';
 - 
 
74 
}
 - 
 
75 
 
 - 
 
76 
 
 - 
 
77 
sub get_and_symbol {
 - 
 
78 
  #my($self) = shift;
 - 
 
79 
  return '&&';
 - 
 
80 
}
 - 
 
81 
 
 - 
 
82 
 
 64 
 
83 
sub get_configurable {
 65 
sub get_configurable {
84 
  my($self)   = shift;
 66 
  my($self) = shift;
85 
  my($name)   = shift;
 67 
  my($name) = shift;
86 
  my(%config) = ('vcversion'    => '7.00',
 - 
 
87 
                 'forloopscope' => 'TRUE',
 - 
 
88 
                );
 - 
 
89 
  return $config{$name};
 68 
  return $config{$name};
90 
}
 69 
}
91 
 
 70 
 
92 
 
 71 
 
93 
sub fill_value {
 72 
sub fill_value {
Line 99... Line 78...
99 
    my($guid) = new GUID();
 78 
    my($guid) = new GUID();
100 
    $value = $guid->generate($self->project_file_name(),
 79 
    $value = $guid->generate($self->project_file_name(),
101 
                             $self->{'current_input'},
 80 
                             $self->{'current_input'},
102 
                             $self->getcwd());
 81 
                             $self->getcwd());
103 
  }
 82 
  }
- 
 
 83 
  elsif ($name eq 'language') {
- 
 
 84 
    $value = $self->get_language();
- 
 
 85 
  }
104 
  else {
 86 
  else {
105 
    $value = $self->get_configurable($name);
 87 
    $value = $self->get_configurable($name);
106 
  }
 88 
  }
107 
  return $value;
 89 
  return $value;
108 
}
 90 
}