zoom/pc/gpib.c

#include <stdio.h>
#include <string.h>
#define __USE_ISOC99
#include <math.h>
#include "gpib.h"
#include "serial-util.h"

#define gputv(string, rv) do {	    \
	int ____l = strlen(string); \
	if (safewrite(fd, string, ____l) != ____l) return rv; \
	if (safewrite(fd, "\r", 1) != 1) return rv; } while(0)
#define gput(string) gputv(string, -1)
	
int gpib_init(int fd)
{
	gput("++mode 1");
	gput("++auto 0");
	gput("++eos 1");
	gput("++eoi 1");
	gput("++read_tmo_ms 4000");
	gput("++eot_enable 1");
	gput("++eot_char 13");
	return 0;
}

int gpib_addr(int fd, int addr)
{
	char s[128];
	sprintf(s, "++addr %d", addr);
	gput(s);
	return 0;
}

int keithley_init(int fd)
{
	float i;
	gput(":syst:beep:stat 1");
	gput(":sour:func:mode curr");
	gput(":sour:del 0");
	gput(":sour:curr 0");
	gput(":sour:curr:range:auto on");
	gput(":outp on");
	drain(fd);
	i = keithley_read(fd);
	if (isnan(i))
		return -1;
	return 0;
}

int keithley_current(int fd, float amps)
{
	char s[128];
	sprintf(s, ":sour:curr %0.3f", amps);
	gput(s);
	return 0;
}

float keithley_read(int fd)
{
	char s[128];
	float i, dummy;
	gputv("read?", NAN);
	gputv("++read", NAN);
	if (fdgets(s, 128, fd, 2000) == NULL)
		return NAN;
	if (sscanf(s, "%f,%f,", &dummy, &i) != 2)
		return NAN;
	return i;
}

int keithley_off(int fd)
{
	gput(":outp off");
	return 0;
}