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 BMakeProjectCreator;
2 
 
3 
# ************************************************************
4 
# Description   : A BMake Project Creator
5 
# Author        : Chad Elliott
6 
# Create Date   : 2/03/2004
7 
# ************************************************************
8 
 
9 
# ************************************************************
10 
# Pragmas
11 
# ************************************************************
12 
 
13 
use strict;
14 
 
15 
use ProjectCreator;
16 
use WinProjectBase;
17 
use MakeProjectBase;
18 
 
19 
use vars qw(@ISA);
20 
@ISA = qw(MakeProjectBase WinProjectBase ProjectCreator);
21 
 
22 
# ************************************************************
23 
# Subroutine Section
24 
# ************************************************************
25 
 
26 
sub fill_value {
27 
  my($self)  = shift;
28 
  my($name)  = shift;
29 
  my($value) = undef;
30 
  my(%names) = ('cppdir' => 'source_files',
31 
                'rcdir'  => 'resource_files',
32 
               );
33 
 
34 
  if (defined $names{$name}) {
35 
    my(%dirnames) = ('.' => 1);
36 
    foreach my $file ($self->get_component_list($names{$name}, 1)) {
37 
      my($dirname) = $self->mpc_dirname($file);
38 
      if ($dirname eq '') {
39 
        $dirname = '.';
40 
      }
41 
      elsif ($self->convert_slashes()) {
42 
        $dirname = $self->slash_to_backslash($dirname);
43 
      }
44 
      $dirnames{$dirname} = 1;
45 
    }
46 
 
47 
    ## Sort the directories to ensure that '.' comes first
48 
    $value = join(';', sort keys %dirnames);
49 
  }
50 
 
51 
  return $value;
52 
}
53 
 
54 
 
55 
sub get_and_symbol {
56 
  #my($self) = shift;
57 
  return '&$(__TRICK_BORLAND_MAKE__)&';
58 
}
59 
 
60 
sub project_file_extension {
61 
  #my($self) = shift;
62 
  return '.bmak';
63 
}
64 
 
65 
 
66 
sub get_dll_exe_template_input_file {
67 
  #my($self) = shift;
68 
  return 'bmakedllexe';
69 
}
70 
 
71 
 
72 
sub get_lib_exe_template_input_file {
73 
  #my($self) = shift;
74 
  return 'bmakelibexe';
75 
}
76 
 
77 
 
78 
sub get_lib_template_input_file {
79 
  #my($self) = shift;
80 
  return 'bmakelib';
81 
}
82 
 
83 
 
84 
sub get_dll_template_input_file {
85 
  #my($self) = shift;
86 
  return 'bmakedll';
87 
}
88 
 
89 
 
90 
1;