1#!/bin/sh 2# $Id: MKterminfo.sh,v 1.18 2020/02/02 23:34:34 tom Exp $ 3# 4# MKterminfo.sh -- generate terminfo.5 from Caps tabular data 5# 6#*************************************************************************** 7# Copyright 2018-2019,2020 Thomas E. Dickey * 8# Copyright 1998-2003,2017 Free Software Foundation, Inc. * 9# * 10# Permission is hereby granted, free of charge, to any person obtaining a * 11# copy of this software and associated documentation files (the * 12# "Software"), to deal in the Software without restriction, including * 13# without limitation the rights to use, copy, modify, merge, publish, * 14# distribute, distribute with modifications, sublicense, and/or sell * 15# copies of the Software, and to permit persons to whom the Software is * 16# furnished to do so, subject to the following conditions: * 17# * 18# The above copyright notice and this permission notice shall be included * 19# in all copies or substantial portions of the Software. * 20# * 21# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS * 22# OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF * 23# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. * 24# IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, * 25# DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR * 26# OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR * 27# THE USE OR OTHER DEALINGS IN THE SOFTWARE. * 28# * 29# Except as contained in this notice, the name(s) of the above copyright * 30# holders shall not be used in advertising or otherwise to promote the * 31# sale, use or other dealings in this Software without prior written * 32# authorization. * 33#*************************************************************************** 34# 35# This script takes terminfo.head and terminfo.tail and splices in between 36# them a table derived from the Caps data file. Besides avoiding having 37# the docs fall out of sync with the table, this also lets us set up tbl 38# commands for better formatting of the table. 39# 40# NOTE: The s in this script really are control characters. It translates 41# to \n because I couldn't get used to inserting linefeeds directly. There 42# had better be no s in the table source text. 43# 44# keep the order independent of locale: 45if test "${LANGUAGE+set}" = set; then LANGUAGE=C; export LANGUAGE; fi 46if test "${LANG+set}" = set; then LANG=C; export LANG; fi 47if test "${LC_ALL+set}" = set; then LC_ALL=C; export LC_ALL; fi 48if test "${LC_MESSAGES+set}" = set; then LC_MESSAGES=C; export LC_MESSAGES; fi 49if test "${LC_CTYPE+set}" = set; then LC_CTYPE=C; export LC_CTYPE; fi 50if test "${LC_COLLATE+set}" = set; then LC_COLLATE=C; export LC_COLLATE; fi 51 52# 53head=$1 54shift 1 55caps= 56while test $# -gt 1 57do 58 caps="$caps $1" 59 shift 1 60done 61tail=$1 62cat <<EOF 63'\\" t 64.\\" DO NOT EDIT THIS FILE BY HAND! 65.\\" It is generated from terminfo.head, $caps, and terminfo.tail. 66.\\" 67.\\" Note: this must be run through tbl before nroff. 68.\\" The magic cookie on the first line triggers this under some man programs. 69EOF 70cat $head 71 72temp=temp$$ 73sorted=sorted$$ 74unsorted=unsorted$$ 75trap "code=\$?; rm -f $sorted $temp $unsorted; exit \$code" EXIT HUP INT QUIT TERM 76rm -f $sorted $temp $unsorted 77 78cat $caps | sed -n "\ 79/%%-STOP-HERE-%%/q 80/^#%center/s, expand,, 81/^#%lw25/s, lw6 , lw7 , 82/^#%/s/#%//p 83/^#/d 84s/[ ][ ]*/ /g 85s/$/T}/ 86s/ [A-Z0-9_()\-][A-Z0-9_()\-]* [0-9\-][0-9\-]* [Y\-][B\-][C\-][G\-][EK\-]\** / T{/ 87s/ bool / /p 88s/ num / /p 89s/ str / /p 90" |sed -e 's/^$/../' | tr "\134" "\006" >$unsorted 91 92rm -f $sorted 93rm -f $temp 94saved=no 95while true 96do 97 data= 98 read data 99 test -z "$data" && break 100 case "$data" in #(vi 101 **) #(vi 102 echo "$data" >>$temp 103 saved=yes 104 ;; 105 *) 106 if test $saved = yes ; then 107 saved=no 108 sort $temp >>$sorted 109 rm -f $temp 110 fi 111 echo "$data" >>$sorted 112 ;; 113 esac 114done <$unsorted 115test $saved = yes && sort $temp >>$sorted 116 117sed -e 's/^\.\.$//' $sorted | tr "\005\006" "\012\134" 118 119sed -e '/^center expand;/s, expand,,' \ 120 -e '/^\.TS/,/^\\/s, lw[1-9][0-9]*\., l.,' \ 121 $tail 122