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