#%TITLE% savect.mac
#%DESCRIPTION%
# Save counters values in SPEC datafile after ct
#%END%

# Requires  "saveload.mac"

#%UU%
#%MDESC%
#    Save last ct values in spec datafile
def savect '{
    local _err

    if (DATAFILE!="/dev/null") {
        FPRNT   = ""
        HEADING = sprintf("ct %g", COUNT_TIME)
        SCAN_N  = savestdheader(DATAFILE, 0x03, SCAN_N)

        if (SCAN_N<0) {
            SCAN_N = -SCAN_N
            _err = -1
        }

        if (!_err){
            _err = savecntheader(DATAFILE)
        }

        if (!_err){
            _err = savecounters(DATAFILE)
        }

        if (_err == -1){
            print "Failed to save ct in", DATAFILE
        }
        else{
            print "\nSaved as scan", SCAN_N
        }
    }
}'

#%UU%
#%MDESC% Auto-save ct values in spec datafile after every ct
def savecton '{
    cdef("user_handlecounts", "\n savect;", "_sct_", 0x10)
}'

#%UU%
#%MDESC% Auto-save OFF
def savectoff '{
    cdef("", "", "_sct_", "delete")
}'

#%MACROS%
#%TOC%
#%AUTHOR% E.Papillon