Subversion Repositories gelsvn

Rev

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

Rev 68 Rev 71
Line 48... Line 48...
48 
 
 48 
 
49 
# ************************************************************
 49 
# ************************************************************
50 
# Subroutine Section
 50 
# Subroutine Section
51 
# ************************************************************
 51 
# ************************************************************
52 
 
 52 
 
- 
 
 53 
sub get_info_hash {
- 
 
 54 
  my($self) = shift;
- 
 
 55 
  my($key)  = shift;
- 
 
 56 
  return $info{$key};
- 
 
 57 
}
- 
 
 58 
 
53 
sub get_quote_symbol {
 59 
sub get_quote_symbol {
54 
  #my($self) = shift;
 60 
  #my($self) = shift;
55 
  return '"';
 61 
  return '"';
56 
}
 62 
}
57 
 
 63 
 
Line 102... Line 108...
102 
}
 108 
}
103 
 
 109 
 
104 
 
 110 
 
105 
sub project_file_extension {
 111 
sub project_file_extension {
106 
  my($self) = shift;
 112 
  my($self) = shift;
107 
  return $info{$self->get_language()}->{'ext'};
 113 
  return $self->get_info_hash($self->get_language())->{'ext'};
108 
}
 114 
}
109 
 
 115 
 
110 
 
 116 
 
111 
sub get_dll_exe_template_input_file {
 117 
sub get_dll_exe_template_input_file {
112 
  my($self) = shift;
 118 
  my($self) = shift;
113 
  return $info{$self->get_language()}->{'dllexe'};
 119 
  return $self->get_info_hash($self->get_language())->{'dllexe'};
114 
}
 120 
}
115 
 
 121 
 
116 
 
 122 
 
117 
sub get_lib_exe_template_input_file {
 123 
sub get_lib_exe_template_input_file {
118 
  my($self) = shift;
 124 
  my($self) = shift;
119 
  return $info{$self->get_language()}->{'libexe'};
 125 
  return $self->get_info_hash($self->get_language())->{'libexe'};
120 
}
 126 
}
121 
 
 127 
 
122 
 
 128 
 
123 
sub get_dll_template_input_file {
 129 
sub get_dll_template_input_file {
124 
  my($self) = shift;
 130 
  my($self) = shift;
125 
  return $info{$self->get_language()}->{'dll'};
 131 
  return $self->get_info_hash($self->get_language())->{'dll'};
126 
}
 132 
}
127 
 
 133 
 
128 
 
 134 
 
129 
sub get_lib_template_input_file {
 135 
sub get_lib_template_input_file {
130 
  my($self) = shift;
 136 
  my($self) = shift;
131 
  return $info{$self->get_language()}->{'lib'};
 137 
  return $self->get_info_hash($self->get_language())->{'lib'};
132 
}
 138 
}
133 
 
 139 
 
134 
 
 140 
 
135 
sub get_template {
 141 
sub get_template {
136 
  my($self) = shift;
 142 
  my($self) = shift;
137 
  return $info{$self->get_language()}->{'template'};
 143 
  return $self->get_info_hash($self->get_language())->{'template'};
138 
}
 144 
}
139 
 
 145 
 
140 
 
 146 
 
141 
1;
 147 
1;