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 MakeProjectCreator;
1
package MakeProjectCreator;
2
 
2
 
3
# ************************************************************
3
# ************************************************************
4
# Description   : A Generic Make Project Creator
4
# Description   : A Generic Make Project Creator
5
# Author        : Chad Elliott
5
# Author        : Chad Elliott
6
# Create Date   : 2/18/2003
6
# Create Date   : 2/18/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 MakeProjectBase;
15
use MakeProjectBase;
16
use ProjectCreator;
16
use ProjectCreator;
17
 
17
 
18
use vars qw(@ISA);
18
use vars qw(@ISA);
19
@ISA = qw(MakeProjectBase ProjectCreator);
19
@ISA = qw(MakeProjectBase ProjectCreator);
20
 
20
 
21
# ************************************************************
21
# ************************************************************
22
# Subroutine Section
22
# Subroutine Section
23
# ************************************************************
23
# ************************************************************
24
 
24
 
25
sub escape_spaces {
25
sub escape_spaces {
26
  #my($self) = shift;
26
  #my($self) = shift;
27
  return 1;
27
  return 1;
28
}
28
}
29
 
29
 
30
 
30
 
31
sub convert_slashes {
-
 
32
  #my($self) = shift;
-
 
33
  return 0;
-
 
34
}
-
 
35
 
-
 
36
 
-
 
37
sub get_dll_exe_template_input_file {
31
sub get_dll_exe_template_input_file {
38
  #my($self) = shift;
32
  #my($self) = shift;
39
  return 'makeexe';
33
  return 'makeexe';
40
}
34
}
41
 
35
 
42
 
36
 
43
sub get_dll_template_input_file {
37
sub get_dll_template_input_file {
44
  #my($self) = shift;
38
  #my($self) = shift;
45
  return 'makedll';
39
  return 'makedll';
46
}
40
}
47
 
41
 
48
 
42
 
-
 
43
sub fill_value {
-
 
44
  my($self)  = shift;
-
 
45
  my($name)  = shift;
-
 
46
 
-
 
47
  if ($name eq 'compilers') {
-
 
48
    if ($self->get_language() eq 'java') {
-
 
49
      return 'java';
-
 
50
    }
-
 
51
    else {
-
 
52
      return 'gcc';
-
 
53
    }
-
 
54
  }
-
 
55
 
-
 
56
  return undef;
-
 
57
}
49
1;
58
1;
50
 
59