X-Git-Url: https://diplodocus.org/git/nmh/blobdiff_plain/5dd6771b28c257af405d7248639ed0e3bcdce38b..39a9d9d85d0f2289d8c1257251311b7cf959c700:/sbr/seq_nameok.c

diff --git a/sbr/seq_nameok.c b/sbr/seq_nameok.c
index 6887ac6a..3942b0e3 100644
--- a/sbr/seq_nameok.c
+++ b/sbr/seq_nameok.c
@@ -11,12 +11,12 @@
 
 
 int
-seq_nameok (unsigned char *s)
+seq_nameok (char *s)
 {
-    unsigned char *pp;
+    char *pp;
 
     if (s == NULL || *s == '\0') {
-	advise (NULL, "empty sequence name");
+	inform("empty sequence name");
 	return 0;
     }
 
@@ -30,7 +30,7 @@ seq_nameok (unsigned 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;
     }
 
@@ -38,8 +38,8 @@ seq_nameok (unsigned 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;
     }
 
@@ -47,8 +47,8 @@ seq_nameok (unsigned 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;
 	}