Home | History | Annotate | Line # | Download | only in kern
vnode_if.sh revision 1.19
      1 #!/bin/sh -
      2 copyright="\
      3 /*
      4  * Copyright (c) 1992, 1993, 1994, 1995
      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 "
     36 SCRIPT_ID='$NetBSD: vnode_if.sh,v 1.19 1999/07/07 23:32:50 wrstuden Exp $'
     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 
     44 if [ $# -ne 1 ] ; then
     45 	echo 'usage: vnode_if.sh srcfile'
     46 	exit 1
     47 fi
     48 
     49 # Name and revision of the source file.
     50 src=$1
     51 SRC_ID=`head -1 $src | sed -e 's/.*\$\(.*\)\$.*/\1/'`
     52 
     53 # Names of the created files.
     54 out_c=vnode_if.c
     55 out_h=../sys/vnode_if.h
     56 
     57 # Awk program (must support nawk extensions)
     58 # Use "awk" at Berkeley, "nawk" or "gawk" elsewhere.
     59 awk=${AWK:-awk}
     60 
     61 # Does this awk have a "toupper" function? (i.e. is it GNU awk)
     62 isgawk=`$awk 'BEGIN { print toupper("true"); exit; }' 2>/dev/null`
     63 
     64 # If this awk does not define "toupper" then define our own.
     65 if [ "$isgawk" = TRUE ] ; then
     66 	# GNU awk provides it.
     67 	toupper=
     68 else
     69 	# Provide our own toupper()
     70 	toupper='
     71 function toupper(str) {
     72 	_toupper_cmd = "echo "str" |tr a-z A-Z"
     73 	_toupper_cmd | getline _toupper_str;
     74 	close(_toupper_cmd);
     75 	return _toupper_str;
     76 }'
     77 fi
     78 
     79 #
     80 # This is the common part of all awk programs that read $src
     81 # This parses the input for one function into the arrays:
     82 #	argdir, argtype, argname, willrele
     83 # and calls "doit()" to generate output for the function.
     84 #
     85 # Input to this parser is pre-processed slightly by sed
     86 # so this awk parser doesn't have to work so hard.  The
     87 # changes done by the sed pre-processing step are:
     88 #	insert a space beween * and pointer name
     89 #	replace semicolons with spaces
     90 #
     91 sed_prep='s:\*\([^\*/]\):\* \1:g
     92 s/;/ /'
     93 awk_parser='
     94 # Comment line
     95 /^#/	{ next; }
     96 # First line of description
     97 /^vop_/	{
     98 	name=$1;
     99 	argc=0;
    100 	next;
    101 }
    102 # Last line of description
    103 /^}/	{
    104 	doit();
    105 	next;
    106 }
    107 # Middle lines of description
    108 {
    109 	argdir[argc] = $1; i=2;
    110 	if ($2 == "WILLRELE") {
    111 		willrele[argc] = 1;
    112 		i++;
    113 	} else if ($2 == "WILLUNLOCK") {
    114 		willrele[argc] = 2;
    115 		i++;
    116 	} else if ($2 == "WILLPUT") {
    117 		willrele[argc] = 3;
    118 		i++;
    119 	} else
    120 		willrele[argc] = 0;
    121 	argtype[argc] = $i; i++;
    122 	while (i < NF) {
    123 		argtype[argc] = argtype[argc]" "$i;
    124 		i++;
    125 	}
    126 	argname[argc] = $i;
    127 	argc++;
    128 	next;
    129 }
    130 '
    131 
    132 # This is put before the copyright on each generated file.
    133 warning="\
    134 /*	@NetBSD@	*/
    135 
    136 /*
    137  * Warning: This file is generated automatically.
    138  * (Modifications made here may easily be lost!)
    139  *
    140  * Created from the file:
    141  *	${SRC_ID}
    142  * by the script:
    143  *	${SCRIPT_ID}
    144  */
    145 " 
    146 
    147 # This is to satisfy McKusick (get rid of evil spaces 8^)
    148 anal_retentive='s:\([^/]\*\) :\1:g'
    149 
    150 #
    151 # Redirect stdout to the H file.
    152 #
    153 echo "$0: Creating $out_h" 1>&2
    154 exec > $out_h
    155 
    156 # Begin stuff
    157 echo -n "$warning" | sed -e 's/\$//g;s/@/\$/g'
    158 echo ""
    159 echo -n "$copyright"
    160 echo ''
    161 echo '#ifndef _SYS_VNODE_IF_H_'
    162 echo '#define _SYS_VNODE_IF_H_'
    163 echo '
    164 extern struct vnodeop_desc vop_default_desc;
    165 '
    166 
    167 # Body stuff
    168 # This awk program needs toupper() so define it if necessary.
    169 sed -e "$sed_prep" $src | $awk "$toupper"'
    170 function doit() {
    171 	# Declare arg struct, descriptor.
    172 	printf("\nstruct %s_args {\n", name);
    173 	printf("\tstruct vnodeop_desc * a_desc;\n");
    174 	for (i=0; i<argc; i++) {
    175 		printf("\t%s a_%s;\n", argtype[i], argname[i]);
    176 	}
    177 	printf("};\n");
    178 	printf("extern struct vnodeop_desc %s_desc;\n", name);
    179 	# Prototype it.
    180 	protoarg = sprintf("static __inline int %s __P((", toupper(name));
    181 	protolen = length(protoarg);
    182 	printf("%s", protoarg);
    183 	for (i=0; i<argc; i++) {
    184 		protoarg = sprintf("%s", argtype[i]);
    185 		if (i < (argc-1)) protoarg = (protoarg ", ");
    186 		arglen = length(protoarg);
    187 		if (i == (argc-1))
    188 			arglen += length(" __attribute__((__unused__))");
    189 		if ((protolen + arglen) > 77) {
    190 			protoarg = ("\n    " protoarg);
    191 			arglen += 4;
    192 			protolen = 0;
    193 		}
    194 		printf("%s", protoarg);
    195 		protolen += arglen;
    196 	}
    197 	printf(")) __attribute__((__unused__));\n");
    198 	# Define inline function.
    199 	printf("static __inline int %s(", toupper(name));
    200 	for (i=0; i<argc; i++) {
    201 		printf("%s", argname[i]);
    202 		if (i < (argc-1)) printf(", ");
    203 	}
    204 	printf(")\n");
    205 	for (i=0; i<argc; i++) {
    206 		printf("\t%s %s;\n", argtype[i], argname[i]);
    207 	}
    208 	printf("{\n\tstruct %s_args a;\n", name);
    209 	printf("\ta.a_desc = VDESC(%s);\n", name);
    210 	for (i=0; i<argc; i++) {
    211 		printf("\ta.a_%s = %s;\n", argname[i], argname[i]);
    212 	}
    213 	printf("\treturn (VCALL(%s%s, VOFFSET(%s), &a));\n}\n",
    214 		argname[0], arg0special, name);
    215 }
    216 BEGIN	{
    217 	arg0special="";
    218 }
    219 END	{
    220 	printf("\n/* Special cases: */\n#include <sys/buf.h>\n");
    221 	argc=1;
    222 	argtype[0]="struct buf *";
    223 	argname[0]="bp";
    224 	arg0special="->b_vp";
    225 	name="vop_strategy";
    226 	doit();
    227 	name="vop_bwrite";
    228 	doit();
    229 }
    230 '"$awk_parser" | sed -e "$anal_retentive"
    231 
    232 # End stuff
    233 echo '
    234 /* End of special cases. */'
    235 echo ''
    236 echo '#endif /* !_SYS_VNODE_IF_H_ */'
    237 
    238 #
    239 # Redirect stdout to the C file.
    240 #
    241 echo "$0: Creating $out_c" 1>&2
    242 exec > $out_c
    243 
    244 # Begin stuff
    245 echo -n "$warning" | sed -e 's/\$//g;s/@/\$/g'
    246 echo ""
    247 echo -n "$copyright"
    248 echo '
    249 #include <sys/param.h>
    250 #include <sys/mount.h>
    251 #include <sys/vnode.h>
    252 
    253 struct vnodeop_desc vop_default_desc = {
    254 	0,
    255 	"default",
    256 	0,
    257 	NULL,
    258 	VDESC_NO_OFFSET,
    259 	VDESC_NO_OFFSET,
    260 	VDESC_NO_OFFSET,
    261 	VDESC_NO_OFFSET,
    262 	NULL,
    263 };
    264 '
    265 
    266 # Body stuff
    267 sed -e "$sed_prep" $src | $awk '
    268 function do_offset(typematch) {
    269 	for (i=0; i<argc; i++) {
    270 		if (argtype[i] == typematch) {
    271 			printf("\tVOPARG_OFFSETOF(struct %s_args, a_%s),\n",
    272 				name, argname[i]);
    273 			return i;
    274 		};
    275 	};
    276 	print "\tVDESC_NO_OFFSET,";
    277 	return -1;
    278 }
    279 
    280 function doit() {
    281 	# Define offsets array
    282 	printf("\nint %s_vp_offsets[] = {\n", name);
    283 	for (i=0; i<argc; i++) {
    284 		if (argtype[i] == "struct vnode *") {
    285 			printf ("\tVOPARG_OFFSETOF(struct %s_args,a_%s),\n",
    286 				name, argname[i]);
    287 		}
    288 	}
    289 	print "\tVDESC_NO_OFFSET";
    290 	print "};";
    291 	# Define F_desc
    292 	printf("struct vnodeop_desc %s_desc = {\n", name);
    293 	# offset
    294 	printf ("\t0,\n");
    295 	# printable name
    296 	printf ("\t\"%s\",\n", name);
    297 	# flags
    298 	printf("\t0");
    299 	vpnum = 0;
    300 	for (i=0; i<argc; i++) {
    301 		if (willrele[i]) {
    302 			if (willrele[i] == 2) {
    303 				word = "UNLOCK";
    304 			} else if (willrele[i] == 3) {
    305 				word = "PUT";
    306 			} else {
    307 				word = "RELE";
    308 			}
    309 			if (argdir[i] ~ /OUT/) {
    310 				printf(" | VDESC_VPP_WILL%s", word);
    311 			} else {
    312 				printf(" | VDESC_VP%s_WILL%s", vpnum, word);
    313 			};
    314 			vpnum++;
    315 		}
    316 	}
    317 	print ",";
    318 	# vp offsets
    319 	printf ("\t%s_vp_offsets,\n", name);
    320 	# vpp (if any)
    321 	do_offset("struct vnode **");
    322 	# cred (if any)
    323 	do_offset("struct ucred *");
    324 	# proc (if any)
    325 	do_offset("struct proc *");
    326 	# componentname
    327 	do_offset("struct componentname *");
    328 	# transport layer information
    329 	printf ("\tNULL,\n};\n");
    330 }
    331 END	{
    332 	printf("\n/* Special cases: */\n");
    333 	argc=1;
    334 	argdir[0]="IN";
    335 	argtype[0]="struct buf *";
    336 	argname[0]="bp";
    337 	willrele[0]=0;
    338 	name="vop_strategy";
    339 	doit();
    340 	name="vop_bwrite";
    341 	doit();
    342 }
    343 '"$awk_parser" | sed -e "$anal_retentive"
    344 
    345 # End stuff
    346 echo '
    347 /* End of special cases. */'
    348 
    349 # Add the vfs_op_descs array to the C file.
    350 # Begin stuff
    351 echo '
    352 struct vnodeop_desc *vfs_op_descs[] = {
    353 	&vop_default_desc,	/* MUST BE FIRST */
    354 	&vop_strategy_desc,	/* XXX: SPECIAL CASE */
    355 	&vop_bwrite_desc,	/* XXX: SPECIAL CASE */
    356 '
    357 
    358 # Body stuff
    359 sed -e "$sed_prep" $src | $awk '
    360 function doit() {
    361 	printf("\t&%s_desc,\n", name);
    362 }
    363 '"$awk_parser"
    364 
    365 # End stuff
    366 echo '	NULL
    367 };
    368 '
    369 
    370 exit 0
    371 
    372 # Local Variables:
    373 # tab-width: 4
    374 # End:
    375