Added new port TinyBasic

(An improved version in conjunction with ktcc can generate executable files.)

git-svn-id: svn://kolibrios.org@8733 a494cfbc-eb01-0410-851d-a64ba20cac60

programs/develop/tinybasic-1.0.4/src/common.c

@@ -0,0 +1,43 @@
+/*
+ * Tiny BASIC Interpreter and Compiler Project
+ * Common service routines module
+ *
+ * Released as Public Domain by Damian Gareth Walker 2019
+ * Created: 20-Sep-2019
+ */
+
+
+/* included headers */
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <ctype.h>
+#include "common.h"
+
+
+/*
+ * Top Level Routines
+ */
+
+
+/*
+ * Portable case-insensitive comparison
+ * params:
+ *   char*   a   string to compare
+ *   char*   b   string to compare to
+ * returns:
+ *   int         -1 if a<b, 0 if a==b, 1 if a>b
+ */
+int tinybasic_strcmp (char *a, char *b) {
+  do {
+    if (toupper (*a) != toupper (*b))
+      return (toupper (*a) > toupper (*b))
+        - (toupper (*a) < toupper (*b));
+    else {
+      a++;
+      b++;
+    }
+  } while (*a && *b);
+  return 0;
+}
+