- introduced ForEachCommand function

2008-02-13 09:47:25 +00:00
parent 4954522ef8
commit 4efc67821d
2 changed files with 25 additions and 2 deletions
--- a/SCinter.c
+++ b/SCinter.c
@@ -1109,3 +1109,19 @@ char *FindAliases(SicsInterp *pSics, char *name)
 	  DeleteDynString(result);
 	  return charResult;
 }
+/*---------------------------------------------------------------------*/
+void ForEachCommand(int (*scanFunction)(char *name, pDummy object, void *userData)
+                  , void *userData)
+{
+  CommandList *pCurrent;
+  
+  
+  for(pCurrent = pServ->pSics->pCList;
+      pCurrent != NULL;
+      pCurrent = pCurrent->pNext)
+  {
+    if(scanFunction(pCurrent->pName, pCurrent->pData, userData) == 0) {
+      return;
+    }
+  }
+}