DSM: utils.splitStringCR splits string on \n

example:
 sys.popen($myresult="/bin/ls wav/*");
 utils.splitStringCR($myresult);

apps/dsm/mods/mod_utils/ModUtils.cpp

@@ -47,6 +47,7 @@ MOD_ACTIONEXPORT_BEGIN(MOD_CLS_NAME) {
   DEF_CMD("utils.add", SCUSAddAction);
   DEF_CMD("utils.sub", SCUSSubAction);
   DEF_CMD("utils.int", SCUIntAction);
+  DEF_CMD("utils.splitStringCR", SCUSplitStringAction);
 } MOD_ACTIONEXPORT_END;
 
 MOD_CONDITIONEXPORT_NONE(MOD_CLS_NAME);
@@ -212,3 +213,28 @@ EXEC_ACTION_START(SCUIntAction) {
       varname.c_str(), sc_sess->var[varname].c_str());
 
 } EXEC_ACTION_END;
+
+CONST_ACTION_2P(SCUSplitStringAction, ',', true);
+EXEC_ACTION_START(SCUSplitStringAction) {
+  size_t cntr = 0;
+  string str = resolveVars(par1, sess, sc_sess, event_params);
+  string dst_array = par2;
+  if (!dst_array.length())
+    dst_array = par1;
+  if (dst_array.length() && dst_array[0]=='$')
+    dst_array = dst_array.substr(1);
+  
+  size_t p = 0, last_p = 0;
+  while (true) {
+    p = str.find("\n", last_p);
+    if (p==string::npos) {
+      if (last_p < str.length())
+	sc_sess->var[dst_array+"["+int2str(cntr)+"]"] = str.substr(last_p);
+      break;
+    }
+    
+    sc_sess->var[dst_array+"["+int2str(cntr++)+"]"] = str.substr(last_p, p-last_p);
+
+    last_p = p+1;    
+  }
+} EXEC_ACTION_END;

apps/dsm/mods/mod_utils/ModUtils.h

@@ -41,4 +41,5 @@ DEF_ACTION_1P(SCUSRandomAction);
 DEF_ACTION_2P(SCUSAddAction);
 DEF_ACTION_2P(SCUSSubAction);
 DEF_ACTION_2P(SCUIntAction);
+DEF_ACTION_2P(SCUSplitStringAction);
 #endif

doc/dsm/mods/Readme.mod_utils.txt

@@ -33,4 +33,11 @@ Actions:
  utils.int($var, val)
    get integer part of val into var
 
-
+ utils.splitStringCR($var [, $dstvar])
+ utils.splitStringCR(val, $dstvar])
+   split a string on newline (carriage return, \n) 
+   into an array ($var[0]..$var[n])
+
+   example: 
+    sys.popen($myresult="/bin/ls wav/*");    
+    utils.splitStringCR($myresult);