1#!/bin/sh 2# $Id: MKterminfo.sh,v 1.20 2024/01/13 20:37:40 tom Exp $ 3# 4# MKterminfo.sh -- generate terminfo.5 from Caps tabular data 5# 6#*************************************************************************** 7# Copyright 2018-2020,2022 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{\\ 87.ad l\ 88/ 89s/ bool / /p 90s/ num / /p 91s/ str / /p 92" |sed -e 's/^$/../' | tr "\134" "\006" >$unsorted 93 94rm -f $sorted 95rm -f $temp 96saved=no 97while true 98do 99 data= 100 read data 101 test -z "$data" && break 102 case "$data" in #(vi 103 **) #(vi 104 echo "$data" >>$temp 105 saved=yes 106 ;; 107 *) 108 if test $saved = yes ; then 109 saved=no 110 sort $temp >>$sorted 111 rm -f $temp 112 fi 113 echo "$data" >>$sorted 114 ;; 115 esac 116done <$unsorted 117test $saved = yes && sort $temp >>$sorted 118 119sed -e 's/^\.\.$//' $sorted | tr "\005\006" "\012\134" 120 121sed -e '/^center expand;/s, expand,,' \ 122 -e '/^\.TS/,/^\\/s, lw[1-9][0-9]*\., l.,' \ 123 "$tail" 124