View Raw SPL
_getcbos(use_default, copy)
{
        local delim, otherstr = "";

        if (argc < 2)
        {
                if (argc < 1)
                {
                        use_default = 0;
                }
                copy = 0;
        }

        if (use_default)
        {
                if (copy)
                {
                        delim = getconfdef("clipboard_column_separator");
                }
                else
                {
                        delim = getconfdef("clipboard_delimiters");
                }

        }
        else
        {
                if (copy)
                {
                        delim = getconf("clipboard_column_separator");
                }
                else
                {
                        delim = getconf("clipboard_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);
}