X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=sim%2Fucsim%2Futils.cc;h=b7a625d393c0e4a2d2b479c343d85d2af1d0810f;hb=32f9d7bd4da99c9837bc529a8d847c7c0d873684;hp=1a410ebbaedb090e81abdec49da66bfb3a091dfc;hpb=8800bcde618fdcb64399e279df088a7e781c64d6;p=fw%2Fsdcc

diff --git a/sim/ucsim/utils.cc b/sim/ucsim/utils.cc
index 1a410ebb..b7a625d3 100644
--- a/sim/ucsim/utils.cc
+++ b/sim/ucsim/utils.cc
@@ -182,4 +182,48 @@ object_name(class cl_base *o)
 }
 
 
+char *
+case_string(enum letter_case lcase, char *str)
+{
+  char *p= strdup(str);
+  char *s= p;
+
+  switch (lcase)
+    {
+    case case_upper:
+      while (p && *p) {
+	*p= toupper(*p);
+	p++;
+      }
+      break;
+    case case_lower:
+      while (p && *p) {
+	*p= tolower(*p);
+	p++;
+      }
+      break;
+    case case_case:
+      if (!p || *p == '\0')
+	break;
+      while (isspace(*p)) p++;
+      if (*p)
+	*p= toupper(*p);
+      break;
+    }
+  return(s);
+}
+
+/*char *
+case_string(enum letter_case lcase, const char *str)
+{
+  char *p= NIL;
+
+  if (!str ||
+      !*str)
+    return(NIL);
+  p= strdup(str);
+  return case_string(lcase, p);
+}*/
+
+
 /* End of utils.cc */