tools/tools/vop_table/vop_table.tcl

   1 #!/usr/local/bin/tclsh8.3
   2 # $FreeBSD$
   3
   4 set fo [open _.html w]
   5
   6 proc do_file {file} {
   7         global names ops op
   8         set f [open $file]
   9
  10         set s 0
  11
  12         while {[gets $f a] >= 0} {
  13                 if {$s == 0} {
  14                         if {[regexp {struct[    ]*vnodeopv_entry_desc} "$a"]} {
  15                                 regsub {.*vnodeopv_entry_desc[  ]*} $a {} a
  16                                 regsub {\[.*} $a {} a
  17                                 regsub {_entries} $a {} a
  18                                 set name $a
  19                                 set names($a) 0
  20                                 set s 1
  21                         }
  22                         continue
  23                 }
  24                 if {$s == 1} {
  25                         if {[regexp {NULL} "$a"]} {
  26                                 set s 0
  27                                 continue
  28                         }
  29                         if {![regexp {vop.*_desc} "$a"]} continue
  30                         regsub -all {[,&]} $a " " a
  31                         regsub -all {\(vop_t \*\)} $a " " a
  32                         set b [lindex $a 0]
  33                         if {"$b" == "/*"} {
  34                                 set s 0
  35                                 continue
  36                         }
  37                         #puts "$name>> [lindex $b 0] >> [lindex $b 3]"
  38                         set o [lindex $b 0]
  39                         regsub {_desc} $o "" o
  40                         set ops($o) 0
  41                         set op([list $name $o]) [lindex $b 1]
  42                         continue
  43                 }
  44                 puts "$s>> $a"
  45         }
  46         close $f
  47 }
  48
  49 set fi [open "|find /usr/src/sys -type f -name *.c -print | xargs grep VNODEOP_SET" ]
  50 while {[gets $fi a] >= 0} {
  51         puts stderr $a
  52         if {[regexp {#define} $a]} continue
  53         if {[regexp {mallocfs} $a]} continue
  54         do_file [lindex [split $a :] 0]
  55 }
  56 close $fi
  57
  58 puts $fo {<HTML>
  59 <HEAD></HEAD><BODY>
  60 <TABLE BORDER WIDTH="100%" NOSAVE>
  61 }
  62
  63 set opn [lsort [array names ops]]
  64 set a [lsort [array names names]]
  65
  66 set tbn default_vnodeop
  67 foreach i $a {
  68         if {$i == "default_vnodeop"} continue
  69         lappend tbn $i
  70 }
  71
  72 foreach i $opn {
  73         if {$i == "vop_default"} continue
  74         regsub "vop_" $i "" i
  75         lappend fl [format "%12s" $i]
  76 }
  77
  78 lappend fl [format "%12s" default]
  79
  80 puts $fo {<TR>}
  81 puts $fo {<TD>}
  82 puts $fo {</TD>}
  83 puts $fo "<TR>"
  84         puts $fo "<TD></TD>"
  85         foreach j $fl {
  86                 puts $fo "<TD>"
  87
  88                 for {set i 0} {$i < 12} {incr i} {
  89                         puts $fo "[string index $j $i]<BR>"
  90                 }
  91                 puts $fo "</TD>"
  92         }
  93 puts $fo "</TR>"
  94
  95 set fnames(vop_defaultop) *
  96
  97 set fnames(vop_null) -
  98 set fnames(vop_ebadf) b
  99 set fnames(vop_einval) i
 100 set fnames(vop_enotty) t
 101 set fnames(vop_panic) !
 102 set fnames(vfs_cache_lookup) C
 103 set fnames(vop_eopnotsupp) *
 104
 105 set fn 0
 106 set nop(aa) 0
 107 unset nop(aa)
 108 foreach i $tbn {
 109         puts $fo {<TR>}
 110         puts $fo "<TD>$i</TD>"
 111         set pfx [lindex [split $i _] 0]
 112         foreach j $opn {
 113                 if {$j == "vop_default"} continue
 114                 set sfx [lindex [split $j _] 1]
 115                 if {![info exists op([list $i $j])]} {
 116                         puts $fo "<TD BGCOLOR=\"#d0d0d0\"></TD>"
 117                         continue
 118                 }
 119                 set t $op([list $i $j])
 120
 121                 set c "#00ddd0"
 122                 if {[info exists fnames($t)]} {
 123                         set t $fnames($t)
 124                 } elseif { $t == "${pfx}_${sfx}" } {
 125                         set t "F"
 126                 } elseif { $t == "vop_${sfx}" } {
 127                         set t "V"
 128                 } elseif { $t == "vop_no${sfx}" } {
 129                         set t "N"
 130                 } elseif { $t == "vop_std${sfx}" } {
 131                         set t "S"
 132                 } elseif { $sfx == "cachedlookup" && $t == "${pfx}_lookup" } {
 133                         set t "L"
 134                 } else {
 135                         if {![info exists nop($t)]} {
 136                                 incr fn
 137                                 set nop($t) $fn
 138                                 set nfn($fn) $t
 139                                 set use($fn) 0
 140                         }
 141                         incr use($nop($t))
 142                         set t "<FONT SIZE=-1>$nop($t)</FONT>"
 143                         set c "#ffff00"
 144                 }
 145                 puts $fo "<TD BGCOLOR=\"$c\">$t</TD>"
 146         }
 147         set j vop_default
 148         if {![info exists op([list $i $j])]} {
 149                 puts $fo "<TD></TD>"
 150                 continue
 151         }
 152         puts $fo "<TD>$op([list $i $j])</TD>"
 153
 154         puts $fo "</TR>"
 155 }
 156 puts $fo "</TABLE>"
 157 puts $fo "<HR>"
 158 puts $fo {<PRE>}
 159 foreach i [lsort [array names fnames]] {
 160         puts $fo [format "%-2s %s" $fnames($i)  $i]
 161 }
 162 puts $fo [format "%-2s %s" "F" "<fs>_<vop>"]
 163 puts $fo [format "%-2s %s" "V" "vop_<vop>"]
 164 puts $fo [format "%-2s %s" "N" "vop_no<vop>"]
 165 puts $fo [format "%-2s %s" "S" "vop_std<vop>"]
 166 puts $fo [format "%-2s %s" "L" "<fs>_lookup"]
 167 puts $fo {
 168 </PRE>
 169 }
 170 puts $fo "<HR>"
 171 puts $fo {<TABLE BORDER NOSAVE>}
 172 set m 8
 173 for {set i 1} {$i <= $fn} {incr i $m} {
 174         puts $fo "<TR>"
 175         for {set j 0} {$j < $m} {incr j} {
 176                 set k [expr $i + $j]
 177                 if {$k <= $fn} {
 178                         #puts $fo "<TD>$k</TD><TD><FONT SIZE=-1>$nfn($k)/$use($k)</FONT></TD>"
 179                         puts $fo "<TD>$k</TD><TD><FONT SIZE=-1>$nfn($k)</FONT></TD>"
 180                 }
 181         }
 182         puts $fo "</TR>"
 183 }
 184 puts $fo "</TABLE>"
 185
 186 puts $fo "</TABLE>"
 187 puts $fo "</BODY>"
 188 puts $fo "</HTML>"
 189 foreach i $tbn {
 190         if {$i == "default_vnodeop"} {
 191                 continue
 192         }
 193         foreach j $opn {
 194                 set sfx [lindex [split $j _] 1]
 195                 if {![info exists op([list $i $j])]} {
 196                         continue
 197                 }
 198                 set v $op([list $i $j])
 199                 if {$v != "vop_std$sfx"} {
 200                         continue
 201                 }
 202                 if {![info exists op([list default_vnodeop $j])]} {
 203                         continue
 204                 }
 205                 if {$op([list default_vnodeop $j]) != $v} {
 206                         continue
 207                 }
 208                 if {$op([list $i vop_default]) != "vop_defaultop"} {
 209                         continue
 210                 }
 211                 puts "Suspect: uses explicit default, $i $j $v $op([list $i vop_default])"
 212         }
 213 }