Subversion Repositories gelsvn

Rev

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

Rev 68 Rev 71
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}) {
- 
 
 28 
    return 1;
- 
 
 29 
  }
- 
 
 30 
  else {
27 
  return 0;
 31 
    return 0;
- 
 
 32 
  }
28 
}
 33 
}
29 
 
 34 
 
30 
 
 35 
 
31 
sub project_file_name {
 36 
sub project_file_prefix {
32 
  my($self) = shift;
 37 
  #my($self) = shift;
33 
  my($name) = shift;
 38 
  return 'Makefile.';
34 
 
 - 
 
35 
  if (!defined $name) {
 - 
 
36 
    $name = $self->project_name();
 - 
 
37 
  }
 - 
 
38 
 
 - 
 
39 
  return $self->get_modified_project_file_name(
 - 
 
40 
                                     "Makefile.$name",
 - 
 
41 
                                     $self->project_file_extension());
 - 
 
42 
}
 39 
}
43 
 
 40 
 
44 
1;
 41 
1;
45 
 
 42