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 AutomakeProjectCreator;
 1 
package AutomakeProjectCreator;
2 
 
 2 
 
3 
# ************************************************************
 3 
# ************************************************************
4 
# Description   : A Automake Project Creator
 4 
# Description   : A Automake Project Creator
5 
# Author        : J.T. Conklin & Chad Elliott
 5 
# Author        : J.T. Conklin & Chad Elliott
6 
# Create Date   : 2/26/2003
 6 
# Create Date   : 2/26/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 fill_value {
 31 
sub fill_value {
38 
  my($self)  = shift;
 32 
  my($self)  = shift;
39 
  my($name)  = shift;
 33 
  my($name)  = shift;
40 
  my($value) = undef;
 34 
  my($value) = undef;
41 
 
 35 
 
42 
  if ($name eq 'am_includes') {
 36 
  if ($name eq 'am_includes') {
43 
    my($incs) = $self->get_assignment('includes');
 37 
    my($incs) = $self->get_assignment('includes');
44 
    if (defined $incs) {
 38 
    if (defined $incs) {
45 
      my(@vec) = split(' ', $incs);
 39 
      my(@vec) = split(' ', $incs);
- 
 
 40 
 
- 
 
 41 
#      # The following prefixes include paths with $(srcdir)/.
46 
      foreach(@vec) {
 42 
#      foreach(@vec) {
47 
        if (/^[^\$\/]/) {
 43 
#        if (/^[^\$\/]/) {
48 
          $_ = '$(srcdir)/' . $_;
 44 
#          $_ = '$(srcdir)/' . $_;
49 
        }
 45 
#        }
50 
      }
 46 
#      }
51 
 
 47 
 
52 
      $value = \@vec;
 48 
      $value = \@vec;
53 
    }
 49 
    }
54 
  }
 50 
  }
55 
  elsif ($name eq 'am_version') {
 51 
  elsif ($name eq 'am_version') {
56 
    $value = $self->get_assignment('version');
 52 
    $value = $self->get_assignment('version');
57 
    if (defined $value) {
 53 
    if (defined $value) {
58 
      if (($value =~ tr/./:/) < 2) {
 54 
      if (($value =~ tr/./:/) < 2) {
59 
        $value .= ':0';
 55 
        $value .= ':0';
60 
      }
 56 
      }
61 
    }
 57 
    }
62 
  }
 58 
  }
63 
 
 59 
 
64 
  return $value;
 60 
  return $value;
65 
}
 61 
}
66 
 
 62 
 
67 
 
 63 
 
68 
sub project_file_extension {
 64 
sub project_file_extension {
69 
  #my($self) = shift;
 65 
  #my($self) = shift;
70 
  return '.am';
 66 
  return '.am';
71 
}
 67 
}
72 
 
 68 
 
73 
 
 69 
 
74 
sub get_dll_exe_template_input_file {
 70 
sub get_dll_exe_template_input_file {
75 
  #my($self) = shift;
 71 
  #my($self) = shift;
76 
  return 'automakeexe';
 72 
  return 'automakeexe';
77 
}
 73 
}
78 
 
 74 
 
79 
 
 75 
 
80 
sub get_dll_template_input_file {
 76 
sub get_dll_template_input_file {
81 
  #my($self) = shift;
 77 
  #my($self) = shift;
82 
  return 'automakedll';
 78 
  return 'automakedll';
83 
}
 79 
}
84 
 
 80 
 
85 
 
 81 
 
86 
1;
 82 
1;
87 
 
 83