Subversion Repositories HelenOS

#!/bin/sh -

#	$NetBSD: mktokens,v 1.9 1999/07/09 03:05:50 christos Exp $

#

# Copyright (c) 1991, 1993

#	The Regents of the University of California.  All rights reserved.

#

# This code is derived from software contributed to Berkeley by

# Kenneth Almquist.

#

# 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.

# 3. All advertising materials mentioning features or use of this software

#    must display the following acknowledgement:

#	This product includes software developed by the University of

#	California, Berkeley and its contributors.

# 4. Neither the name of the University nor the names of its contributors

#    may be used to endorse or promote products derived from this software

#    without specific prior written permission.

#

# THIS SOFTWARE IS PROVIDED BY THE REGENTS 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 REGENTS 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.

#

#	@(#)mktokens	8.1 (Berkeley) 5/31/93

# The following is a list of tokens.  The second column is nonzero if the

# token marks the end of a list.  The third column is the name to print in

# error messages.

cat > /tmp/ka$$ <<\!

TEOF	1	end of file

TNL	0	newline

TSEMI	0	";"

TBACKGND 0	"&"

TAND	0	"&&"

TOR	0	"||"

TPIPE	0	"|"

TLP	0	"("

TRP	1	")"

TENDCASE 1	";;"

TENDBQUOTE 1	"`"

TREDIR	0	redirection

TWORD	0	word

TIF	0	"if"

TTHEN	1	"then"

TELSE	1	"else"

TELIF	1	"elif"

TFI	1	"fi"

TWHILE	0	"while"

TUNTIL	0	"until"

TFOR	0	"for"

TDO	1	"do"

TDONE	1	"done"

TBEGIN	0	"{"

TEND	1	"}"

TCASE	0	"case"

TESAC	1	"esac"

TNOT	0	"!"

!

nl=`wc -l /tmp/ka$$`

exec > token.h

awk '{print "#define " $1 " " NR-1}' /tmp/ka$$

echo '

/* Array indicating which tokens mark the end of a list */

const char tokendlist[] = {'

awk '{print "\t" $2 ","}' /tmp/ka$$

echo '};

const char *const tokname[] = {'

sed -e 's/"/\\"/g' \

    -e 's/[^	 ]*[	 ][	 ]*[^	 ]*[	 ][	 ]*\(.*\)/	"\1",/' \

    /tmp/ka$$

echo '};

'

sed 's/"//g' /tmp/ka$$ | awk '

/TIF/{print "#define KWDOFFSET " NR-1; print ""; 

      print "const char *const parsekwd[] = {"}

/TIF/,/neverfound/{print "	\"" $3 "\","}'

echo '	0

};'

rm /tmp/ka$$