TCL - Creation of Directory
Articles Related
Snippet
puts -nonewline "Local temp directory to use for MDL generation: "
set MDL_PATH [gets stdin]
set LOG_PATH "$MDL_PATH/logs"
#set up the temp directory structure
if [catch { set retstr [file mkdir $MDL_PATH] } errmsg] {
puts "Cannot create directory $MDL_PATH. due to error: $errmsg"
puts "Exiting...."
exit
} else {
#make the subdirectories
file mkdir $LOG_PATH
file mkdir $MDL_PATH/mappings
file mkdir $MDL_PATH/transforms
file mkdir $MDL_PATH/tables
file mkdir $MDL_PATH/views
file mkdir $MDL_PATH/sequences
}