###############################################################################
#
#    Macros for setting up and ascanning epics process variables
#
#
#
#    Macros:
#
#        pvconfig - envokes CDE editor to set up PVs.  Must enter Name, 
#                   mnemonic, PV value (.VAL), PV readback (.RBV), and
#                   PV done moving flag (.DMOV?)
#
#        pvascan - a scan of an epics PV in absolute units.
#
#        pvdscan - PV lineup scan (relative units).
#
#        pvlup   - same as pvdscan.
#
#        pvmv    - move a PV to the given value.
#
#        pvmvr   - move a PV to a position relative to the current position.
#
#        pvwa	 - Displays current position of all configured PVs
#
#
#    Modification History:
#
#
#               11/17/99    J. Lang  Fixed bug in header (no spaces 
#                           between pv labels).  Added pvmv command to move
#                           a pv.
#		12/14/99    D. Wermeille  Start implementing option to actually 
#			    move the gap and/or the taper in pvmv.
#			    Fixed bug when scanning (position read before moving).
#		12/21/99    D. Wermeille  Finish implementing option to move
#			    and wait while moving gap and taper.
#		01/07/00    D. Wermeille  Fixed bug in moving gap and taper
#			    (prompt not coming back when move done).
#			    Add check moving option when scanning gap and taper.
#			    Comment out NPVS=0 at the begining of file.
#			    Make it look more like SPEC by writing _pvascan,
#			    _pvcheck (check PV name), pvdscan_cleanup, ...
#			    Added pvlup, pvdscan and pvmvr
#		02/15/00    D. Wermeille  Add delay for gap and taper to see
#			    if this solve the prompt and scan problem
#		05/02/01    hp macros try to run pvdefine before asking the operator
#			    to run pvconfig
#
#
##############################################################################
global PV_file
PV_file = "/usr/local/spec/lib/pvfile"
global NPVS
#NPVS = 0

global pv_name[]
global pv_mne[]
global pv_val[]
global pv_rbv[]
global pv_dmov[]

def pvconfig '
        wait(-1)
        user_waitall
        sync
        #Insert to check if file exists (and write permission) here
        
        
        unix(sprintf("/usr/dt/bin/dtpad %s",PV_file))
        pvdefine
'

def pvdefine '
local ff
if (getline(PV_file,"open") == 0) {
    for (ff = "#"; ff == "#"; ) {
       PVline = getline(PV_file)
       ff = substr(PVline,0,1)
       }
    for (jj = 0; PVline != -1 && PVline != "\n"; ++jj){
        local tmp[]
        split(PVline,tmp,"  ")
        pv_name[jj] = tmp[0]
        pv_mne[jj] = tmp[1]
        pv_val[jj] = tmp[2]
        pv_rbv[jj] = tmp[3]
        pv_dmov[jj] = tmp[4]
        tmpstr = sprintf("global %s\n%s = %i\n",tmp[1],tmp[1],jj)
        fprintf("tmp_mne","%s",tmpstr)
        PVline = getline(PV_file)
        }
    NPVS=jj
    fprintf("tmp_mne","u /bin/rm tmp_mne")
    }
p "Configuring PVs"
close("tmp_mne")
qdofile("tmp_mne")
'

def pvwa '
     local i, j, k, s[]
     waitmove
     onp
     if (NPVS == 0) {
	pvdefine
     } 
     if (NPVS != 0 ) {
        printf("\nCurrent PV Positions \n")
        {
        for (i=0; i<NPVS; i=i+8) {
           for (k=0;k<3;k++)
               s[k]=""
           for (j=i; j<i+8 && j<NPVS; j++) {
               s[0] = s[0] sprintf("%9.9s ", pv_name[j])
               s[1] = s[1] sprintf("%9.9s ", pv_mne[j])
               s[2] = s[2] sprintf("%9.4f ", epics_get(pv_rbv[j]))
               }
           p "\n"
           for (k=0;k<3;k++)
               p s[k]
           }
        }
        offp;
     }
     else {
        print "No PVs configured, automatic run of pvdefine failed, run pvconfig"
	exit
     }
'

# Check for valid PV name, if PVs have been defined.
def _pvcheck '
	if (NPVS == 0) {
		pvdefine
	} 
	if (NPVS == 0) {
		print "No PVs configured, automatic run of pvdefine failed, run pvconfig"
		exit
	} 
	
	if ("$1" != pv_mne[$1] && "$1" != $1) {
		eprint "Invalid PV name:  $1"
		exit
	}
'

# pvmv - moves a pv to a desired position (absolute move)
def pvmv '
	if ($# != 2 ) {
		print "Usage: pvmv pv position "
		exit
	}
	_pvcheck "$1" 
	_m[0] = $1; _s[0] = $2
        
	epics_put(pv_val[_m[0]],_s[0])

	if (pv_mne[_m[0]] == "ugap" || pv_mne[_m[0]] == "utaper"){
		epics_put("ID06:Start.VAL")
		sleep(0.5)
		while( epics_get(pv_dmov[_m[0]],"short") != 0 ){ sleep(0.1) }
	} else
		while( epics_get(pv_dmov[_m[0]],"short") != 1 ){ sleep(0.1) }
'

# pvmvr - moves a pv relative to the current position.
def pvmvr '
	if ($# != 2 ) {
		print "Usage: pvmvr pv relative_position "
		exit
	}
	_pvcheck "$1" 
	_c1=epics_get(pv_rbv[$1])
        
	pvmv $1 _c1+($2)
'

# pvascan - scans a pv in absolute units
def pvascan '
	if ($# != 5 ) {
		print "Usage: pvascan pv start finish intervals time "
		exit
	} 

	_pvcheck "$1"	
	_m[0] = $1; _s[0] = $2; _f[0] = $3
	_n1 = int($4); _ctime = $5
	_pvascan
'

# pvlup - scans a pv in relative units to current position
def pvlup '
	if ($# != 5) {
		eprint "Usage:  pvlup pv start finish intervals time"
		exit
	}
	pvdscan $*
'

def pvdscan '
	if ($# != 5) {
		eprint "Usage:  pvdscan pv start finish intervals time"
		exit
	}
	_pvcheck "$1"
	_c1=epics_get(pv_rbv[$1])

#	cdef("cleanup_once", sprintf("dscan_cleanup $1 %s;", _c1), "dscan")

	pvascan $1 _c1+($2) _c1+($3) $4 $5

#	cdef("cleanup_once", "", "dscan", "delete")
	pvdscan_cleanup $1 _c1
'

def pvdscan_cleanup '
	_m[0] = $1; _c1 = $2
	printf("\n")
	printf("Returning %s to %g\n", "$1", _c1)
	epics_put(pv_val[_m[0]],_c1)

	if (pv_mne[_m[0]] == "ugap" || pv_mne[_m[0]] == "utaper"){
		epics_put("ID06:Start.VAL")
		sleep(0.5)
		while( epics_get(pv_dmov[_m[0]],"short") != 0 ){ sleep(0.1) }
	} else
		while( epics_get(pv_dmov[_m[0]],"short") != 1 ){ sleep(0.1) }
        printf("\n")
'

# _pvascan - scans a pv
def _pvascan '
	if (_n1 <= 0) {
		print "Number of Intervals <= 0"
		exit
	} 

	HEADING = sprintf("pvascan %s %g %g %g %g",pv_mne[_m[0]],_s[0],_f[0],_n1,_ctime)
	_d[0] = (_f[0] - _s[0]) / _n1++
	X_L = pv_name[_m[0]]
	Y_L = cnt_name(DET)
	_sx = _s[0]; _fx = _f[0]

	FPRNT=sprintf("%s  ",pv_name[_m[0]])
	PPRNT=sprintf("%9.9s  ",pv_name[_m[0]])
	VPRNT=PPRNT
	_stype = 1|(1<<8)
	_cols=1

	scan_head
	def _scan_on \'
	   for (; NPTS < _n1; NPTS++) {
		local pos
		pos = _s[0] + NPTS * _d[0]
		epics_put(pv_val[_m[0]],pos)
		sleep (0.05)
		if (pv_mne[_m[0]] == "ugap" || pv_mne[_m[0]] == "utaper"){
			epics_put("ID06:Start.VAL")
			sleep(0.5)
			while( epics_get(pv_dmov[_m[0]],"short") != 0 ){ sleep(0.1) }
		} else
		while( epics_get(pv_dmov[_m[0]],"short") != 1 ){ sleep(0.1) }
		pos = epics_get(pv_rbv[_m[0]])
		FPRNT=sprintf("%g ",pos)
		PPRNT=sprintf("%9.4f ",pos)
		VPRNT=PPRNT
		scan_loop
		scan_data(NPTS, pos)
		scan_plot
	   }
	   scan_tail
	  \'
	  _scan_on
'