Subversion Repositories gelsvn

Rev

Rev 107 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
107 bj 1 
package AutomakeProjectCreator;
2 
 
3 
# ************************************************************
4 
# Description   : A Automake Project Creator
5 
# Author        : J.T. Conklin & Chad Elliott
6 
# Create Date   : 2/26/2003
7 
# ************************************************************
8 
 
9 
# ************************************************************
10 
# Pragmas
11 
# ************************************************************
12 
 
13 
use strict;
14 
 
15 
use MakeProjectBase;
16 
use ProjectCreator;
17 
 
18 
use vars qw(@ISA);
19 
@ISA = qw(MakeProjectBase ProjectCreator);
20 
 
21 
# ************************************************************
22 
# Subroutine Section
23 
# ************************************************************
24 
 
25 
sub escape_spaces {
26 
  #my($self) = shift;
27 
  return 1;
28 
}
29 
 
30 
 
31 
sub fill_value {
32 
  my($self)  = shift;
33 
  my($name)  = shift;
34 
  my($value) = undef;
35 
 
36 
  if ($name eq 'am_includes') {
37 
    my($incs) = $self->get_assignment('includes');
38 
    if (defined $incs) {
39 
      my(@vec) = split(' ', $incs);
40 
 
217 bj 41 
#      # The following prefixes include paths with $(srcdir)/.
42 
#      foreach(@vec) {
43 
#        if (/^[^\$\/]/) {
44 
#          $_ = '$(srcdir)/' . $_;
45 
#        }
46 
#      }
47 
 
107 bj 48 
      $value = \@vec;
49 
    }
50 
  }
51 
  elsif ($name eq 'am_version') {
52 
    $value = $self->get_assignment('version');
53 
    if (defined $value) {
54 
      if (($value =~ tr/./:/) < 2) {
55 
        $value .= ':0';
56 
      }
57 
    }
58 
  }
59 
 
60 
  return $value;
61 
}
62 
 
63 
 
64 
sub project_file_extension {
65 
  #my($self) = shift;
66 
  return '.am';
67 
}
68 
 
69 
 
70 
sub get_dll_exe_template_input_file {
71 
  #my($self) = shift;
72 
  return 'automakeexe';
73 
}
74 
 
75 
 
76 
sub get_dll_template_input_file {
77 
  #my($self) = shift;
78 
  return 'automakedll';
79 
}
80 
 
81 
 
82 
1;