# hp_motor_parameter.mac macros for creating a LaTeX table of motor parameters
#
# hp 20.04.2001
# 
#
#
#################################################################################
#
# hp_read_motor_parameter
#
# hp 20.04.2001
#
# reads motor parameters and writes them into a LaTeX Table
#
#################################################################################
#
def hp_read_motor_parameter ' {
	local n,i,j,motoren
#
	printf("\n\n hp_read_motor_parameter (hp) 20.04.2001\n\n")
#
	filename = "motor_parameter.tex"
	crate    = "6idd:"
	n        = 18
	motoren  = 56
	ask[0]   = "DESC"
	ask[1]   = "EGU"
	ask[2]   = "CARD"
	ask[3]   = "DIR"
	ask[4]   = "VELO"
	ask[5]   = "VBAS"
	ask[6]   = "ACCL"
	ask[7]   = "BDST"
	ask[8]   = "BVEL"
	ask[9]   = "BACC"
	ask[10]  = "MRES"
	ask[11]  = "PREC"
	ask[12]  = "DHLM"
	ask[13]  = "DLLM"
	ask[14]  = "SREV"
	ask[15]  = "S"
	ask[16]  = "SBAK"
	ask[17]  = "SBAS"
	ask[18]  = "UREV"
#
	open(filename)
#
	line = ""
	for(i=0;i<=n;i++) {
		if (i == 0) {
			line = sprintf("No & %s",ask[i])
		} else if (i == n) {
			line = sprintf("%s & %s\\\\\\hline\\hline",line,ask[i])
		} else {
			line = sprintf("%s & %s",line,ask[i])
		}
	}
	p line
	fprintf(filename,"%s\n",line)
#
	for(j=1;j<=motoren;j++) {
		line = ""
		for(i=0;i<=n;i++) {
			question  = sprintf("%sm%u.%s",crate,j,ask[i])
			answer    = epics_get(question)
			if (i == 0) {
				line = sprintf("%u & %s",j,answer)
			} else if (i == n) {
				line = sprintf("%s & %s\\\\\\hline",line,answer)
			} else {
				line = sprintf("%s & %s",line,answer)
			}
#			p j,i,question,answer
		}
		p line
		fprintf(filename,"%s\n",line)
	}
	close(filename)
} '
#
#
#
#