[Turn off line numbering]1: arg str; 2: var out, i, s; 3: 4: out = []; 5: while ((i = "*" in str)) { 6: out += [substr(str, 1, i - 1), ""]; 7: str = str.subrange(i + 1); 8: } 9: if (str) 10: out += [str]; 11: return out;
// Created 27-Mar-1995 as a part of ColdCore, see: @help Credit