summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorwilson_d <wilson_d@a3e5c962-4219-0410-a828-e124f845ac39>2003-09-22 16:18:21 +0000
committerwilson_d <wilson_d@a3e5c962-4219-0410-a828-e124f845ac39>2003-09-22 16:18:21 +0000
commit66dbbf906709097d91b237aff92c8be26d2b35d6 (patch)
tree659a5e0ae0b68560e142603e3804ed6267855a5b
parent47c8cbc9c02da335f69a9d5f5683ca73550027ff (diff)
downloadMPC-unlabeled-1.30.12.tar.gz
ChangeLogTag: Mon Sep 16 13:33:50 2003 Dale Wilson <wilson_d@ociweb.com>unlabeled-1.30.12
-rw-r--r--modules/Driver.pm21
1 files changed, 15 insertions, 6 deletions
diff --git a/modules/Driver.pm b/modules/Driver.pm
index a8eb65d9..d91e8ba9 100644
--- a/modules/Driver.pm
+++ b/modules/Driver.pm
@@ -40,7 +40,7 @@ sub new {
$self->{'path'} = $path;
$self->{'name'} = $name;
- $self->{'version'} = 1.9;
+ $self->{'version'} = "2.1";
$self->{'types'} = {};
$self->{'creators'} = \@creators;
$self->{'default'} = $creators[0];
@@ -91,17 +91,18 @@ sub optionError {
my($base) = $self->{'name'};
if (defined $line) {
- print STDERR "$line\n";
+ print STDERR "ERROR: $line\n";
}
my($spaces) = (' ' x (length($base) + 8));
print STDERR "$base v$self->{'version'}\n" .
- "Usage: $base [-global <file>] [-include <directory>] [-recurse]\n" .
- $spaces . "[-ti <dll | lib | dll_exe | lib_exe>:<file>]\n" .
+ "Usage: $base [-global <file>] [-include <directory>] [-recurse]]\n" .
+ $spaces . "[-ti <dll | lib | dll_exe | lib_exe>:<file>] [-hierarchy]\n" .
$spaces . "[-template <file>] [-relative NAME=VAR] [-base <project>]\n" .
$spaces . "[-noreldefs] [-notoplevel] [-static] [-static_only]\n" .
$spaces . "[-value_template <NAME+=VAL | NAME=VAL | NAME-=VAL>]\n" .
$spaces . "[-value_project <NAME+=VAL | NAME=VAL | NAME-=VAL>]\n" .
- $spaces . "[-feature_file <file name>]\n" .
+ $spaces . "[-feature_file <file name>] [-make_coexistence]\n" .
+ $spaces . "[-exclude <directories>]\n" .
$spaces . "[-type <";
my(@keys) = sort keys %{$self->{'types'}};
@@ -121,11 +122,14 @@ sub optionError {
print STDERR
" -base Add <project> as a base project to each generated\n" .
" project file.\n" .
+" -exclude Use this option to exclude directories when searching\n" .
+" for input files.\n" .
" -feature_file Specifies the feature file to read before processing.\n" .
" The default feature file is default.features under the\n" .
" config directory.\n" .
" -global Specifies the global input file. Values stored\n" .
" within this file are applied to all projects.\n" .
+" -hierarchy Generate a workspace in a hierarchical fashion.\n" .
" -include Specifies a directory to search when looking for base\n" .
" projects, template input files and templates. This\n" .
" option can be used multiple times to add directories.\n" .
@@ -141,6 +145,8 @@ sub optionError {
" -relative Any \$() variable in an mpc that is matched to NAME\n" .
" is replaced by VAR only if VAR can be made into a\n" .
" relative path based on the current working directory.\n" .
+" -make_coexistence If multiple 'make' based project types are\n" .
+" generated, they will be named such that they can coexist.\n" .
" -noreldefs Do not try to generate default relative definitions.\n" .
" -notoplevel Do not generate the top level target file. Files\n" .
" are still process, but no top level file is created.\n" .
@@ -325,7 +331,10 @@ sub run {
$options->{'toplevel'},
$options->{'baseprojs'},
$global_feature_file,
- $options->{'feature_file'});
+ $options->{'feature_file'},
+ $options->{'hierarchy'},
+ $options->{'exclude'},
+ $options->{'coexistence'});
if ($base ne $file) {
my($dir) = ($base eq '' ? $file : dirname($file));
if (!$generator->cd($dir)) {