Subversion Repositories gelsvn

Rev

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