diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-08-29 18:07:14 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-08-29 18:07:14 (GMT) |
| commit | 2c081dcd0c8ec409e22ffbb1f49579b83ad3b79e (patch) | |
| tree | 7726893008d42f6caa8839ec1d39afaaccc86632 /unix | |
| parent | b880f036f945f9da77f73d3826046b6f1eb49a42 (diff) | |
| parent | ce1c1edacbdc0ad1634a3de111ac872dc21f66cb (diff) | |
| download | tcl-2c081dcd0c8ec409e22ffbb1f49579b83ad3b79e.zip tcl-2c081dcd0c8ec409e22ffbb1f49579b83ad3b79e.tar.gz tcl-2c081dcd0c8ec409e22ffbb1f49579b83ad3b79e.tar.bz2 | |
merge trunk
Diffstat (limited to 'unix')
| -rwxr-xr-x | unix/installManPage | 43 |
1 files changed, 29 insertions, 14 deletions
diff --git a/unix/installManPage b/unix/installManPage index 1f1cbde..09a31dd 100755 --- a/unix/installManPage +++ b/unix/installManPage @@ -60,20 +60,35 @@ test -z "$SymOrLoc" && SymOrLoc="$Dir/" # Names=`sed -n ' # Look for a line that starts with .SH NAME - /^\.SH NAME/{ -# Read next line - n -# Remove all commas ... - s/,//g -# ... and backslash-escaped spaces. - s/\\\ //g -# Delete from \- to the end of line - s/ \\\-.*// -# Convert all non-space non-alphanum sequences -# to single underscores. - s/[^ A-Za-z0-9][^ A-Za-z0-9]*/_/g -# print the result and exit - p;q + /^\.SH NAME/,/^\./{ + + + /^\./!{ + + # Remove all commas... + s/,//g + + # ... and backslash-escaped spaces. + s/\\\ //g + + /\\\-.*/{ + # Delete from \- to the end of line + s/ \\\-.*// + h + s/.*/./ + x + } + + # Convert all non-space non-alphanum sequences + # to single underscores. + s/[^ A-Za-z0-9][^ A-Za-z0-9]*/_/g + p + g + /^\./{ + q + } + } + }' $ManPage` if test -z "$Names" ; then |
