diff options
author | Johnny Willemsen <jwillemsen@remedy.nl> | 2008-01-21 06:26:33 +0000 |
---|---|---|
committer | Johnny Willemsen <jwillemsen@remedy.nl> | 2008-01-21 06:26:33 +0000 |
commit | 24562e8312363a37ff959087389c6df727e1bd02 (patch) | |
tree | 9c611addff31d72791bc055a52599cb58e90dd7f /modules/WB26WorkspaceCreator.pm | |
parent | 55537b62bb7379cd8bfba0970a5025b3fda0c1b2 (diff) | |
download | MPC-24562e8312363a37ff959087389c6df727e1bd02.tar.gz |
Mon Jan 21 06:25:12 UTC 2008 Johnny Willemsen <jwillemsen@remedy.nl>
Diffstat (limited to 'modules/WB26WorkspaceCreator.pm')
-rw-r--r-- | modules/WB26WorkspaceCreator.pm | 59 |
1 files changed, 1 insertions, 58 deletions
diff --git a/modules/WB26WorkspaceCreator.pm b/modules/WB26WorkspaceCreator.pm index 36787df8..eb8609f2 100644 --- a/modules/WB26WorkspaceCreator.pm +++ b/modules/WB26WorkspaceCreator.pm @@ -23,65 +23,8 @@ use vars qw(@ISA); # Subroutine Section # ************************************************************ -sub crlf { - #my($self) = shift; - return "\n"; -} - - -sub compare_output { - #my($self) = shift; +sub write_workspace { return 1; } - -sub workspace_file_extension { - #my($self) = shift; - return '.bdsgroup'; -} - - -sub pre_workspace { - my($self) = shift; - my($fh) = shift; - my($crlf) = $self->crlf(); - - print $fh '<?xml version="1.0" encoding="utf-8"?>', $crlf; - $self->print_workspace_comment($fh, - '<!-- $Id$ -->', $crlf, - '<!-- MPC Command -->', $crlf, - '<!-- ', $self->create_command_line_string($0, @ARGV), ' -->', - $crlf); -} - - -sub write_comps { - my($self) = shift; - my($fh) = shift; - my($crlf) = $self->crlf(); - - print $fh '<BorlandProject>', $crlf; - print $fh ' <PersonalityInfo>', $crlf; - print $fh ' <Option>', $crlf; - print $fh ' <Option Name="Personality">Default.Personality</Option>', $crlf; - print $fh ' <Option Name="ProjectType"></Option>', $crlf; - print $fh ' <Option Name="Version">1.0</Option>', $crlf; - print $fh ' <Option Name="GUID">{93D77FAD-C603-4FB1-95AB-34E0B6FBF615}</Option>', $crlf; - print $fh ' </Option>', $crlf; - print $fh ' </PersonalityInfo>', $crlf; - print $fh ' <Default.Personality>', $crlf; - print $fh ' ', $crlf; - print $fh ' <Projects>', $crlf; - - foreach my $project ($self->sort_dependencies($self->get_projects(), 0)) { - print $fh ' <Projects Name="$project">$project</Projects>', $crlf, - } - - print $fh ' </Projects>', $crlf; - print $fh ' <Dependencies/>', $crlf; - print $fh ' </Default.Personality>', $crlf; - print $fh '</BorlandProject>', $crlf; -} - - 1; |