Initial commit!

libami/strutil.c

@@ -0,0 +1,36 @@
+#include "libami.h"
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <locale.h>
+#include <ctype.h>
+
+#ifndef AMIGAOS
+
+UBYTE ToUpper(UBYTE ch)
+{
+  static int firstcall=1;
+  if(firstcall) {
+    setlocale(LC_CTYPE, "");
+    firstcall=0;
+  }
+  return toupper(ch);
+}
+
+LONG StrToLong(STRPTR str, LONG *n)
+{
+  STRPTR end;
+
+  *n=strtol((char *)str, (char **)&end, 0);
+  return end-str;
+}
+
+LONG Stricmp(STRPTR a, STRPTR b)
+{
+  while(*a && *b)
+    if(ToUpper(*a++)!=ToUpper(*b++))
+      return FALSE;
+  return !(*a || *b);
+}
+
+#endif