Subversion Repositories gelsvn

Rev

Rev 107 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
107 bj 1 
package MakeProjectCreator;
2 
 
3 
# ************************************************************
4 
# Description   : A Generic Make Project Creator
5 
# Author        : Chad Elliott
6 
# Create Date   : 2/18/2003
7 
# ************************************************************
8 
 
9 
# ************************************************************
10 
# Pragmas
11 
# ************************************************************
12 
 
13 
use strict;
14 
 
15 
use MakeProjectBase;
16 
use ProjectCreator;
17 
 
18 
use vars qw(@ISA);
19 
@ISA = qw(MakeProjectBase ProjectCreator);
20 
 
21 
# ************************************************************
22 
# Subroutine Section
23 
# ************************************************************
24 
 
25 
sub escape_spaces {
26 
  #my($self) = shift;
27 
  return 1;
28 
}
29 
 
30 
 
31 
sub get_dll_exe_template_input_file {
32 
  #my($self) = shift;
33 
  return 'makeexe';
34 
}
35 
 
36 
 
37 
sub get_dll_template_input_file {
38 
  #my($self) = shift;
39 
  return 'makedll';
40 
}
41 
 
42 
 
217 bj 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 
}
107 bj 58 
1;