VirtualBox

source: kBuild/trunk/src/kash/mktokens@ 2132

Last change on this file since 2132 was 1233, checked in by bird, 17 years ago

keywords.

  • Property svn:eol-style set to LF
  • Property svn:executable set to *
  • Property svn:keywords set to Id
File size: 2.9 KB
Line 
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
40if [ -z "$TMPDIR" ]; then
41 TMPDIR="/tmp"
42 export TMPDIR
43fi
44F="$TMPDIR/ka$$"
45echo $F
46cat > $F <<\!
47TEOF 1 end of file
48TNL 0 newline
49TSEMI 0 ";"
50TBACKGND 0 "&"
51TAND 0 "&&"
52TOR 0 "||"
53TPIPE 0 "|"
54TLP 0 "("
55TRP 1 ")"
56TENDCASE 1 ";;"
57TENDBQUOTE 1 "`"
58TREDIR 0 redirection
59TWORD 0 word
60TIF 0 "if"
61TTHEN 1 "then"
62TELSE 1 "else"
63TELIF 1 "elif"
64TFI 1 "fi"
65TWHILE 0 "while"
66TUNTIL 0 "until"
67TFOR 0 "for"
68TDO 1 "do"
69TDONE 1 "done"
70TBEGIN 0 "{"
71TEND 1 "}"
72TCASE 0 "case"
73TESAC 1 "esac"
74TNOT 0 "!"
75!
76nl=`wc -l $F`
77exec > token.h
78awk '{print "#define " $1 " " NR-1}' $F
79echo '
80/* Array indicating which tokens mark the end of a list */
81const char tokendlist[] = {'
82awk '{print "\t" $2 ","}' $F
83echo '};
84
85const char *const tokname[] = {'
86sed -e 's/"/\\"/g' \
87 -e 's/[^ ]*[ ][ ]*[^ ]*[ ][ ]*\(.*\)/ "\1",/' \
88 $F
89echo '};
90'
91sed 's/"//g' $F | awk '
92/TIF/{print "#define KWDOFFSET " NR-1; print "";
93 print "const char *const parsekwd[] = {"}
94/TIF/,/neverfound/{print " \"" $3 "\","}'
95echo ' 0
96};'
97
98rm $F
Note: See TracBrowser for help on using the repository browser.

© 2024 Oracle Support Privacy / Do Not Sell My Info Terms of Use Trademark Policy Automated Access Etiquette