linse/sics
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Use sics_config.ini to generate 12T magnet setup on Taipan.

Browse Source
This commit is contained in:
Ferdi Franceschini
2013-09-18 16:16:06 +10:00
parent bcd9f89b85
commit 7bacc4dc7f
5 changed files with 79 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
site_ansto/instrument/util/config_reader.tcl
View File

@@ -73,7 +73,6 @@ proc config_reader::parse_file {filename} {
return $dictionary
}
if { "[lindex [split [info nameofexecutable] "/"] end]" == "tclsh"} {
proc config_reader::dump {{the_config startup.ini}} {
set my_dict [config_reader::parse_file $the_config]
puts "Dict: $my_dict"
@@ -88,6 +87,8 @@ if { "[lindex [split [info nameofexecutable] "/"] end]" == "tclsh"} {
}
return $my_dict
}
if { "[lindex [split [info nameofexecutable] "/"] end]" == "tclsh"} {
set filename "/tmp/test_[pid].ini"
set sects [list]
lappend sects "\[Section_1\]"