linse/sics
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

revision of TecsServer / treat "interest" correctly

Browse Source
This commit is contained in:
cvs
2000-06-02 07:27:19 +00:00
parent 9c093bc2ac
commit 82097034d5
13 changed files with 309 additions and 182 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
tecs/tecs_cli.c
View File

@@ -46,6 +46,7 @@ int TeccGet(pTecsClient conn, float *temp) {
int TeccWait(pTecsClient conn) {
int last, cnt;
last=0;
cnt=0;
do {
@@ -142,23 +143,25 @@ static pTecsClient conn=NULL;
int tecs_set_par_(F_CHAR(name), F_CHAR(par), int name_len, int par_len) {
char nbuf[64], pbuf[256];
int iret=-1;
STR_TO_C(nbuf, name);
STR_TO_C(pbuf, par);
ERR_I(CocSet(conn, nbuf, pbuf));
ERR_I(iret=CocSet(conn, nbuf, pbuf));
return(0);
OnError: return(-1);
OnError: return(iret);
}
int tecs_get_par_(F_CHAR(name), F_CHAR(par), int name_len, int par_len) {
char nbuf[64], pbuf[256];
int iret=-1;
STR_TO_C(nbuf, name);
ERR_I(CocGet(conn, nbuf, pbuf));
ERR_I(iret=CocGet(conn, nbuf, pbuf));
return(STR_TO_F(par, pbuf));
OnError: return(-1);
OnError: return(iret);
}
int tecs_send_(F_CHAR(cmd), F_CHAR(reply), int cmd_len, int reply_len) {