diff options
Diffstat (limited to 'bin/MakeProjectCreator/modules/BorlandWorkspaceCreator.pm')
-rw-r--r-- | bin/MakeProjectCreator/modules/BorlandWorkspaceCreator.pm | 97 |
1 files changed, 0 insertions, 97 deletions
diff --git a/bin/MakeProjectCreator/modules/BorlandWorkspaceCreator.pm b/bin/MakeProjectCreator/modules/BorlandWorkspaceCreator.pm deleted file mode 100644 index 8c9d580bfc7..00000000000 --- a/bin/MakeProjectCreator/modules/BorlandWorkspaceCreator.pm +++ /dev/null @@ -1,97 +0,0 @@ -package BorlandWorkspaceCreator; - -# ************************************************************ -# Description : A Borland Workspace (Makefile.bor) creator -# Author : Chad Elliott -# Create Date : 7/02/2002 -# ************************************************************ - -# ************************************************************ -# Pragmas -# ************************************************************ - -use strict; -use File::Basename; - -use BorlandProjectCreator; -use WorkspaceCreator; - -use vars qw(@ISA); -@ISA = qw(WorkspaceCreator); - -# ************************************************************ -# Subroutine Section -# ************************************************************ - -sub workspace_file_name { - #my($self) = shift; - return 'Makefile.bor'; -} - - -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" . - "# Borland 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 $fh "!include <\$(ACE_ROOT)\\include\\makeinclude\\make_flags.bor>$crlf"; - - foreach my $target ('all', 'clean', 'realclean', 'install') { - print $fh $crlf . - "$target\:$crlf"; - foreach my $project (@list) { - my($dir) = dirname($project); - my($chdir) = 0; - my($back) = 1; - - ## If the directory isn't "." then we need - ## to figure out how to get back to our starting point - if ($dir ne '.') { - $chdir = 1; - my($length) = length($dir); - for(my $i = 0; $i < $length; $i++) { - if (substr($dir, $i, 1) eq '/') { - $back++; - } - } - } - - ## These commands will work. In practicality, only the - ## default configuration can be built at the top level. - print $fh ($chdir ? "\t\@cd $dir$crlf" : '') . - "\t\$(MAKE) -\$(MAKEFLAGS) \$(MAKE_FLAGS) -f " . basename($project) . " $target$crlf" . - ($chdir ? "\t\@cd " . ('../' x $back) . $crlf : ''); - } - } - - # Generate a convenient rule for regenerating the workspace. - my($cmd) = "perl $0 " . join(" ", @ARGV); - print $fh $crlf . - "regenerate:$crlf" . - "\t$cmd$crlf"; -} - - - -1; |