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