|
From: <sv...@va...> - 2005-06-26 00:45:23
|
Author: njn
Date: 2005-06-26 01:44:21 +0100 (Sun, 26 Jun 2005)
New Revision: 4026
Log:
Allow multiple module names per --hide option.
Modified:
trunk/auxprogs/gen-mdg
Modified: trunk/auxprogs/gen-mdg
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
--- trunk/auxprogs/gen-mdg 2005-06-25 20:49:33 UTC (rev 4025)
+++ trunk/auxprogs/gen-mdg 2005-06-26 00:44:21 UTC (rev 4026)
@@ -63,7 +63,7 @@
options:
--headers=3Dno|yes show headers, ie. show module-to-module deps o=
nly
--libc=3Dno|yes show m_libc* modules
- --hide=3D<module> hide module named <module>
+ --hide=3D<a>,<b>,... hide module(s) named <a>, <b>, ...
END
;
=20
@@ -85,9 +85,12 @@
$show_libc =3D 1 if ($1 eq "yes");
$show_libc =3D 0 if ($1 eq "no");
=20
- # --hide=3D<module>
+ # --hide=3D<a>,<b>,...
} elsif ($arg =3D~ /^--hide=3D(.*)$/) {
- $hide{$1} =3D 1;
+ my @hiders =3D split(/,/, $1);
+ foreach my $h (@hiders) {
+ $hide{$h} =3D 1;
+ }
=20
} else {
die $usage;
|