49 lines
1.1 KiB
Tcl
49 lines
1.1 KiB
Tcl
|
|
#MakeScanCommand escan counter echidna.hdd recover.bin
|
|
proc scan_prepare {sobj uobj} {
|
|
global omstart omstep;
|
|
nxcreatefile
|
|
# stdscan prepare $sobj $uobj;
|
|
set vlist [split [$sobj getvarpar 0] = ];
|
|
set omstart [lindex $vlist 1];
|
|
set omstep [lindex $vlist 2];
|
|
hs_prepare $sobj $uobj
|
|
# clientput [$sobj getvarpar 0] value;
|
|
# nxscript create5 junk5.nx5 echidna.dic;
|
|
}
|
|
|
|
proc scan_finish {sobj uobj} {
|
|
nxscript close
|
|
}
|
|
|
|
#proc scan_finish {sobj uobj} {
|
|
# nxscript close;
|
|
#}
|
|
|
|
# Add an nxentry for the current scan point
|
|
proc nxaddpoint {sobj uobj pt} {
|
|
global omstart omstep;
|
|
set ompos [expr $omstart + $pt * $omstep];
|
|
nxreopenfile;
|
|
addnxentry nxscript scan_$pt $ompos;
|
|
nxscript close
|
|
}
|
|
|
|
proc donothing {args} {}
|
|
|
|
#proc ecount {sobj uobj pt mode preset} {
|
|
# hmc count;
|
|
#}
|
|
|
|
publish scan_prepare user
|
|
publish scan_finish user
|
|
publish nxaddpoint user
|
|
#publish ecount user
|
|
publish donothing user
|
|
|
|
#scan2 configure script
|
|
scan2 function writeheader donothing
|
|
scan2 function writepoint nxaddpoint
|
|
#scan2 function prepare scan_prepare
|
|
#scan2 function count ecount
|