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

Make Agilent use mkWrapper

Browse Source
This commit is contained in:
Douglas Clowes
2014-08-18 12:42:35 +10:00
parent 2c8f1131f6
commit 6f5f2b69cf
2 changed files with 3 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
site_ansto/instrument/config/environment/agilent_33220A.sct
View File

@ -3,6 +3,6 @@ driver agilent_33220A = {
protocol = std protocol = std
class = environment class = environment
simulation_group = environment_simulation simulation_group = environment_simulation
code mkDriver = {%% code mkWrapper = {%%
%%} %%}
} }

13
site_ansto/instrument/config/environment/sct_agilent_33220A.tcl
View File

@ -32,17 +32,8 @@ proc ::scobj::agilent_33220A::mkDriver { sct_controller name } {
set ns "[namespace current]" set ns "[namespace current]"
set catch_status [ catch { set catch_status [ catch {
MakeSICSObj ${name} SCT_OBJECT # mkWrapper hook code starts
# mkWrapper hook code ends
sicslist setatt ${name} klass environment
sicslist setatt ${name} long_name ${name}
set scobj_hpath /sics/${name}
hsetprop ${scobj_hpath} klass environment
hsetprop ${scobj_hpath} data true
hsetprop ${scobj_hpath} debug_threshold 5
# mkDriver hook code starts
# mkDriver hook code ends
} catch_message ] } catch_message ]
handle_exception ${catch_status} ${catch_message} handle_exception ${catch_status} ${catch_message}
} }