VirtualBox

source: kBuild/trunk/src/ash-messup/mknodes.sh@ 881

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

More svn:eol-style fixes.

  • Property svn:eol-style set to LF
  • Property svn:executable set to *
File size: 5.2 KB
Line 
1#! /bin/sh
2# $NetBSD: mknodes.sh,v 1.1 2004/01/16 23:24:38 dsl Exp $
3
4# Copyright (c) 2003 The NetBSD Foundation, Inc.
5# All rights reserved.
6#
7# This code is derived from software contributed to The NetBSD Foundation
8# by David Laight.
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 NetBSD Foundation nor the names of its
19# contributors may be used to endorse or promote products derived
20# from this software without specific prior written permission.
21#
22# THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
23# ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
24# TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
25# PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
26# BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
27# CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
28# SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
29# INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
30# CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
31# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
32# POSSIBILITY OF SUCH DAMAGE.
33
34nodetypes=$1
35nodes_pat=$2
36objdir="$3"
37
38exec <$nodetypes
39exec >$objdir/nodes.h.tmp
40
41echo "/*"
42echo " * This file was generated by mknodes.sh"
43echo " */"
44echo
45
46tagno=0
47while IFS=; read -r line; do
48 line="${line%%#*}"
49 IFS=' '
50 set -- $line
51 IFS=
52 [ -z "$2" ] && continue
53 case "$line" in
54 [" "]* )
55 IFS=' '
56 [ $field = 0 ] && struct_list="$struct_list $struct"
57 eval field_${struct}_$field=\"\$*\"
58 eval numfld_$struct=\$field
59 field=$(($field + 1))
60 ;;
61 * )
62 define=$1
63 struct=$2
64 echo "#define $define $tagno"
65 tagno=$(($tagno + 1))
66 eval define_$struct=\"\$define_$struct \$define\"
67 struct_define="$struct_define $struct"
68 field=0
69 ;;
70 esac
71done
72
73echo
74
75IFS=' '
76for struct in $struct_list; do
77 echo
78 echo
79 echo "struct $struct {"
80 field=0
81 while
82 eval line=\"\$field_${struct}_$field\"
83 field=$(($field + 1))
84 [ -n "$line" ]
85 do
86 IFS=' '
87 set -- $line
88 name=$1
89 case $2 in
90 nodeptr ) type="union node *";;
91 nodelist ) type="struct nodelist *";;
92 string ) type="char *";;
93 int ) type="int ";;
94 * ) name=; shift 2; type="$*";;
95 esac
96 echo " $type$name;"
97 done
98 echo "};"
99done
100
101echo
102echo
103echo "union node {"
104echo " int type;"
105for struct in $struct_list; do
106 echo " struct $struct $struct;"
107done
108echo "};"
109echo
110echo
111echo "struct nodelist {"
112echo " struct nodelist *next;"
113echo " union node *n;"
114echo "};"
115echo
116echo
117echo "union node *copyfunc(union node *);"
118echo "void freefunc(union node *);"
119
120exec <$nodes_pat
121exec >$objdir/nodes.c.tmp
122mv -f $objdir/nodes.h.tmp $objdir/nodes.h || exit 1
123
124echo "/*"
125echo " * This file was generated by mknodes.sh"
126echo " */"
127echo
128
129while IFS=; read -r line; do
130 IFS=' '
131 set -- $line
132 IFS=
133 case "$1" in
134 '%SIZES' )
135 echo "static const short nodesize[$tagno] = {"
136 IFS=' '
137 for struct in $struct_define; do
138 echo " SHELL_ALIGN(sizeof (struct $struct)),"
139 done
140 echo "};"
141 ;;
142 '%CALCSIZE' )
143 echo " if (n == NULL)"
144 echo " return;"
145 echo " funcblocksize += nodesize[n->type];"
146 echo " switch (n->type) {"
147 IFS=' '
148 for struct in $struct_list; do
149 eval defines=\"\$define_$struct\"
150 for define in $defines; do
151 echo " case $define:"
152 done
153 eval field=\$numfld_$struct
154 while
155 [ $field != 0 ]
156 do
157 eval line=\"\$field_${struct}_$field\"
158 field=$(($field - 1))
159 IFS=' '
160 set -- $line
161 name=$1
162 cl=")"
163 case $2 in
164 nodeptr ) fn=calcsize;;
165 nodelist ) fn=sizenodelist;;
166 string ) fn="funcstringsize += strlen"
167 cl=") + 1";;
168 * ) continue;;
169 esac
170 echo " ${fn}(n->$struct.$name${cl};"
171 done
172 echo " break;"
173 done
174 echo " };"
175 ;;
176 '%COPY' )
177 echo " if (n == NULL)"
178 echo " return NULL;"
179 echo " new = funcblock;"
180 echo " funcblock = (char *) funcblock + nodesize[n->type];"
181 echo " switch (n->type) {"
182 IFS=' '
183 for struct in $struct_list; do
184 eval defines=\"\$define_$struct\"
185 for define in $defines; do
186 echo " case $define:"
187 done
188 eval field=\$numfld_$struct
189 while
190 [ $field != 0 ]
191 do
192 eval line=\"\$field_${struct}_$field\"
193 field=$(($field - 1))
194 IFS=' '
195 set -- $line
196 name=$1
197 case $2 in
198 nodeptr ) fn="copynode(";;
199 nodelist ) fn="copynodelist(";;
200 string ) fn="nodesavestr(";;
201 int ) fn=;;
202 * ) continue;;
203 esac
204 f="$struct.$name"
205 echo " new->$f = ${fn}n->$f${fn:+)};"
206 done
207 echo " break;"
208 done
209 echo " };"
210 echo " new->type = n->type;"
211 ;;
212 * ) echo "$line";;
213 esac
214done
215
216exec >/dev/null
217mv -f $objdir/nodes.c.tmp $objdir/nodes.c || exit 1
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