added remove_first_and_last_char(string) => string

git-svn-id: https://openmodelica.org/svn/OpenModelica/trunk@1777 f25d12d1-65f4-0310-ae8a-bbce733d8d8e

modeq/winruntime/systemimpl.c

@@ -152,6 +152,27 @@ RML_BEGIN_LABEL(System__toupper)
 }
 RML_END_LABEL
 
+RML_BEGIN_LABEL(System__remove_5ffirst_5fand_5flast_5fchar)
+{
+  char *str = RML_STRINGDATA(rmlA0);
+  char *res = "";
+  int length=strlen(str);
+  int i;
+  if(length > 1)
+    {
+      res=malloc(length-2);
+      for(i = 1; i < length - 1; ++i)
+        res[i-1] = str[i];
+      res[length-2] = '\0';  
+    }
+  rmlA0 = (void*) mk_scon(res);
+  /* adrpo added 2004-10-29 */
+  free(res); 
+
+  RML_TAILCALLK(rmlSC);
+}
+RML_END_LABEL
+
 RML_BEGIN_LABEL(System__strcmp)
 {
   char *str = RML_STRINGDATA(rmlA0);