#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