git.marmaro.de Git - mmh/blob - sbr/seq_nameok.c

   1 /*
   2 ** seq_nameok.c -- check if a sequence name is ok
   3 **
   4 ** This code is Copyright (c) 2002, by the authors of nmh.  See the
   5 ** COPYRIGHT file in the root directory of the nmh distribution for
   6 ** complete copyright information.
   7 */
   8
   9 #include <h/mh.h>
  10
  11
  12 int
  13 seq_nameok(unsigned char *s)
  14 {
  15         unsigned char *pp;
  16
  17         if (s == NULL || *s == '\0') {
  18                 advise(NULL, "empty sequence name");
  19                 return 0;
  20         }
  21
  22         /*
  23         ** Make sure sequence name doesn't clash with one
  24         ** of the `reserved' sequence names.
  25         */
  26         if (!(strcmp(s, "new") &&
  27                   strcmp(s, "all") &&
  28                   strcmp(s, "first") &&
  29                   strcmp(s, "last") &&
  30                   strcmp(s, "prev") &&
  31                   strcmp(s, "next"))) {
  32                 advise(NULL, "illegal sequence name: %s", s);
  33                 return 0;
  34         }
  35
  36         /*
  37         ** First character in a sequence name must be
  38         ** an alphabetic character ...
  39         */
  40         if (!isalpha(*s)) {
  41                 advise(NULL, "illegal sequence name: %s", s);
  42                 return 0;
  43         }
  44
  45         /*
  46         ** and can be followed by zero or more alphanumeric characters
  47         */
  48         for (pp = s + 1; *pp; pp++)
  49                 if (!isalnum(*pp)) {
  50                         advise(NULL, "illegal sequence name: %s", s);
  51                         return 0;
  52                 }
  53
  54         return 1;
  55 }