1#! /bin/sh 2# $Id: MKkey_defs.sh,v 1.7 2002/01/13 01:36:32 tom Exp $ 3############################################################################## 4# Copyright (c) 2001,2002 Free Software Foundation, Inc. # 5# # 6# Permission is hereby granted, free of charge, to any person obtaining a # 7# copy of this software and associated documentation files (the "Software"), # 8# to deal in the Software without restriction, including without limitation # 9# the rights to use, copy, modify, merge, publish, distribute, distribute # 10# with modifications, sublicense, and/or sell copies of the Software, and to # 11# permit persons to whom the Software is furnished to do so, subject to the # 12# following conditions: # 13# # 14# The above copyright notice and this permission notice shall be included in # 15# all copies or substantial portions of the Software. # 16# # 17# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR # 18# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, # 19# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL # 20# THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER # 21# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING # 22# FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER # 23# DEALINGS IN THE SOFTWARE. # 24# # 25# Except as contained in this notice, the name(s) of the above copyright # 26# holders shall not be used in advertising or otherwise to promote the sale, # 27# use or other dealings in this Software without prior written # 28# authorization. # 29############################################################################## 30# 31# MKkey_defs.sh -- generate function-key definitions for curses.h 32# 33# Author: Thomas E. Dickey <dickey@herndon4.his.com> 2001 34# 35# Extract function-key definitions from the Caps file 36# 37: ${AWK-awk} 38DATA=${1-Caps} 39 40data=data$$ 41pass1=pass1_$$ 42pass2=pass2_$$ 43pass3=pass3_$$ 44pass4=pass4_$$ 45trap 'rm -f $data pass[1234]_$$' 0 1 2 5 15 46sed -e 's/[ ]\+/ /g' < $DATA |sort -n +5 >$data 47 48cat <<EOF 49/* 50 * These definitions were generated by $0 $DATA 51 */ 52EOF 53 54# KEY_RESIZE 55maxkey=410 56 57for pass in 1 2 3 4 58do 59 60output=pass${pass}_$$ 61 62${AWK-awk} >$output <$data ' 63function print_cols(text,cols) { 64 printf "%s", text 65 len = length(text); 66 while (len < cols) { 67 printf " " 68 len += 8; 69 } 70} 71function decode(keycode) { 72 result = 0; 73 if (substr(keycode, 1, 2) == "0x") { 74 digits="0123456789abcdef"; 75 } else if (substr(keycode, 1, 1) == "0") { 76 digits="01234567"; 77 } else { 78 digits="0123456789"; 79 } 80 while (length(keycode) != 0) { 81 digit=substr(keycode, 1, 1); 82 keycode=substr(keycode, 2); 83 result = result * length(digits) + index(digits, digit) - 1; 84 } 85 return result; 86} 87 88BEGIN { 89 maxkey='$maxkey'; 90 pass='$pass'; 91 key_max=1; 92 bits=1; 93 while (key_max < maxkey) { 94 bits = bits + 1; 95 key_max = (key_max * 2) + 1; 96 } 97 octal_fmt = sprintf ("%%0%do", (bits + 2) / 3 + 1); 98} 99 100/^$/ {next;} 101/^#/ {next;} 102/^capalias/ {next;} 103/^infoalias/ {next;} 104 105$5 != "-" && $6 != "-" { 106 if ($6 == "+") { 107 if (pass == 1 || pass == 2) 108 next; 109 thiskey=maxkey + 1; 110 } else { 111 if (pass == 3) 112 next; 113 thiskey=decode($6); 114 } 115 if (thiskey > maxkey) 116 maxkey = thiskey; 117 if (pass == 2 || pass == 3) { 118 showkey=sprintf(octal_fmt, thiskey); 119 if ($5 == "KEY_F(0)" ) { 120 printf "#define " 121 print_cols("KEY_F0", 16); 122 print_cols(showkey, 16); 123 print "/* Function keys. Space for 64 */"; 124 printf "#define " 125 print_cols("KEY_F(n)", 16); 126 print_cols("(KEY_F0+(n))", 16); 127 print "/* Value of function key n */" 128 } else { 129 printf "#define " 130 print_cols($5, 16); 131 print_cols(showkey, 16); 132 printf "/*" 133 for (i = 8; i <= NF; i++) 134 printf " %s", $i 135 print " */" 136 } 137 } 138 } 139END { 140 if (pass == 1) { 141 print maxkey; 142 } else if (pass == 4) { 143 print ""; 144 printf "#define "; 145 print_cols("KEY_MAX", 16); 146 result = sprintf (octal_fmt, key_max); 147 print_cols(result, 16); 148 printf "/* Maximum key value is "; 149 printf octal_fmt, maxkey; 150 print " */"; 151 } 152 } 153' 154if test $pass = 1 ; then 155 maxkey=`cat $pass1` 156fi 157 158done 159 160cat $pass2 161cat $pass3 162cat $pass4 163