- First working version of the TRICS collision protection module

SCinter.c

@@ -51,9 +51,13 @@
 #include "splitter.h"
 #include "servlog.h"
 #include "macro.h"
+#include "interface.h"
+#include "obdes.h"
+
 /* M.Z. */
 #include "definealias.h"
 
+
 #define MAXLEN 256
 #define MAXPAR 100
 
@@ -545,4 +549,19 @@ extern char *SkipSpace(char *pPtr);
     }   
     return NULL;
   }
+/*------------------------------------------------------------------------*/
+void *FindDrivable(SicsInterp *pSics, char *name){
+  pIDrivable pDriv;
+  pDummy pDum = NULL;
+  CommandList *pCom = NULL;
 
+  pCom = FindCommand(pSics,name);
+  if(pCom != NULL){
+    pDum = (pDummy)pCom->pData;
+    if(pDum != NULL){
+      return pDum->pDescriptor->GetInterface(pDum,DRIVEID);
+    }
+  }
+
+  return NULL;
+}