diff options
Diffstat (limited to 'bin/MakeProjectCreator/modules/GNUACEWorkspaceCreator.pm')
-rw-r--r-- | bin/MakeProjectCreator/modules/GNUACEWorkspaceCreator.pm | 98 |
1 files changed, 0 insertions, 98 deletions
diff --git a/bin/MakeProjectCreator/modules/GNUACEWorkspaceCreator.pm b/bin/MakeProjectCreator/modules/GNUACEWorkspaceCreator.pm deleted file mode 100644 index 77d77c247a4..00000000000 --- a/bin/MakeProjectCreator/modules/GNUACEWorkspaceCreator.pm +++ /dev/null @@ -1,98 +0,0 @@ -package GNUACEWorkspaceCreator; - -# ************************************************************ -# Description : A GNU Workspace (Makefile) creator for ACE -# Author : Chad Elliott -# Create Date : 5/13/2002 -# ************************************************************ - -# ************************************************************ -# Pragmas -# ************************************************************ - -use strict; -use File::Basename; - -use GNUACEProjectCreator; -use WorkspaceCreator; - -use vars qw(@ISA); -@ISA = qw(WorkspaceCreator); - -# ************************************************************ -# Subroutine Section -# ************************************************************ - -sub workspace_file_name { - my($self) = shift; - return $self->get_modified_workspace_name('Makefile', ''); -} - - -sub workspace_per_project { - #my($self) = shift; - return 1; -} - - -sub pre_workspace { - my($self) = shift; - my($fh) = shift; - my($crlf) = $self->crlf(); - - print $fh "#----------------------------------------------------------------------------$crlf" . - "# GNU ACE Workspace$crlf" . - "#----------------------------------------------------------------------------$crlf" . - $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 out the projet Makefile - print $fh "include \$(ACE_ROOT)/include/makeinclude/macros.GNU$crlf" . - "TARGETS_NESTED := \$(TARGETS_NESTED:.nested=)$crlf"; - - ## Only use the list if there is more than one project - if ($#list > 0) { - print $fh "MFILES = \\$crlf"; - for(my $i = 0; $i <= $#list; $i++) { - print $fh " $list[$i]"; - if ($i != $#list) { - print $fh ' \\'; - } - print $fh $crlf; - } - } - - print $fh $crlf . - "\$(TARGETS_NESTED):$crlf" . - "ifneq (Windows,\$(findstring Windows,\$(OS)))$crlf"; - - ## If there is more than one project, use a for loop - if ($#list > 0) { - print $fh "\t\@for file in \$(MFILES); do \\$crlf" . - "\t\$(MAKE) -f `basename \$\$file` -C `dirname \$\$file` \$(\@); \\$crlf" . - "\tdone$crlf"; - } - else { - ## Otherwise, just list the call to make without a for loop - print $fh "\t\@\$(MAKE) -f " . basename($list[0]) . ' -C ' . dirname($list[0]) . " \$(\@);$crlf"; - } - - print $fh "else$crlf"; - foreach my $project (@list) { - print $fh "\t-\@cmd /c \"\$(MAKE) -f " . basename($project) . ' -C ' . dirname($project) . " \$(\@)\"$crlf"; - } - print $fh "endif$crlf"; -} - - - -1; |