1 | #!/bin/sh -
|
---|
2 | # $NetBSD: mktokens,v 1.10 2003/08/22 11:22:23 agc Exp $
|
---|
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.
|
---|
18 | # 3. Neither the name of the University nor the names of its contributors
|
---|
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
|
---|
35 |
|
---|
36 | # The following is a list of tokens. The second column is nonzero if the
|
---|
37 | # token marks the end of a list. The third column is the name to print in
|
---|
38 | # error messages.
|
---|
39 |
|
---|
40 | if [ -z "$TMPDIR" ]; then
|
---|
41 | TMPDIR="/tmp"
|
---|
42 | export TMPDIR
|
---|
43 | fi
|
---|
44 | F="$TMPDIR/ka$$"
|
---|
45 | echo $F
|
---|
46 | cat > $F <<\!
|
---|
47 | TEOF 1 end of file
|
---|
48 | TNL 0 newline
|
---|
49 | TSEMI 0 ";"
|
---|
50 | TBACKGND 0 "&"
|
---|
51 | TAND 0 "&&"
|
---|
52 | TOR 0 "||"
|
---|
53 | TPIPE 0 "|"
|
---|
54 | TLP 0 "("
|
---|
55 | TRP 1 ")"
|
---|
56 | TENDCASE 1 ";;"
|
---|
57 | TENDBQUOTE 1 "`"
|
---|
58 | TREDIR 0 redirection
|
---|
59 | TWORD 0 word
|
---|
60 | TIF 0 "if"
|
---|
61 | TTHEN 1 "then"
|
---|
62 | TELSE 1 "else"
|
---|
63 | TELIF 1 "elif"
|
---|
64 | TFI 1 "fi"
|
---|
65 | TWHILE 0 "while"
|
---|
66 | TUNTIL 0 "until"
|
---|
67 | TFOR 0 "for"
|
---|
68 | TDO 1 "do"
|
---|
69 | TDONE 1 "done"
|
---|
70 | TBEGIN 0 "{"
|
---|
71 | TEND 1 "}"
|
---|
72 | TCASE 0 "case"
|
---|
73 | TESAC 1 "esac"
|
---|
74 | TNOT 0 "!"
|
---|
75 | !
|
---|
76 | nl=`wc -l $F`
|
---|
77 | exec > token.h
|
---|
78 | awk '{print "#define " $1 " " NR-1}' $F
|
---|
79 | echo '
|
---|
80 | /* Array indicating which tokens mark the end of a list */
|
---|
81 | const char tokendlist[] = {'
|
---|
82 | awk '{print "\t" $2 ","}' $F
|
---|
83 | echo '};
|
---|
84 |
|
---|
85 | const char *const tokname[] = {'
|
---|
86 | sed -e 's/"/\\"/g' \
|
---|
87 | -e 's/[^ ]*[ ][ ]*[^ ]*[ ][ ]*\(.*\)/ "\1",/' \
|
---|
88 | $F
|
---|
89 | echo '};
|
---|
90 | '
|
---|
91 | sed 's/"//g' $F | awk '
|
---|
92 | /TIF/{print "#define KWDOFFSET " NR-1; print "";
|
---|
93 | print "const char *const parsekwd[] = {"}
|
---|
94 | /TIF/,/neverfound/{print " \"" $3 "\","}'
|
---|
95 | echo ' 0
|
---|
96 | };'
|
---|
97 |
|
---|
98 | rm $F
|
---|