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

*** empty log message ***

Browse Source
This commit is contained in:
cvs
2000-03-20 07:38:12 +00:00
parent 4dd4d06ba0
commit 72589129c3
12 changed files with 192 additions and 160 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
tecs/tecc.c
View File

@@ -23,19 +23,19 @@ pTecsClient TeccInit(char *startcmd, int port) {
int TeccSetDev(pTecsClient conn, char *dev) {
str_copy(device, dev);
ERR_I(CocCmd((CocConn *)conn, "[device]"));
ERR_I(CocCmd(conn, "[device]"));
return(0);
OnError: return(-1);
}
char *TeccGetDev(pTecsClient conn) {
ERR_I(CocCmd((CocConn *)conn, "device"));
ERR_I(CocCmd(conn, "device"));
return(device);
OnError: return(NULL);
}
int TeccGet3(pTecsClient conn, float temp[3]) {
ERR_I(CocCmd((CocConn *)conn, "tempC,tempX,tempP"));
ERR_I(CocCmd(conn, "tempC,tempX,tempP"));
temp[0]=tempC;
temp[1]=tempX;
temp[2]=tempP;
@@ -53,7 +53,7 @@ int TeccGet(pTecsClient conn, float *temp) {
int TeccSet(pTecsClient conn, float temp) {
tempC=temp;
ERR_I(CocCmd((CocConn *)conn, "[tempC]"));
ERR_I(CocCmd(conn, "[tempC]"));
return(0);
OnError: return(-1);
}
@@ -63,11 +63,11 @@ int TeccSend(pTecsClient conn, char *cmd, char *reply, int replyLen) {
int cnt;
str_copy(command, cmd);
ERR_I(CocCmd((CocConn *)conn, "[$]"));
ERR_I(CocCmd(conn, "[$]"));
cnt=40;
util_delay(100);
while (cnt>0) {
ERR_I(CocCmd((CocConn *)conn, "$"));
ERR_I(CocCmd(conn, "$"));
if (command[0]!='\0') {
str_ncpy(reply, command, replyLen);
return(0);
@@ -82,14 +82,16 @@ int TeccSend(pTecsClient conn, char *cmd, char *reply, int replyLen) {
int TeccQuitServer(pTecsClient conn) {
quit=1;
ERR_I(CocCmd((CocConn *)conn, "quit"));
ERR_I(CocCmd(conn, "quit"));
return(0);
OnError: return(-1);
}
void TeccClose(pTecsClient conn) {
CocCloseClient((CocConn *)conn);
free(conn);
if (conn!=NULL) {
CocCloseClient(conn);
free(conn);
}
}
#ifdef __VMS
@@ -102,7 +104,7 @@ int TeccSetDevVms(pTecsClient conn, char **dev) {
strncpy(device, dev[1], l);
while (l>0 && device[l-1]==' ') l--; /* trim */
device[l]='\0';
ERR_I(CocCmd((CocConn *)conn, "[device]"));
ERR_I(CocCmd(conn, "[device]"));
return(0);
OnError: return(-1);
}
@@ -110,7 +112,7 @@ int TeccSetDevVms(pTecsClient conn, char **dev) {
int TeccGetDevVms(pTecsClient conn, char **dev) {
int l, ld;
ERR_I(CocCmd((CocConn *)conn, "device"));
ERR_I(CocCmd(conn, "device"));
ld=strlen(device);
l=*(short *)dev;
if (ld>=l) ld=l;