4 # Copyright (c) 1992, 1993
5 # The Regents of the University of California. All rights reserved.
7 # Redistribution and use in source and binary forms, with or without
8 # modification, are permitted provided that the following conditions
10 # 1. Redistributions of source code must retain the above copyright
11 # notice, this list of conditions and the following disclaimer.
12 # 2. Redistributions in binary form must reproduce the above copyright
13 # notice, this list of conditions and the following disclaimer in the
14 # documentation and/or other materials provided with the distribution.
15 # 3. All advertising materials mentioning features or use of this software
16 # must display the following acknowledgement:
17 # This product includes software developed by the University of
18 # California, Berkeley and its contributors.
19 # 4. Neither the name of the University nor the names of its contributors
20 # may be used to endorse or promote products derived from this software
21 # without specific prior written permission.
23 # THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
24 # ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
25 # IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
26 # ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
27 # FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
28 # DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
29 # OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
30 # HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
31 # LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
32 # OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
35 # @(#)vnode_if.sh 8.1 (Berkeley) 6/10/93
38 # Script to produce VFS front-end sugar.
40 # usage: vnode_if.sh srcfile
41 # (where srcfile is currently /sys/kern/vnode_if.src)
52 # Process the command line
54 while (my $arg = shift @ARGV) {
57 } elsif ($arg eq '-h') {
59 } elsif ($arg eq '-ch' || $arg eq '-hc') {
62 } elsif ($arg =~ m/\.src$/) {
65 print "usage: vnode_if.sh [-c] [-h] srcfile\n";
69 if (!$cfile and !$hfile) {
70 exit(0); # nothing asked for..
73 # Names of the created files.
74 my $CFILE='vnode_if.c';
75 my $HEADER='vnode_if.h';
77 open(SRC, "<$srcfile") || die "Unable to open input file";
80 open(HEADER, ">$HEADER") || die "Unable to create $HEADER";
81 # Print out header information for vnode_if.h.
82 print HEADER <<END_OF_LEADING_COMMENT
84 * This file is produced automatically.
85 * Do not modify anything in here by hand.
87 * Created from @(#)vnode_if.sh 8.1 (Berkeley) 6/10/93
90 extern struct vnodeop_desc vop_default_desc;
91 END_OF_LEADING_COMMENT
96 open(CFILE, ">$CFILE") || die "Unable to create $CFILE";
97 # Print out header information for vnode_if.c.
98 print CFILE <<END_OF_LEADING_COMMENT
100 * This file is produced automatically.
101 * Do not modify anything in here by hand.
103 * Created from @(#)vnode_if.sh 8.1 (Berkeley) 6/10/93
106 #include <sys/param.h>
107 #include <sys/vnode.h>
109 struct vnodeop_desc vop_default_desc = {
110 1, /* special case, vop_default => 1 */
121 END_OF_LEADING_COMMENT
133 line: while (<SRC>) {
134 chop; # strip record separator
140 if (!/^#%\s+([a-z]+)\s+([a-z]+)\s+(.)\s(.)\s(.)/) {
143 if (!defined($lockdata{"vop_$1"})) {
144 $lockdata{"vop_$1"} = {};
146 $lockdata{"vop_$1"}->{$2} = {
154 # Get the function name.
156 my $uname = uc($name);
158 # Get the function arguments.
159 for ($numargs = 0; ; ++$numargs) {
163 die "Unable to read through the arguments for \"$name\"";
168 # For the header file
171 # The rest of this loop is for the C file
172 # Delete comments, if any.
173 $ln =~ s/\/\*.*\*\///g;
175 # Delete leading/trailing space.
176 $ln =~ s/^\s*(.*?)\s*$/$1/;
178 # Pick off direction.
180 if ($ln =~ s/^INOUT\s+//) {
182 } elsif ($ln =~ s/^IN\s+//) {
184 } elsif ($ln =~ s/^OUT\s+//) {
187 die "No IN/OUT direction for \"$ln\".";
190 if ($ln =~ s/^WILLRELE\s+//) {
198 die("Missing end-of-line ; in \"$ln\".");
201 # pick off variable name
202 if ($ln !~ s/([A-Za-z0-9_]+)$//) {
203 die("Missing var name \"a_foo\" in \"$ln\".");
207 # what is left must be type
208 # (put clean it up some)
210 # condense whitespace
212 $type =~ s/^\s*(.*?)\s*$/$1/;
214 $dirs{$numargs} = $dir;
215 $reles{$numargs} = $rele;
216 $types{$numargs} = $type;
217 $args{$numargs} = $arg;
221 # Print out the vop_F_args structure.
222 print HEADER "struct ${name}_args {\n\tstruct vnodeop_desc *a_desc;\n";
223 for (my $c2 = 0; $c2 < $numargs; ++$c2) {
224 $a{$c2} =~ /^\s*(INOUT|OUT|IN)(\s+WILLRELE)?\s+(.*?)\s+(\**)(\S*\;)/;
225 print HEADER "\t$3 $4a_$5\n",
229 # Print out extern declaration.
230 print HEADER "extern struct vnodeop_desc ${name}_desc;\n";
232 # Print out function.
233 print HEADER "static __inline int ${uname}(\n";
234 for (my $c2 = 0; $c2 < $numargs; ++$c2) {
235 $a{$c2} =~ /^\s*(INOUT|OUT|IN)(\s+WILLRELE)?\s+(.*?)\s+(\**\S*)\;/;
236 print HEADER "\t$3 $4" .
237 ($c2 < $numargs-1 ? "," : ")") . "\n";
239 print HEADER "{\n\tstruct ${name}_args a;\n";
240 print HEADER "\tint rc;\n";
241 print HEADER "\ta.a_desc = VDESC(${name});\n";
242 for (my $c2 = 0; $c2 < $numargs; ++$c2) {
243 $a{$c2} =~ /(\**)([^;\s]*)([^\s]*)$/;
244 print HEADER "\ta.a_$2 = $2$3\n",
246 for (my $c2 = 0; $c2 < $numargs; ++$c2) {
247 if (!exists($args{$c2})) {
248 die "Internal error";
250 if (exists($lockdata{$name}) &&
251 exists($lockdata{$name}->{$args{$c2}})) {
252 if (defined($ENV{'DEBUG_ALL_VFS_LOCKS'}) &&
253 $ENV{'DEBUG_ALL_VFS_LOCKS'} =~ /yes/i) {
254 # Add assertions for locking
255 if ($lockdata{$name}->{$args{$c2}}->{Entry} eq "L") {
257 "\tASSERT_VOP_LOCKED($args{$c2}, \"$uname\");\n";
258 } elsif ($lockdata{$name}->{$args{$c2}}->{Entry} eq "U") {
260 "\tASSERT_VOP_UNLOCKED($args{$c2}, \"$uname\");\n";
267 $a{0} =~ /\s\**([^;\s]*);/;
268 print HEADER "\trc = VCALL($1, VOFFSET(${name}), &a);\n";
269 print HEADER "\treturn (rc);\n";
275 # Print out the vop_F_vp_offsets structure. This all depends
276 # on naming conventions and nothing else.
277 printf CFILE "static int %s_vp_offsets[] = {\n", $name;
278 # as a side effect, figure out the releflags
281 for (my $i = 0; $i < $numargs; $i++) {
282 if ($types{$i} eq 'struct vnode *') {
283 printf CFILE "\tVOPARG_OFFSETOF(struct %s_args,a_%s),\n",
285 if ($reles{$i} eq 'WILLRELE') {
286 $releflags = $releflags . '|VDESC_VP' . $vpnum . '_WILLRELE';
293 $releflags =~ s/^\|//;
294 print CFILE "\tVDESC_NO_OFFSET\n";
297 # Print out the vnodeop_desc structure.
298 print CFILE "struct vnodeop_desc ${name}_desc = {\n";
300 print CFILE "\t0,\n";
302 printf CFILE "\t\"%s\",\n", $name;
304 my $vppwillrele = '';
305 for (my $i = 0; $i < $numargs; $i++) {
306 if ($types{$i} eq 'struct vnode **' &&
307 ($reles{$i} eq 'WILLRELE')) {
308 $vppwillrele = '|VDESC_VPP_WILLRELE';
312 if ($releflags eq '') {
313 printf CFILE "\t0%s,\n", $vppwillrele;
316 printf CFILE "\t%s%s,\n", $releflags, $vppwillrele;
320 printf CFILE "\t%s_vp_offsets,\n", $name;
322 printf CFILE "\t%s,\n", &find_arg_with_type('struct vnode **');
324 printf CFILE "\t%s,\n", &find_arg_with_type('struct ucred *');
326 printf CFILE "\t%s,\n", &find_arg_with_type('struct thread *');
328 printf CFILE "\t%s,\n", &find_arg_with_type('struct componentname *');
329 # transport layer information
330 print CFILE "\tNULL,\n};\n\n";
335 close(HEADER) || die "Unable to close $HEADER";
338 close(CFILE) || die "Unable to close $CFILE";
344 sub find_arg_with_type {
348 for ($i=0; $i < $numargs; $i++) {
349 if ($types{$i} eq $type) {
350 return "VOPARG_OFFSETOF(struct ${name}_args,a_" . $args{$i} . ")";
354 return "VDESC_NO_OFFSET";