View Raw SPL
_getrtos(fromcnf)
{
local delim, otherstr = "";
if (argc < 1)
{
fromcnf = 0;
}
if (fromcnf)
{
delim = getconf("readt_delimiters");
}
else
{
delim = getvar("_readt_delimiters");
}
if (strlen(delim) > 0)
{
/* convert to series */
delchrs = charstrs(delim);
/* delete standard delimiters */
/* tab */
delchrs = delete(delchrs, delchrs == charstr(strescape("\t")));
/* space */
delchrs = delete(delchrs, delchrs == charstr(" "));
/* comma */
delchrs = delete(delchrs, delchrs == charstr(","));
/* semicolon */
delchrs = delete(delchrs, delchrs == charstr(";"));
/* convert to string */
otherstr = strchars(delchrs);
}
return(otherstr);
}