[pkgsrc/trunk]: pkgsrc/mk/help Return the documentation for FOO.<param> or FO...

[rillig <rillig%pkgsrc.org@localhost>]

details:   https://anonhg.NetBSD.org/pkgsrc/rev/4db5d9be2fc2
branches:  trunk
changeset: 532233:4db5d9be2fc2
user:      rillig <rillig%pkgsrc.org@localhost>
date:      Tue Aug 14 18:04:16 2007 +0000

description:
Return the documentation for FOO.<param> or FOO.${param} when help for
FOO is requested.

diffstat:

 mk/help/help.awk |  11 ++++++++---
 1 files changed, 8 insertions(+), 3 deletions(-)

diffs (25 lines):

diff -r c5e08962bc25 -r 4db5d9be2fc2 mk/help/help.awk
--- a/mk/help/help.awk  Tue Aug 14 17:48:53 2007 +0000
+++ b/mk/help/help.awk  Tue Aug 14 18:04:16 2007 +0000
@@ -1,4 +1,4 @@
-# $NetBSD: help.awk,v 1.15 2007/06/04 08:11:07 rillig Exp $
+# $NetBSD: help.awk,v 1.16 2007/08/14 18:04:16 rillig Exp $
 #
 
 # This program extracts the inline documentation from *.mk files.
@@ -99,8 +99,13 @@
 # Everything else is assumed to belong to the explaining text.
 #
 NF >= 1 {
-       w1 = ($1 == tolower($1)) ? toupper($1) : $1;
-       w2 = ($2 == tolower($2)) ? toupper($2) : $2;
+       # Reduce FOO.<param> and FOO.${param} to FOO.
+       w1 = gensub(/\.[<$].*[>}]$/, "", "g", $1);
+       w2 = gensub(/\.[<$].*[>}]$/, "", "g", $2);
+
+       # Convert all-lowercase words to all-uppercase.
+       w1 = (w1 == tolower(w1)) ? toupper(w1) : w1;
+       w2 = (w2 == tolower(w2)) ? toupper(w2) : w2;
 
        this_line_is_definition = (w1 == toupper($1)) && (w2 == toupper($2));