064ec37e9a
- Refactored site specific stuff into a site module - PSI specific stuff is now in the PSI directory. - The old version has been tagged with pre-ansto
83 lines
1.7 KiB
C
83 lines
1.7 KiB
C
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <string.h>
|
|
#include "myc_err.h"
|
|
#include "myc_str.h"
|
|
#include "myc_time.h"
|
|
#include "myc_mem.h"
|
|
#include "tecs_cli.h"
|
|
#include "tecs_c.h"
|
|
|
|
static pTecsClient conn=NULL;
|
|
static char response[COC_RES_LEN];
|
|
static char *rwCode="rwacs";
|
|
static char *rdCode="rdacs";
|
|
|
|
char *TecsCmd(char *cmd) {
|
|
char nbuf[64], *p, pbuf[4];
|
|
int iret=-1, l;
|
|
|
|
p=strchr(cmd, ' ');
|
|
if (p==NULL) {
|
|
str_copy(nbuf, cmd);
|
|
} else {
|
|
l=p-cmd;
|
|
if (l>=sizeof(nbuf)) l=sizeof(nbuf)-1;
|
|
strncpy(nbuf, cmd, l+1);
|
|
nbuf[l]='\0';
|
|
while (*p>'\0' && *p<=' ') p++;
|
|
if (*p=='\0') p=NULL;
|
|
}
|
|
if (p==NULL) {
|
|
CocReset(conn);
|
|
ERR_I(CocGetStr(conn, nbuf, pbuf, sizeof(pbuf)));
|
|
ERR_I(CocDoIt(conn, response, sizeof(response)));
|
|
} else {
|
|
CocReset(conn);
|
|
ERR_I(CocPutStr(conn, nbuf, p));
|
|
ERR_I(CocDoIt(conn, response, sizeof(response)));
|
|
}
|
|
return response;
|
|
OnError: return ErrMessage;
|
|
}
|
|
|
|
char *TecsGet3(float *tset, float *texch, float *tsamp) {
|
|
ERR_I(TeccGet3(conn, tset, texch, tsamp));
|
|
return NULL;
|
|
OnError: return ErrMessage;
|
|
}
|
|
|
|
char *TecsSet(float temp) {
|
|
ERR_I(TeccSet(conn, temp));
|
|
return NULL;
|
|
OnError: return ErrMessage;
|
|
}
|
|
|
|
char *TecsInit(char *host, int port) {
|
|
int iret;
|
|
if (conn!=NULL) TeccClose(conn);
|
|
NEW(conn, CocConn);
|
|
if (host==NULL || *host=='\0') {
|
|
ERR_I(iret=CocInitClient(conn, "", port, rwCode, 0, ""));
|
|
} else {
|
|
ERR_I(iret=CocInitClient(conn, host, port, rdCode, 0, ""));
|
|
}
|
|
if (iret==1) ErrShort("TECS_INIT: can not connect to TecsServer");
|
|
return NULL;
|
|
OnError:
|
|
FREE(conn);
|
|
return ErrMessage;
|
|
}
|
|
|
|
int TecsIsOpen(void) {
|
|
return(conn!=NULL);
|
|
}
|
|
|
|
void TecsClose(void) {
|
|
if (conn!=NULL) {
|
|
TeccClose(conn);
|
|
conn=NULL;
|
|
}
|
|
}
|
|
|