<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">package GHSWorkspaceCreator;

# ************************************************************
# Description   : An incomplete GHS Workspace creator
# Author        : Chad Elliott
# Create Date   : 7/3/2002
# ************************************************************

# ************************************************************
# Pragmas
# ************************************************************

use strict;
use File::Basename;

use GHSProjectCreator;
use WorkspaceCreator;

use vars qw(@ISA);
@ISA = qw(WorkspaceCreator);

# ************************************************************
# Subroutine Section
# ************************************************************

sub workspace_file_name {
  my($self) = shift;
  return $self-&gt;get_modified_workspace_name('ghs/default', '.bld');
}


sub pre_workspace {
  my($self) = shift;
  my($fh)   = shift;
  my($crlf) = $self-&gt;crlf();

  print $fh "#!build$crlf" .
            "default:$crlf";
}


sub write_comps {
  my($self)     = shift;
  my($fh)       = shift;
  my($gen)      = shift;
  my($projects) = $self-&gt;get_projects();
  my(@list)     = $self-&gt;sort_dependencies($projects);
  my($crlf)     = $self-&gt;crlf();

  ## Print out the projet
  print $fh "\tnobuild$crlf" .
            "\t:cx_option=noexceptions$crlf" .
            "\t:cx_option=std_namespaces$crlf" .
            "\t:cx_template_option=noautomatic$crlf" .
            "\t:language=cxx$crlf" .
            "\t:cx_mode=ansi$crlf" .
            "\t:cx_lib=scnoe$crlf";

  foreach my $project (@list) {
    ## Convert all /'s to \
    $project = $self-&gt;slash_to_backslash($project);

    print $fh "..\\$project$crlf";
    if ($gen-&gt;exe_target()) {
      print $fh "\tprogram$crlf";
    }
    else {
      print $fh "\tlibrary$crlf";
    }
  }
}



1;
</pre></body></html>