ncurses/base/MKlib_gen.sh

   1 #!/bin/sh
   2 #
   3 # MKlib_gen.sh -- generate sources from curses.h macro definitions
   4 #
   5 # ($Id: MKlib_gen.sh,v 1.11 1998/01/17 14:16:52 Juan.Jose.Garcia.Ripoll Exp $)
   6 #
   7 # The XSI Curses standard requires all curses entry points to exist as
   8 # functions, even though many definitions would normally be shadowed
   9 # by macros.  Rather than hand-hack all that code, we actually
  10 # generate functions from the macros.
  11 #
  12 # This script accepts a file of prototypes on standard input.  It discards
  13 # any that don't have a `generated' comment attached. It then parses each
  14 # prototype (relying on the fact that none of the macros take function
  15 # pointer or array arguments) and generates C source from it.
  16 #
  17 # Here is what the pipeline stages are doing:
  18 #
  19 # 1. sed: extract prototypes of generated functions
  20 # 2. sed: decorate prototypes with generated arguments a1. a2,...z
  21 # 3. awk: generate the calls with args matching the formals
  22 # 4. sed: prefix function names in prototypes so the preprocessor won't expand
  23 #         them.
  24 # 5. cpp: macro-expand the file so the macro calls turn into C calls
  25 # 6. awk: strip the expansion junk off the front and add the new header
  26 # 7. sed: squeeze spaces, strip off gen_ prefix, create needed #undef
  27 #
  28
  29 preprocessor="$1 -I../include"
  30 AWK="$2"
  31 ED1=sed1$$.sed
  32 ED2=sed2$$.sed
  33 ED3=sed3$$.sed
  34 AW1=awk1$$.awk
  35 TMP=gen$$.c
  36 trap "rm -f $ED1 $ED2 $ED3 $AW1 $TMP" 0 1 2 5 15
  37
  38 (cat <<EOF
  39 #include <ncurses_cfg.h>
  40 #include <curses.h>
  41
  42 DECLARATIONS
  43
  44 EOF
  45 cat >$ED1 <<EOF1
  46 /^extern.*generated/{
  47         h
  48         s/^.*generated:\([^     *]*\).*/P_#if_USE_\1_SUPPORT/p
  49         g
  50         s/^extern \([^;]*\);.*/\1/p
  51         g
  52         s/^.*generated:\([^     *]*\).*/P_#endif/p
  53 }
  54 EOF1
  55
  56 cat >$ED2 <<EOF2
  57 /^P_/b nc
  58 /(void)/b nc
  59         s/,/ a1% /
  60         s/,/ a2% /
  61         s/,/ a3% /
  62         s/,/ a4% /
  63         s/,/ a5% /
  64         s/,/ a6% /
  65         s/,/ a7% /
  66         s/,/ a8% /
  67         s/,/ a9% /
  68         s/,/ a10% /
  69         s/,/ a11% /
  70         s/,/ a12% /
  71         s/,/ a13% /
  72         s/,/ a14% /
  73         s/,/ a15% /
  74         s/*/ * /g
  75         s/%/ , /g
  76         s/)/ z)/
  77 :nc
  78         /(/s// ( /
  79         s/)/ )/
  80 EOF2
  81
  82 cat >$ED3 <<EOF3
  83 /^P_/{
  84         s/^P_#if_/#if /
  85         s/^P_//
  86         b done
  87 }
  88         s/              */ /g
  89         s/  */ /g
  90         s/ ,/,/g
  91         s/ )/)/g
  92         s/ gen_/ /
  93         s/^M_/#undef /
  94         /^%%/s//        /
  95 :done
  96 EOF3
  97
  98 cat >$AW1 <<\EOF1
  99 BEGIN   {
 100                 skip=0;
 101         }
 102         /^P_#if/ {
 103                 print "\n"
 104                 print $0
 105                 skip=0;
 106         }
 107         /^P_#endif/ {
 108                 print $0
 109                 skip=1;
 110         }
 111         $0 !~ /^P_/ {
 112         if (skip)
 113                 print "\n"
 114         skip=1;
 115
 116         print "M_" $2
 117         print $0;
 118         print "{";
 119         argcount = 1;
 120         if (NF == 5 && $4 == "void")
 121                 argcount = 0;
 122         if (argcount != 0) {
 123                 for (i = 1; i <= NF; i++)
 124                         if ($i == ",")
 125                                 argcount++;
 126         }
 127
 128         # suppress trace-code for functions that we cannot do properly here,
 129         # since they return data.
 130         dotrace = 1;
 131         if ($2 == "innstr")
 132                 dotrace = 0;
 133
 134         call = "%%T((T_CALLED(\""
 135         args = ""
 136         comma = ""
 137         num = 0;
 138         pointer = 0;
 139         argtype = ""
 140         for (i = 1; i <= NF; i++) {
 141                 ch = $i;
 142                 if ( ch == "*" )
 143                         pointer = 1;
 144                 else if ( ch == "va_list" )
 145                         pointer = 1;
 146                 else if ( ch == "char" )
 147                         argtype = "char";
 148                 else if ( ch == "int" )
 149                         argtype = "int";
 150                 else if ( ch == "short" )
 151                         argtype = "short";
 152                 else if ( ch == "chtype" )
 153                         argtype = "chtype";
 154                 else if ( ch == "attr_t" || ch == "NCURSES_ATTR_T" )
 155                         argtype = "attr";
 156
 157                 if ( ch == "," || ch == ")" ) {
 158                         if (pointer) {
 159                                 if ( argtype == "char" ) {
 160                                         call = call "%s"
 161                                         comma = comma "_nc_visbuf2(" num ","
 162                                         pointer = 0;
 163                                 } else
 164                                         call = call "%p"
 165                         } else if (argcount != 0) {
 166                                 if ( argtype == "int" || argtype == "short" ) {
 167                                         call = call "%d"
 168                                         argtype = ""
 169                                 } else if ( argtype != "" ) {
 170                                         call = call "%s"
 171                                         comma = comma "_trace" argtype "2(" num ","
 172                                 } else {
 173                                         call = call "%#lx"
 174                                         comma = comma "(long)"
 175                                 }
 176                         }
 177                         if (ch == ",")
 178                                 args = args comma "a" ++num;
 179                         else if (argcount != 0)
 180                                 args = args comma "z"
 181                         call = call ch
 182                         if (pointer == 0 && argcount != 0 && argtype != "" )
 183                                 args = args ")"
 184                         if (args != "")
 185                                 comma = ", "
 186                         pointer = 0;
 187                         argtype = ""
 188                 }
 189                 if ( i == 2 || ch == "(" )
 190                         call = call ch
 191         }
 192         call = call "\")"
 193         if (args != "")
 194                 call = call ", " args
 195         call = call ")); "
 196
 197         if (dotrace)
 198                 printf "%s", call
 199
 200         if (match($0, "^void"))
 201                 call = ""
 202         else if (dotrace)
 203                 call = "returnCode( ";
 204         else
 205                 call = "%%return ";
 206
 207         call = call $2 "(";
 208         for (i = 1; i < argcount; i++)
 209                 call = call "a" i ", ";
 210         if (argcount != 0)
 211                 call = call "z";
 212         if (!match($0, "^void"))
 213                 call = call ") ";
 214         if (dotrace)
 215                 call = call ")";
 216         print call ";"
 217
 218         if (match($0, "^void"))
 219                 print "%%returnVoid;"
 220         print "}";
 221 }
 222 EOF1
 223
 224 sed -n -f $ED1 | sed -f $ED2 \
 225 | $AWK -f $AW1 ) \
 226 | sed \
 227         -e '/^\([a-z_][a-z_]*\) /s//\1 gen_/' >$TMP
 228   $preprocessor $TMP 2>/dev/null \
 229 | $AWK '
 230 BEGIN           {
 231         print "/*"
 232         print " * DO NOT EDIT THIS FILE BY HAND!"
 233         print " * It is generated by MKlib_gen.sh."
 234         print " *"
 235         print " * This is a file of trivial functions generated from macro"
 236         print " * definitions in curses.h to satisfy the XSI Curses requirement"
 237         print " * that every macro also exist as a callable function."
 238         print " *"
 239         print " * It will never be linked unless you call one of the entry"
 240         print " * points with its normal macro definition disabled.  In that"
 241         print " * case, if you have no shared libraries, it will indirectly"
 242         print " * pull most of the rest of the library into your link image."
 243         print " */"
 244         print "#include <curses.priv.h>"
 245         print ""
 246                 }
 247 /^DECLARATIONS/ {start = 1; next;}
 248                 {if (start) print $0;}
 249 ' \
 250 | sed -f $ED3 \
 251 | sed \
 252         -e 's/^.*T_CALLED.*returnCode( \([a-z].*) \));/ return \1;/' \
 253         -e 's/^.*T_CALLED.*returnCode( \((wmove.*) \));/        return \1;/'
 254