Subversion Repositories gelsvn

Rev

Rev 107 | Only display areas with differences | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 107 Rev 119
1 
package MakeProjectBase;
 1 
package MakeProjectBase;
2 
 
 2 
 
3 
# ************************************************************
 3 
# ************************************************************
4 
# Description   : A Make Project base module
 4 
# Description   : A Make Project base module
5 
# Author        : Chad Elliott
 5 
# Author        : Chad Elliott
6 
# Create Date   : 1/4/2005
 6 
# Create Date   : 1/4/2005
7 
# ************************************************************
 7 
# ************************************************************
8 
 
 8 
 
9 
# ************************************************************
 9 
# ************************************************************
10 
# Pragmas
 10 
# Pragmas
11 
# ************************************************************
 11 
# ************************************************************
12 
 
 12 
 
13 
use strict;
 13 
use strict;
14 
 
 14 
 
15 
# ************************************************************
 15 
# ************************************************************
16 
# Subroutine Section
 16 
# Subroutine Section
17 
# ************************************************************
 17 
# ************************************************************
18 
 
 18 
 
19 
sub dollar_special {
 19 
sub dollar_special {
20 
  #my($self) = shift;
 20 
  #my($self) = shift;
21 
  return 1;
 21 
  return 1;
22 
}
 22 
}
23 
 
 23 
 
24 
 
 24 
 
25 
sub sort_files {
 25 
sub sort_files {
26 
  #my($self) = shift;
 26 
  #my($self) = shift;
27 
  if (defined $ENV{MPC_ALWAYS_SORT}) {
 27 
  if (defined $ENV{MPC_ALWAYS_SORT}) {
28 
    return 1;
 28 
    return 1;
29 
  }
 29 
  }
30 
  else {
 30 
  else {
31 
    return 0;
 31 
    return 0;
32 
  }
 32 
  }
33 
}
 33 
}
34 
 
 34 
 
35 
 
 35 
 
36 
sub project_file_prefix {
 36 
sub project_file_prefix {
37 
  #my($self) = shift;
 37 
  #my($self) = shift;
38 
  return 'Makefile.';
 38 
  return 'Makefile.';
39 
}
 39 
}
40 
 
 40 
 
41 
1;
 41 
1;
42 
 
 42