33 lines
1.8 KiB
Tcl
33 lines
1.8 KiB
Tcl
|
|
#################################################################################################################
|
|
#### Directory setup
|
|
#################################################################################################################
|
|
####
|
|
set svars(dir,syn) [pwd]
|
|
set svars(dir,run) [clock format [clock seconds] -format "%m%d"]
|
|
if {![file exists $svars(dir,syn)/run_$svars(dir,run)]} { exec mkdir $svars(dir,syn)/run_$svars(dir,run); puts "INFO : Created a new direcroty..." } else {puts "INFO : Folder existed. "}
|
|
if {![file exists $svars(dir,syn)/run_$svars(dir,run)/logs]} { exec mkdir $svars(dir,syn)/run_$svars(dir,run)/logs; puts "INFO : Created a new directory..." } else {puts "INFO : Folder existed. "}
|
|
if {![file exists $svars(dir,syn)/run_$svars(dir,run)/reports]} { exec mkdir $svars(dir,syn)/run_$svars(dir,run)/reports; puts "INFO : Created a new directory..." } else {puts "INFO : Folder existed. "}
|
|
if {![file exists $svars(dir,syn)/run_$svars(dir,run)/outputs]} { exec mkdir $svars(dir,syn)/run_$svars(dir,run)/outputs; puts "INFO : Created a new directory..." } else {puts "INFO : Folder existed. "}
|
|
if {![file exists $svars(dir,syn)/run_$svars(dir,run)/SYN_LIB]} { exec mkdir $svars(dir,syn)/run_$svars(dir,run)/SYN_LIB; puts "INFO : Created a new directory..." } else {puts "INFO : Folder existed. "}
|
|
|
|
set svars(dir,run) $svars(dir,syn)/run_$svars(dir,run)
|
|
set svars(dir,inputs) $svars(dir,syn)/inputs
|
|
set svars(dir,outputs) $svars(dir,run)/outputs
|
|
set svars(dir,reports) $svars(dir,run)/reports
|
|
set svars(dir,logs) $svars(dir,run)/logs
|
|
set svars(rtl,path,work) $svars(dir,run)/SYN_LIB
|
|
|
|
|
|
exec rm -rf current
|
|
exec ln -s $svars(dir,run) current
|
|
|
|
|
|
|
|
|
|
|
|
set sh_command_log_file $svars(dir,run)/command.log
|
|
set sh_output_log_file $svars(dir,run)/run_dc.log
|
|
|
|
|