minix/bin/sh/mkinit.sh
Lionel Sambuc d90bee9749 Importing bin/sh
/etc/profile enables by default tabcompletion, as well as emacs mode,
in order to keep the old MINIX ash behavior.

Note: The shell now refuses to source a script without a relative or
      absolute path.
      This means:
        - '. myscript.sh' fails, while
        - '. ./myscript.sh' succeeds

Change-Id: I0be89b0747bd005e4c05cadb937af86883627dc6
2014-08-29 12:56:04 -04:00

170 lines
3.9 KiB
Bash
Executable file

#! /bin/sh
# $NetBSD: mkinit.sh,v 1.5 2008/10/23 20:21:57 apb Exp $
# Copyright (c) 2003 The NetBSD Foundation, Inc.
# All rights reserved.
#
# This code is derived from software contributed to The NetBSD Foundation
# by David Laight.
#
# Redistribution and use in source and binary forms, with or without
# modification, are permitted provided that the following conditions
# are met:
# 1. Redistributions of source code must retain the above copyright
# notice, this list of conditions and the following disclaimer.
# 2. Redistributions in binary form must reproduce the above copyright
# notice, this list of conditions and the following disclaimer in the
# documentation and/or other materials provided with the distribution.
#
# THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
# ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
# TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
# PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
# BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
# CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
# SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
# INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
# CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
# POSSIBILITY OF SUCH DAMAGE.
srcs="$*"
nl='
'
openparen='('
backslash='\'
includes=' "shell.h" "mystring.h" "init.h" '
defines=
decles=
event_init=
event_reset=
event_shellproc=
for src in $srcs; do
exec <$src
decnl="$nl"
while IFS=; read -r line; do
[ "$line" = x ]
case "$line " in
INIT["{ "]* ) event=init;;
RESET["{ "]* ) event=reset;;
SHELLPROC["{ "]* ) event=shellproc;;
INCLUDE[\ \ ]* )
IFS=' '
set -- $line
# ignore duplicates
[ "${includes}" != "${includes%* $2 }" ] && continue
includes="$includes$2 "
continue
;;
MKINIT\ )
# struct declaration
decles="$decles$nl"
while
read -r line
decles="${decles}${line}${nl}"
[ "$line" != "};" ]
do
:
done
decnl="$nl"
continue
;;
MKINIT["{ "]* )
# strip initialiser
def=${line#MKINIT}
comment="${def#*;}"
def="${def%;$comment}"
def="${def%%=*}"
def="${def% }"
decles="${decles}${decnl}extern${def};${comment}${nl}"
decnl=
continue
;;
\#define[\ \ ]* )
IFS=' '
set -- $line
# Ignore those with arguments
[ "$2" = "${2##*$openparen}" ] || continue
# and multiline definitions
[ "$line" = "${line%$backslash}" ] || continue
defines="${defines}#undef $2${nl}${line}${nl}"
continue
;;
* ) continue;;
esac
# code for events
ev="${nl} /* from $src: */${nl} {${nl}"
# Indent the text by an extra <tab>
while
read -r line
[ "$line" != "}" ]
do
[ -n "$line" -a "$line" = "${line###}" ] &&
line=" $line"
ev="${ev}${line}${nl}"
done
ev="${ev} }${nl}"
eval event_$event=\"\$event_$event\$ev\"
done
done
exec >init.c.tmp
echo "/*"
echo " * This file was generated by the mkinit program."
echo " */"
echo
IFS=' '
for f in $includes; do
echo "#include $f"
done
echo
echo
echo
echo "$defines"
echo
echo "$decles"
echo
echo
echo "/*"
echo " * Initialization code."
echo " */"
echo
echo "void"
echo "init(void)"
echo "{"
echo "${event_init}"
echo "}"
echo
echo
echo
echo "/*"
echo " * This routine is called when an error or an interrupt occurs in an"
echo " * interactive shell and control is returned to the main command loop."
echo " */"
echo
echo "void"
echo "reset(void)"
echo "{"
echo "${event_reset}"
echo "}"
echo
echo
echo
echo "/*"
echo " * This routine is called to initialize the shell to run a shell procedure."
echo " */"
echo
echo "void"
echo "initshellproc(void)"
echo "{"
echo "${event_shellproc}"
echo "}"
exec >&-
mv init.c.tmp init.c