Rev 2714 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
2714 | cejka | 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$$ |