From c2ca8f13d4b7ad01474e5a1aa98be0dccbce03dc Mon Sep 17 00:00:00 2001 From: Poul-Henning Kamp Date: Thu, 2 May 2002 20:09:14 +0000 Subject: Modernize --- tools/tools/vop_table/vop_table.tcl | 123 +++++++++++++++++++++--------------- 1 file changed, 71 insertions(+), 52 deletions(-) (limited to 'tools/tools/vop_table/vop_table.tcl') diff --git a/tools/tools/vop_table/vop_table.tcl b/tools/tools/vop_table/vop_table.tcl index 383cc5dc07a7..7a540a42f3be 100644 --- a/tools/tools/vop_table/vop_table.tcl +++ b/tools/tools/vop_table/vop_table.tcl @@ -1,6 +1,8 @@ -#!/usr/local/bin/tclsh8.2 +#!/usr/local/bin/tclsh8.3 # $FreeBSD$ +set fo [open _.html w] + proc do_file {file} { global names ops op set f [open $file] @@ -53,7 +55,7 @@ while {[gets $fi a] >= 0} { } close $fi -puts { +puts $fo { } @@ -75,55 +77,43 @@ foreach i $opn { lappend fl [format "%12s" default] -puts {} -puts {} -puts "" - puts "" +puts $fo {} +puts $fo {} +puts $fo "" + puts $fo "" foreach j $fl { - puts "" + puts $fo "" } -puts "" +puts $fo "" set fnames(vop_defaultop) * + set fnames(vop_null) - +set fnames(vop_ebadf) b +set fnames(vop_einval) i +set fnames(vop_enotty) t set fnames(vop_panic) ! set fnames(vfs_cache_lookup) C -if {0} { -set fnames(vop_nolock) nl -set fnames(vop_noislocked) ni -set fnames(vop_nounlock) nu -set fnames(vop_stdlock) sl -set fnames(vop_stdislocked) si -set fnames(vop_stdunlock) su -set fnames(vop_einval) I -set fnames(vop_enotty) T -set fnames(vop_eopnotsupp) S -set fnames(ufs_missingop) M -set fnames(vop_nopoll) np -set fnames(vop_nostrategy) ns -set fnames(vop_revoke) vr -set fnames(vop_stdpathconf) pc -set fnames(vop_stdbwrite) bw -} +set fnames(vop_eopnotsupp) * set fn 0 set nop(aa) 0 unset nop(aa) foreach i $tbn { - puts {} - puts "" + puts $fo {} + puts $fo "" set pfx [lindex [split $i _] 0] foreach j $opn { if {$j == "vop_default"} continue set sfx [lindex [split $j _] 1] if {![info exists op([list $i $j])]} { - puts "" + puts $fo "" continue } set t $op([list $i $j]) @@ -150,45 +140,74 @@ foreach i $tbn { } incr use($nop($t)) set t "$nop($t)" - set c "#00ffff" + set c "#ffff00" } - puts "" + puts $fo "" } set j vop_default if {![info exists op([list $i $j])]} { - puts "" + puts $fo "" continue } - puts "" + puts $fo "" - puts "" + puts $fo "" } -puts "
} -puts {
} +puts $fo {
" + puts $fo "" for {set i 0} {$i < 12} {incr i} { - puts "[string index $j $i]
" + puts $fo "[string index $j $i]
" } - puts "
$i
$i$t$t$op([list $i $j])$op([list $i $j])
" -puts "
" -puts {
}
+puts $fo ""
+puts $fo "
"
+puts $fo {
}
 foreach i [lsort [array names fnames]] {
-	puts [format "%-2s %s" $fnames($i)  $i]
+	puts $fo [format "%-2s %s" $fnames($i)  $i]
 }
-puts {
+puts $fo [format "%-2s %s" "F" "_"]
+puts $fo [format "%-2s %s" "V" "vop_"]
+puts $fo [format "%-2s %s" "N" "vop_no"]
+puts $fo [format "%-2s %s" "S" "vop_std"]
+puts $fo [format "%-2s %s" "L" "_lookup"]
+puts $fo {
 

 }
-puts "
"
-puts "
"
-puts {}
+puts $fo "
"
+puts $fo {
}
 set m 8
 for {set i 1} {$i <= $fn} {incr i $m} {
-	puts ""
+	puts $fo ""
 	for {set j 0} {$j < $m} {incr j} {
 		set k [expr $i + $j]
 		if {$k <= $fn} {
-			#puts ""
-			puts ""
+			#puts $fo ""
+			puts $fo ""
 		}
 	}
-	puts ""
+	puts $fo ""
 }
-puts "
$k$nfn($k)/$use($k)$k$nfn($k)$k$nfn($k)/$use($k)$k$nfn($k)
"
+puts $fo ""
 
-puts ""
-puts ""
-puts ""
+puts $fo ""
+puts $fo ""
+puts $fo ""
+foreach i $tbn {
+	if {$i == "default_vnodeop"} {
+		continue
+	}
+	foreach j $opn {
+		set sfx [lindex [split $j _] 1]
+		if {![info exists op([list $i $j])]} {
+			continue
+		}
+		set v $op([list $i $j])
+		if {$v != "vop_std$sfx"} {
+			continue
+		}
+		if {![info exists op([list default_vnodeop $j])]} {
+			continue
+		}
+		if {$op([list default_vnodeop $j]) != $v} {
+			continue
+		}
+		if {$op([list $i vop_default]) != "vop_defaultop"} {
+			continue
+		}
+		puts "Suspect: uses explicit default, $i $j $v $op([list $i vop_default])"
+	}
+}
-- 
cgit v1.2.3