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