*** empty log message ***

exebuf.c

@@ -11,6 +11,7 @@
 #include <stdio.h>
 #include <assert.h>
 #include <tcl.h>
+#include "lld_str.h"
 #include "fortify.h"
 #include "sics.h"
 #include "exebuf.h"
@@ -232,6 +233,45 @@ int exeBufProcess(pExeBuf self, SicsInterp *pSics,
   }
   return 1;
 }
+/*---------------------------------------------------------------------*/
+int exeBufProcessErrList(pExeBuf self, SicsInterp *pSics, 
+            SConnection *pCon, int errList){
+  pDynString command = NULL;
+  Tcl_Interp *pTcl = NULL;
+  int status;
+  
+  static int weWantLogging = 1;
+  char *cmd;
+  char cmdName[128];
+  char *ende;
+  int l;
+  
+  assert(self);
+  assert(pSics);
+
+  self->start = 0;
+  self->end = -1;
+  self->lineno = 0;
+  pTcl = InterpGetTcl(pSics);
+
+  while((command = findBlockEnd(self)) != NULL){
+    cmd = GetCharArray(command);
+        
+    status = Tcl_Eval(pTcl,cmd);
+    if(status != TCL_OK){
+        LLDstringAppend(errList,cmd);
+    }
+    DeleteDynString(command);
+    if(SCGetInterrupt(pCon) >= eAbortBatch){
+      SCWrite(pCon,"ERROR: batch processing interrupted",eError);
+      SetStatus(eEager);
+      return 0;
+    } else {
+      SCSetInterrupt(pCon,eContinue);
+    }
+  }
+  return 1;
+}
 /*------------------------------------------------------------------------*/
 void exeBufRange(pExeBuf self, int *start, int *end, int *lineno){
   assert(self);