diff options
| author | phk <phk@FreeBSD.org> | 1997-10-16 12:40:58 +0000 |
|---|---|---|
| committer | phk <phk@FreeBSD.org> | 1997-10-16 12:40:58 +0000 |
| commit | 99d11b33931b686d27eb86058a45c71f9d28f200 (patch) | |
| tree | f05dc93738dd8027f775b808c1c7ac3f0bbe1965 /tools | |
| parent | 9f87ac94e81635ac010c98d19fb957f1cf1289a5 (diff) | |
| download | FreeBSD-src-99d11b33931b686d27eb86058a45c71f9d28f200.zip FreeBSD-src-99d11b33931b686d27eb86058a45c71f9d28f200.tar.gz | |
Makes html table with all VOPs in it.
Diffstat (limited to 'tools')
| -rw-r--r-- | tools/tools/vop_table/README | 2 | ||||
| -rw-r--r-- | tools/tools/vop_table/vop_table.tcl | 171 |
2 files changed, 173 insertions, 0 deletions
diff --git a/tools/tools/vop_table/README b/tools/tools/vop_table/README new file mode 100644 index 0000000..16cb1f7 --- /dev/null +++ b/tools/tools/vop_table/README @@ -0,0 +1,2 @@ +vop_table generates a HTML document that shows all the VOP's in +the kernel. diff --git a/tools/tools/vop_table/vop_table.tcl b/tools/tools/vop_table/vop_table.tcl new file mode 100644 index 0000000..2f33475 --- /dev/null +++ b/tools/tools/vop_table/vop_table.tcl @@ -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>" |
