Subversion Repositories gelsvn

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
107 bj 1 
package GHSProjectCreator;
2 
 
3 
# ************************************************************
4 
# Description   : Not a complete implementation for GHS
5 
# Author        : Chad Elliott
6 
# Create Date   : 4/19/2002
7 
# ************************************************************
8 
 
9 
# ************************************************************
10 
# Pragmas
11 
# ************************************************************
12 
 
13 
use strict;
14 
 
15 
use ProjectCreator;
16 
 
17 
use vars qw(@ISA);
18 
@ISA = qw(ProjectCreator);
19 
 
20 
# ************************************************************
21 
# Data Section
22 
# ************************************************************
23 
 
24 
my($startre) = undef;
25 
 
26 
# ************************************************************
27 
# Subroutine Section
28 
# ************************************************************
29 
 
30 
sub compare_output {
31 
  #my($self) = shift;
32 
  return 1;
33 
}
34 
 
35 
 
36 
sub project_file_extension {
37 
  #my($self) = shift;
38 
  return '.bld';
39 
}
40 
 
41 
 
42 
sub fill_value {
43 
  my($self)  = shift;
44 
  my($name)  = shift;
45 
  my($value) = undef;
46 
 
47 
  if (!defined $startre) {
217 bj 48 
    $startre = $self->escape_regex_special($self->getstartdir());
107 bj 49 
  }
50 
 
51 
  if ($name =~ /^reltop_(\w+)/) {
52 
    $value = $self->relative($self->get_assignment($1));
53 
    if (defined $value) {
54 
      my($part) = $self->getcwd();
55 
      $part =~ s/^$startre[\/]?//;
56 
      if ($part ne '') {
57 
        if ($value eq '.') {
58 
          $value = $part;
59 
        }
60 
        else {
61 
          $value = $part . '/' . $value;
62 
        }
63 
      }
64 
    }
65 
  }
66 
  elsif ($name eq 'reltop') {
67 
    $value = $self->getcwd();
68 
    $value =~ s/^$startre[\/]?//;
69 
    if ($value eq '') {
70 
      $value = '.';
71 
    }
72 
  }
73 
 
74 
  return $value;
75 
}
76 
 
77 
sub get_dll_exe_template_input_file {
78 
  #my($self) = shift;
79 
  return 'ghsdllexe';
80 
}
81 
 
82 
 
83 
sub get_lib_exe_template_input_file {
84 
  #my($self) = shift;
85 
  return 'ghslibexe';
86 
}
87 
 
88 
 
89 
sub get_lib_template_input_file {
90 
  #my($self) = shift;
91 
  return 'ghslib';
92 
}
93 
 
94 
 
95 
sub get_dll_template_input_file {
96 
  #my($self) = shift;
97 
  return 'ghsdll';
98 
}
99 
 
100 
 
101 
1;