ChangeLogTag: Tue Jul 9 07:24:06 2002 Chad Elliott <elliott_c@ociweb.com>

1 files changed, 79 insertions, 0 deletions

diff --git a/modules/GHSProjectCreator.pm b/modules/GHSProjectCreator.pm
new file mode 100644
index 00000000..c370bfbd
--- /dev/null
+++ b/modules/GHSProjectCreator.pm
@@ -0,0 +1,79 @@
+package GHSProjectCreator;
+
+# ************************************************************
+# Description   : Not a complete implementation for GHS
+# Author        : Chad Elliott
+# Create Date   : 4/19/2002
+# ************************************************************
+
+# ************************************************************
+# Pragmas
+# ************************************************************
+
+use strict;
+
+use ProjectCreator;
+
+use vars qw(@ISA);
+@ISA = qw(ProjectCreator);
+
+# ************************************************************
+# Subroutine Section
+# ************************************************************
+
+sub translate_value {
+  my($self) = shift;
+  my($key)  = shift;
+  my($val)  = shift;
+
+  if ($key eq 'depends' && $val ne "") {
+    my($arr) = $self->create_array($val);
+    $val = "";
+    foreach my $entry (@$arr) {
+      $val .= "\"" . $self->project_file_name($entry) . "\" ";
+    }
+    $val =~ s/\s+$//;
+  }
+  return $val;
+}
+
+
+sub file_sorter {
+  my($self)  = shift;
+  my($left)  = shift;
+  my($right) = shift;
+  return lc($left) cmp lc($right);
+}
+
+
+sub project_file_name {
+  my($self) = shift;
+  my($name) = shift;
+
+  if (!defined $name) {
+    $name = $self->project_name();
+  }
+
+  return "ghs/$name.bld";
+}
+
+
+sub get_dll_exe_template_input_file {
+  my($self) = shift;
+  return "ghsexe";
+}
+
+
+sub get_dll_template_input_file {
+  my($self) = shift;
+  return "ghsdll";
+}
+
+
+sub get_template {
+  my($self) = shift;
+  return "ghs";
+}
+
+
+1;