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