picksbr.c: fprintf function pointer with unsigned-long-long cast.

[nmh] / sbr / seq_nameok.c

diff --git a/sbr/seq_nameok.c b/sbr/seq_nameok.c
index 66319b5ef4368ffcb8701416f1d1a13722192d59..6d219c52a56da6aa57053395fb6698750e6bb08d 100644 (file)
--- a/sbr/seq_nameok.c
+++ b/sbr/seq_nameok.c
@@ -1,8 +1,8 @@
-
-/*
- * seq_nameok.c -- check if a sequence name is ok
+/* seq_nameok.c -- check if a sequence name is ok
  *
- * $Id$
+ * This code is Copyright (c) 2002, by the authors of nmh.  See the
+ * COPYRIGHT file in the root directory of the nmh distribution for
+ * complete copyright information.
  */
 
 #include <h/mh.h>
@@ -14,7 +14,7 @@ seq_nameok (char *s)
     char *pp;
 
     if (s == NULL || *s == '\0') {
-       advise (NULL, "empty sequence name");
+       inform("empty sequence name");
        return 0;
     }
 
@@ -28,7 +28,7 @@ seq_nameok (char *s)
          strcmp (s, "last") &&
          strcmp (s, "prev") &&
          strcmp (s, "next"))) {
-       advise (NULL, "illegal sequence name: %s", s);
+       inform("illegal sequence name: %s", s);
        return 0;
     }
 
@@ -36,8 +36,8 @@ seq_nameok (char *s)
      * First character in a sequence name must be
      * an alphabetic character ...
      */
-    if (!isalpha (*s)) {
-       advise (NULL, "illegal sequence name: %s", s);
+    if (!isalpha ((unsigned char) *s)) {
+       inform("illegal sequence name: %s", s);
        return 0;
     }
 
@@ -45,8 +45,8 @@ seq_nameok (char *s)
      * 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);
+       if (!isalnum ((unsigned char) *pp)) {
+           inform("illegal sequence name: %s", s);
            return 0;
        }