removed

tecs/tcli.c

@@ -1,53 +0,0 @@
-#include <stdio.h>
-#include <string.h>
-#include "tecc.h"
-#include "errhdl.h"
-
-/*-------------------------------------------------------------------------*/
-
-main(int argc, char *argv[])
-{
-  char response[80], cmd[80], device[80];
-  float val;
-  pTecsClient conn;
-  char *res;
-
-#ifdef __VMS
-  ERR_P(conn=TeccInit("@start_tecs test -p 9753 -l -d ud0:[zolliker.lsc.log]", 9753));
-#else
-  ERR_P(conn=TeccInit("TecsServer -p 9753 -l -d log/ &", 9753));
-#endif
-
-retry:
-  while (1) {
-    scanf("%s", cmd);
-    if (0==strcmp(cmd,"r")) {
-      ERR_I(TeccGet(conn, &val));
-      ERR_P(res=TeccGetDev(conn));
-      printf("T=%f %s\n", val, res);
-
-    } else if (0==strcmp(cmd,"s")) {
-
-      scanf("%f", &val);
-      ERR_I(TeccSet(conn, val));
-
-    } else if (0==strcmp(cmd,"c")) {
-
-      scanf("%s", cmd);
-      ERR_I(TeccSend(conn, cmd, response, sizeof(response)));
-      printf("%s\n", response);
-
-    } else if (0==strcmp(cmd,"d")) {
-
-      scanf("%s", cmd);
-      ERR_I(TeccSetDev(conn, cmd));
-
-    } else if (0==strcmp(cmd,"q")) {
-
-      TeccClose(conn);
-      exit(1);
-
-    }
-  }
-  OnError: ErrShow("Client"); goto retry;
-}