#!/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 [glob /usr/src/sys/*fs /usr/src/sys/gnu/*fs] /usr/src/sys/kern -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 {
} puts { | } puts "||||
" foreach j $fl { puts " | "
for {set i 0} {$i < 12} {incr i} {
puts "[string index $j $i] " } puts " | "
}
puts "|||
$i | " foreach j $opn { if {$j == "vop_default"} continue if {![info exists op([list $i $j])]} { puts "" continue } set t $op([list $i $j]) set c "#00ddd0" if {[info exists fnames($t)]} { set t $fnames($t) } else { if {![info exists nop($t)]} { incr fn set nop($t) $fn set nfn($fn) $t set use($fn) 0 } incr use($nop($t)) set t "$nop($t)" set c "#00ffd0" } puts " | $t | " } set j vop_default if {![info exists op([list $i $j])]} { puts "" continue } puts " | $op([list $i $j]) | " puts "
} foreach i [lsort [array names fnames]] { puts [format "%-2s %s" $fnames($i) $i] } puts {} puts "
$k | $nfn($k)/$use($k) | " puts "$k | $nfn($k) | " } } puts "