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

# ************************************************************
# Description   : A Sle Workspace Creator
# Author        : Johnny Willemsen
# Create Date   : 3/23/2004
# ************************************************************

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

use strict;

use SLEProjectCreator;
use WorkspaceCreator;

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

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


sub compare_output {
  #my($self) = shift;
  return 1;
}


sub workspace_file_name {
  my($self) = shift;
  return $self-&gt;get_modified_workspace_name($self-&gt;get_workspace_name(),
                                            '.vpw');
}


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

  print $fh "&lt;!DOCTYPE Workspace SYSTEM \"http://www.slickedit.com/dtd/vse/8.1/vpw.dtd\"&gt;$crlf" .
            "&lt;Workspace Version=\"8.1\" VendorName=\"SlickEdit\"&gt;$crlf";
}


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

  print $fh "\t&lt;Projects&gt;$crlf";
  foreach my $project (@list) {
    print $fh "\t\t&lt;Project File=\"$project\"/&gt;$crlf";
  }
  print $fh "\t&lt;/Projects&gt;$crlf";
}


sub post_workspace {
  my($self) = shift;
  my($fh)   = shift;
  print $fh '&lt;/Workspace&gt;' . $self-&gt;crlf();
}


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