This commit was generated by cvs2svn to compensate for changes in r21912,
which included commits to RCS files with non-trunk default branches.
This commit is contained in:
msmith
commit
562c1e1c0e
803
tools/tools/kdrv/KernelDriver
Executable file
803
tools/tools/kdrv/KernelDriver
Executable file
@ -0,0 +1,803 @@
|
||||
#!/bin/sh
|
||||
# Tcl magic -*- tcl -*- \
|
||||
exec tclsh $0 $*
|
||||
################################################################################
|
||||
#
|
||||
# KernelDriver - FreeBSD driver source installer
|
||||
#
|
||||
################################################################################
|
||||
#
|
||||
# Copyright (C) 1997
|
||||
# Michael Smith. All rights reserved.
|
||||
#
|
||||
# Redistribution and use in source and binary forms, with or without
|
||||
# modification, are permitted provided that the following conditions
|
||||
# are met:
|
||||
# 1. Redistributions of source code must retain the above copyright
|
||||
# notice, this list of conditions and the following disclaimer.
|
||||
# 2. Redistributions in binary form must reproduce the above copyright
|
||||
# notice, this list of conditions and the following disclaimer in the
|
||||
# documentation and/or other materials provided with the distribution.
|
||||
# 3. Neither the name of the author nor the names of any co-contributors
|
||||
# may be used to endorse or promote products derived from this software
|
||||
# without specific prior written permission.
|
||||
#
|
||||
# THIS SOFTWARE IS PROVIDED BY Michael Smith AND CONTRIBUTORS ``AS IS'' AND
|
||||
# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
|
||||
# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
|
||||
# ARE DISCLAIMED. IN NO EVENT SHALL Michael Smith OR CONTRIBUTORS BE LIABLE
|
||||
# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
|
||||
# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
|
||||
# OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
|
||||
# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
|
||||
# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
|
||||
# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
|
||||
# SUCH DAMAGE.
|
||||
#
|
||||
################################################################################
|
||||
#
|
||||
# KernelDriver provides a means for installing source-form drivers into FreeBSD
|
||||
# kernel source trees in an automated fashion. It can also remove drivers it
|
||||
# has installed.
|
||||
#
|
||||
# Driver information is read from a control file, with the following syntax :
|
||||
#
|
||||
# description {<text>} Driver description; used in comments inserted into
|
||||
# files.
|
||||
# driver <name> The name of the driver.
|
||||
# file <path> <name> The file <name> in the driver package is installed into
|
||||
# <path> in the kernel source tree. Files whose names
|
||||
# end in '.c' have an entry added to i386/conf/files.i386.
|
||||
# option <name> <hdr> Adds an entry to i386/conf/options.i386, such that
|
||||
# the option <name> will be placed in the header <hdr>.
|
||||
# linttext Lines between this and a subsequent 'end' line are added
|
||||
# to the LINT file to provide configuration examples,
|
||||
# comments, etc.
|
||||
# end Ends a text region.
|
||||
#
|
||||
# Possible additions :
|
||||
#
|
||||
# patch <name> Applies the patch contained in <name>; patch is invoked
|
||||
# at the top level of the kernel source tree, and the
|
||||
# patch must apply cleanly (this is checked).
|
||||
#
|
||||
# option <name> <file> Adds an entry to i386/conf/options.i386
|
||||
#
|
||||
# Lines beginning with '#' or blanks are considered comments, except in
|
||||
# 'linttext' regions.
|
||||
#
|
||||
################################################################################
|
||||
#
|
||||
# $Id: KernelDriver,v 1.3 1997/01/21 08:23:31 msmith Exp $
|
||||
#
|
||||
################################################################################
|
||||
|
||||
################################################################################
|
||||
# findDrvFile
|
||||
#
|
||||
# Given (hint), use it to locate a driver information file.
|
||||
# (Possible extension; support drivers in gzipped tarballs...)
|
||||
#
|
||||
proc findDrvFile_try {hint} {
|
||||
|
||||
# points to something already
|
||||
if {[file exists $hint]} {
|
||||
# unwind symbolic links
|
||||
while {[file type $hint] == "link"} {
|
||||
set hint [file readlink $hint];
|
||||
}
|
||||
switch [file type $hint] {
|
||||
file {
|
||||
# run with it as it is
|
||||
return $hint;
|
||||
}
|
||||
directory {
|
||||
# look for a drvinfo file in the directory
|
||||
set candidate [glob -nocomplain "$hint/*.drvinfo"];
|
||||
switch [llength $candidate] {
|
||||
0 {
|
||||
error "no driver info files in directory : $hint";
|
||||
}
|
||||
1 {
|
||||
return $candidate;
|
||||
}
|
||||
default {
|
||||
error "multiple driver info files in directory : $hint";
|
||||
}
|
||||
}
|
||||
}
|
||||
default {
|
||||
error "driver info file may be a typewriter : $hint";
|
||||
}
|
||||
}
|
||||
}
|
||||
return "";
|
||||
}
|
||||
|
||||
proc findDrvFile {hint} {
|
||||
|
||||
set result [findDrvFile_try $hint];
|
||||
if {$result != ""} {
|
||||
return $result;
|
||||
}
|
||||
set result [findDrvFile_try ${hint}.drvinfo];
|
||||
if {$result != ""} {
|
||||
return $result;
|
||||
}
|
||||
error "can't find driver information file using : $hint";
|
||||
}
|
||||
|
||||
################################################################################
|
||||
# readDrvFile
|
||||
#
|
||||
# Reads the contents of (fname), which are expected to be in the format
|
||||
# described above, and fill in the global Drv array.
|
||||
#
|
||||
proc readDrvFile {fname} {
|
||||
|
||||
global Drv Options;
|
||||
|
||||
if {$Options(verbose)} {puts "+ read options from '$fname'";}
|
||||
set fh [open $fname r];
|
||||
|
||||
# set defaults
|
||||
set Drv(description) "";
|
||||
set Drv(driver) "";
|
||||
set Drv(files) "";
|
||||
set Drv(options) "";
|
||||
set Drv(patches) "";
|
||||
set Drv(linttext) "";
|
||||
|
||||
while {[gets $fh line] >= 0} {
|
||||
|
||||
# blank lines/comments
|
||||
if {([llength $line] == 0) ||
|
||||
([string index $line 0] == "\#")} {
|
||||
continue ;
|
||||
}
|
||||
|
||||
# get keyword, process
|
||||
switch -- [lindex $line 0] {
|
||||
description {
|
||||
set Drv(description) [lindex $line 1];
|
||||
}
|
||||
driver {
|
||||
set Drv(driver) [lindex $line 1];
|
||||
}
|
||||
file {
|
||||
set path [lindex $line 1];
|
||||
set plast [expr [string length $path] -1];
|
||||
if {[string index $path $plast] != "/"} {
|
||||
append path "/";
|
||||
}
|
||||
set name [lindex $line 2];
|
||||
set Drv(file:$name) $path;
|
||||
lappend Drv(files) $name;
|
||||
}
|
||||
option {
|
||||
set opt [lindex $line 1];
|
||||
set hdr [lindex $line 2];
|
||||
lappend Drv(options) $opt;
|
||||
set Drv(option:$opt) $hdr;
|
||||
}
|
||||
patch {
|
||||
lappend Drv(patches) [lindex $line 1];
|
||||
}
|
||||
linttext {
|
||||
while {[gets $fh line] >= 0} {
|
||||
if {$line == "end"} {
|
||||
break ;
|
||||
}
|
||||
lappend Drv(linttext) $line;
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
close $fh;
|
||||
if {$Options(verbose)} {
|
||||
printDrv;
|
||||
}
|
||||
}
|
||||
|
||||
################################################################################
|
||||
# validateDrvPackage
|
||||
#
|
||||
# With the global Drv filled in, check that the files required are all in
|
||||
# (dir), and that the kernel config at (kpath) can be written.
|
||||
#
|
||||
proc validateDrvPackage {dir kpath} {
|
||||
|
||||
global Drv Options;
|
||||
|
||||
if {$Options(verbose)} {puts "+ checking driver package...";}
|
||||
set missing "";
|
||||
set unwritable "";
|
||||
|
||||
# check files, patches
|
||||
foreach f $Drv(files) {
|
||||
if {![file readable $dir$f]} {
|
||||
lappend missing $f;
|
||||
}
|
||||
}
|
||||
foreach f $Drv(patches) {
|
||||
if {![file readable $dir$f]} {
|
||||
lappend missing $f;
|
||||
}
|
||||
}
|
||||
if {$missing != ""} {
|
||||
error "missing files : $missing";
|
||||
}
|
||||
|
||||
# check writability
|
||||
if {$Options(verbose)} {puts "+ checking kernel source writability...";}
|
||||
foreach f $Drv(files) {
|
||||
set p $Drv(file:$f);
|
||||
if {![file isdirectory $kpath$p]} {
|
||||
lappend missing $p;
|
||||
} else {
|
||||
if {![file writable $kpath$p]} {
|
||||
if {[lsearch -exact $unwritable $p] == -1} {
|
||||
lappend unwritable $p;
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
foreach f [list \
|
||||
"i386/conf/files.i386" \
|
||||
"i386/conf/options.i386" \
|
||||
"i386/conf/LINT"] {
|
||||
if {![file writable $kpath$f]} {
|
||||
lappend unwritable $f;
|
||||
}
|
||||
}
|
||||
if {$missing != ""} {
|
||||
error "missing directories : $missing";
|
||||
}
|
||||
if {$unwritable != ""} {
|
||||
error "can't write to : $unwritable";
|
||||
}
|
||||
}
|
||||
|
||||
################################################################################
|
||||
# installDrvFiles
|
||||
#
|
||||
# Install the files listed in the global Drv into (kpath) from (dir)
|
||||
#
|
||||
proc installDrvFiles {dir kpath} {
|
||||
|
||||
global Drv Options;
|
||||
|
||||
# clear 'installed' record
|
||||
set Drv(installed) "";
|
||||
set failed "";
|
||||
|
||||
if {$Options(verbose)} {puts "+ installing driver files...";}
|
||||
foreach f $Drv(files) {
|
||||
if {$Options(verbose)} {puts "$f -> $kpath$Drv(file:$f)";}
|
||||
if {$Options(real)} {
|
||||
if {[catch {exec cp $dir$f $kpath$Drv(file:$f)} msg]} {
|
||||
lappend failed $f;
|
||||
} else {
|
||||
lappend Drv(installed) $f;
|
||||
}
|
||||
}
|
||||
}
|
||||
if {$failed != ""} {
|
||||
error "failed to install files : $failed";
|
||||
}
|
||||
}
|
||||
|
||||
################################################################################
|
||||
# backoutDrvChanges
|
||||
#
|
||||
# Remove files from a failed installation in (kpath)
|
||||
#
|
||||
proc backoutDrvChanges {kpath} {
|
||||
|
||||
global Drv Options;
|
||||
|
||||
if {$Options(verbose)} {puts "+ backing out installed files...";}
|
||||
# delete installed files
|
||||
foreach f $Drv(installed) {
|
||||
exec rm -f $kpath$Drv(file:$f)$f;
|
||||
}
|
||||
}
|
||||
|
||||
################################################################################
|
||||
# registerDrvFiles
|
||||
#
|
||||
# Adds an entry to i386/conf/files.i386 for the .c files in the driver.
|
||||
# (kpath) points to the kernel.
|
||||
#
|
||||
# A comment is added to the file preceeding the new entries :
|
||||
#
|
||||
# ## driver: <drivername>
|
||||
# # <description>
|
||||
# # file: <path><file>
|
||||
# <file spec (.c files only)>
|
||||
# ## enddriver
|
||||
#
|
||||
# We only append to the end of the file.
|
||||
#
|
||||
# Add linttext to the LINT file.
|
||||
# Add options to i386/conf/options.i386 if any are specified
|
||||
#
|
||||
proc registerDrvFiles {kpath} {
|
||||
|
||||
global Drv Options;
|
||||
|
||||
if {$Options(verbose)} {puts "+ registering installed files...";}
|
||||
|
||||
if {$Options(real)} {
|
||||
set fname [format "%si386/conf/files.i386" $kpath];
|
||||
set fh [open $fname a];
|
||||
|
||||
# header
|
||||
puts $fh "\#\# driver: $Drv(driver)";
|
||||
puts $fh "\# $Drv(description)";
|
||||
# file information
|
||||
foreach f $Drv(files) {
|
||||
puts $fh "\# file: $Drv(file:$f)$f";
|
||||
# is it a compilable object?
|
||||
if {[string match "*.c" $f]} {
|
||||
puts $fh "$Drv(file:$f)$f\t\toptional\t$Drv(driver)\tdevice-driver";
|
||||
}
|
||||
}
|
||||
puts $fh "\#\# enddriver";
|
||||
close $fh;
|
||||
}
|
||||
if {$Drv(linttext) != ""} {
|
||||
|
||||
if {$Options(verbose)} {puts "+ updating LINT...";}
|
||||
if {$Options(real)} {
|
||||
set fname [format "%si386/conf/LINT" $kpath];
|
||||
set fh [open $fname a];
|
||||
|
||||
# header
|
||||
puts $fh "\#\# driver: $Drv(driver)";
|
||||
puts $fh "\# $Drv(description)";
|
||||
foreach l $Drv(linttext) {
|
||||
puts $fh $l;
|
||||
}
|
||||
puts $fh "\#\# enddriver";
|
||||
close $fh;
|
||||
}
|
||||
}
|
||||
if {$Drv(options) != ""} {
|
||||
if {$Options(verbose)} {puts "+ adding options...";}
|
||||
if {$Options(real)} {
|
||||
set fname [format "%si386/conf/options.i386" $kpath];
|
||||
set fh [open $fname a];
|
||||
|
||||
# header
|
||||
puts $fh "\#\# driver: $Drv(driver)";
|
||||
puts $fh "\# $Drv(description)";
|
||||
# options
|
||||
foreach opt $Drv(options) {
|
||||
puts $fh "$opt\t$Drv(option:$opt)";
|
||||
}
|
||||
puts $fh "\#\# enddriver";
|
||||
close $fh;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
################################################################################
|
||||
# listInstalledDrv
|
||||
#
|
||||
# List all drivers recorded as installed, in the kernel at (kpath)
|
||||
#
|
||||
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];
|
||||
set fh [open $fname r];
|
||||
|
||||
while {[gets $fh line] >= 0} {
|
||||
|
||||
# got a driver?
|
||||
if {[scan $line "\#\# driver: %s" Drv(driver)] == 1} {
|
||||
# read driver details, ignore
|
||||
gets $fh line;
|
||||
# loop reading option details
|
||||
while {[gets $fh line] >= 0} {
|
||||
# end of driver info
|
||||
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;
|
||||
}
|
||||
}
|
||||
# this driver has options
|
||||
lappend drvopt $driver;
|
||||
}
|
||||
}
|
||||
close $fh;
|
||||
|
||||
set fname [format "%si386/conf/files.i386" $kpath];
|
||||
set fh [open $fname r];
|
||||
|
||||
while {[gets $fh line] >= 0} {
|
||||
|
||||
# got a driver?
|
||||
if {[scan $line "\#\# driver: %s" Drv(driver)] == 1} {
|
||||
# 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));
|
||||
}
|
||||
# loop reading file details
|
||||
while {[gets $fh line] >= 0} {
|
||||
if {$line == "\#\# enddriver"} {
|
||||
printDrv;
|
||||
break ;
|
||||
}
|
||||
if {[scan $line "\# file: %s" fpath] == 1} {
|
||||
set f [file tail $fpath];
|
||||
set Drv(file:$f) "[file dirname $fpath]/";
|
||||
lappend Drv(files) $f;
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
close $fh;
|
||||
}
|
||||
|
||||
################################################################################
|
||||
# printDrv
|
||||
#
|
||||
# Print the contents of the global Drv.
|
||||
#
|
||||
proc printDrv {} {
|
||||
|
||||
global Drv Options;
|
||||
|
||||
puts "$Drv(driver) : $Drv(description)";
|
||||
if {$Options(verbose)} {
|
||||
foreach f $Drv(files) {
|
||||
puts " $Drv(file:$f)$f"
|
||||
}
|
||||
foreach opt $Drv(options) {
|
||||
puts " $opt in $Drv(option:$opt)";
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
################################################################################
|
||||
# findInstalledDrv
|
||||
#
|
||||
# Given a kernel tree at (kpath), get driver details about an installed
|
||||
# driver (drvname)
|
||||
#
|
||||
proc findInstalledDrv {drvname kpath} {
|
||||
|
||||
global Drv Options;
|
||||
|
||||
if {$Options(verbose)} {puts "+ look for driver '$drvname' in '$kpath'";}
|
||||
|
||||
set fname [format "%si386/conf/files.i386" $kpath];
|
||||
set fh [open $fname r];
|
||||
|
||||
while {[gets $fh line] >= 0} {
|
||||
if {[scan $line "\#\# driver: %s" name] == 1} {
|
||||
if {$name != $drvname} {
|
||||
continue ; # not us
|
||||
}
|
||||
# read information
|
||||
set Drv(driver) $drvname;
|
||||
set line [gets $fh];
|
||||
set Drv(description) [string range $line 2 end];
|
||||
set Drv(files) "";
|
||||
# loop reading file details
|
||||
while {[gets $fh line] >= 0} {
|
||||
if {$line == "\#\# enddriver"} {
|
||||
close $fh;
|
||||
return ; # all done
|
||||
}
|
||||
if {[scan $line "\# file: %s" fpath] == 1} {
|
||||
set f [file tail $fpath];
|
||||
set Drv(file:$f) "[file dirname $fpath]/";
|
||||
lappend Drv(files) $f;
|
||||
}
|
||||
}
|
||||
close $fh;
|
||||
error "unexpected EOF reading '$fname'";
|
||||
}
|
||||
}
|
||||
close $fh
|
||||
error "driver '$drvname' not recorded as installed";
|
||||
}
|
||||
|
||||
################################################################################
|
||||
# validateDrvRemoval
|
||||
#
|
||||
# Verify that we can remove the driver described in the global Drv installed
|
||||
# at (kpath).
|
||||
#
|
||||
proc validateDrvRemoval {kpath} {
|
||||
|
||||
global Drv Options;
|
||||
|
||||
set missing "";
|
||||
set unwritable "";
|
||||
|
||||
if {$Options(verbose)} {puts "+ checking for removabilty...";}
|
||||
|
||||
# admin files?
|
||||
foreach f [list \
|
||||
"i386/conf/files.i386" \
|
||||
"i386/conf/options.i386" \
|
||||
"i386/conf/LINT"] {
|
||||
if {![file exists $kpath$f]} {
|
||||
lappend missing $kpath$f;
|
||||
} else {
|
||||
if {![file writable $kpath$f]} {
|
||||
lappend unwritable $f;
|
||||
}
|
||||
}
|
||||
}
|
||||
# driver components?
|
||||
foreach f $Drv(files) {
|
||||
set p $Drv(file:$f);
|
||||
if {![file isdirectory $kpath$p]} {
|
||||
lappend missing $p;
|
||||
} else {
|
||||
if {![file writable $kpath$p]} {
|
||||
if {[lsearch -exact $unwritable $p] == -1} {
|
||||
lappend unwritable $p;
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
if {$missing != ""} {
|
||||
error "files/directories missing : $missing";
|
||||
}
|
||||
if {$unwritable != ""} {
|
||||
error "can't write to : $unwritable";
|
||||
}
|
||||
}
|
||||
|
||||
################################################################################
|
||||
# deleteDrvFiles
|
||||
#
|
||||
# Delete the files belonging to the driver devfined in the global Drv in
|
||||
# the kernel tree at (kpath)
|
||||
#
|
||||
proc deleteDrvFiles {kpath} {
|
||||
|
||||
global Drv Options;
|
||||
|
||||
if {$Options(verbose)} {puts "+ delete driver files...";}
|
||||
|
||||
# loop deleting files
|
||||
foreach f $Drv(files) {
|
||||
if {$Options(verbose)} {puts "- $Drv(file:$f)$f";}
|
||||
if {$Options(real)} {
|
||||
exec rm $kpath$Drv(file:$f)$f;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
################################################################################
|
||||
# unregisterDrvFiles
|
||||
#
|
||||
# Remove any mention of the current driver from the files.i386 and LINT
|
||||
# files in (ksrc)
|
||||
#
|
||||
proc unregisterDrvFiles {ksrc} {
|
||||
|
||||
global Drv Options;
|
||||
|
||||
if {$Options(verbose)} {puts "+ deregister driver files...";}
|
||||
|
||||
# don't really do it?
|
||||
if {!$Options(real)} { return ; }
|
||||
|
||||
foreach f [list \
|
||||
"i386/conf/files.i386" \
|
||||
"i386/conf/options.i386" \
|
||||
"i386/conf/LINT"] {
|
||||
set ifh [open $ksrc$f r];
|
||||
set ofh [open $ksrc$f.new w];
|
||||
set copying 1;
|
||||
|
||||
while {[gets $ifh line] >= 0} {
|
||||
|
||||
if {[scan $line "\#\# driver: %s" name] == 1} {
|
||||
if {$name == $Drv(driver)} {
|
||||
set copying 0; # don't copy this one
|
||||
}
|
||||
}
|
||||
if {$copying} {
|
||||
puts $ofh $line; # copy through
|
||||
}
|
||||
if {$line == "\#\# enddriver"} { # end of driver detail
|
||||
set copying 1;
|
||||
}
|
||||
}
|
||||
close $ifh;
|
||||
close $ofh;
|
||||
exec mv $ksrc$f.new $ksrc$f; # move new over old
|
||||
}
|
||||
}
|
||||
|
||||
################################################################################
|
||||
# usage
|
||||
#
|
||||
# Remind the user what goes where
|
||||
#
|
||||
proc usage {} {
|
||||
|
||||
global argv0;
|
||||
|
||||
set progname [file tail $argv0];
|
||||
|
||||
puts stderr "Usage is :";
|
||||
puts stderr " $progname \[-v -n\] add <drvinfo> \[<kpath>\]";
|
||||
puts stderr " $progname \[-v -n\] delete <drvname> \[<kpath>\]";
|
||||
puts stderr " $progname \[-v\] list \[<kpath>\]";
|
||||
puts stderr " <drvinfo> is a driver info file";
|
||||
puts stderr " <drvname> is a driver name";
|
||||
puts stderr " <kpath> is the path to the kernel source (default /sys/)";
|
||||
puts stderr " -v be verbose";
|
||||
puts stderr " -n don't actually do anything";
|
||||
exit ;
|
||||
}
|
||||
|
||||
################################################################################
|
||||
# getOptions
|
||||
#
|
||||
# Parse commandline options, return anything that doesn't look like an option
|
||||
#
|
||||
proc getOptions {} {
|
||||
|
||||
global argv Options;
|
||||
|
||||
set Options(real) 1;
|
||||
set Options(verbose) 0;
|
||||
set ret "";
|
||||
|
||||
for {set index 0} {$index < [llength $argv]} {incr index} {
|
||||
|
||||
switch -- [lindex $argv $index] {
|
||||
|
||||
-n {
|
||||
set Options(real) 0; # 'do-nothing' mode
|
||||
}
|
||||
-v {
|
||||
set Options(verbose) 1; # brag
|
||||
}
|
||||
default {
|
||||
lappend ret [lindex $argv $index];
|
||||
}
|
||||
}
|
||||
}
|
||||
return $ret;
|
||||
}
|
||||
|
||||
################################################################################
|
||||
# getKpath
|
||||
#
|
||||
# Given (hint), return the kernel path. If (hint) is empty, return /sys.
|
||||
# If the kernel path is not a directory, dump the usage.
|
||||
#
|
||||
proc getKpath {hint} {
|
||||
|
||||
set kpath "";
|
||||
|
||||
# check the kernel path
|
||||
if {$hint == ""} {
|
||||
set kpath "/sys/";
|
||||
} else {
|
||||
set kpath $hint;
|
||||
}
|
||||
if {![file isdirectory $kpath]} {
|
||||
usage ;
|
||||
}
|
||||
set plast [expr [string length $kpath] -1];
|
||||
if {[string index $kpath $plast] != "/"} {
|
||||
append kpath "/";
|
||||
}
|
||||
return $kpath;
|
||||
}
|
||||
|
||||
################################################################################
|
||||
# main
|
||||
#
|
||||
# Start somewhere here.
|
||||
#
|
||||
proc main {} {
|
||||
|
||||
global Options;
|
||||
|
||||
# Work out what we're trying to do
|
||||
set cmdline [getOptions];
|
||||
set mode [lindex $cmdline 0];
|
||||
|
||||
# do stuff
|
||||
switch -- $mode {
|
||||
add {
|
||||
set hint [lindex $cmdline 1];
|
||||
set kpath [getKpath [lindex $cmdline 2]];
|
||||
|
||||
# check driver file argument
|
||||
if {[catch {set drv [findDrvFile $hint]} msg]} {
|
||||
puts stderr msg;
|
||||
usage ;
|
||||
}
|
||||
if {([file type $drv] != "file") ||
|
||||
![file readable $drv]} {
|
||||
puts "can't read driver file : $drv";
|
||||
usage ;
|
||||
}
|
||||
set drvdir "[file dirname $drv]/";
|
||||
|
||||
# read driver file
|
||||
if {[catch {readDrvFile $drv} msg]} {
|
||||
puts stderr $msg;
|
||||
exit ;
|
||||
}
|
||||
# validate driver
|
||||
if {[catch {validateDrvPackage $drvdir $kpath} msg]} {
|
||||
puts stderr $msg;
|
||||
exit ;
|
||||
}
|
||||
# install new files
|
||||
if {[catch {installDrvFiles $drvdir $kpath} msg]} {
|
||||
backoutDrvChanges $kpath; # oops, unwind
|
||||
puts stderr $msg;
|
||||
exit ;
|
||||
}
|
||||
# register files in config
|
||||
if {[catch {registerDrvFiles $kpath} msg]} {
|
||||
backoutDrvChanges $kpath; # oops, unwind
|
||||
puts stderr $msg;
|
||||
exit ;
|
||||
}
|
||||
}
|
||||
delete {
|
||||
set drv [lindex $cmdline 1];
|
||||
set kpath [getKpath [lindex $cmdline 2]];
|
||||
|
||||
if {[catch {findInstalledDrv $drv $kpath} msg]} {
|
||||
puts stderr $msg;
|
||||
exit ;
|
||||
}
|
||||
if {[catch {validateDrvRemoval $kpath} msg]} {
|
||||
puts stderr $msg;
|
||||
exit ;
|
||||
}
|
||||
if {[catch {unregisterDrvFiles $kpath} msg]} {
|
||||
puts stderr $msg;
|
||||
exit ;
|
||||
}
|
||||
if {[catch {deleteDrvFiles $kpath} msg]} {
|
||||
puts stderr $msg;
|
||||
exit ;
|
||||
}
|
||||
}
|
||||
list {
|
||||
set kpath [getKpath [lindex $cmdline 1]];
|
||||
listInstalledDrv $kpath
|
||||
}
|
||||
default {
|
||||
usage ;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
|
||||
################################################################################
|
||||
main;
|
||||
39
tools/tools/kdrv/sample.drvinfo
Normal file
39
tools/tools/kdrv/sample.drvinfo
Normal file
@ -0,0 +1,39 @@
|
||||
#
|
||||
# Sample driver information file for KernelDriver. See the top of
|
||||
# the KernelDriver script for a more exact definition of the syntax.
|
||||
#
|
||||
# $Id: sample.drvinfo,v 1.1 1997/01/21 08:23:32 msmith Exp $
|
||||
|
||||
# Device driver name
|
||||
#
|
||||
driver blorg
|
||||
|
||||
# Description (must be in curly braces)
|
||||
#
|
||||
description {Snoofle roob wronkle bnar}
|
||||
|
||||
# List of files to install for the driver.
|
||||
# Files ending in .c will be added to files.i386 as required for
|
||||
# this driver. Paths listed seperately.
|
||||
#
|
||||
file i386/isa/ mdsio.c
|
||||
file i386/include mdsio.h
|
||||
|
||||
# List of options used by the driver, and the header into which
|
||||
# they should be written.
|
||||
#
|
||||
option MDSIO_RXBUF opt_mdsio.h
|
||||
option MDSIO_TXBUF opt_mdsio.h
|
||||
option MDSIO_DEBUG opt_mdsio.h
|
||||
|
||||
# Text to be added to LINT to provide configuration examples for the
|
||||
# user.
|
||||
#
|
||||
|
||||
linttext
|
||||
#
|
||||
# This driver causes your system to emit occasional digestive noises.
|
||||
#
|
||||
device blorg0 at isa? port 0x123 irq 10 flags 0x10 drq 2 vector blorgintr
|
||||
device blorg1 at isa? port 0x234 irq 11 flags 0x10 drq 2 vector blorgintr
|
||||
end
|
||||
Loading…
Reference in New Issue
Block a user