This commit was generated by cvs2svn to track changes on a CVS vendor

[unix-history] / share / man / makewhatis.sed

#!/bin/sh -
#
# Copyright (c) 1988 The Regents of the University of California.
# All rights reserved.
#
# Redistribution and use in source and binary forms, with or without
# modification, are permitted provided that the following conditions
# are met:
# 1. Redistributions of source code must retain the above copyright
#    notice, this list of conditions and the following disclaimer.
# 2. Redistributions in binary form must reproduce the above copyright
#    notice, this list of conditions and the following disclaimer in the
#    documentation and/or other materials provided with the distribution.
# 3. All advertising materials mentioning features or use of this software
#    must display the following acknowledgement:
#       This product includes software developed by the University of
#       California, Berkeley and its contributors.
# 4. Neither the name of the University nor the names of its contributors
#    may be used to endorse or promote products derived from this software
#    without specific prior written permission.
#
# THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
# ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
# OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
# SUCH DAMAGE.
#
#       @(#)makewhatis.sed      5.5 (Berkeley) 4/17/91
#

/(.*)/ {
       s;.*(\([^)]*\).*;\1;
       s;^$;NOSECTION;
       h
       d
}

/^N\bNA\bAM\bME\bE/!d

:name
       s;.*;;
       N
       s;\n;;
       s;.\b;;g
       /^[^     ]/b print
       H
       b name

:print
       x
       s;\n;;g
       /-/!d
       s;\([a-z][A-z]\)-[       ][      ]*;\1;
       s;\([a-zA-Z0-9,]\)[      ][      ]*;\1 ;g
       s;-$;- No short explanation;
       s;[^a-zA-Z0-9_]*\([a-zA-Z0-9_]*\)[^a-zA-Z0-9_]*\(.*\) - \(.*\);\2 (\1) - \3;
#       s;^[    ]*(\([^)]*\));\1 ();
       /^[     ]*-/q
       s;(NOSECTION);();
:start
       s;\([^ ][^ ]*\) (\([^\b]*\)\(.*\);(\2\b\1 \2\3;
       /^[^(]/b start
       s;^[^\b]*\b;;
       s;      ; (;g
       s;, (; (;g
       s;\b;\
;g
       p
       d
       q