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

}