Added to repository.

r986 | ffr | 2006-05-09 09:17:15 +1000 (Tue, 09 May 2006) | 2 lines
2006-05-09 09:17:15 +10:00
parent a72513165b
commit 81359a740f
26 changed files with 6557 additions and 0 deletions
--- a/site_ansto/site_dummy.c
+++ b/site_ansto/site_dummy.c
@@ -0,0 +1,131 @@
+/*------------------------------------------------------------------------
+                                  D U M M Y
+
+ This is an empty site interface for SICS. Can be used as a starting
+ point for own site specific stuff.
+
+ copyright: see file COPYRIGHT
+
+ Mark Koennecke, June 2003
+ -----------------------------------------------------------------------*/
+#include <stdlib.h>
+#include <assert.h>
+#include <fortify.h>
+#include <sics.h>
+#include <motor.h>
+#include <tcl.h>
+#include <site.h>
+#include "anstohm.h"
+#include "dmc2143.h"
+
+static pSite siteANSTO = NULL;
+
+/*----------------------------------------------------------------------*/
+static void AddCommands(SicsInterp *pInter){
+  //AddCommand(pInter,"MakeRefl2T",Refl2TFactory,NULL,NULL);
+}
+/*---------------------------------------------------------------------*/
+static void RemoveCommands(SicsInterp *pSics){
+  //RemoveCommand(pInter,"MakeRefl2T");
+}
+/*-------------------------------------------------------------------*/
+static pMotor CreateMotor(SConnection *pCon, int argc, char *argv[]){
+
+  MotorDriver *pDriver = NULL;
+  pMotor pNew = NULL;
+  Tcl_Interp *pTcl = NULL;
+  char pBueffel[132];
+
+   /* create the motor */
+  strtolower(argv[1]);
+  if(strcmp(argv[1],"dmc2143") == 0){
+    pDriver = (MotorDriver *)CreateDMC2143(pCon,argc-2,&argv[2]);
+    if(!pDriver){
+       return NULL;
+    }
+    pNew  = MotorInit("DMC2143",argv[0],pDriver);
+    if(!pNew){
+      sprintf(pBueffel,"Failure to create motor %s",argv[1]);
+      SCWrite(pCon,pBueffel,eError);
+      return NULL; 
+    }
+  }
+  return pNew;
+}
+/*-------------------------------------------------------------------*/
+static pCounterDriver CreateAnstoCounterDriver(SConnection *pCon,
+					     int argc,
+					     char *argv[]){
+  pCounterDriver pNew = NULL;
+  return pNew;
+}
+/*-------------------------------------------------------------------*/
+static HistDriver *CreateHistMem(char *name, pStringDict pOptions){
+  HistDriver *pNew = NULL;
+  
+  if(strcmp(name,"anstohm") == 0){
+    printf("try to CreateAnstoHM() ...\n");
+#ifdef __cplusplus
+    pNew = CreateAnstoHM(pOptions);
+#endif /* __cplusplus */
+  }
+  return pNew;
+}
+/*-------------------------------------------------------------------*/
+static pVelSelDriv CreateVelSelDriv(char *name, char *array, 
+				       Tcl_Interp *pTcl){
+  pVelSelDriv pNew = NULL;
+  return pNew;
+}
+/*-------------------------------------------------------------------*/
+static pCodri CreateController(SConnection *pCon,int argc, char *argv[]){
+  pCodri pNew = NULL;
+  return pNew;
+}
+/*------------------------------------------------------------------*/
+static pEVControl InstallEnvironmentController(SicsInterp *pSics,
+						  SConnection *pCon,
+						 int argc, char *argv[]){
+  pEVControl pNew = NULL;
+  pEVDriver pDriv = NULL;
+
+  return pNew;
+}
+/*-----------------------------------------------------------------*/
+static int ConfigureScan(pScanData self, char *option){
+  return 0;
+}
+/*--------------------------------------------------------------------*/
+static void KillSite(void *site){
+  free(site);
+  siteANSTO = NULL;
+}
+/*---------------------------------------------------------------------
+  The scheme here goes along the lines of the singleton design pattern
+  ---------------------------------------------------------------------*/
+pSite getSite(void){
+  if(siteANSTO == NULL){
+    siteANSTO = (pSite)malloc(sizeof(Site));
+    /*
+      we  cannot go on if we do not even have enough memory to allocate
+      the site data structure
+    */
+    assert(siteANSTO); 
+    /*
+      initializing function pointers
+    */
+    siteANSTO->AddSiteCommands = AddCommands;
+    siteANSTO->RemoveSiteCommands = RemoveCommands;
+    siteANSTO->CreateMotor = CreateMotor;
+    siteANSTO->CreateCounterDriver = CreateAnstoCounterDriver;
+    siteANSTO->CreateHistogramMemoryDriver = CreateHistMem; 
+    siteANSTO->CreateVelocitySelector = CreateVelSelDriv;
+    siteANSTO->CreateControllerDriver = CreateController;
+    siteANSTO->InstallEnvironmentController = 
+          InstallEnvironmentController;
+    siteANSTO->ConfigureScan = ConfigureScan;
+    siteANSTO->KillSite = KillSite;
+  }
+  return siteANSTO;
+}
+