- added backwards calculation of hkl from four circle angles. This

required inclusion of a matrix package.
- modified  counter error handling to send a Stop when the _BAD_BUSY
  error is received.
- added an environment interface to the general controller stuff in choco.*
  Also added setting a parameter directly at the controller object.
- Added a driver for the ETH High Temperature Furnace to be used at
  SANS.

choco.c

@@ -175,6 +175,7 @@
 
 extern pCodri MakeSimChopper(void);
 extern pCodri MakeDoChoDriver(char *pHost, int iPort, int iChannel);
+extern pCodri MakeCookerDriver(char *pHost, int iPort, int iChannel);
 /*-----------------------------------------------------------------------*/
   int ChocoFactory(SConnection *pCon, SicsInterp *pSics, void *pData,
                   int argc, char *argv[])
@@ -230,6 +231,33 @@ extern pCodri MakeDoChoDriver(char *pHost, int iPort, int iChannel);
          }
          pDriv = MakeDoChoDriver(argv[3],iPort,iChannel);
       }
+      else if(strcmp(argv[2],"sanscook") == 0)
+      {
+         if(argc < 6)
+	 {
+           SCWrite(pCon,
+  "ERROR: Insufficient number of arguments to install SANS Cooker driver",
+           eError);
+           return 0;    
+         }
+         iRet = Tcl_GetInt(pSics->pTcl,argv[4],&iPort);
+         if(iRet != TCL_OK)
+	 {
+           sprintf(pBueffel,"ERROR: expected integer as port number, got %s",
+                   argv[4]);
+           SCWrite(pCon,pBueffel,eError);
+           return 0;
+         }
+         iRet = Tcl_GetInt(pSics->pTcl,argv[5],&iChannel);
+         if(iRet != TCL_OK)
+	 {
+           sprintf(pBueffel,"ERROR: expected integer as channel number, got %s",
+                   argv[4]);
+           SCWrite(pCon,pBueffel,eError);
+           return 0;
+         }
+         pDriv = MakeCookerDriver(argv[3],iPort,iChannel);
+      }
       else
       {
         sprintf(pBueffel,"ERROR: Driver %s NOT supported for MakeController",