197049Speter#! /bin/sh 2166124Srafan# $Id: MKkey_defs.sh,v 1.14 2003/12/06 17:10:09 tom Exp $ 397049Speter############################################################################## 4166124Srafan# Copyright (c) 2001-2002,2003 Free Software Foundation, Inc. # 597049Speter# # 697049Speter# Permission is hereby granted, free of charge, to any person obtaining a # 797049Speter# copy of this software and associated documentation files (the "Software"), # 897049Speter# to deal in the Software without restriction, including without limitation # 997049Speter# the rights to use, copy, modify, merge, publish, distribute, distribute # 1097049Speter# with modifications, sublicense, and/or sell copies of the Software, and to # 1197049Speter# permit persons to whom the Software is furnished to do so, subject to the # 1297049Speter# following conditions: # 1397049Speter# # 1497049Speter# The above copyright notice and this permission notice shall be included in # 1597049Speter# all copies or substantial portions of the Software. # 1697049Speter# # 1797049Speter# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR # 1897049Speter# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, # 1997049Speter# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL # 2097049Speter# THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER # 2197049Speter# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING # 2297049Speter# FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER # 2397049Speter# DEALINGS IN THE SOFTWARE. # 2497049Speter# # 2597049Speter# Except as contained in this notice, the name(s) of the above copyright # 2697049Speter# holders shall not be used in advertising or otherwise to promote the sale, # 2797049Speter# use or other dealings in this Software without prior written # 2897049Speter# authorization. # 2997049Speter############################################################################## 3097049Speter# 3197049Speter# MKkey_defs.sh -- generate function-key definitions for curses.h 3297049Speter# 33166124Srafan# Author: Thomas E. Dickey 2001 3497049Speter# 3597049Speter# Extract function-key definitions from the Caps file 3697049Speter# 3797049Speter: ${AWK-awk} 3897049SpeterDATA=${1-Caps} 3997049Speter 4097049Speterdata=data$$ 4197049Speterpass1=pass1_$$ 4297049Speterpass2=pass2_$$ 4397049Speterpass3=pass3_$$ 4497049Speterpass4=pass4_$$ 4597049Spetertrap 'rm -f $data pass[1234]_$$' 0 1 2 5 15 46166124Srafan 47166124Srafan# change repeated tabs (used for readability) to single tabs (needed to make 48166124Srafan# awk see the right field alignment of the corresponding columns): 49166124Srafanif sort -k 6 $DATA >$data 2>/dev/null 50166124Srafanthen 51166124Srafan # POSIX 52166124Srafan sed -e 's/[ ][ ]*/ /g' < $DATA |sort -n -k 6 >$data 53166124Srafanelif sort -n +5 $DATA >$data 2>/dev/null 54166124Srafanthen 55166124Srafan # SunOS (and SVr4, marked as obsolete but still recognized) 56166124Srafan sed -e 's/[ ][ ]*/ /g' < $DATA |sort -n +5 >$data 57166124Srafanelse 58166124Srafan echo "Your sort utility is broken. Please install one that works." >&2 59166124Srafan exit 1 60166124Srafanfi 61166124Srafan 62166124Srafan# add keys that we generate automatically: 6398503Spetercat >>$data <<EOF 6498503Speterkey_resize kr1 str R1 KEY_RESIZE + ----- Terminal resize event 65166124Srafankey_event kv1 str V1 KEY_EVENT + ----- We were interrupted by an event 6698503SpeterEOF 6797049Speter 6897049Spetercat <<EOF 6997049Speter/* 7097049Speter * These definitions were generated by $0 $DATA 7197049Speter */ 7297049SpeterEOF 7397049Speter 7498503Speter# KEY_RESET 7598503Spetermaxkey=345 7697049Speter 7797049Speterfor pass in 1 2 3 4 7897049Speterdo 7997049Speter 8097049Speteroutput=pass${pass}_$$ 8197049Speter 8297049Speter${AWK-awk} >$output <$data ' 8397049Speterfunction print_cols(text,cols) { 8497049Speter printf "%s", text 8597049Speter len = length(text); 8697049Speter while (len < cols) { 8797049Speter printf " " 8897049Speter len += 8; 8997049Speter } 9097049Speter} 9197049Speterfunction decode(keycode) { 9297049Speter result = 0; 9397049Speter if (substr(keycode, 1, 2) == "0x") { 9497049Speter digits="0123456789abcdef"; 9597049Speter } else if (substr(keycode, 1, 1) == "0") { 9697049Speter digits="01234567"; 9797049Speter } else { 9897049Speter digits="0123456789"; 9997049Speter } 10097049Speter while (length(keycode) != 0) { 10197049Speter digit=substr(keycode, 1, 1); 10297049Speter keycode=substr(keycode, 2); 10397049Speter result = result * length(digits) + index(digits, digit) - 1; 10497049Speter } 10597049Speter return result; 10697049Speter} 10797049Speter 10897049SpeterBEGIN { 10997049Speter maxkey='$maxkey'; 11097049Speter pass='$pass'; 11197049Speter key_max=1; 11297049Speter bits=1; 11397049Speter while (key_max < maxkey) { 11497049Speter bits = bits + 1; 11597049Speter key_max = (key_max * 2) + 1; 11697049Speter } 11797049Speter octal_fmt = sprintf ("%%0%do", (bits + 2) / 3 + 1); 11897049Speter} 11997049Speter 12097049Speter/^$/ {next;} 12197049Speter/^#/ {next;} 12297049Speter/^capalias/ {next;} 12397049Speter/^infoalias/ {next;} 12497049Speter 12597049Speter$5 != "-" && $6 != "-" { 12697049Speter if ($6 == "+") { 12797049Speter if (pass == 1 || pass == 2) 12897049Speter next; 12997049Speter thiskey=maxkey + 1; 13097049Speter } else { 13197049Speter if (pass == 3) 13297049Speter next; 13397049Speter thiskey=decode($6); 13497049Speter } 13597049Speter if (thiskey > maxkey) 13697049Speter maxkey = thiskey; 13797049Speter if (pass == 2 || pass == 3) { 13897049Speter showkey=sprintf(octal_fmt, thiskey); 13997049Speter if ($5 == "KEY_F(0)" ) { 14097049Speter printf "#define " 14197049Speter print_cols("KEY_F0", 16); 14297049Speter print_cols(showkey, 16); 14397049Speter print "/* Function keys. Space for 64 */"; 14497049Speter printf "#define " 14597049Speter print_cols("KEY_F(n)", 16); 14697049Speter print_cols("(KEY_F0+(n))", 16); 14797049Speter print "/* Value of function key n */" 14897049Speter } else { 14997049Speter printf "#define " 15097049Speter print_cols($5, 16); 15197049Speter print_cols(showkey, 16); 15297049Speter printf "/*" 15397049Speter for (i = 8; i <= NF; i++) 15497049Speter printf " %s", $i 15597049Speter print " */" 15697049Speter } 15797049Speter } 15897049Speter } 15997049SpeterEND { 16097049Speter if (pass == 1) { 16197049Speter print maxkey; 16297049Speter } else if (pass == 4) { 16397049Speter print ""; 16497049Speter printf "#define "; 16597049Speter print_cols("KEY_MAX", 16); 16697049Speter result = sprintf (octal_fmt, key_max); 16797049Speter print_cols(result, 16); 16897049Speter printf "/* Maximum key value is "; 16997049Speter printf octal_fmt, maxkey; 17097049Speter print " */"; 17197049Speter } 17297049Speter } 17397049Speter' 17497049Speterif test $pass = 1 ; then 17597049Speter maxkey=`cat $pass1` 17697049Speterfi 17797049Speter 17897049Speterdone 17997049Speter 18097049Spetercat $pass2 18197049Spetercat $pass3 18297049Spetercat $pass4 183