VirtualBox

source: kBuild/trunk/src/ash/mktokens@ 626

Last change on this file since 626 was 626, checked in by bird, 18 years ago

Current libc code (based on NetBSD sh 2005-07-03).

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