8 lines
128 B
Tcl
Executable File
8 lines
128 B
Tcl
Executable File
#!/bin/sh
|
|
# \
|
|
exec tclsh "$0" ${1+"$@"}
|
|
|
|
foreach file "$argv" {
|
|
catch {file copy -force $file [string tolower $file]}
|
|
}
|