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 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 convert_slashes {
37 
  #my($self) = shift;
38 
  return 0;
39 
}
40 
 
41 
 
42 
sub project_file_extension {
43 
  #my($self) = shift;
44 
  return '.bld';
45 
}
46 
 
47 
 
48 
sub fill_value {
49 
  my($self)  = shift;
50 
  my($name)  = shift;
51 
  my($value) = undef;
52 
 
53 
  if (!defined $startre) {
54 
    $startre =  $self->escape_regex_special($self->getstartdir());
55 
  }
56 
 
57 
  if ($name =~ /^reltop_(\w+)/) {
58 
    $value = $self->relative($self->get_assignment($1));
59 
    if (defined $value) {
60 
      my($part) = $self->getcwd();
61 
      $part =~ s/^$startre[\/]?//;
62 
      if ($part ne '') {
63 
        if ($value eq '.') {
64 
          $value = $part;
65 
        }
66 
        else {
67 
          $value = $part . '/' . $value;
68 
        }
69 
      }
70 
    }
71 
  }
72 
  elsif ($name eq 'reltop') {
73 
    $value = $self->getcwd();
74 
    $value =~ s/^$startre[\/]?//;
75 
    if ($value eq '') {
76 
      $value = '.';
77 
    }
78 
  }
79 
 
80 
  return $value;
81 
}
82 
 
83 
sub get_dll_exe_template_input_file {
84 
  #my($self) = shift;
85 
  return 'ghsdllexe';
86 
}
87 
 
88 
 
89 
sub get_lib_exe_template_input_file {
90 
  #my($self) = shift;
91 
  return 'ghslibexe';
92 
}
93 
 
94 
 
95 
sub get_lib_template_input_file {
96 
  #my($self) = shift;
97 
  return 'ghslib';
98 
}
99 
 
100 
 
101 
sub get_dll_template_input_file {
102 
  #my($self) = shift;
103 
  return 'ghsdll';
104 
}
105 
 
106 
 
107 
1;