d/freebsd-nq
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Makes html table with all VOPs in it.

Browse Source
This commit is contained in:
Poul-Henning Kamp 1997-10-16 12:40:58 +00:00
parent 8a32f8a5d5
commit 246863adc2
2 changed files with 173 additions and 0 deletions
tools/tools/vop_table
READMEvop_table.tcl

2
tools/tools/vop_table/README Normal file

@ -0,0 +1,2 @@
vop_table generates a HTML document that shows all the VOP's in
the kernel.

171
tools/tools/vop_table/vop_table.tcl Normal file

@ -0,0 +1,171 @@
#!/bin/sh
proc do_file {file} {
global names ops op
set f [open $file]
set s 0
while {[gets $f a] >= 0} {
if {$s == 0} {
if {[regexp {struct[ ]*vnodeopv_entry_desc} "$a"]} {
regsub {.*vnodeopv_entry_desc[ ]*} $a {} a
regsub {\[.*} $a {} a
regsub {_entries} $a {} a
set name $a
set names($a) 0
set s 1
}
continue
}
if {$s == 1} {
if {[regexp {NULL} "$a"]} {
set s 0
continue
}
if {![regexp {vop.*_desc} "$a"]} continue
regsub -all {[,&]} $a " " a
set b [lindex $a 0]
#puts "$name>> [lindex $b 0] >> [lindex $b 3]"
set o [lindex $b 0]
regsub {_desc} $o "" o
set ops($o) 0
set op([list $name $o]) [lindex $b 3]
continue
}
puts "$s>> $a"
}
close $f
}
set fi [open {|find /usr/src/sys/. -type f -name *.c -print | xargs grep VNODEOP_SET} ]
while {[gets $fi a] >= 0} {
puts stderr $a
if {[regexp {#define} $a]} continue
if {[regexp {mallocfs} $a]} continue
do_file [lindex [split $a :] 0]
}
close $fi
puts {<HTML>
<HEAD></HEAD><BODY>
<TABLE BORDER WIDTH="100%" NOSAVE>
}
set opn [lsort [array names ops]]
set a [lsort [array names names]]
set tbn default_vnodeop
foreach i $a {
if {$i == "default_vnodeop"} continue
lappend tbn $i
}
foreach i $opn {
if {$i == "vop_default"} continue
regsub "vop_" $i "" i
lappend fl [format "%12s" $i]
}
lappend fl [format "%12s" default]
puts {<TR>}
puts {<TD>}
puts {</TD>}
puts "<TR>"
puts "<TD></TD>"
foreach j $fl {
puts "<TD>"
for {set i 0} {$i < 12} {incr i} {
puts "[string index $j $i]<BR>"
}
puts "</TD>"
}
puts "</TR>"
set fn 0
set nop(aa) 0
unset nop(aa)
foreach i $tbn {
puts {<TR>}
puts "<TD>$i</TD>"
foreach j $opn {
if {$j == "vop_default"} continue
if {![info exists op([list $i $j])]} {
puts "<TD></TD>"
continue
}
set t $op([list $i $j])
switch -regexp $t {
{nullop} {set t N}
{.*badf$} {set t E}
{.*badop$} {set t B}
{^ufs_missingop$} {set t M}
{^lease_check$} {set t lc}
{^vop_nopoll$} {set t np}
{^vop_nostrategy$} {set t ns}
{^vop_revoke$} {set t vr}
{^vop_nolock$} {set t nl}
{^vop_nounlock$} {set t nu}
{^vn_bwrite$} {set t bw}
{^vfs_cache_lookup$} {set t cl}
{^vop_noislocked$} {set t ni}
{default} {
if {![info exists nop($t)]} {
incr fn
set nop($t) $fn
set nfn($fn) $t
}
set t "<FONT SIZE=-2>$nop($t)</FONT>"
}
}
puts "<TD>$t</TD>"
}
set j vop_default
if {![info exists op([list $i $j])]} {
puts "<TD></TD>"
continue
}
puts "<TD>$op([list $i $j])</TD>"
puts "</TR>"
}
puts "</TABLE>"
puts "<HR>"
puts {<PRE>
B *badop
N nullop
E *badf
M ufs_missingop
lc lease_check
np vop_nopoll
ns vop_nostrategy
vr vop_revoke
nm vop_nolock
nu vop_nounlock
ni vop_noislocked
bw vn_bwrite
cl vfs_cache_lookup
</PRE>
}
puts "<HR>"
puts "<HR>"
puts {<TABLE BORDER NOSAVE>}
set m 10
for {set i 1} {$i <= $fn} {incr i $m} {
puts "<TR>"
for {set j 0} {$j < $m} {incr j} {
set k [expr $i + $j]
if {$k <= $fn} {
puts "<TD>$k</TD><TD><FONT SIZE=-1>$nfn($k)</FONT></TD>"
}
}
puts "</TR>"
}
puts "</TABLE>"
puts "</TABLE>"
puts "</BODY>"
puts "</HTML>"