Revcoders

FUNCTION theExtension tPathAndFile

    IF tPathAndFile contains "." THEN

        set the itemdel to "."

        put item -1 of tPathAndFile into tExtension

        return tExtension

    ELSE

        return empty

    END IF

END theExtension

FUNCTION stripExtension p

    IF p contains "." THEN

        set the itemdel to "."

        delete item -1 of p

    END IF

    return p

END stripExtension