/* does SPL exist? */
splexists(splname)
{
        local p, fname, ext, status;

        if (argc < 1) error(sprintf("%s - input name required", __FUNC__));

        (p, fname, ext) = fileparts(splname);

        /* check if loaded */
        if ((status = isspl(eval("fname"))) == 0)
        {
                /* check file */
                if (strlen(ext) == 0)
                {
                        splname = splname + ".spl";
                }

                p = which(splname, 0);

                status = strlen(p) > 0;
        }

        return(status);
}