Added procedure arguments into tree

Change read config procedure (error fixed)
Fixed error when project running
This commit is contained in:
Sergey Kalinin
2018-03-06 12:55:04 +03:00
parent 53672ad0f3
commit 0c58139974
10 changed files with 61 additions and 34 deletions

View File

@@ -64,7 +64,18 @@ if {[file exists [file join $workDir projman.conf]] == 0} {
file copy -force -- projman.conf [file join $workDir projman.conf]
}
source [file join $workDir projman.conf]
#source [file join $workDir projman.conf]
# Read the projman.conf file and setting the variable
set config [open [file join $workDir projman.conf] RDONLY]
while {[gets $config line]>=0} {
if [regexp -nocase -all -line -- {(set)\s(.+)\s"(.+|)"} $line match op var data] {
regsub -all -- {\$env\(HOME\)} $data "$env(HOME)" data
regsub -all -- {\$workDir} $data "$workDir" data
set $var $data
}
}
## CREATE WORK DIR ##
if {[file exists $rpmDir] != 1} {file mkdir $rpmDir}
@@ -160,8 +171,3 @@ option add *Dialog.msg.background $editor(bg)
# option add *Entry.highlightBackground $bg userDefault
# option add *Text.HighlightThickness 2 userDefault
# option add *Entry.HighlightThickness 1 userDefault