8 lines
140 B
Plaintext
8 lines
140 B
Plaintext
|
#!/usr/local/bin/tclsh8.0
|
||
|
|
if ![string match "" [lindex $argv 0]] {
|
||
|
|
set dir [lindex $argv 0]
|
||
|
|
} else {
|
||
|
|
set dir ./tcl
|
||
|
|
}
|
||
|
|
auto_mkindex $dir
|