1#!/usr/bin/perl -w 2 3# 4# Copyright (c) 1992, 1993 5# The Regents of the University of California. All rights reserved. 6# 7# Redistribution and use in source and binary forms, with or without 8# modification, are permitted provided that the following conditions 9# are met: 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. 22# 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 33# SUCH DAMAGE. 34# 35# @(#)vnode_if.sh 8.1 (Berkeley) 6/10/93 36# $FreeBSD$ 37# 38# Script to produce VFS front-end sugar. 39# 40# usage: vnode_if.sh srcfile 41# (where srcfile is currently /sys/kern/vnode_if.src) 42# 43 44use strict; 45 46my %lockdata; 47 48my $cfile = 0; 49my $hfile = 0; 50my $srcfile; 51 52# Process the command line 53# 54while (my $arg = shift @ARGV) { 55 if ($arg eq '-c') { 56 $cfile = 1; 57 } elsif ($arg eq '-h') { 58 $hfile = 1; 59 } elsif ($arg eq '-ch' || $arg eq '-hc') { 60 $cfile = 1; 61 $hfile = 1; 62 } elsif ($arg =~ m/\.src$/) { 63 $srcfile = $arg; 64 } else { 65 print "usage: vnode_if.sh [-c] [-h] srcfile\n"; 66 exit(1); 67 } 68} 69if (!$cfile and !$hfile) { 70 exit(0); # nothing asked for.. 71} 72 73# Names of the created files. 74my $CFILE='vnode_if.c'; 75my $HEADER='vnode_if.h'; 76 77open(SRC, "<$srcfile") || die "Unable to open input file"; 78 79if ($hfile) { 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 83/* 84 * This file is produced automatically. 85 * Do not modify anything in here by hand. 86 * 87 * Created from @(#)vnode_if.sh 8.1 (Berkeley) 6/10/93 88 */ 89 90extern struct vnodeop_desc vop_default_desc; 91END_OF_LEADING_COMMENT 92 ; 93} 94 95if ($cfile) { 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 99/* 100 * This file is produced automatically. 101 * Do not modify anything in here by hand. 102 * 103 * Created from @(#)vnode_if.sh 8.1 (Berkeley) 6/10/93 104 */ 105 106#include <sys/param.h> 107#include <sys/vnode.h> 108 109struct vnodeop_desc vop_default_desc = { 110 1, /* special case, vop_default => 1 */ 111 "default", 112 0, 113 NULL, 114 VDESC_NO_OFFSET, 115 VDESC_NO_OFFSET, 116 VDESC_NO_OFFSET, 117 VDESC_NO_OFFSET, 118 NULL, 119}; 120 121END_OF_LEADING_COMMENT 122 ; 123} 124 125my %a; 126my %dirs; 127my %reles; 128my %types; 129my %args; 130my $numargs; 131my $name; 132 133line: while (<SRC>) { 134 chop; # strip record separator 135 my @Fld = split ' '; 136 if (@Fld == 0) { 137 next line; 138 } 139 if (/^#/) { 140 if (!/^#%\s+([a-z]+)\s+([a-z]+)\s+(.)\s(.)\s(.)/) { 141 next; 142 } 143 if (!defined($lockdata{"vop_$1"})) { 144 $lockdata{"vop_$1"} = {}; 145 } 146 $lockdata{"vop_$1"}->{$2} = { 147 'Entry' => $3, 148 'OK' => $4, 149 'Error' => $5, 150 }; 151 next; 152 } 153 154 # Get the function name. 155 $name = $Fld[0]; 156 my $uname = uc($name); 157 my $ln; 158 # Get the function arguments. 159 for ($numargs = 0; ; ++$numargs) { 160 if ($ln = <SRC>) { 161 chomp; 162 } else { 163 die "Unable to read through the arguments for \"$name\""; 164 } 165 if ($ln =~ /^\};/) { 166 last; 167 } 168 # For the header file 169 $a{$numargs} = $ln; 170 171 # The rest of this loop is for the C file 172 # Delete comments, if any. 173 $ln =~ s/\/\*.*\*\///g; 174 175 # Delete leading/trailing space. 176 $ln =~ s/^\s*(.*?)\s*$/$1/; 177 178 # Pick off direction. 179 my $dir; 180 if ($ln =~ s/^INOUT\s+//) { 181 $dir = 'INOUT'; 182 } elsif ($ln =~ s/^IN\s+//) { 183 $dir = 'IN'; 184 } elsif ($ln =~ s/^OUT\s+//) { 185 $dir = 'OUT'; 186 } else { 187 die "No IN/OUT direction for \"$ln\"."; 188 } 189 my $rele; 190 if ($ln =~ s/^WILLRELE\s+//) { 191 $rele = 'WILLRELE'; 192 } else { 193 $rele = 'WONTRELE'; 194 } 195 196 # kill trailing ; 197 if ($ln !~ s/;$//) { 198 &bail("Missing end-of-line ; in \"$ln\"."); 199 } 200 201 # pick off variable name 202 if ($ln !~ s/([A-Za-z0-9_]+)$//) { 203 &bail("Missing var name \"a_foo\" in \"$ln\"."); 204 } 205 my $arg = $1; 206 207 # what is left must be type 208 # (put clean it up some) 209 my $type = $ln; 210 # condense whitespace 211 $type =~ s/\s+/ /g; 212 $type =~ s/^\s*(.*?)\s*$/$1/; 213 214 $dirs{$numargs} = $dir; 215 $reles{$numargs} = $rele; 216 $types{$numargs} = $type; 217 $args{$numargs} = $arg; 218 } 219 220 if ($hfile) { 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", 226 } 227 print HEADER "};\n"; 228 229 # Print out extern declaration. 230 print HEADER "extern struct vnodeop_desc ${name}_desc;\n"; 231 232 # Print out prototype. 233 print HEADER "static __inline int ${uname} __P((\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"; 238 } 239 240 # Print out function. 241 print HEADER "static __inline int ${uname}("; 242 for (my $c2 = 0; $c2 < $numargs; ++$c2) { 243 $a{$c2} =~ /\**([^;\s]*)\;[^\s]*$/; 244 print HEADER "$1" . ($c2 < $numargs - 1 ? ', ' : ")\n"); 245 } 246 for (my $c2 = 0; $c2 < $numargs; ++$c2) { 247 $a{$c2} =~ /^\s*(INOUT|OUT|IN)(\s+WILLRELE)?\s+(.*?)\s+(\**\S*\;)/; 248 print HEADER "\t$3 $4\n"; 249 } 250 print HEADER "{\n\tstruct ${name}_args a;\n"; 251 print HEADER "\tint rc;\n"; 252 print HEADER "\ta.a_desc = VDESC(${name});\n"; 253 for (my $c2 = 0; $c2 < $numargs; ++$c2) { 254 $a{$c2} =~ /(\**)([^;\s]*)([^\s]*)$/; 255 print HEADER "\ta.a_$2 = $2$3\n", 256 } 257 for (my $c2 = 0; $c2 < $numargs; ++$c2) { 258 if (!exists($args{$c2})) { 259 die "Internal error"; 260 } 261 if (exists($lockdata{$name}) && 262 exists($lockdata{$name}->{$args{$c2}})) { 263 if (defined($ENV{'DEBUG_ALL_VFS_LOCKS'}) && 264 $ENV{'DEBUG_ALL_VFS_LOCKS'} =~ /yes/i) { 265 # Add assertions for locking 266 if ($lockdata{$name}->{$args{$c2}}->{Entry} eq "L") { 267 print HEADER 268 "\tASSERT_VOP_LOCKED($args{$c2}, \"$uname\");\n"; 269 } elsif ($lockdata{$name}->{$args{$c2}}->{Entry} eq "U") { 270 print HEADER 271 "\tASSERT_VOP_UNLOCKED($args{$c2}, \"$uname\");\n"; 272 } elsif (0) { 273 # XXX More checks! 274 } 275 } 276 } 277 } 278 $a{0} =~ /\s\**([^;\s]*);/; 279 print HEADER "\trc = VCALL($1, VOFFSET(${name}), &a);\n"; 280 print HEADER "\treturn (rc);\n"; 281 print HEADER "}\n"; 282 } 283 284 285 if ($cfile) { 286 # Print out the vop_F_vp_offsets structure. This all depends 287 # on naming conventions and nothing else. 288 printf CFILE "static int %s_vp_offsets[] = {\n", $name; 289 # as a side effect, figure out the releflags 290 my $releflags = ''; 291 my $vpnum = 0; 292 for (my $i = 0; $i < $numargs; $i++) { 293 if ($types{$i} eq 'struct vnode *') { 294 printf CFILE "\tVOPARG_OFFSETOF(struct %s_args,a_%s),\n", 295 $name, $args{$i}; 296 if ($reles{$i} eq 'WILLRELE') { 297 $releflags = $releflags . '|VDESC_VP' . $vpnum . '_WILLRELE'; 298 } 299 300 $vpnum++; 301 } 302 } 303 304 $releflags =~ s/^\|//; 305 print CFILE "\tVDESC_NO_OFFSET\n"; 306 print CFILE "};\n"; 307 308 # Print out the vnodeop_desc structure. 309 print CFILE "struct vnodeop_desc ${name}_desc = {\n"; 310 # offset 311 print CFILE "\t0,\n"; 312 # printable name 313 printf CFILE "\t\"%s\",\n", $name; 314 # flags 315 my $vppwillrele = ''; 316 for (my $i = 0; $i < $numargs; $i++) { 317 if ($types{$i} eq 'struct vnode **' && 318 ($reles{$i} eq 'WILLRELE')) { 319 $vppwillrele = '|VDESC_VPP_WILLRELE'; 320 } 321 } 322 323 if ($releflags eq '') { 324 printf CFILE "\t0%s,\n", $vppwillrele; 325 } 326 else { 327 printf CFILE "\t%s%s,\n", $releflags, $vppwillrele; 328 } 329 330 # vp offsets 331 printf CFILE "\t%s_vp_offsets,\n", $name; 332 # vpp (if any) 333 printf CFILE "\t%s,\n", &find_arg_with_type('struct vnode **'); 334 # cred (if any) 335 printf CFILE "\t%s,\n", &find_arg_with_type('struct ucred *'); 336 # proc (if any) 337 printf CFILE "\t%s,\n", &find_arg_with_type('struct proc *'); 338 # componentname 339 printf CFILE "\t%s,\n", &find_arg_with_type('struct componentname *'); 340 # transport layer information 341 print CFILE "\tNULL,\n};\n\n"; 342 } 343} 344 345if ($hfile) { 346 close(HEADER) || die "Unable to close $HEADER"; 347} 348if ($cfile) { 349 close(CFILE) || die "Unable to close $CFILE"; 350} 351close(SRC) || die; 352 353exit 0; 354 355sub find_arg_with_type { 356 my $type = shift; 357 my $i; 358 359 for ($i=0; $i < $numargs; $i++) { 360 if ($types{$i} eq $type) { 361 return "VOPARG_OFFSETOF(struct ${name}_args,a_" . $args{$i} . ")"; 362 } 363 } 364 365 return "VDESC_NO_OFFSET"; 366} 367