s4:heimdal: import lorikeet-heimdal-202201172009 (commit 5a0b45cd723628b3690ea848548b...
[samba.git] / source4 / heimdal / lib / libedit / src / makelist
1 #!/bin/sh -
2 #       $NetBSD: makelist,v 1.29 2016/05/09 21:46:56 christos Exp $
3 #
4 # Copyright (c) 1992, 1993
5 #       The Regents of the University of California.  All rights reserved.
6 #
7 # This code is derived from software contributed to Berkeley by
8 # Christos Zoulas of Cornell University.
9 #
10 # Redistribution and use in source and binary forms, with or without
11 # modification, are permitted provided that the following conditions
12 # are met:
13 # 1. Redistributions of source code must retain the above copyright
14 #    notice, this list of conditions and the following disclaimer.
15 # 2. Redistributions in binary form must reproduce the above copyright
16 #    notice, this list of conditions and the following disclaimer in the
17 #    documentation and/or other materials provided with the distribution.
18 # 3. Neither the name of the University nor the names of its contributors
19 #    may be used to endorse or promote products derived from this software
20 #    without specific prior written permission.
21 #
22 # THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
23 # ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
24 # IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
25 # ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
26 # FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
27 # DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
28 # OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
29 # HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
30 # LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
31 # OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
32 # SUCH DAMAGE.
33 #
34 #       @(#)makelist    5.3 (Berkeley) 6/4/93
35
36 # makelist.sh: Automatically generate header files...
37
38 if [ "x$AWK" = "x" ]
39 then
40     AWK=awk
41 fi
42 USAGE="Usage: $0 -h|-fc|-fh|-bh <filenames>"
43
44 if [ "x$1" = "x" ]
45 then
46     echo $USAGE 1>&2
47     exit 1
48 fi
49
50 FLAG="$1"
51 shift
52
53 FILES="$@"
54
55 case $FLAG in
56
57 -h)
58     set - `echo $FILES | sed -e 's/\\./_/g'`
59     hdr="_h_`basename $1`"
60     cat $FILES | $AWK '
61         BEGIN {
62             printf("/* Automatically generated file, do not edit */\n");
63             printf("#ifndef %s\n#define %s\n", "'$hdr'", "'$hdr'");
64         }
65         /\(\):/ {
66             pr = substr($2, 1, 2);
67             if (pr == "vi" || pr == "em" || pr == "ed") {
68                 name = substr($2, 1, length($2) - 3);
69 #
70 # XXX:  need a space between name and prototype so that -fc and -fh
71 #       parsing is much easier
72 #
73                 printf("libedit_private el_action_t\t%s (EditLine *, wint_t);\n",
74                     name);
75             }
76         }
77         END {
78             printf("#endif /* %s */\n", "'$hdr'");
79         }'
80         ;;
81
82 #       generate help.h from various .c files
83 #
84 -bh)
85     cat $FILES | $AWK '
86         BEGIN {
87             printf("/* Automatically generated file, do not edit */\n");
88             printf("static const struct el_bindings_t el_func_help[] = {\n");
89             low = "abcdefghijklmnopqrstuvwxyz_";
90             high = "ABCDEFGHIJKLMNOPQRSTUVWXYZ_";
91             for (i = 1; i <= length(low); i++)
92                 tr[substr(low, i, 1)] = substr(high, i, 1);
93         }
94         /\(\):/ {
95             pr = substr($2, 1, 2);
96             if (pr == "vi" || pr == "em" || pr == "ed") {
97                 name = substr($2, 1, length($2) - 3);
98                 uname = "";
99                 fname = "";
100                 for (i = 1; i <= length(name); i++) {
101                     s = substr(name, i, 1);
102                     uname = uname tr[s];
103                     if (s == "_")
104                         s = "-";
105                     fname = fname s;
106                 }
107
108                 printf("    { %-30.30s %-30.30s\n","L\"" fname "\",", uname ",");
109                 ok = 1;
110             }
111         }
112         /^ \*/ {
113             if (ok) {
114                 printf("      L\"");
115                 for (i = 2; i < NF; i++)
116                     printf("%s ", $i);
117                 printf("%s\" },\n", $i);
118                 ok = 0;
119             }
120         }
121         END {
122             printf("};\n");
123         }'
124         ;;
125
126 #       generate fcns.h from various .h files
127 #
128 -fh)
129     cat $FILES | $AWK '/el_action_t/ { print $3 }' | \
130     sort | tr '[a-z]' '[A-Z]' | tr -d ' ' | $AWK '
131         BEGIN {
132             printf("/* Automatically generated file, do not edit */\n");
133             count = 0;
134         }
135         {
136             printf("#define\t%-30.30s\t%3d\n", $1, count++);
137         }
138         END {
139             printf("#define\t%-30.30s\t%3d\n", "EL_NUM_FCNS", count);
140         }'
141         ;;
142
143 #       generate func.h from various .h files
144 #
145 -fc)
146     cat $FILES | $AWK '/el_action_t/ { print $3 }' | sort | $AWK '
147         BEGIN {
148             printf("/* Automatically generated file, do not edit */\n");
149             printf("static const el_func_t el_func[] = {");
150             maxlen = 80;
151             needn = 1;
152             len = 0;
153         }
154         {
155             clen = 25 + 2;
156             len += clen;
157             if (len >= maxlen)
158                 needn = 1;
159             if (needn) {
160                 printf("\n    ");
161                 needn = 0;
162                 len = 4 + clen;
163             }
164             s = $1 ",";
165             printf("%-26.26s ", s);
166         }
167         END {
168             printf("\n};\n");
169         }'
170         ;;
171
172 *)
173     echo $USAGE 1>&2
174     exit 1
175     ;;
176
177 esac