New common runtime function SWIG_TypePrettyName.

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@5901 626c5289-ae23-0410-ae9c-e8d60b6d4f22

SWIG/Lib/chicken/precommon.swg

@@ -11,6 +11,7 @@
 #define SWIG_TypeCast        SWIG_Chicken_TypeCast
 #define SWIG_TypeDynamicCast SWIG_Chicken_TypeDynamicCast
 #define SWIG_TypeName        SWIG_Chicken_TypeName
+#define SWIG_TypePrettyName  SWIG_Chicken_TypePrettyName
 #define SWIG_TypeQuery       SWIG_Chicken_TypeQuery
 #define SWIG_TypeClientData  SWIG_Chicken_TypeClientData
 #define SWIG_PackData        SWIG_Chicken_PackData 

SWIG/Lib/common.swg

@@ -68,6 +68,7 @@ SWIGIMPORT(swig_type_info *) SWIG_TypeCheck(char *c, swig_type_info *);
 SWIGIMPORT(void *)           SWIG_TypeCast(swig_type_info *, void *);
 SWIGIMPORT(swig_type_info *) SWIG_TypeDynamicCast(swig_type_info *, void **);
 SWIGIMPORT(const char *)     SWIG_TypeName(const swig_type_info *);
+SWIGIMPORT(const char *)     SWIG_TypePrettyName(const swig_type_info *);
 SWIGIMPORT(swig_type_info *) SWIG_TypeQuery(const char *);
 SWIGIMPORT(void)             SWIG_TypeClientData(swig_type_info *, void *);
 SWIGIMPORT(char *)           SWIG_PackData(char *, void *, int);
@@ -167,6 +168,26 @@ SWIG_TypeName(const swig_type_info *ty) {
   return ty->name;
 }
 
+/* Return the pretty name associated with this type,
+   that is an unmangled type name in a form presentable to the user.
+*/
+SWIGRUNTIME(const char *)
+SWIG_TypePrettyName(const swig_type_info *type) {
+  /* The "str" field contains the equivalent pretty names of the
+     type, separated by vertical-bar characters.  We choose
+     to print the last name, as it is often (?) the most
+     specific. */
+  if (type->str != NULL) {
+    const char *last_name = type->str;
+    const char *s;
+    for (s = type->str; *s; s++)
+      if (*s == '|') last_name = s+1;
+    return last_name;
+  }
+  else
+    return type->name;
+}
+
 /* 
    Compare two type names skipping the space characters, therefore
    "char*" == "char *" and "Class<int>" == "Class<int >", etc.

SWIG/Lib/guile/precommon.swg

@@ -11,6 +11,7 @@
 #define SWIG_TypeCast        SWIG_Guile_TypeCast
 #define SWIG_TypeDynamicCast SWIG_Guile_TypeDynamicCast
 #define SWIG_TypeName        SWIG_Guile_TypeName
+#define SWIG_TypePrettyName  SWIG_Guile_TypePrettyName
 #define SWIG_TypeQuery       SWIG_Guile_TypeQuery
 #define SWIG_TypeClientData  SWIG_Guile_TypeClientData
 #define SWIG_PackData        SWIG_Guile_PackData 

SWIG/Lib/mzscheme/precommon.swg

@@ -11,6 +11,7 @@
 #define SWIG_TypeCast        SWIG_MzScheme_TypeCast
 #define SWIG_TypeDynamicCast SWIG_MzScheme_TypeDynamicCast
 #define SWIG_TypeName        SWIG_MzScheme_TypeName
+#define SWIG_TypePrettyName  SWIG_MzScheme_TypePrettyName
 #define SWIG_TypeQuery       SWIG_MzScheme_TypeQuery
 #define SWIG_TypeClientData  SWIG_MzScheme_TypeClientData
 #define SWIG_PackData        SWIG_MzScheme_PackData 

SWIG/Lib/perl5/precommon.swg

@@ -11,6 +11,7 @@
 #define SWIG_TypeCast        SWIG_Perl_TypeCast
 #define SWIG_TypeDynamicCast SWIG_Perl_TypeDynamicCast
 #define SWIG_TypeName        SWIG_Perl_TypeName
+#define SWIG_TypePrettyName  SWIG_Perl_TypePrettyName
 #define SWIG_TypeQuery       SWIG_Perl_TypeQuery
 #define SWIG_TypeClientData  SWIG_Perl_TypeClientData
 #define SWIG_PackData        SWIG_Perl_PackData 

SWIG/Lib/php4/precommon.swg

@@ -11,6 +11,7 @@
 #define SWIG_TypeCast        SWIG_PHP4_TypeCast
 #define SWIG_TypeDynamicCast SWIG_PHP4_TypeDynamicCast
 #define SWIG_TypeName        SWIG_PHP4_TypeName
+#define SWIG_TypePrettyName  SWIG_PHP4_TypePrettyName
 #define SWIG_TypeQuery       SWIG_PHP4_TypeQuery
 #define SWIG_TypeClientData  SWIG_PHP4_TypeClientData
 #define SWIG_PackData        SWIG_PHP4_PackData 

SWIG/Lib/pike/precommon.swg

@@ -11,6 +11,7 @@
 #define SWIG_TypeCast        SWIG_Pike_TypeCast
 #define SWIG_TypeDynamicCast SWIG_Pike_TypeDynamicCast
 #define SWIG_TypeName        SWIG_Pike_TypeName
+#define SWIG_TypePrettyName  SWIG_Pike_TypePrettyName
 #define SWIG_TypeQuery       SWIG_Pike_TypeQuery
 #define SWIG_TypeClientData  SWIG_Pike_TypeClientData
 #define SWIG_PackData        SWIG_Pike_PackData 

SWIG/Lib/python/precommon.swg

@@ -11,6 +11,7 @@
 #define SWIG_TypeCast        SWIG_Python_TypeCast
 #define SWIG_TypeDynamicCast SWIG_Python_TypeDynamicCast
 #define SWIG_TypeName        SWIG_Python_TypeName
+#define SWIG_TypePrettyName  SWIG_Python_TypePrettyName
 #define SWIG_TypeQuery       SWIG_Python_TypeQuery
 #define SWIG_TypeClientData  SWIG_Python_TypeClientData
 #define SWIG_PackData        SWIG_Python_PackData 

SWIG/Lib/ruby/precommon.swg

@@ -11,6 +11,7 @@
 #define SWIG_TypeCast        SWIG_Ruby_TypeCast
 #define SWIG_TypeDynamicCast SWIG_Ruby_TypeDynamicCast
 #define SWIG_TypeName        SWIG_Ruby_TypeName
+#define SWIG_TypePrettyName  SWIG_Ruby_TypePrettyName
 #define SWIG_TypeQuery       SWIG_Ruby_TypeQuery
 #define SWIG_TypeClientData  SWIG_Ruby_TypeClientData
 #define SWIG_PackData        SWIG_Ruby_PackData 

SWIG/Lib/tcl/precommon.swg

@@ -11,6 +11,7 @@
 #define SWIG_TypeCast        SWIG_Tcl_TypeCast
 #define SWIG_TypeDynamicCast SWIG_Tcl_TypeDynamicCast
 #define SWIG_TypeName        SWIG_Tcl_TypeName
+#define SWIG_TypePrettyName  SWIG_Tcl_TypePrettyName
 #define SWIG_TypeQuery       SWIG_Tcl_TypeQuery
 #define SWIG_TypeClientData  SWIG_Tcl_TypeClientData
 #define SWIG_PackData        SWIG_Tcl_PackData