File system vnode Operations

Index: head/tools/tools/vop_table/vop_table.pl =================================================================== --- head/tools/tools/vop_table/vop_table.pl (nonexistent) +++ head/tools/tools/vop_table/vop_table.pl (revision 139701) @@ -0,0 +1,255 @@ +#!/usr/bin/perl +# +# Attempt to generate a similar HTML file akin to vop_table.tcl output. +# This is all fairly poor perl code... but whatever, will be cleaned up +# in the near future. +# +# (c) 2004 Andrew R. Reiter +# All Rights Reserved. +# +# $FreeBSD$ + +# XXX todo: Make $src_dir modificationable + +$src_dir = "/usr/src"; +$srcsys_dir = $src_dir."/sys"; +$vnode_if_awk = $srcsys_dir."/tools/vnode_if.awk"; +$vnode_if_src = $srcsys_dir."/kern/vnode_if.src"; + +# Temporary input file... generated by a find(1) based command. +$infile = "/tmp/vt.$$"; + +# Output HTML +$outfile = "vop_vectors.html"; + +# Get a bunch of the vop_ routines out of this file. +`awk -f $vnode_if_awk $vnode_if_src -q`; +if ($?) { + print "Incapable of writing out the typedef file.\n"; + exit(1); +} + +# Eat the typedefs file into memory +open TD, "vnode_if_typedef.h" || die "Unable to open typedef file: $!\n"; +@vop_tdefs = ; +close TD; +`rm -f vnode_if_typedef.h`; + +# List of available vnode operations +@available_vn_ops = (); +push @available_vn_ops, "default"; +foreach $vt (@vop_tdefs) { + if ($vt =~ m/typedef\s+(\S+)\s+vop_(\S+)_t\(/) { + push @available_vn_ops, $2; + } +} +# Alpha sort. +@available_vn_ops = sort(@available_vn_ops); + +# Array of { file , fs } +@fs = (); +$#fs = 0; + +# Array of available vops for a given fs +@fsvnops = (); +$#fsvnops = 0; + +#Begin output. +open OF, ">$outfile"; +print OF "File system vnode Operations"; +print OF "\n"; +print OF "\n"; +print OF "\n"; + +#Generate $infile; sketchy +`find /usr/src/sys -type f -iname *.c -print | xargs grep 'vnodeops =' > $infile`; + +# Read in the file we find(1) generated. +open VT, $infile; +foreach $l () { + chomp($l); + + # Attempt to find all the files holding vop_vector declarations + + ## + # Need to sort based on $fs[]->{fs} + if ($l =~ m/^(\S+):.*vop_vector ((\S+)_vnodeops) =/) { + # Eh, I suck at perl; forgot some syntax, so hack. + $sz = $#fs; + $#fs++; + $fs[$sz]->{file} = $1; + $fs[$sz]->{fs} = $3; # file system + $fs[$sz]->{fsvar} = $2; # fs vop vector variable + push @fs_s, $3; + next; + } +} +close VT; +`rm -f $infile`; +@fs_s = sort @fs_s; +$m = 0; +foreach $fss (@fs_s) { + for ($l = 0; $l < $#fs; $l++) { + if ($fs_s[$m] eq $fs[$l]->{fs}) { + $fs[$l]->{fsi} = $m; + $m++; + last; + } + } +} + +sub vop_fn_val { + ($vfn) = @_; + $ret = "\n"; +} + +foreach $s (@fs_s) { + for ($b = 0; $b < $#fs; $b++) { + if ($s eq $fs[$b]->{fs}) { + print OF "

F i l e S y s t e m \n"; +print OF "	V e c t o r V a r i a b l e \n"; +foreach $avops (@available_vn_ops) { + @ao = split //,$avops; + print OF "	"; + foreach $aoz (@ao) { + print OF "$aoz \n"; + } + print OF "\n"; +} +print OF "
"; + + if ($vfn eq "VOP_EBADF") { + $ret .= "b"; + return $ret; + } + if ($vfn eq "VOP_PANIC") { + $ret .= "!"; + return $ret; + } + if ($vfn eq "VOP_NULL") { + $ret .= "-"; + return $ret; + } + if ($vfn =~ m/vop_std/) { + $ret .= "S"; + return $ret; + } + if ($vfn eq "vop_cache_lookup") { + $ret .= "C"; + return $ret; + } + if ($vfn =~ m/vop_no/) { + $ret .= "N"; + return $ret; + } + if ($vfn =~ m/vop_/) { + $ret .= "V"; + return $ret; + } + if ($vfn eq "VOP_EINVAL") { + $ret .= "i"; + return $ret; + } + if ($vfn eq "VOP_ENOTTY") { + $ret .= "t"; + return $ret; + } + if ($vfn eq "VOP_ENOTOPSUPP") { + $ret .= "*"; + return $ret; + } + if ($vfn =~ m/_lookup/) { + $ret .= "L"; + return $ret; + } + $ret .= "F"; + return $ret; +} + +# Loop through files that define vop_vectors. +for ($j = 0; $j < $#fs; $j++) { + + # Open the file containing the vop_vector decl. + open V, $fs[$j]->{file}; + @VF = ; + close V; + + # Zero out array; is there an easier way to do this in perl? + for ($z = 0; $z < $#fsvnops; $z++) { + $fsvnops[$z] = "	"; + } + + $opz = 0; + foreach $v (@VF) { + chomp($v); + + if ($v =~ m/vop_vector (\S+_vnodeops) =/) { + $opz = 1; + next; + } + + next if ($opz == 0); + + # Ehhh... hax + if ($v =~ m/;/) { + $opz = 0; + next; + } + + # ... Generate a vop_vector under each @fs entry? + # vop_LABEL = + if ($v =~ m/\.vop_(\S+)\s+=\s+(\S+),/) { + $iz = get_vop_fn_index($1); + if ($iz == -1) { + print "Unknown vnop routine: $1:$2 \n"; + exit 1; + } + $fsvnops[$iz] = vop_fn_val($2); + } + } + # + $fs[$j]->{out} = "	$fs[$j]->{fsvar}"; + + # Print out based on fsvnops + foreach $z (@fsvnops) { + $fs[$j]->{out} .= $z; + } + $fs[$j]->{out} .= "
$s ".$fs[$b]->{out}; + } + } +} + + +print OF "

\n"; +print OF "

\n";
+print OF "
+C  vfs_cache_lookup
+*  vop_defaultop
+b  vop_ebadf
+i  vop_einval
+t  vop_enotty
+*  vop_eopnotsupp
+-  vop_null
+!  vop_panic
+F  _
+V  vop_
+N  vop_no
+S  vop_std
+L  _lookup
+

"; +print OF "\n"; +close OF; +exit 0; + +sub get_vop_fn_index { + ($vop_fn) = @_; + $r = 0; + + foreach $y (@available_vn_ops) { + if ($y eq $vop_fn) { + return $r; + } + $r++; + } + return -1; +} Property changes on: head/tools/tools/vop_table/vop_table.pl ___________________________________________________________________ Added: svn:keywords ## -0,0 +1 ## +FreeBSD=%H \ No newline at end of property