- inserted command statistic

- add runscript parameter to environment object
- added Arg2Tcl0 function

splitter.c

@@ -400,12 +400,18 @@ typedef enum _CharType {eSpace, eNum,eeText,eQuote} CharType;
     return 1;
   }  
 /*--------------------------------------------------------------------------*/
-char *Arg2Tcl(int argc, char *argv[], char *buffer, int buffersize) {
-  int i, l, firstArgToQuote, quote;
+char *Arg2Tcl0(int argc, char *argv[], char *buffer, int buffersize, char *prepend) {
+  int i, l, firstArgToQuote, quote, prependlen;
   char ch;
   char *res, *arg;
   
-  l = 0;
+  if (prepend) {
+    prependlen = strlen(prepend);
+    l = prependlen + 1;
+  } else {
+    prependlen = 0;
+    l = 0;
+  }
   firstArgToQuote = argc;
   quote = 0;
   for (i=0; i<argc; i++) {
@@ -443,6 +449,11 @@ char *Arg2Tcl(int argc, char *argv[], char *buffer, int buffersize) {
     if (buffer == NULL) return NULL;
   }
   res = buffer;
+  if (prepend) {
+    strcpy(res, prepend);
+    res += prependlen;
+    *res++ = ' ';
+  }
   for (i=0; i<argc; i++) {
     if (i >= firstArgToQuote) *res++ = '"';
     arg = argv[i];
@@ -464,6 +475,10 @@ char *Arg2Tcl(int argc, char *argv[], char *buffer, int buffersize) {
   *res='\0';
   return buffer;
 }
+/*--------------------------------------------------------------------------*/
+char *Arg2Tcl(int argc, char *argv[], char *buffer, int buffersize) {
+  return Arg2Tcl0(argc, argv, buffer, buffersize, NULL);
+}
 /*============================================================================
 
 	Testprogram, can be activated by defining MAIN