Subversion Repositories gelsvn

Rev

Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
68 bj 1 
package MakeProjectBase;
2 
 
3 
# ************************************************************
4 
# Description   : A Make Project base module
5 
# Author        : Chad Elliott
6 
# Create Date   : 1/4/2005
7 
# ************************************************************
8 
 
9 
# ************************************************************
10 
# Pragmas
11 
# ************************************************************
12 
 
13 
use strict;
14 
 
15 
# ************************************************************
16 
# Subroutine Section
17 
# ************************************************************
18 
 
19 
sub dollar_special {
20 
  #my($self) = shift;
21 
  return 1;
22 
}
23 
 
24 
 
25 
sub sort_files {
26 
  #my($self) = shift;
27 
  return 0;
28 
}
29 
 
30 
 
31 
sub project_file_name {
32 
  my($self) = shift;
33 
  my($name) = shift;
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 
}
43 
 
44 
1;