cleaned up myc library (M.Z.)

tecs/myc_str.c

@@ -5,7 +5,6 @@
 #include <assert.h>
 #include <string.h>
 #include <ctype.h>
-#include "sys_util.h"
 #include "myc_err.h"
 #include "myc_str.h"
 #include "myc_mem.h"
@@ -94,7 +93,6 @@ char *str_nsplit(char *dst, const char *src, char sep, int dstlen) {
 }
 
 char *str_read_until(FILE *fil, char *term, char *buf, char *end) {
-  char *s;
   char fmt[24];
   int i, l, siz;
   char ch;
@@ -122,8 +120,7 @@ char *str_read_until(FILE *fil, char *term, char *buf, char *end) {
 char *str_read_file(char *file) {
   FILE *fil;
   char *str, *s, *e, *p, *q;
-  char ch;
-  int i, l, size;
+  int i, size;
   struct stat statbuf;
   
   i=stat(file, &statbuf);
@@ -198,7 +195,7 @@ int str_nsubstitute(char *result, char *str, char *old, char *new, int reslen) {
 void str_nupcase(char *dst, const char *src, int dstlen) {
   dstlen--; /* space for trailing nul */
   while (*src!='\0' && dstlen>0) {
-    *dst=toupper(*src);
+    *dst=toupper((int)*src);
     dst++; src++;
     dstlen--;
   }
@@ -208,13 +205,14 @@ void str_nupcase(char *dst, const char *src, int dstlen) {
 void str_nlowcase(char *dst, const char *src, int dstlen) {
   dstlen--; /* space for trailing nul */
   while (*src!='\0' && dstlen>0) {
-    *dst=tolower(*src);
+    *dst=tolower((int)*src);
     dst++; src++;
     dstlen--;
   }
   *dst='\0';
 }
 
+#ifndef __GNUC__
 int strcasecmp(const char *str1, const char *str2) {
   int i;
   char ch1, ch2;
@@ -230,6 +228,7 @@ int strcasecmp(const char *str1, const char *str2) {
   }
   return(0);
 }
+#endif
 
 int str_ncpy(char *dst, const char *src, int maxdest) {
   strncpy(dst, src, maxdest);