mirror/freebsd
1
0
Fork 0
mirror of https://git.FreeBSD.org/src.git synced 2025-01-02 12:20:51 +00:00
Code Issues Releases Activity

Some helpful improvements :

Browse Source 
- be smarter about locating driver description files.
 - be smarter about whether we are really looking at a kernel tree
 - fix option handling
This commit is contained in:
Mike Smith 1997-06-10 01:53:01 +00:00
parent e49dd0c779
commit 303a95ab1d
Notes: svn2git 2020-12-20 02:59:44 +00:00 
svn path=/head/; revision=26532
1 changed files with 41 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

64
tools/tools/kdrv/KernelDriver
View File

@ -68,7 +68,7 @@ exec tclsh $0 $*
#
################################################################################
#
# $Id: KernelDriver,v 1.3 1997/01/21 08:23:31 msmith Exp $
# $Id: KernelDriver,v 1.1.1.1 1997/01/21 08:34:14 msmith Exp $
#
################################################################################
@ -96,7 +96,7 @@ proc findDrvFile_try {hint} {
set candidate [glob -nocomplain "$hint/*.drvinfo"];
switch [llength $candidate] {
0 {
error "no driver info files in directory : $hint";
# nothing there
}
1 {
return $candidate;
@ -111,7 +111,11 @@ proc findDrvFile_try {hint} {
}
}
}
return "";
# maybe we need an extension
if {[file exists $hint.drvinfo]} {
return $hint.drvinfo;
}
error "can't find a driver info file using '$hint'";
}
proc findDrvFile {hint} {
@ -391,16 +395,17 @@ proc listInstalledDrv {kpath} {
global Drv;
set drvopt ""; # drivers with options
# pick up all the options information first
set fname [format "%si386/conf/options.i386" $kpath];
if {![file readable $fname]} {
error "not a kernel directory";
}
set fh [open $fname r];
while {[gets $fh line] >= 0} {
# got a driver?
if {[scan $line "\#\# driver: %s" Drv(driver)] == 1} {
if {[scan $line "\#\# driver: %s" driver] == 1} {
# read driver details, ignore
gets $fh line;
# loop reading option details
@ -409,15 +414,14 @@ proc listInstalledDrv {kpath} {
if {$line == "\#\# enddriver"} {
break ;
}
# parse
if {[scan $line "%s %s" $opt $hdr] == 2} {
lappend opts($driver:list) $opt;
# learn all of the options at once
set Drv(option:$opt) $hdr;
# parse option/header tuple
if {[scan $line "%s %s" opt hdr] == 2} {
# remember that this driver uses this option
lappend drivers($driver:options) $opt;
# remember that this option goes in this header
set options($opt) $hdr;
}
}
# this driver has options
lappend drvopt $driver;
}
}
close $fh;
@ -427,19 +431,27 @@ proc listInstalledDrv {kpath} {
while {[gets $fh line] >= 0} {
# got a driver?
if {[scan $line "\#\# driver: %s" Drv(driver)] == 1} {
# got a driver?
if {[scan $line "\#\# driver: %s" driver] == 1} {
# clear global and reset
catch {unset Drv};
set Drv(driver) $driver;
# read driver details
gets $fh line;
set Drv(description) [string range $line 2 end];
set Drv(files) "";
# options?
if {[lsearch -exact $drvopt $Drv(driver)] != -1} {
set Drv(options) $opts($Drv(driver));
if {[info exists drivers($Drv(driver):options)]} {
set Drv(options) $drivers($Drv(driver):options);
# get pathnames
foreach opt $Drv(options) {
set Drv(option:$opt) $options($opt);
}
}
# loop reading file details
while {[gets $fh line] >= 0} {
if {$line == "\#\# enddriver"} {
# print this driver and loop
printDrv;
break ;
}
@ -468,8 +480,10 @@ proc printDrv {} {
foreach f $Drv(files) {
puts " $Drv(file:$f)$f"
}
foreach opt $Drv(options) {
puts " $opt in $Drv(option:$opt)";
if {[info exists Drv(options)]} {
foreach opt $Drv(options) {
puts " $opt in $Drv(option:$opt)";
}
}
}
}
@ -690,7 +704,7 @@ proc getOptions {} {
# getKpath
#
# Given (hint), return the kernel path. If (hint) is empty, return /sys.
# If the kernel path is not a directory, dump the usage.
# If the kernel path is not a directory, complain and dump the usage.
#
proc getKpath {hint} {
@ -703,6 +717,7 @@ proc getKpath {hint} {
set kpath $hint;
}
if {![file isdirectory $kpath]} {
puts "not a directory : $kpath";
usage ;
}
set plast [expr [string length $kpath] -1];
@ -733,7 +748,7 @@ proc main {} {
# check driver file argument
if {[catch {set drv [findDrvFile $hint]} msg]} {
puts stderr msg;
puts stderr $msg;
usage ;
}
if {([file type $drv] != "file") ||
@ -787,11 +802,14 @@ proc main {} {
exit ;
}
}
list {
list {
set kpath [getKpath [lindex $cmdline 1]];
listInstalledDrv $kpath
if {[catch {listInstalledDrv $kpath} msg]} {
puts stderr "can't list drivers in '$kpath' : $msg";
}
}
default {
puts stderr "unknown command '$mode'";
usage ;
}
}