Changeset 1215 in Sophya for trunk/SophyaPI/PIext/nomgadapter.cc

Timestamp:

Oct 1, 2000, 11:23:16 PM (25 years ago)

Author:

ercodmgr

Message:

intro corrections typeid(T).name() pour Linux cmv 1/10/00

File:

• trunk/SophyaPI/PIext/nomgadapter.cc (modified) (1 diff)

trunk/SophyaPI/PIext/nomgadapter.cc

@@ -142 +142 @@
 return(NULL);
 }
+
+/* --Methode-- */
+string NObjMgrAdapter::DecodeTypeIdName(string linuxtype)
+// seulement pour Linux qui ne code pas correctement
+{
+#if defined(Linux)  || defined(linux)
+  string type("");
+  const char* str = linuxtype.c_str();
+  int lstr = (int) strlen(str);
+  if(lstr<=0) return string("Linux Decoding error: lstr<=0");
+
+  // Le dernier caractere donne le type
+  lstr--;
+  if     (str[lstr]=='v') type = "void";
+  else if(str[lstr]=='b') type = "bool";
+  else if(str[lstr]=='c') type = "char";
+  else if(str[lstr]=='s') type = "short";
+  else if(str[lstr]=='i') type = "int";
+  else if(str[lstr]=='l') type = "long";
+  else if(str[lstr]=='x') type = "long long";
+  else if(str[lstr]=='f') type = "float";
+  else if(str[lstr]=='d') type = "double";
+  else if(str[lstr]=='r') type = "long double";
+  else return string("Linux Decoding error: bad last char");
+  if(lstr==0) return type;
+
+  // Les 2 caracteres precedents donnent: signed, unsigned, *, & ou const.
+  // Mais si on a un Z, alors c'est un complexe (code ...t7complex1Z...)
+  for(int i=0; i<=2; i++) {
+    lstr--;
+    if     (str[lstr]=='U') type = "unsigned " + type;
+    else if(str[lstr]=='S') type = "signed " + type;
+    else if(str[lstr]=='P') type = type + "*";
+    else if(str[lstr]=='R') type = type + "&";
+    else if(str[lstr]=='C') type = "const " + type;
+    else if(str[lstr]=='Z') {  // Complexe
+      type = "complex<" + type + ">";
+      for(int j=0;j<=1;j++) {
+        if     (str[j]=='P') type = type + "*";
+        else if(str[j]=='R') type = type + "&";
+        else if(str[j]=='C') type = "const " + type;
+        else if(str[j]=='t') break;
+        else return string("Linux Decoding error: bad char 1,2 for Z");
+      }
+      break;
+    }
+    else return string("Linux Decoding error: bad last-1,last-2 char");
+    if(lstr==0) break;
+  }
+
+return type;
+
+#else
+return linuxtype
+#endif
+}