01cf73a5d3
While I didn't plan another upgrade, This version incorporate fixes from kevans@ so let's upgrade to it
122 lines
4.5 KiB
Bash
Executable File
122 lines
4.5 KiB
Bash
Executable File
#!/bin/sh
|
||
# $Id: MKterminfo.sh,v 1.18 2020/02/02 23:34:34 tom Exp $
|
||
#
|
||
# MKterminfo.sh -- generate terminfo.5 from Caps tabular data
|
||
#
|
||
#***************************************************************************
|
||
# Copyright 2018-2019,2020 Thomas E. Dickey *
|
||
# Copyright 1998-2003,2017 Free Software Foundation, Inc. *
|
||
# *
|
||
# Permission is hereby granted, free of charge, to any person obtaining a *
|
||
# copy of this software and associated documentation files (the *
|
||
# "Software"), to deal in the Software without restriction, including *
|
||
# without limitation the rights to use, copy, modify, merge, publish, *
|
||
# distribute, distribute with modifications, sublicense, and/or sell *
|
||
# copies of the Software, and to permit persons to whom the Software is *
|
||
# furnished to do so, subject to the following conditions: *
|
||
# *
|
||
# The above copyright notice and this permission notice shall be included *
|
||
# in all copies or substantial portions of the Software. *
|
||
# *
|
||
# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS *
|
||
# OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF *
|
||
# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. *
|
||
# IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, *
|
||
# DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR *
|
||
# OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR *
|
||
# THE USE OR OTHER DEALINGS IN THE SOFTWARE. *
|
||
# *
|
||
# Except as contained in this notice, the name(s) of the above copyright *
|
||
# holders shall not be used in advertising or otherwise to promote the *
|
||
# sale, use or other dealings in this Software without prior written *
|
||
# authorization. *
|
||
#***************************************************************************
|
||
#
|
||
# This script takes terminfo.head and terminfo.tail and splices in between
|
||
# them a table derived from the Caps data file. Besides avoiding having
|
||
# the docs fall out of sync with the table, this also lets us set up tbl
|
||
# commands for better formatting of the table.
|
||
#
|
||
# NOTE: The s in this script really are control characters. It translates
|
||
# to \n because I couldn't get used to inserting linefeeds directly. There
|
||
# had better be no s in the table source text.
|
||
#
|
||
# keep the order independent of locale:
|
||
if test "${LANGUAGE+set}" = set; then LANGUAGE=C; export LANGUAGE; fi
|
||
if test "${LANG+set}" = set; then LANG=C; export LANG; fi
|
||
if test "${LC_ALL+set}" = set; then LC_ALL=C; export LC_ALL; fi
|
||
if test "${LC_MESSAGES+set}" = set; then LC_MESSAGES=C; export LC_MESSAGES; fi
|
||
if test "${LC_CTYPE+set}" = set; then LC_CTYPE=C; export LC_CTYPE; fi
|
||
if test "${LC_COLLATE+set}" = set; then LC_COLLATE=C; export LC_COLLATE; fi
|
||
|
||
#
|
||
head=$1
|
||
shift 1
|
||
caps=
|
||
while test $# -gt 1
|
||
do
|
||
caps="$caps $1"
|
||
shift 1
|
||
done
|
||
tail=$1
|
||
cat <<EOF
|
||
'\\" t
|
||
.\\" DO NOT EDIT THIS FILE BY HAND!
|
||
.\\" It is generated from terminfo.head, $caps, and terminfo.tail.
|
||
.\\"
|
||
.\\" Note: this must be run through tbl before nroff.
|
||
.\\" The magic cookie on the first line triggers this under some man programs.
|
||
EOF
|
||
cat $head
|
||
|
||
temp=temp$$
|
||
sorted=sorted$$
|
||
unsorted=unsorted$$
|
||
trap "code=\$?; rm -f $sorted $temp $unsorted; exit \$code" EXIT HUP INT QUIT TERM
|
||
rm -f $sorted $temp $unsorted
|
||
|
||
cat $caps | sed -n "\
|
||
/%%-STOP-HERE-%%/q
|
||
/^#%center/s, expand,,
|
||
/^#%lw25/s, lw6 , lw7 ,
|
||
/^#%/s/#%//p
|
||
/^#/d
|
||
s/[ ][ ]*/ /g
|
||
s/$/T}/
|
||
s/ [A-Z0-9_()\-][A-Z0-9_()\-]* [0-9\-][0-9\-]* [Y\-][B\-][C\-][G\-][EK\-]\** / T{/
|
||
s/ bool / /p
|
||
s/ num / /p
|
||
s/ str / /p
|
||
" |sed -e 's/^$/../' | tr "\134" "\006" >$unsorted
|
||
|
||
rm -f $sorted
|
||
rm -f $temp
|
||
saved=no
|
||
while true
|
||
do
|
||
data=
|
||
read data
|
||
test -z "$data" && break
|
||
case "$data" in #(vi
|
||
**) #(vi
|
||
echo "$data" >>$temp
|
||
saved=yes
|
||
;;
|
||
*)
|
||
if test $saved = yes ; then
|
||
saved=no
|
||
sort $temp >>$sorted
|
||
rm -f $temp
|
||
fi
|
||
echo "$data" >>$sorted
|
||
;;
|
||
esac
|
||
done <$unsorted
|
||
test $saved = yes && sort $temp >>$sorted
|
||
|
||
sed -e 's/^\.\.$//' $sorted | tr "\005\006" "\012\134"
|
||
|
||
sed -e '/^center expand;/s, expand,,' \
|
||
-e '/^\.TS/,/^\\/s, lw[1-9][0-9]*\., l.,' \
|
||
$tail
|