9 while {[gets $f a] >= 0} {
11 if {[regexp {struct[ ]*vnodeopv_entry_desc} "$a"]} {
12 regsub {.*vnodeopv_entry_desc[ ]*} $a {} a
14 regsub {_entries} $a {} a
22 if {[regexp {NULL} "$a"]} {
26 if {![regexp {vop.*_desc} "$a"]} continue
27 regsub -all {[,&]} $a " " a
29 #puts "$name>> [lindex $b 0] >> [lindex $b 3]"
31 regsub {_desc} $o "" o
33 set op([list $name $o]) [lindex $b 3]
41 set fi [open "|find [glob /usr/src/sys/*fs /usr/src/sys/gnu/*fs] /usr/src/sys/kern -type f -name *.c -print | xargs grep VNODEOP_SET" ]
42 while {[gets $fi a] >= 0} {
44 if {[regexp {#define} $a]} continue
45 if {[regexp {mallocfs} $a]} continue
46 do_file [lindex [split $a :] 0]
52 <TABLE BORDER WIDTH="100%" NOSAVE>
55 set opn [lsort [array names ops]]
56 set a [lsort [array names names]]
58 set tbn default_vnodeop
60 if {$i == "default_vnodeop"} continue
65 if {$i == "vop_default"} continue
67 lappend fl [format "%12s" $i]
70 lappend fl [format "%12s" default]
80 for {set i 0} {$i < 12} {incr i} {
81 puts "[string index $j $i]<BR>"
87 set fnames(vop_defaultop) *
88 set fnames(vop_nolock) nl
89 set fnames(vop_noislocked) ni
90 set fnames(vop_nounlock) nu
91 set fnames(vop_stdlock) sl
92 set fnames(vop_stdislocked) si
93 set fnames(vop_stdunlock) su
94 set fnames(vop_einval) I
95 set fnames(vop_enotty) T
96 set fnames(vop_null) -
97 set fnames(vop_eopnotsupp) S
98 set fnames(ufs_missingop) M
99 set fnames(vop_nopoll) np
100 set fnames(vop_nostrategy) ns
101 set fnames(vop_revoke) vr
102 set fnames(vfs_cache_lookup) cl
103 set fnames(vop_stdpathconf) pc
104 set fnames(vop_stdbwrite) bw
113 if {$j == "vop_default"} continue
114 if {![info exists op([list $i $j])]} {
118 set t $op([list $i $j])
121 if {[info exists fnames($t)]} {
124 if {![info exists nop($t)]} {
131 set t "<FONT SIZE=-1>$nop($t)</FONT>"
134 puts "<TD BGCOLOR=\"$c\">$t</TD>"
137 if {![info exists op([list $i $j])]} {
141 puts "<TD>$op([list $i $j])</TD>"
148 foreach i [lsort [array names fnames]] {
149 puts [format "%-2s %s" $fnames($i) $i]
156 puts {<TABLE BORDER NOSAVE>}
158 for {set i 1} {$i <= $fn} {incr i $m} {
160 for {set j 0} {$j < $m} {incr j} {
163 #puts "<TD>$k</TD><TD><FONT SIZE=-1>$nfn($k)/$use($k)</FONT></TD>"
164 puts "<TD>$k</TD><TD><FONT SIZE=-1>$nfn($k)</FONT></TD>"