Subversion Repositories gelsvn

Rev

Rev 107 | Only display areas with differences | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

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