#!/bin/sh
# the next line restarts using wish \
exec wish "$0" "$@"

if {$argc<1} {
    puts stdout \
"Usage: runtkscan scanner_driver
scanner_driver is one of
	epson-ep_scan
	hp-hpscanpbm
	microtek-mtekscan
	mustek-mscan
	mustek-scanimage"
    exit
}
set scanner_driver [lindex $argv 0]
if ![regexp epson-ep_scan|hp-hpscanpbm|microtek-mtekscan|mustek-mscan|mustek-scanimage $scanner_driver] {
    puts stdout "scanner_driver: $scanner_driver : unknown"
    exit
}

set tkscan_libdir .
set tkscan_files "
        README GUIDE $scanner_driver tkscan-conf \
        window-main window-pref window-option window-help \
        tkscan-lib tkscan-scan output-main output-ieditor \
        output-file output-printer output-fax output-ocr \
        tkscan-init
"
foreach i $tkscan_files { source $tkscan_libdir/$i.tcl }

# End
