Subversion Repositories gelsvn

Rev

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

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