src/ash/mkinit.sh

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