From 09207abd0fad2ee03e0c2ad7e5746283fd5cd148 Mon Sep 17 00:00:00 2001
From: cvs <cvs>
Date: Tue, 11 Apr 2000 12:31:30 +0000
Subject: [PATCH] hi!

---
 tecs/Makefile | 2 +-
 tecs/test.for | 2 +-
 tecsdriv.c    | 9 +++++++--
 3 files changed, 9 insertions(+), 4 deletions(-)

diff --git a/tecs/Makefile b/tecs/Makefile
index 5913126d..242d1ef6 100644
--- a/tecs/Makefile
+++ b/tecs/Makefile
@@ -20,7 +20,7 @@ tecs: $(OBJ)
 	ranlib libtecsl.a
 	- rm TecsServer
 	$(CC) $(CFLAGS) -o TecsServer -g tecs.c fortify1.c -lm -L. -ltecsl -L../hardsup -lhlib
-	- rm test
+	- rm tecs
 	f77 -o tecs -g test.for tecs_tas.for get_lun.for -L. -ltecsl
 clean:
 	rm *.o
diff --git a/tecs/test.for b/tecs/test.for
index e5a8bea6..6ab12354 100644
--- a/tecs/test.for
+++ b/tecs/test.for
@@ -16,9 +16,9 @@
 	print *,'device <device>      set cryo device'
 	print *,'<parameter>          show parameter'
 	print *,'<parameter> <value>  set parameter'
-	print *,'help                 show list of parameters and cryo devices'
 	print *,'quit                 close TecsServer and exit'
 	print *,'exit                 exit, but do not close TecsServer'
+	print *,'help                 show list of parameters and cryo devices'
 	print *
 1	print '(x,a,$)','tecs> '
 	read(*,'(a)',end=9) line
diff --git a/tecsdriv.c b/tecsdriv.c
index 70b16281..b524850e 100644
--- a/tecsdriv.c
+++ b/tecsdriv.c
@@ -116,8 +116,13 @@
           return 0;
         }
         return 1;
-      } else { /* get case */
-        iRet=CocGet(pMe->pData,argv[1],result);
+      } else { /* get case or command without parameter */
+        if (0==strcasecmp(argv[1], "quit")) {
+          iRet=CocSet(pMe->pData,argv[1],"1"); /* send quit flag */
+          strcpy(result, "1");
+        } else {
+          iRet=CocGet(pMe->pData,argv[1],result); /* get parameter */
+        }
         if (iRet<0) {
           sprintf(pBueffel,"ERROR: %s",ErrMessage);
           SCWrite(pCon,pBueffel,eError);