diff options
author | elliott_c <ocielliottc@users.noreply.github.com> | 2006-05-03 01:45:52 +0000 |
---|---|---|
committer | elliott_c <ocielliottc@users.noreply.github.com> | 2006-05-03 01:45:52 +0000 |
commit | 619f7318d5be45fcdbcc203439f304d8590f21db (patch) | |
tree | dc4028348ecfe6fd022637fb895f69cbbd065881 /modules/Options.pm | |
parent | 6a3e14f1eab2d3d6bcab064d86b84f82b90f9989 (diff) | |
download | MPC-619f7318d5be45fcdbcc203439f304d8590f21db.tar.gz |
ChangeLogTag: Wed May 3 01:43:46 UTC 2006 Chad Elliott <elliott_c@ociweb.com>
Diffstat (limited to 'modules/Options.pm')
-rw-r--r-- | modules/Options.pm | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/modules/Options.pm b/modules/Options.pm index 402e9d96..672f1a14 100644 --- a/modules/Options.pm +++ b/modules/Options.pm @@ -48,7 +48,7 @@ sub printUsage { $spaces . "[-noreldefs] [-notoplevel] [-static] [-genins] [-use_env]\n" . $spaces . "[-value_template <NAME+=VAL | NAME=VAL | NAME-=VAL>]\n" . $spaces . "[-value_project <NAME+=VAL | NAME=VAL | NAME-=VAL>]\n" . - $spaces . "[-make_coexistence] [-feature_file <file name>]\n" . + $spaces . "[-make_coexistence] [-feature_file <file name>] [-gendot]\n" . $spaces . "[-expand_vars] [-features <feature definitions>]\n" . $spaces . "[-exclude <directories>] [-name_modifier <pattern>]\n" . $spaces . "[-apply_project] [-version] [-into <directory>]\n" . @@ -94,6 +94,7 @@ sub printUsage { " The default feature file is default.features under the\n" . " config directory.\n" . " -features Specifies the feature list to set before processing.\n" . +" -gendot Generate .dot files for use with Graphvis.\n" . " -genins Generate .ins files for use with prj_install.pl.\n" . " -gfeature_file Specifies the global feature file. The\n" . " default value is global.features under the\n" . @@ -160,7 +161,7 @@ sub completion_command { my($name) = shift; my($types) = shift; my($str) = "complete $name " . - "'c/-/(genins global include type template relative " . + "'c/-/(gendot genins global include type template relative " . "ti static noreldefs notoplevel feature_file use_env " . "value_template value_project make_coexistence language " . "hierarchy exclude name_modifier apply_project version " . @@ -224,6 +225,7 @@ sub options { my($makeco) = ($defaults ? 0 : undef); my($applypj) = ($defaults ? 0 : undef); my($genins) = ($defaults ? 0 : undef); + my($gendot) = ($defaults ? 0 : undef); ## Process the command line arguments for(my $i = 0; $i <= $#args; $i++) { @@ -310,6 +312,9 @@ sub options { 'requires a file name argument'); } } + elsif ($arg eq '-gendot') { + $gendot = 1; + } elsif ($arg eq '-genins') { $genins = 1; } @@ -542,6 +547,7 @@ sub options { 'exclude' => \@exclude, 'name_modifier' => $nmodifier, 'apply_project' => $applypj, + 'gendot' => $gendot, 'genins' => $genins, 'into' => $into, 'language' => $language, |