modules/SLEWorkspaceCreator.pm

   1 package SLEWorkspaceCreator;
   2
   3 # ************************************************************
   4 # Description   : The SLE Workspace Creator
   5 # Author        : Johnny Willemsen
   6 # Create Date   : 3/23/2004
   7 # ************************************************************
   8
   9 # ************************************************************
  10 # Pragmas
  11 # ************************************************************
  12
  13 use strict;
  14
  15 use SLEProjectCreator;
  16 use WorkspaceCreator;
  17
  18 use vars qw(@ISA);
  19 @ISA = qw(WorkspaceCreator);
  20
  21 # ************************************************************
  22 # Subroutine Section
  23 # ************************************************************
  24
  25
  26 sub compare_output {
  27   #my $self = shift;
  28   return 1;
  29 }
  30
  31
  32 sub workspace_file_extension {
  33   #my $self = shift;
  34   return '.vpw';
  35 }
  36
  37
  38 sub pre_workspace {
  39   my($self, $fh) = @_;
  40   my $crlf = $self->crlf();
  41
  42   print $fh "<!DOCTYPE Workspace SYSTEM \"http://www.slickedit.com/dtd/vse/8.1/vpw.dtd\">$crlf" .
  43             "<Workspace Version=\"8.1\" VendorName=\"SlickEdit\">$crlf";
  44 }
  45
  46
  47 sub write_comps {
  48   my($self, $fh) = @_;
  49   my $crlf = $self->crlf();
  50
  51   print $fh "\t<Projects>$crlf";
  52   foreach my $project ($self->sort_dependencies($self->get_projects(), 0)) {
  53     print $fh "\t\t<Project File=\"$project\"/>$crlf";
  54   }
  55   print $fh "\t</Projects>$crlf";
  56 }
  57
  58
  59 sub post_workspace {
  60   my($self, $fh) = @_;
  61   print $fh '</Workspace>' . $self->crlf();
  62 }
  63
  64
  65 1;