diff options
author | Johnny Willemsen <jwillemsen@remedy.nl> | 2006-12-20 09:26:10 +0000 |
---|---|---|
committer | Johnny Willemsen <jwillemsen@remedy.nl> | 2006-12-20 09:26:10 +0000 |
commit | 6a8dc054d5e1acff65e5cd9110b61db2ebd356a4 (patch) | |
tree | ad8fdaa328a460c14f5c74c22c003d96cd7ca2f8 /modules/BDS4WorkspaceCreator.pm | |
parent | c7023e6f5990ef4f826f1f9033bc03be9d97f39f (diff) | |
download | MPC-6a8dc054d5e1acff65e5cd9110b61db2ebd356a4.tar.gz |
Wed Dec 20 09:25:13 2006 Johnny Willemsen <jwillemsen@remedy.nl>
Diffstat (limited to 'modules/BDS4WorkspaceCreator.pm')
-rw-r--r-- | modules/BDS4WorkspaceCreator.pm | 80 |
1 files changed, 80 insertions, 0 deletions
diff --git a/modules/BDS4WorkspaceCreator.pm b/modules/BDS4WorkspaceCreator.pm new file mode 100644 index 00000000..45ce2608 --- /dev/null +++ b/modules/BDS4WorkspaceCreator.pm @@ -0,0 +1,80 @@ +package BDSWorkspaceCreator; + +# ************************************************************ +# Description : A BDS Workspace Creator +# Author : Johnny Willemsen +# Create Date : 14/12/2005 +# ************************************************************ + +# ************************************************************ +# Pragmas +# ************************************************************ + +use strict; + +use BDSProjectCreator; +use WorkspaceCreator; + +use vars qw(@ISA); +@ISA = qw(WorkspaceCreator); + +# ************************************************************ +# Subroutine Section +# ************************************************************ + + +sub compare_output { + #my($self) = shift; + 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, + '<!-- $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; |