tecs_plot.f is now ext. f77

tecs/tecs_cli.c

@@ -68,7 +68,7 @@ int TeccGet3(pTecsClient conn, float *tC, float *tX, float *tP) {
   ERR_I(CocPutInt(conn, "readTemp", 1));
   ERR_I(iret=CocDoIt(conn, response, sizeof(response)));
   if (iret) ERR_MSG(response);
-  return(0);
+  return 0;
   OnError: return(-1);
 }
 
@@ -80,7 +80,7 @@ int TeccGet(pTecsClient conn, float *temp) {
   ERR_I(CocPutInt(conn, "readTemp", 1));
   ERR_I(iret=CocDoIt(conn, response, sizeof(response)));
   if (iret) ERR_MSG(response);
-  return(0);
+  return 0;
   OnError: return(-1);
 }
 
@@ -91,7 +91,7 @@ int TeccSet(pTecsClient conn, float temp) {
   ERR_I(CocPutFloat(conn, "set", temp));
   ERR_I(iret=CocDoIt(conn, response, sizeof(response)));
   if (iret) ERR_MSG(response);
-  return(0);
+  return 0;
   OnError: return(-1);
 }
 
@@ -153,7 +153,7 @@ int F_FUN(tecs_set_par)(F_CHAR(name), F_CHAR(par), int *show, int name_len, int
   if (*show) {
     printf("%s", response);
   }
-  return(0);
+  return 0;
   OnError: return(-1);
 }
 
@@ -202,7 +202,7 @@ int F_FUN(tecs_get_mult)(F_CHAR(names), int *time, int *nvalues, float values[],
   }
 
   ERR_I(CocDoIt(conn, response, sizeof(response)));
-  return(0);
+  return 0;
   OnError: return(-1);
 }
 
@@ -211,7 +211,7 @@ int F_FUN(tecs_init)(F_CHAR(startcmd), int *port, int startcmd_len) {
 
   STR_TO_C(sbuf, startcmd);
   ERR_P(conn=TeccInit(sbuf, *port));
-  return(0);
+  return 0;
   OnError: return(-1);  
 }
 
@@ -221,7 +221,8 @@ int F_FUN(tecs_start)(F_CHAR(startcmd), F_CHAR(host), int *port, int startcmd_le
   STR_TO_C(sbuf, startcmd);
   STR_TO_C(hbuf, host);
   ERR_P(conn=TeccStart(sbuf, hbuf, *port));
-  return(0);
+  if (conn->fd<0) return 1;
+  return 0;
   OnError: return(-1);
 }
 
@@ -231,25 +232,25 @@ int F_FUN(tecs_rights)(int write) {
   } else {
     ERR_I(CocSendMagic(conn, rdCode));
   }
-  return(0);
+  return 0;
   OnError: return(-1);  
 }
 
 int F_FUN(tecs_get)(float *temp) {
   ERR_I(TeccGet(conn, temp));
-  return(0);
+  return 0;
   OnError: return(-1);  
 }
 
 int F_FUN(tecs_get3)(float *t1, float *t2, float *t3) {
   ERR_I(TeccGet3(conn, t1, t2, t3));
-  return(0);
+  return 0;
   OnError: return(-1);  
 }
 
 int F_FUN(tecs_set)(float *temp) {
   ERR_I(TeccSet(conn, *temp));
-  return(0);
+  return 0;
   OnError: return(-1);  
 }
 
@@ -274,7 +275,7 @@ int F_FUN(tecs_watch_log)(F_CHAR(list), int list_len) {
   char buf[16];
   STR_TO_C(buf, list);
   ERR_I(CocWatchLog(conn, buf));
-  return(0);
+  return 0;
   OnError: return(-1);  
 }