bin/sh/mkinit.sh

   1 #! /bin/sh
   2 #       $NetBSD: mkinit.sh,v 1.5 2008/10/23 20:21:57 apb Exp $
   3
   4 # Copyright (c) 2003 The NetBSD Foundation, Inc.
   5 # All rights reserved.
   6 #
   7 # This code is derived from software contributed to The NetBSD Foundation
   8 # by David Laight.
   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 #
  19 # THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
  20 # ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
  21 # TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
  22 # PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
  23 # BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
  24 # CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
  25 # SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
  26 # INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
  27 # CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
  28 # ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
  29 # POSSIBILITY OF SUCH DAMAGE.
  30
  31 srcs="$*"
  32
  33 nl='
  34 '
  35 openparen='('
  36 backslash='\'
  37
  38 includes=' "shell.h" "mystring.h" "init.h" '
  39 defines=
  40 decles=
  41 event_init=
  42 event_reset=
  43 event_shellproc=
  44
  45 for src in $srcs; do
  46         exec <$src
  47         decnl="$nl"
  48         while IFS=; read -r line; do
  49                 [ "$line" = x ]
  50                 case "$line " in
  51                 INIT["{         "]* ) event=init;;
  52                 RESET["{        "]* ) event=reset;;
  53                 SHELLPROC["{    "]* ) event=shellproc;;
  54                 INCLUDE[\ \     ]* )
  55                         IFS='   '
  56                         set -- $line
  57                         # ignore duplicates
  58                         [ "${includes}" != "${includes%* $2 }" ] && continue
  59                         includes="$includes$2 "
  60                         continue
  61                         ;;
  62                 MKINIT\  )
  63                         # struct declaration
  64                         decles="$decles$nl"
  65                         while
  66                                 read -r line
  67                                 decles="${decles}${line}${nl}"
  68                                 [ "$line" != "};" ]
  69                         do
  70                                 :
  71                         done
  72                         decnl="$nl"
  73                         continue
  74                         ;;
  75                 MKINIT["{       "]* )
  76                         # strip initialiser
  77                         def=${line#MKINIT}
  78                         comment="${def#*;}"
  79                         def="${def%;$comment}"
  80                         def="${def%%=*}"
  81                         def="${def% }"
  82                         decles="${decles}${decnl}extern${def};${comment}${nl}"
  83                         decnl=
  84                         continue
  85                         ;;
  86                 \#define[\ \    ]* )
  87                         IFS='   '
  88                         set -- $line
  89                         # Ignore those with arguments
  90                         [ "$2" = "${2##*$openparen}" ] || continue
  91                         # and multiline definitions
  92                         [ "$line" = "${line%$backslash}" ] || continue
  93                         defines="${defines}#undef       $2${nl}${line}${nl}"
  94                         continue
  95                         ;;
  96                 * ) continue;;
  97                 esac
  98                 # code for events
  99                 ev="${nl}       /* from $src: */${nl}   {${nl}"
 100                 # Indent the text by an extra <tab>
 101                 while
 102                         read -r line
 103                         [ "$line" != "}" ]
 104                 do
 105                         [ -n "$line" -a "$line" = "${line###}" ] &&
 106                                 line="  $line"
 107                         ev="${ev}${line}${nl}"
 108                 done
 109                 ev="${ev}       }${nl}"
 110                 eval event_$event=\"\$event_$event\$ev\"
 111         done
 112 done
 113
 114 exec >init.c.tmp
 115
 116 echo "/*"
 117 echo " * This file was generated by the mkinit program."
 118 echo " */"
 119 echo
 120
 121 IFS=' '
 122 for f in $includes; do
 123         echo "#include $f"
 124 done
 125
 126 echo
 127 echo
 128 echo
 129 echo "$defines"
 130 echo
 131 echo "$decles"
 132 echo
 133 echo
 134 echo "/*"
 135 echo " * Initialization code."
 136 echo " */"
 137 echo
 138 echo "void"
 139 echo "init(void)"
 140 echo "{"
 141 echo "${event_init}"
 142 echo "}"
 143 echo
 144 echo
 145 echo
 146 echo "/*"
 147 echo " * This routine is called when an error or an interrupt occurs in an"
 148 echo " * interactive shell and control is returned to the main command loop."
 149 echo " */"
 150 echo
 151 echo "void"
 152 echo "reset(void)"
 153 echo "{"
 154 echo "${event_reset}"
 155 echo "}"
 156 echo
 157 echo
 158 echo
 159 echo "/*"
 160 echo " * This routine is called to initialize the shell to run a shell procedure."
 161 echo " */"
 162 echo
 163 echo "void"
 164 echo "initshellproc(void)"
 165 echo "{"
 166 echo "${event_shellproc}"
 167 echo "}"
 168
 169 exec >&-
 170 mv init.c.tmp init.c