source: trunk/third/nmh/sbr/seq_nameok.c @ 12455

/*
 * seq_nameok.c -- check if a sequence name is ok
 *
 * $Id: seq_nameok.c,v 1.1.1.1 1999-02-07 18:14:10 danw Exp $
 */

#include <h/mh.h>


int
seq_nameok (char *s)
{
    char *pp;

    if (s == NULL || *s == '\0') {
        advise (NULL, "empty sequence name");
        return 0;
    }

    /*
     * Make sure sequence name doesn't clash with one
     * of the `reserved' sequence names.
     */
    if (!(strcmp (s, "new") &&
          strcmp (s, "all") &&
          strcmp (s, "first") &&
          strcmp (s, "last") &&
          strcmp (s, "prev") &&
          strcmp (s, "next"))) {
        advise (NULL, "illegal sequence name: %s", s);
        return 0;
    }

    /*
     * First character in a sequence name must be
     * an alphabetic character ...
     */
    if (!isalpha (*s)) {
        advise (NULL, "illegal sequence name: %s", s);
        return 0;
    }

    /*
     * and can be followed by zero or more alphanumeric characters
     */
    for (pp = s + 1; *pp; pp++)
        if (!isalnum (*pp)) {
            advise (NULL, "illegal sequence name: %s", s);
            return 0;
        }

    return 1;
}