cbxworkspacecreator.pm

ACE源码

package CbxWorkspaceCreator;

# ************************************************************
# Description   : A Cbx Workspace Creator
# Author        : Chad Elliott
# Create Date   : 2/06/2004
# ************************************************************

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

use strict;

use CbxProjectCreator;
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->get_modified_workspace_name($self->get_workspace_name(),
                                            '.bpgr');
}


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

  print $fh '<?xml version="1.0" encoding="UTF-8"?>', $crlf,
            '<!-- CbxWorkspaceCreator.pm,v 1.2 2004/03/15 16:04:13 elliott_c Exp -->', $crlf,
            '<!-- MPC Command -->', $crlf,
            "<!-- $0 @ARGV -->", $crlf;
}


sub write_comps {
  my($self)     = shift;
  my($fh)       = shift;
  my($projects) = $self->get_projects();
  my($pjs)      = $self->get_project_info();
  my(@list)     = $self->sort_dependencies($projects, $pjs);
  my($crlf)     = $self->crlf();

  print $fh '<!--Project Group-->', $crlf,
            '<projectgroup>', $crlf;
  foreach my $project (@list) {
    print $fh "  <project path=\"$project\"/>$crlf";
  }
  print $fh "</projectgroup>$crlf";
}


1;