[apple/shell_cmds.git] / sh / mktokens

#!/bin/sh -

#-
# 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. 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
# $FreeBSD: head/bin/sh/mktokens 328934 2018-02-06 15:41:35Z arichardson $

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

temp=`mktemp -t ka`
cat > $temp <<\!
TEOF	1	end of file
TNL	0	newline
TSEMI	0	";"
TBACKGND 0	"&"
TAND	0	"&&"
TOR	0	"||"
TPIPE	0	"|"
TLP	0	"("
TRP	1	")"
TENDCASE 1	";;"
TFALLTHRU 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 $temp`
exec > token.h
awk '{print "#define " $1 " " NR-1}' $temp
echo '
/* Array indicating which tokens mark the end of a list */
static const char tokendlist[] = {'
awk '{print "\t" $2 ","}' $temp
echo '};

static const char *const tokname[] = {'
sed -e 's/"/\\"/g' \
    -e 's/[^	 ]*[	 ][	 ]*[^	 ]*[	 ][	 ]*\(.*\)/	"\1",/' \
    $temp
echo '};
'
sed 's/"//g' $temp | awk '
/TIF/{print "#define KWDOFFSET " NR-1; print ""; print "const char *const parsekwd[] = {"}
/TIF/,/neverfound/{print "	\"" $3 "\","}'
echo '	0
};'

rm $temp
Commit	Line	Data
71aad674 A	1	#!/bin/sh -
	2
	3	#-
	4	# Copyright (c) 1991, 1993
	5	# The Regents of the University of California. All rights reserved.
	6	#
	7	# This code is derived from software contributed to Berkeley by
	8	# Kenneth Almquist.
	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.
254f12f7	18	# 3. Neither the name of the University nor the names of its contributors
71aad674 A	19	# may be used to endorse or promote products derived from this software
	20	# without specific prior written permission.
	21	#
	22	# THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
	23	# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
	24	# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
	25	# ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
	26	# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
	27	# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
	28	# OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
	29	# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
	30	# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
	31	# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
	32	# SUCH DAMAGE.
	33	#
	34	# @(#)mktokens 8.1 (Berkeley) 5/31/93
254f12f7	35	# $FreeBSD: head/bin/sh/mktokens 328934 2018-02-06 15:41:35Z arichardson $
71aad674 A	36
	37	# The following is a list of tokens. The second column is nonzero if the
	38	# token marks the end of a list. The third column is the name to print in
	39	# error messages.
	40
254f12f7	41	temp=`mktemp -t ka`
71aad674 A	42	cat > $temp <<\!
	43	TEOF 1 end of file
	44	TNL 0 newline
	45	TSEMI 0 ";"
	46	TBACKGND 0 "&"
	47	TAND 0 "&&"
	48	TOR 0 "\|\|"
	49	TPIPE 0 "\|"
	50	TLP 0 "("
	51	TRP 1 ")"
	52	TENDCASE 1 ";;"
	53	TFALLTHRU 1 ";&"
	54	TREDIR 0 redirection
	55	TWORD 0 word
	56	TIF 0 "if"
	57	TTHEN 1 "then"
	58	TELSE 1 "else"
	59	TELIF 1 "elif"
	60	TFI 1 "fi"
	61	TWHILE 0 "while"
	62	TUNTIL 0 "until"
	63	TFOR 0 "for"
	64	TDO 1 "do"
	65	TDONE 1 "done"
	66	TBEGIN 0 "{"
	67	TEND 1 "}"
	68	TCASE 0 "case"
	69	TESAC 1 "esac"
	70	TNOT 0 "!"
	71	!
	72	nl=`wc -l $temp`
	73	exec > token.h
	74	awk '{print "#define " $1 " " NR-1}' $temp
	75	echo '
	76	/* Array indicating which tokens mark the end of a list */
	77	static const char tokendlist[] = {'
	78	awk '{print "\t" $2 ","}' $temp
	79	echo '};
	80
	81	static const char *const tokname[] = {'
	82	sed -e 's/"/\\"/g' \
	83	-e 's/[^ ][ ][ ][^ ][ ][ ]\(.*\)/ "\1",/' \
	84	$temp
	85	echo '};
	86	'
	87	sed 's/"//g' $temp \| awk '
	88	/TIF/{print "#define KWDOFFSET " NR-1; print ""; print "const char *const parsekwd[] = {"}
	89	/TIF/,/neverfound/{print " \"" $3 "\","}'
	90	echo ' 0
	91	};'
	92
	93	rm $temp