^^&&^^

Edit File: tk_scsiformat

#!/bin/sh
# the next lines restarts using wish or abort with a message \
type wish > /dev/null 2>&1 && exec wish -f "$0" "$@" || \
echo "no /usr/bin/wish found: please install the tk package." && exit 1
#!/usr/bin/wish -f
# Based in parts on scsi-config by:
#     Copyright 1993 Yggdrasil Computing, Incorporated
# Copyright 1997 Michael Weller (eowmob@exp-math.uni-essen.de)
# You may copy this file according to the terms and conditions of version 2
# of the GNU General Public License as published by the Free Software
# Foundation.

# This variable is set if WE issued a format command. Only when set, we will
# issue an mkfs command if a format completes.
set format_initiator 0

set textwidth 28
set winwidth 64
set butwidth 18
set butwidth2 25
set sdevice $argv
set par_fov "-o"
set par_inter "0"
set par_query ""
set par_estim 600
set par_initpat ""
set par_initmode "none"
set par_defform "-d"
set par_erase ""
set par_defects ""
set par_partstyle "-fdos"
set par_parttype "-y83"
set par_partmin "99999"
set par_geomdetect ""
set par_heads "64"
set par_sectors "32"
set par_mkfs "mke2fs -m0 -q <DEVICE>1"

set par_mkfsnames [list \
    "None" \
    "Ext2 (standard)" \
    "Ext2 (no reserved blocks)" \
    "DOS-FAT (1K clusters, up to 32MB)" \
    "DOS-FAT (2K clusters, up to 64MB)" \
    "DOS-FAT (4K clusters, up to 128MB)" \
    "DOS-FAT (8K clusters), up to 256MB)" \
    "DOS-FAT (16K clusters, up to 512MB)" \
    ]
# Value for None is not a valid command at all:
set par_mkfscmds [list \
    "<DEVICE>1" \
    "mke2fs -q <DEVICE>1" \
    "mke2fs -m0 -q <DEVICE>1" \
    "mkdosfs -s2 <DEVICE>1" \
    "mkdosfs -s4 <DEVICE>1" \
    "mkdosfs -s8 <DEVICE>1" \
    "mkdosfs -s16 <DEVICE>1" \
    "mkdosfs -s32 <DEVICE>1" \
    ]
set vars2save [list par_fov par_inter par_query par_estim par_initpat par_initmode \
    par_defform par_erase par_partstyle par_parttype par_partmin par_geomdetect par_heads \
    par_sectors par_disprim par_nvram par_discert par_stop par_mkfs\
    ]

set whoami [exec whoami]

proc save_var {fd var} {
   upvar #0 $var myval
   puts $fd "set $var \"$myval\""
}

proc change_fov {} {
   global par_fov

if { [string compare $par_fov -o] != 0 } then {
       if { [winfo exists .init_win] == 1 } then {
	  destroy .init_win
       }
       .f_opt.col1.init configure -state disabled
       .f_opt.col1.disprim configure -state disabled
       .f_opt.col1.nvram configure -state disabled
       .f_opt.col2.discert configure -state disabled
       .f_opt.col2.stop configure -state disabled
   } else {
       .f_opt.col1.init configure -state normal
       .f_opt.col1.disprim configure -state normal
       .f_opt.col1.nvram configure -state normal
       .f_opt.col2.discert configure -state normal
       .f_opt.col2.stop configure -state normal
   }
}

proc simple {} {
   global par_inter par_fov par_erase par_defform par_defects par_query

set par_inter "0"
   set par_fov ""
   set par_erase ""
   change_fov
   if { [winfo exists .defs_win] == 1 } {
	destroy .defs_win
   }
   set par_defform "-d"
   set par_defects ""
   set par_query "-b"
   block_change $par_query
}

proc change_partmin {} {
   global par_partmin

if { [string compare $par_partmin ""] == 0} then {
	set par_partmin 0
   }
   .f_def.part.menu entryconfigure 9 -label "Maximal Partition Size ${par_partmin}MB"
}

proc change_geom {geomdetect heads sectors} {
   if { [string compare $geomdetect "-G"] == 0} then {
	.f_def.part.menu entryconfigure 8 -label \
	     "Disk Geometry is ${heads} Heads and ${sectors} Sectors"
   } else {
	.f_def.part.menu entryconfigure 8 -label "Autodetect Disk Geometry"
   }
}

proc change_mkfs {} {
    global par_mkfscmds par_mkfs

if { [lsearch -exact $par_mkfscmds "$par_mkfs"] >= 0 } then {
	set label "Other"
    } else {
	set label "Other ($par_mkfs)"
    }
    .f_def.part.menu.mkfs entryconfigure [expr [llength $par_mkfscmds] + 2] -label "$label"
}

proc bind_eedit {w} {
    bind $w <Key-Delete> {
	%W select clear
	%W delete insert insert
    }
    bind $w <Key-BackSpace> {
	%W select clear
	%W delete [expr [%W index insert] - 1] \
		[expr [%W index insert] - 1]
    }
    bind $w <Key-Left> {
	%W select clear
	%W icursor [expr [%W index insert] - 1]
    }
    bind $w <Key-Right> {
	%W select clear
	%W icursor [expr [%W index insert] + 1]
    }
    bind $w <Button-2> {
	catch {
		%W insert insert [selection get]
	}
    }
}

proc bind_entry {w} {
    bind_eedit $w
    bind $w <Key> {
	if { [ string length [%W get] ] < 5 } {
	    if { [ string first %A "0123456789" ] >= 0 } then {
	        %W insert insert %A
	    }
	}
    }
    bind $w <Control-Key> {set x 1}
    bind $w <Meta-Key> {set x 1}
    bind $w <Alt-Key> {set x 1}
    bind $w <Control-Meta-Key> {set x 1}
    bind $w <Control-Alt-Key> {set x 1}
    bind $w <Meta-Alt-Control-Key> {set x 1}
    bind $w <Button-2> {
	catch {
		set sel [selection get]
		regsub -all "\[^0-9\]" $sel "" sel2
		%W insert insert $sel2
		%W delete 5 end
	}
    }
}

proc bind_text {w} {
   bind $w <Control-Key> {set x 1}
   bind $w <Meta-Key> {set x 1}
   bind $w <Alt-Key> {set x 1}
   bind $w <Control-Meta-Key> {set x 1}
   bind $w <Control-Alt-Key> {set x 1}
   bind $w <Meta-Alt-Control-Key> {set x 1}
   bind $w <Key-Delete> {
	%W delete insert {insert + 1 chars}
	%W yview -pickplace insert
   }
   bind $w <Key-BackSpace> {
	%W delete {insert - 1 chars} insert
	%W yview -pickplace insert
   }
   bind $w <Key-Left> {
	%W mark set insert {insert - 1 chars}
	%W yview -pickplace insert
   }
   bind $w <Key-Right> {
	%W mark set insert {insert + 1 chars}
	%W yview -pickplace insert
   }
   bind $w <Key-Up> {
	%W mark set insert {insert - 1 lines}
	%W yview -pickplace insert
   }
   bind $w <Key-Down> {
	%W mark set insert {insert + 1 lines}
	%W yview -pickplace insert
   }
}

proc block_change { block } {
    if { [ string compare $block "-b" ] == 0 } then {
	.f_block.f_estim configure -foreground black
	.f_block.f_estim.t configure -state normal
	.f_block.f_estim.t configure -background white
    } else {
	.f_block.f_estim configure -foreground gray70
	.f_block.f_estim.t configure -state disabled
	.f_block.f_estim.t configure -background bisque
    }
}

proc copyrights {} {
  global butwidth butwidth2
  if { [winfo exists .version] == 1 } {
	raise .version
	return;
  }
  toplevel .version
  wm title .version "TkScsiformat Version Information"
  wm group .
  frame .version.header
  label .version.header.label -bitmap info -bg pink
  message .version.header.message -width 400 -bg pink -text \
	"Version Information."

pack .version.header.label .version.header.message -side left -padx 15
  message .version.copy0 -width 400 -background yellow -justify center -text \
     { This is version 1.0, 20th Aug 1997 of tk_scsiformat.}
  pack .version.header .version.copy0\
         -side top -pady 10 -padx 15

message .version.copy1 -width 400 -background green -justify left -text\
     {Copyright 1993 Yggdrasil Computing, Incorporated.
Copyright 1997 Michael Weller (eowmob@exp-math.uni-essen.de).}

message .version.copy2 -width 400 -justify center -text {This configuration\
     script may be copied and modified according to the terms and conditions\
     of version 2 of the GNU General Public License as published by the\
     Free Software Foundation (Cambridge, Massachusetts),\
     provided that this notice is not removed.

This script was originally the control panel from the Yggdrasil\
     distribution.  Eric Youngdale thought it looked pretty keen, and it was easy\
     to adapt, so he used it as the basis for the SCSI configuration manager.\

The configuration manager was extended by Michael Weller, and finally \
     this utility was written and based on it.

Well, honestly, not more than ten or twenty lines are copied from scsi-config. \
     Thus repeating the copyrights above is probably not required. This is released \
     under GPL nevertheless, though.
}

button .version.dismiss -text "Dismiss" -activebackground green \
	-command {destroy .version} -width $butwidth2
   pack .version.copy1 .version.copy2 .version.dismiss\
         -side top -pady 10 -padx 15

tkwait window .version
}

proc enter_init {} {
   global butwidth2 par_initpat par_initmode textwidth winwidth
   global my_initmode

set my_initmode ${par_initmode}

if { [winfo exists .init_win] == 1 } {
	raise .init_win
	return;
   }
   toplevel .init_win
   wm title .init_win "Initialization of Logical Blocks"
   wm group .

frame .init_win.header
   label .init_win.header.label -bitmap questhead -bg pink
   message .init_win.header.message -width 400 -bg pink -text \
	"Initialization Pattern for the Logical Blocks."

pack .init_win.header.label .init_win.header.message \
	 -side left -padx 15
   pack .init_win.header -side top -pady 10 -padx 15

frame .init_win.row1
   frame .init_win.row2
   radiobutton .init_win.row1.log -text "of each logical block" \
	-variable my_initmode -value "-L" -width $textwidth
   radiobutton .init_win.row1.phy -text "of each physical block" \
	-variable my_initmode -value "-P" -width $textwidth
   radiobutton .init_win.row2.def -text "Don't write them anywhere" \
	-variable my_initmode -value "none" -width $textwidth

pack .init_win.row1.log .init_win.row1.phy \
	 -side left -pady 5 -padx 15 -ipadx 2 -pady 2
   pack .init_win.row2.def \
	 -side left -pady 5 -padx 15 -ipadx 2 -pady 2

label .init_win.mess1 -width $winwidth -text \
	"Write the corresponding logical block number in the first 4 bytes:"
   pack .init_win.mess1 -side top -pady 5 -padx 15
   pack .init_win.row1 -side top -pady 5 -padx 15
   pack .init_win.row2 -side top -pady 5 -padx 15

label .init_win.mess2 -width $winwidth -text \
	"Enter an (optional) sequence of hexnumbers to fill the blocks with:"
   pack .init_win.mess2 -side top -pady 5 -padx 15

frame .init_win.frame
   scrollbar .init_win.frame.yscroll -relief sunken \
        -command ".init_win.frame.page yview"
   text .init_win.frame.page -width $winwidth -background white -relief sunken \
	-borderwidth 2 -height 8 -wrap char -exportselection 1 \
	-yscrollcommand ".init_win.frame.yscroll set"
   .init_win.frame.page insert 1.0 $par_initpat
   pack .init_win.frame.yscroll -side right -fill y
   pack .init_win.frame.page -side top -expand 1 -fill both

bind .init_win.frame.page <Key> {
	if { [ string first %A " 0123456789abcdefgABCDEF" ] >= 0 } then {
	    .init_win.frame.page insert insert [string toupper %A]
	    .init_win.frame.page yview -pickplace insert
	}
	if { [ string first %A "
" ] >= 0 } then {
	    .init_win.frame.page insert insert "\x0a"
	    .init_win.frame.page yview -pickplace insert
	}
   }
   bind .init_win.frame.page <Button-2> {
	catch {
		set sel [string toupper [selection get]]
		regsub -all "\[^ 0123456789ABCDEF\x0a\]" $sel "" sel2
		%W insert insert $sel2
	}
   }
   bind_text .init_win.frame.page
   pack .init_win.frame -side top -pady 5 -padx 15
   frame .init_win.f_bot
   button .init_win.f_bot.ok -text "Ok" \
        -activebackground green -command {
		set par_initpat [ .init_win.frame.page get 1.0 end ]
		set par_initmode $my_initmode
		destroy .init_win
        } -width $butwidth2
   button .init_win.f_bot.dismiss -text "Abort" \
        -activebackground red -activeforeground white \
	-command {destroy .init_win} -width $butwidth2
   pack .init_win.f_bot.ok .init_win.f_bot.dismiss \
	 -side left -pady 15 -padx 15 -ipadx 2 -pady 2

pack .init_win.f_bot -side top -pady 10 -padx 15

tkwait window .init_win
}

proc set_msg { form } {
    switch -- $form {
	-D { .defs_win.mess3 configure -text \
	    {Enter defects in the format <integer>:<integer>:<integer> with three numbers \
             for cylinder, head, physical sector. Specifying sector -1 marks the whole \
             track as defect. You may preceed numbers with 0x or 0 for hexadecimal or \
	     octal representation }
	}
	-B { .defs_win.mess3 configure -text \
	    {Enter defects in the format <integer>:<integer>:<integer> with three numbers \
             for cylinder, head, bytes from index. This marks that number of bytes from \
	     the index mark as bad. Specifying -1 marks the whole \
             track as defect. You may preceed numbers with 0x or 0 for hexadecimal or \
	     octal representation }
	}
	-d { .defs_win.mess3 configure -text \
	    {Enter defects in the format <integer> where <integer> is the number of the \
	     defect logical block. You may preceed numbers with 0x or 0 for hexadecimal or \
	     octal representation }
	}
    }
}

proc enter_defs {} {
   global butwidth2 par_defform par_defects textwidth winwidth
   global my_defform

set my_defform $par_defform
   if { [winfo exists .defs_win] == 1 } {
	raise .defs_win
	return;
   }
   toplevel .defs_win
   wm title .defs_win "Manual Defects Addition"
   wm group .
   frame .defs_win.header
   label .defs_win.header.label -bitmap questhead -bg pink
   message .defs_win.header.message -width 400 -bg pink -text \
	"Defects to be added manually."

pack .defs_win.header.label .defs_win.header.message \
	 -side left -padx 15
   pack .defs_win.header -side top -pady 10 -padx 15

frame .defs_win.row1
   frame .defs_win.row2
   radiobutton .defs_win.row1.phy -text "By Physical Sectors" \
	-variable my_defform -value "-D" -width $textwidth -command { set_msg $my_defform }
   radiobutton .defs_win.row1.byt -text "By Bytes from Index" \
	-variable my_defform -value "-B" -width $textwidth -command { set_msg $my_defform }
   radiobutton .defs_win.row2.def -text "By Logical Block Numbers" \
	-variable my_defform -value "-d" -width $textwidth -command { set_msg $my_defform }

pack .defs_win.row1.phy .defs_win.row1.byt \
	 -side left -pady 5 -padx 15 -ipadx 2 -pady 2
   pack .defs_win.row2.def \
	 -side left -pady 5 -padx 15 -ipadx 2 -pady 2

label .defs_win.mess1 -width $winwidth -text \
	"Select the format in which you want to enter the defects:"
   pack .defs_win.mess1 -side top -pady 5 -padx 15
   pack .defs_win.row1 -side top -pady 5 -padx 15
   pack .defs_win.row2 -side top -pady 5 -padx 15

label .defs_win.mess2 -width $winwidth -text \
	"Enter an (optional) sequence of of defects:"
   pack .defs_win.mess2 -side top -pady 5 -padx 15

frame .defs_win.frame
   scrollbar .defs_win.frame.yscroll -relief sunken \
        -command ".defs_win.frame.page yview"
   text .defs_win.frame.page -width $winwidth -background white -relief sunken \
	-borderwidth 2 -height 8 -wrap char -exportselection 1 \
	-yscrollcommand ".defs_win.frame.yscroll set"
   .defs_win.frame.page insert 1.0 $par_defects
   pack .defs_win.frame.yscroll -side right -fill y
   pack .defs_win.frame.page -side top -expand 1 -fill both

bind .defs_win.frame.page <Key> {
	if { [ string first %A " 0123456789abcdefgABCDEF:-" ] >= 0 } then {
	    .defs_win.frame.page insert insert [string toupper %A]
	}
	if { [ string compare %A "
" ] == 0 } then {
	    .defs_win.frame.page insert insert "\x0a"
	}
	if { [ string first %A "xX" ] >= 0 } then {
	    .defs_win.frame.page insert insert "x"
	}
	.defs_win.frame.page yview -pickplace insert
   }
   bind .defs_win.frame.page <Button-2> {
	catch {
		set sel [string toupper [selection get]]
		regsub -all "\[^ 0123456789ABCDEFX:\x0a-\]" $sel "" sel2
		regsub -all "X" $sel2 "x" sel
		%W insert insert $sel
	}
   }
   bind_text .defs_win.frame.page
   pack .defs_win.frame -side top -pady 5 -padx 15

message .defs_win.mess3 -justify center -text "X" -background green \
	-aspect 800

set_msg $my_defform

pack .defs_win.mess3 -side top -pady 5 -padx 15

frame .defs_win.f_bot
   button .defs_win.f_bot.ok -text "Ok" \
        -activebackground green -command {
		set par_defects [ .defs_win.frame.page get 1.0 end ]
		set par_defform $my_defform
		destroy .defs_win
        } -width $butwidth2
   button .defs_win.f_bot.dismiss -text "Abort" \
        -activebackground red -activeforeground white \
	-command {destroy .defs_win} -width $butwidth2
   pack .defs_win.f_bot.ok .defs_win.f_bot.dismiss \
	 -side left -pady 15 -padx 15 -ipadx 2 -pady 2

pack .defs_win.f_bot -side top -pady 10 -padx 15

tkwait window .defs_win
}

proc handle_trans {w ontop} {
   wm transient $w $ontop
   wm withdraw $w
   update idletasks
   set x [expr [winfo screenwidth $w]/2 - [winfo reqwidth $w]/2 \
            - [winfo vrootx [winfo parent $w]]]
   set y [expr [winfo screenheight $w]/2 - [winfo reqheight $w]/2 \
            - [winfo vrooty [winfo parent $w]]]
   wm geom $w +$x+$y
   wm deiconify $w

set oldFocus [focus]
   grab $w
   focus $w

tkwait window $w
   if { [string compare $ontop "."] != 0 } then {
	grab $ontop
   }
   focus $oldFocus
}

proc post_partsize {} {
   global butwidth2 par_partmin

toplevel .partsize
   frame .partsize.f_bot
   wm title .partsize "Maximal partition size"
   wm group .
   frame .partsize.header
   label .partsize.header.label -bitmap questhead -bg pink
   message .partsize.header.message -width 400 -bg pink -text \
	"Maximal partition size."

pack .partsize.header.label .partsize.header.message \
	 -side left -padx 15
   pack .partsize.header -side top -pady 10 -padx 15

message .partsize.expl -bg green -width 400 -text \
	"Enter the maximal partition size in Megabyte. If it is zero, \
	no partition is created and the partition table is left empty. \
	Otherwise a partition of this size is created as primary \
	partition 1. If the size does not fit the partition is made as \
	large as possible."

pack .partsize.expl -side top -pady 10 -padx 15

label .partsize.f_inter -text "Maximal partition size in MB:             "
   entry .partsize.f_inter.t -width 5 -background white -relief sunken -borderwidth 2 \
	-exportselection 1
   .partsize.f_inter.t insert 0 $par_partmin
   bind_entry .partsize.f_inter.t
   place .partsize.f_inter.t -in .partsize.f_inter -anchor e -relx 1.0 -rely 0.5

pack .partsize.f_inter -side top -pady 20 -padx 15

button .partsize.f_bot.ok -text "Ok" \
        -activebackground green -command {
	   set par_partmin [ .partsize.f_inter.t get ]
	   change_partmin
	   destroy .partsize
        } -width $butwidth2
   button .partsize.f_bot.dismiss -text "Abort" \
        -activebackground red -activeforeground white \
	-command {destroy .partsize} -width $butwidth2
   pack .partsize.f_bot.ok .partsize.f_bot.dismiss \
	 -side left -pady 15 -padx 15 -ipadx 2 -pady 2

pack .partsize.f_bot -side top -pady 10 -padx 15

handle_trans .partsize .
}

proc change_geodet { geodet } {
    if { [ string compare $geodet "-G" ] == 0 } then {
	.geom.hese.heads configure -foreground black
	.geom.hese.heads.t configure -state normal
	.geom.hese.heads.t configure -background white
	.geom.hese.sectors configure -foreground black
	.geom.hese.sectors.t configure -state normal
	.geom.hese.sectors.t configure -background white
    } else {
	.geom.hese.heads configure -foreground gray70
	.geom.hese.heads.t configure -state disabled
	.geom.hese.heads.t configure -background bisque
	.geom.hese.sectors configure -foreground gray70
	.geom.hese.sectors.t configure -state disabled
	.geom.hese.sectors.t configure -background bisque
    }
}

proc post_geom {} {
   global winwidth butwidth2 par_geomdetect par_heads par_sectors textwidth
   global my_geomdetect

set my_geomdetect $par_geomdetect

toplevel .geom
   frame .geom.f_bot
   wm title .geom "Disk Drive Geometry"
   wm group .
   frame .geom.header
   label .geom.header.label -bitmap questhead -bg pink
   message .geom.header.message -width 400 -bg pink -text \
	"Disk Drive Geometry."

pack .geom.header.label .geom.header.message \
	 -side left -padx 15
   pack .geom.header -side top -pady 10 -padx 15

message .geom.expl -bg green -width 400 -text \
	"Enter the geometry of the disk. Not the real one, but the one \
	DOS will see, s.t. the partition table can be build in a way that \
	DOS and other OS's will be able to handle it. Generally, linux \
	device drivers report the setting back which the corresponding adapters \
	use under DOS. If this fails, 64 heads and 32 are usually used. "

pack .geom.expl -side top -pady 10 -padx 15

checkbutton .geom.auto -variable my_geomdetect -onvalue "" -offvalue "-G" \
	-text " Query Geometry from Scsidriver " -command {change_geodet $my_geomdetect}
   
   pack .geom.auto -side top -pady 20 -padx 15

frame .geom.hese

label .geom.hese.heads -text   "Heads:             "
   entry .geom.hese.heads.t -width 5 -background white -relief sunken -borderwidth 2 \
	-exportselection 1
   .geom.hese.heads.t insert 0 $par_heads
   bind_entry .geom.hese.heads.t
   place .geom.hese.heads.t -in .geom.hese.heads -anchor e -relx 1.0 -rely 0.5

label .geom.hese.sectors -text "Sectors:           "
   entry .geom.hese.sectors.t -width 5 -background white -relief sunken -borderwidth 2 \
	-exportselection 1
   .geom.hese.sectors.t insert 0 $par_sectors
   bind_entry .geom.hese.sectors.t
   place .geom.hese.sectors.t -in .geom.hese.sectors -anchor e -relx 1.0 -rely 0.5

pack .geom.hese.heads  .geom.hese.sectors  -side left -pady 15 -padx 15
   pack .geom.hese -side top
   change_geodet $my_geomdetect

button .geom.f_bot.ok -text "Ok" \
        -activebackground green -command {
	   set par_heads [ .geom.hese.heads.t get ]
	   set par_sectors [ .geom.hese.sectors.t get ]
	   set par_geomdetect $my_geomdetect
	   change_geom $par_geomdetect $par_heads $par_sectors
	   destroy .geom
        } -width $butwidth2
   button .geom.f_bot.dismiss -text "Abort" \
        -activebackground red -activeforeground white \
	-command {destroy .geom} -width $butwidth2
   pack .geom.f_bot.ok .geom.f_bot.dismiss \
	 -side left -pady 15 -padx 15 -ipadx 2 -pady 2

pack .geom.f_bot -side top -pady 10 -padx 15

handle_trans .geom .
}

proc post_mkfs {} {
   global butwidth2 par_mkfs

toplevel .mkfs
   frame .mkfs.f_bot
   wm title .mkfs "Make FileSystem Command"
   wm group .
   frame .mkfs.header
   label .mkfs.header.label -bitmap questhead -bg pink
   message .mkfs.header.message -width 400 -bg pink -text \
	"Make FileSystem Command."

pack .mkfs.header.label .mkfs.header.message \
	 -side left -padx 15
   pack .mkfs.header -side top -pady 10 -padx 15

message .mkfs.expl -bg green -width 400 -text \
	"Enter a command to execute to make a filesystem on the freshly created partition.\
         The string <DEVICE> in the string will be replaced by the name of disk device\
	 being formatted. Generally you'll have to use <DEVICE>1 to refer to the first\
	 partition."

pack .mkfs.expl -side top -pady 10 -padx 15

frame .mkfs.f_inter
   scrollbar .mkfs.f_inter.s -relief sunken -orient horiz -command \
            ".mkfs.f_inter.t xview"
   entry .mkfs.f_inter.t -background white -relief sunken -borderwidth 2 \
	-exportselection 1 -xscrollcommand ".mkfs.f_inter.s set"
   .mkfs.f_inter.t insert 0 $par_mkfs

bind_eedit .mkfs.f_inter.t
   bind .mkfs.f_inter.t <Key-KP_Enter> { .mkfs.f_bot.ok invoke }
   bind .mkfs.f_inter.t <Key-Return> { .mkfs.f_bot.ok invoke }

pack .mkfs.f_inter.t .mkfs.f_inter.s -side top -fill both -expand yes
   pack .mkfs.f_inter -side top -pady 20 -padx 15 -fill both -expand yes

button .mkfs.f_bot.ok -text "Ok" \
        -activebackground green -command {
	   set par_mkfs [ .mkfs.f_inter.t get ]
	   change_mkfs
	   destroy .mkfs
        } -width $butwidth2
   button .mkfs.f_bot.dismiss -text "Abort" \
        -activebackground red -activeforeground white \
	-command {destroy .mkfs} -width $butwidth2
   pack .mkfs.f_bot.ok .mkfs.f_bot.dismiss \
	 -side left -pady 15 -padx 15 -ipadx 2 -pady 2

pack .mkfs.f_bot -side top -pady 10 -padx 15

handle_trans .mkfs .
}

proc set_rands {} {
   set tworands [exec /usr/lib/scsi/tworands]
   .conf.equa.sol delete 0 end
   .conf.equa.a configure -state normal
   .conf.equa.b configure -state normal
   .conf.equa.a delete 0 end
   .conf.equa.b delete 0 end
   .conf.equa.a insert 0 [lindex $tworands 0]
   .conf.equa.b insert 0 [lindex $tworands 1]
   .conf.equa.a configure -state disabled
   .conf.equa.b configure -state disabled
}

proc query_format {} {
   global winwidth butwidth2 textwidth format_cmd sdevice par_fov par_inter par_query \
	  par_estim par_initpat par_initmode par_defform par_defects par_erase par_partstyle \
	  par_parttype par_partmin par_geomdetect par_heads par_sectors par_disprim par_nvram \
	  par_discert par_stop

toplevel .conf
   frame .conf.f_bot
   wm title .conf "Format Confirmation Request"
   wm group .
   frame .conf.header
   label .conf.header.label -bitmap warning -bg pink
   message .conf.header.message -width 400 -bg pink -text \
	"Format Confirmation Request."

pack .conf.header.label .conf.header.message \
	 -side left -padx 15
   pack .conf.header -side top -pady 10 -padx 15

message .conf.expl -bg red -fg white -width 400 -justify center -text \
"Formatting will erase all data on $sdevice, regardless on which \
partition, and there will be NO way to recover your data.

Therefore, please check now if you really want to format this device. \
To ensure that your are really with me and know what you do, please \
answer the simple question below."

pack .conf.expl -side top -pady 10 -padx 15

frame .conf.equa

entry .conf.equa.a -width 3 -relief sunken -borderwidth 2 -state disabled
   label .conf.equa.times -text "*"
   entry .conf.equa.b -width 3 -relief sunken -borderwidth 2 -state disabled
   label .conf.equa.equa -text "="
   entry .conf.equa.sol -width 5 -background white -relief sunken -borderwidth 2 \
	-exportselection 1
   bind_entry .conf.equa.sol
   set_rands

pack .conf.equa.a .conf.equa.times .conf.equa.b .conf.equa.equa .conf.equa.sol \
	-side left -pady 10 -padx 3
   pack .conf.equa -side top

message .conf.result -bg red -fg white -aspect 900 -text "Wrong! Please retry or bail out!"

frame .conf.space
   pack .conf.space -side top -pady 8

button .conf.f_bot.ok -text "Confirm" \
        -activebackground yellow -command {
	  if { [expr [.conf.equa.a get] * [.conf.equa.b get]] == [.conf.equa.sol get] } then {
	    destroy .conf
	    do_format $format_cmd
	  } else {
	    set_rands
	    pack .conf.result -after .conf.equa -side top -pady 2 -padx 15
          }
        } -width $butwidth2
   button .conf.f_bot.show -text "Show ScsiFormat Command" \
        -activebackground green -command {
	     show_format "$format_cmd $sdevice"
        } -width $butwidth2

pack .conf.f_bot.ok .conf.f_bot.show -side left -pady 15 -padx 15 -ipadx 2 -pady 2

button .conf.dismiss -text "Bail Out" \
        -activebackground red -activeforeground white \
	-command {destroy .conf} -width $butwidth2

pack .conf.f_bot -side top -padx 15
   pack .conf.dismiss -side top -pady 10

set format_cmd "/usr/sbin/scsiformat $par_erase -i$par_inter"

regsub -all "\x0a" [string trim $par_defects] " " tmpstr
   regsub -all " +" $tmpstr "," tmpstr
   if { [string length $tmpstr] > 0 } then {
	append format_cmd " $par_defform$tmpstr"
   }
   if { [string compare $par_partstyle "none"] != 0 } then {
	append format_cmd " $par_partstyle $par_parttype -M$par_partmin"
   }
   if { [string compare $par_geomdetect "-G"] == 0 } then {
	append format_cmd " $par_geomdetect${par_heads}x$par_sectors"
   }
   if { [string compare $par_fov "-o"] == 0} then {
	append format_cmd " $par_fov"
	if { [string compare $par_initmode "none"] != 0 } then {
	    append format_cmd " $par_initmode"
	}
	regsub -all "\[ \x0a\]" [string trim $par_initpat] "" tmpstr
	if { [string length $tmpstr] > 0 } then {
	    append format_cmd " -I$tmpstr"
	}
	append format_cmd " $par_discert $par_disprim $par_stop $par_nvram"
   }
   if { [string compare $par_query "-b"] == 0 } then {
	append format_cmd " -b$par_estim"
   }
   #trim unneccessary spaces:
   regsub -all " +" [string trim $format_cmd] " " format_cmd
   handle_trans .conf .
}

proc show_format {cmd} {
   global winwidth butwidth2 textwidth

toplevel .showcmd
   frame .showcmd.f_bot
   wm title .showcmd "Show ScsiFormat Command"
   wm group .
   frame .showcmd.header
   label .showcmd.header.label -bitmap info -bg pink
   message .showcmd.header.message -width 400 -bg pink -text \
	"Show ScsiFormat Command."

pack .showcmd.header.label .showcmd.header.message \
	 -side left -padx 15
   pack .showcmd.header -side top -pady 10 -padx 15

message .showcmd.expl -width 400 -text \
	"This is the command which will perform the scsi low level format you requested:"
   pack .showcmd.expl -side top -pady 10 -padx 15

message .showcmd.cmd -width 400 -text $cmd -relief sunken
   pack .showcmd.cmd -side top -pady 10 -padx 15

button .showcmd.dismiss -text "Dismiss" \
        -activebackground red -activeforeground white \
	-command {destroy .showcmd} -width $butwidth2

pack .showcmd.dismiss -side top -pady 10

handle_trans .showcmd .conf
}

proc do_format {fcmd} {
   global par_query par_estim sdevice
   global winwidth butwidth2 textwidth
   global check_cmd format_initiator

set security "-F'Ene Mene Meck, und Du bist weg!'"
   append fcmd " $security -t0 -X $sdevice"
   
   if { [catch {exec sh -c "$fcmd" >& /var/run/scsiformat.[pid] } err] != 0 } then {
        set fd [open /var/run/scsiformat.[pid] r]
	set err "$err\x0a[read $fd]"
	close $fd
        exec rm /var/run/scsiformat.[pid]
	show_err scsiformat $err
	return;
   }
   exec rm /var/run/scsiformat.[pid]
   set format_initiator 1
   show_busy
}

proc show_err {cmd msg} {
   global winwidth butwidth2 textwidth

if { [winfo exists .error] == 1 } {
	.error.msg configure -text $msg
	raise .error
        tkwait window .error
	return;
   }
   toplevel .error
   frame .error.f_bot
   wm title .error "ScsiFormat Error"
   wm group .
   frame .error.header
   label .error.header.label -bitmap error -bg pink
   message .error.header.message -width 400 -bg pink -text \
	"Show $cmd Error Message."

pack .error.header.label .error.header.message \
	 -side left -padx 15
   pack .error.header -side top -pady 10 -padx 15

message .error.expl -width 600 -text \
	"$cmd returned the following error message:"
   pack .error.expl -side top -pady 10 -padx 15

message .error.msg -width 600 -text $msg -relief sunken
   pack .error.msg -side top -pady 10 -padx 15

button .error.dismiss -text "Dismiss" \
        -activebackground red -activeforeground white \
	-command {destroy .error} -width $butwidth2

pack .error.dismiss -side top -pady 10

tkwait window .error
}

proc query_prog {} {
   global sdevice errorCode wasbusy format_initiator par_mkfs

set check_cmd "/usr/sbin/scsiformat -T -t1 -X $sdevice"

if { [winfo exists .showprog] != 1 } {
	return;
   }
   set errorCode [list CHILDSTATUS 0 0]
   catch {exec sh -c "$check_cmd"} err
   if { ([string compare [lindex $errorCode 0] CHILDSTATUS] != 0) 
				|| ([lindex $errorCode 2] > 1) } then {
	show_err scsiformat $err
   } elseif { [lindex $errorCode 2] == 1 } then {
	if {[catch {
	    .showprog.row2.start configure -text [lindex $err 0]
	    .showprog.row2.end configure -text [lindex $err 3]
	    set percent [lindex $err 1]
	    if { [string compare $percent "-"] != 0} then {
		.showprog.expl configure -text [format "%.10g%% in %s" [expr 100 * $percent] \
		    [lindex $err 2] ]
		if { $percent >= 1.0 } then { set percent 1.0 }
	    } else {
		.showprog.expl configure -text [lindex $err 2]
		set percent 0
	    }
	    place .showprog.slider.inner -in .showprog.slider -relwidth $percent -relheight 1.0 \
		-anchor nw -x 0 -y 0
	    set wasbusy 1
	    after 5000 query_prog}] != 0} then {
#Something weird went on. Like illegal device name, read-only device, etc..
		destroy .showprog
	}
   } else {
	destroy .showprog
	if { $format_initiator == 1} then {
	    set format_initiator 0
	    if { [string compare $par_mkfs "<DEVICE>1"] != 0} then {
		regsub "<DEVICE>" $par_mkfs "${sdevice}" cmd
#
#it seems that we have to wait even more...
#
#a mayor reason is that the format might have completed, but scsiformat is
#still creating the partion which will also include some sleep()'s
#
		exec sync
		exec sh -c "sleep 10"
		set errorCode [list NONE 0 0]
		catch {exec sh -c "$cmd"} err
		if { ([string compare [lindex $errorCode 0] CHILDSTATUS] == 0) } then {
		    show_err "Filesystem maker"\
		         "'$cmd' exited with errorcode - [lindex $errorCode 2]\x0a$err"
		}
	    }
	}
	if { $wasbusy == 1 } then {
	    puts -nonewline stderr "\x0a"
	    flush stderr
	}
   }
}

proc show_busy {} {
   global textwidth wasbusy

toplevel .showprog
   frame .showprog.f_bot
   wm title .showprog "Show ScsiFormat Progress"
   wm group .
   frame .showprog.header
   label .showprog.header.label -bitmap hourglass -bg pink
   message .showprog.header.message -width 400 -bg pink -text \
	"Formatting in Progress."

pack .showprog.header.label .showprog.header.message \
	 -side left -padx 15
   pack .showprog.header -side top -pady 10 -padx 15
   frame .showprog.space
   pack .showprog.space -side top -pady 5
   frame .showprog.row1
   frame .showprog.row2
   pack .showprog.row1 .showprog.row2 -side top -expand yes -fill both -padx 4

label .showprog.row1.start -text "Started" -borderwidth -1
   pack .showprog.row1.start -side left
   frame .showprog.row1.space
   pack .showprog.row1.space -after .showprog.row1.start -side left -expand yes -fill both
   label .showprog.row1.end -text "Estimated End" -borderwidth -1
   pack .showprog.row1.end -side right

label .showprog.row2.start -borderwidth -1
   pack .showprog.row2.start -side left
   frame .showprog.row2.space
   pack .showprog.row2.space -after .showprog.row2.start -side left -expand yes -fill both
   label .showprog.row2.end -borderwidth -1
   pack .showprog.row2.end -side right

frame .showprog.slider -borderwidth 2 -height 20 -relief sunken
   pack .showprog.slider -side top -expand yes -fill both -pady 4 -padx 4
   frame .showprog.slider.inner -borderwidth 2 -relief raised -bg SlateGray1

message .showprog.expl -width 400 -text "X" -borderwidth -1
   pack .showprog.expl -side top
   frame .showprog.space2
   pack .showprog.space2 -side top -pady 2

set wasbusy 0
   query_prog
   if { [winfo exists .showprog] != 1 } {
	return;
   }
   handle_trans .showprog .
}

wm title . "TkScsiformat Version 1.0"

if { [string compare $whoami root] != 0} then {
    frame .warn
    frame .warn.h
    label .warn.h.l -bitmap info -background pink
    message .warn.h.m -aspect 200 -background pink -justify center -text \
	{You need to be root in order to format a SCSI device!}
    pack .warn.h.l .warn.h.m -side left -padx 10
    button .warn.quit -text "Quit" -command exit \
	-activeforeground white -activebackground red
    pack .warn.h .warn.quit -side top -pady 10
    pack .warn
    tkwait window .warn
}

if { [llength $argv] > 1 } then {
    puts stderr "Usage: tk_scsiformat \[device\]"
    exit
}

while { [string compare [lindex $sdevice 0] ""] == 0 } {
    frame .select
    frame .select.h
    label .select.h.l -bitmap questhead -background pink
    message .select.h.m -justify center -aspect 500 -background pink -text \
	{Select a SCSI device to low level format.}
    frame .select.f
    button .select.f.quit -text "    Quit    " -command exit \
	-activeforeground white -activebackground red
    button .select.f.continue -text " Continue " -activebackground green \
	-command {destroy .select}
    pack .select.f.continue .select.f.quit -side left -padx 10
    pack .select.h.l .select.h.m -side left -padx 10
    pack .select.h -pady 10
    pack .select
    set line [exec /sbin/scsiinfo -l]
    set n 0
    foreach x $line { 
        if {[string first "/dev/sd" "$x"] != 0} continue;
        radiobutton .select.$n -text "$x" -width 10 \
           -variable sdevice -value $x -anchor w
	pack .select.$n  -padx 3
        set n [expr $n+1]
    }
    if { $n == 0 } then {
	.select.f.continue configure -state disabled
    } else {
	.select.0 select
    }
    pack .select.f -pady 10
    tkwait window .select
}

set save_file "/usr/lib/scsi/scsiformat.defs.[file tail $sdevice]"
catch {source $save_file}

frame .header
label .header.label -bitmap question -bg pink
message .header.message -width 400 -bg pink -text \
	"Scsi Low Level Format - $sdevice."

pack .header.label .header.message -side left -padx 15

frame .f_bot1
button .f_bot1.copyrights -activebackground green -text "Version Info"    \
	-command { copyrights } -width $butwidth
button .f_bot1.filesave -activebackground green -text "Save Defaults"    \
	-width $butwidth -command {
          global vars2save save_file
          set fd [open $save_file w]
	  foreach var $vars2save { save_var $fd $var }
	  close $fd
        }
button .f_bot1.simple -activebackground green -text "Simple Format Cmd"    \
	-command "simple" -width $butwidth
pack .f_bot1.copyrights .f_bot1.filesave .f_bot1.simple \
        -side left -padx 12 -ipadx 2 -ipady 2 -pady 5

frame .f_bot2
button .f_bot2.format -text "Format" -command { query_format } \
	-activebackground yellow -activeforeground black -width $butwidth2
button .f_bot2.quit -text "Quit" -command { exit } \
	-activebackground red -activeforeground white -width $butwidth2
pack .f_bot2.format .f_bot2.quit -side left -padx 12 -ipadx 2 -ipady 2 -pady 5

frame .f_mand -width $winwidth
checkbutton .f_mand.erase -offvalue "" -onvalue "-e" -variable par_erase -text \
	"Erase Grown Defect List" -width [expr $textwidth - 1]

label .f_mand.f_inter -text "Interleave (0 for default):            " -width $textwidth
entry .f_mand.f_inter.t -width 5 -background white -relief sunken -borderwidth 2 \
	-exportselection 1 -textvariable par_inter
bind_entry .f_mand.f_inter.t
place .f_mand.f_inter.t -in .f_mand.f_inter -anchor e -relx 1.0 -rely 0.5

pack .f_mand.erase .f_mand.f_inter -side left -padx 12 -ipadx 2 -ipady 2

frame .f_def
button .f_def.defects -text "Add Defects Manually" -activebackground yellow -command enter_defs \
	-width [expr $textwidth]
menubutton .f_def.part -text "Simple Partioning" \
	-width [expr $textwidth] -relief raised -menu .f_def.part.menu \
	-activebackground SlateGray1
menu .f_def.part.menu -background SlateGray1 -activebackground SlateGray2
.f_def.part.menu add radiobutton -label "Don't touch Partion Sector" \
	-variable par_partstyle -value "none"
.f_def.part.menu add radiobutton -label "DOS Style Partion" \
	-variable par_partstyle -value "-fdos"
.f_def.part.menu add radiobutton -label "Tight Style Partion (not on Cylinder Boundary)" \
	-variable par_partstyle -value "-ftight"
.f_def.part.menu add separator
.f_def.part.menu add cascade -menu .f_def.part.menu.types -label "Partition type"
.f_def.part.menu add cascade -menu .f_def.part.menu.mkfs -label "Filesystem type"
.f_def.part.menu add separator
.f_def.part.menu add command -command post_geom
.f_def.part.menu add command -command post_partsize

menu .f_def.part.menu.types -background SlateGray1 -activebackground SlateGray2
.f_def.part.menu.types add radiobutton -variable par_parttype \
	-label "Linux/Minix" -value "-y81"
.f_def.part.menu.types add radiobutton -variable par_parttype \
	-label "Linux swap" -value "-y82"
.f_def.part.menu.types add radiobutton -variable par_parttype \
	-label "Linux native" -value "-y83"
.f_def.part.menu.types add radiobutton -variable par_parttype \
	-label "DOS 12-bit FAT" -value "-y01"
.f_def.part.menu.types add radiobutton -variable par_parttype \
	-label "DOS 16-bit FAT <32M" -value "-y52"
.f_def.part.menu.types add radiobutton -variable par_parttype \
	-label "DOS 16-bit FAT >=32M" -value "-y64"

menu .f_def.part.menu.mkfs -background SlateGray1 -activebackground SlateGray2
for {set i 0} {$i < [llength $par_mkfsnames]} {incr i} {
    .f_def.part.menu.mkfs add radiobutton -variable par_mkfs -command change_mkfs \
	-label "[lindex $par_mkfsnames $i]" -value "[lindex $par_mkfscmds $i]"
}
.f_def.part.menu.mkfs add separator
.f_def.part.menu.mkfs add command -command post_mkfs
change_mkfs

change_partmin
change_geom $par_geomdetect $par_heads $par_sectors

pack .f_def.defects .f_def.part -side left -padx 12 -ipadx 2 -ipady 2

frame .f_opt -width $winwidth -relief raised -borderwidth 2
checkbutton .f_opt.fov -offvalue "" -onvalue "-o" -variable par_fov -text \
	"    Use Custom Format Parameters" -command change_fov -activebackground yellow \
	-width [expr $winwidth - 2]
pack .f_opt.fov -side top -padx 12 -ipadx 2 -ipady 2 -pady 5
frame .f_opt.col1
frame .f_opt.col2

button .f_opt.col1.init -text "Enter initialization pattern" -activebackground yellow \
         -command enter_init -width [expr $textwidth + 2]
checkbutton .f_opt.col1.disprim -offvalue "" -onvalue "-p" -variable par_disprim -text \
	"Ignore Primary Defects" -width $textwidth
checkbutton .f_opt.col1.nvram -offvalue "" -onvalue "-S" -variable par_nvram -text \
	"Erase MODE SELECT Nvram" -width $textwidth
pack .f_opt.col1.init .f_opt.col1.disprim .f_opt.col1.nvram \
	-side top -padx 12 -ipadx 2 -ipady 2 -pady 5
checkbutton .f_opt.col2.discert -offvalue "" -onvalue "-c" -variable par_discert -text \
	"Disable Media Certification" -width $textwidth
checkbutton .f_opt.col2.stop -offvalue "" -onvalue "-s" -variable par_stop -text \
	"Stop On Missing Defectlist" -width $textwidth
label .f_opt.col2.dummy 
pack .f_opt.col2.discert .f_opt.col2.stop .f_opt.col2.dummy \
	-side top -padx 12 -ipadx 2 -ipady 2 -pady 5
pack .f_opt.col1 .f_opt.col2 -side left

frame .f_block
checkbutton .f_block.par_block -offvalue "-b" -onvalue "" -variable par_query -text \
	"Query progress from target" -width $textwidth -command { block_change $par_query }

label .f_block.f_estim -text "Estimated run time in sec:             " -width $textwidth
entry .f_block.f_estim.t -width 5 -background white -relief sunken -borderwidth 2 \
	-exportselection 1 -textvariable par_estim
bind_entry .f_block.f_estim.t

place .f_block.f_estim.t -in .f_block.f_estim -anchor e -relx 1.0 -rely 0.5
pack  .f_block.par_block .f_block.f_estim -side left -padx 12 -ipadx 2 -ipady 2
block_change $par_query

change_fov

pack .header -padx 10 -pady 10
pack .f_mand .f_def -pady 4
pack .f_opt -padx 10 -pady 10
pack .f_block -padx 10 -pady 4
pack .f_bot1 .f_bot2 -padx 10 -pady 4

show_busy