Interface name handling improvements and special variable changes

Support expansion of name attribute in: %feature("interface", name="%s")
%s expands to the proxy class name and all the usual %rename functions
can be used (regex, strip, camelcase etc) to derive the interface name
from the proxy class name.
Rename $interfacename family of special variables to $javainterfacename for Java
Rename $interfacename family of special variables to $csinterfacename for C#
This is to free up $interfacename for simple interface name expansion in forthcoming commit

1 files changed, 23 insertions, 21 deletions

diff --git a/Lib/java/feature_interface.i b/Lib/java/feature_interface.i
index 4cdba9b5e..c5d4abd03 100644
--- a/Lib/java/feature_interface.i
+++ b/Lib/java/feature_interface.i
@@ -1,44 +1,46 @@
 %define DECLARE_INTERFACE_(INTERFACE, CTYPE...)
 %feature("interface", name="INTERFACE") CTYPE;
+//%feature("interface", name="%(rstrip:[Impl])s") CTYPE;
+//%feature("interface", name="%(regex:/(.*)Impl$/\\1/)s") CTYPE;
 %typemap(jtype) CTYPE, CTYPE *, CTYPE *const&, CTYPE [], CTYPE & "long"
-%typemap(jstype) CTYPE "$&interfacename"
-%typemap(jstype) CTYPE *, CTYPE [], CTYPE & "$interfacename"
-%typemap(jstype) CTYPE *const& "$*interfacename"
-%typemap(javain) CTYPE, CTYPE & "$javainput." ## #INTERFACE ## "_SWIGInterfaceUpcast()"
-%typemap(javain) CTYPE *, CTYPE *const&, CTYPE [] "($javainput == null) ? 0 : $javainput." ## #INTERFACE ## "_SWIGInterfaceUpcast()"
+%typemap(jstype) CTYPE "$&javainterfacename"
+%typemap(jstype) CTYPE *, CTYPE [], CTYPE & "$javainterfacename"
+%typemap(jstype) CTYPE *const& "$*javainterfacename"
+%typemap(javain) CTYPE, CTYPE & "$javainput." ## #INTERFACE ## "_GetInterfaceCPtr()"
+%typemap(javain) CTYPE *, CTYPE *const&, CTYPE [] "($javainput == null) ? 0 : $javainput." ## #INTERFACE ## "_GetInterfaceCPtr()"
 %typemap(javaout) CTYPE {
-    return ($&interfacename)new $&javaclassname($jnicall, true);
+    return ($&javainterfacename)new $&javaclassname($jnicall, true);
   }
 %typemap(javaout) CTYPE & {
-    return ($interfacename)new $javaclassname($jnicall, $owner);
+    return ($javainterfacename)new $javaclassname($jnicall, $owner);
   }
 %typemap(javaout) CTYPE *, CTYPE [] {
     long cPtr = $jnicall;
-    return (cPtr == 0) ? null : ($interfacename)new $javaclassname(cPtr, $owner);
+    return (cPtr == 0) ? null : ($javainterfacename)new $javaclassname(cPtr, $owner);
   }
 %typemap(javaout) CTYPE *const& {
     long cPtr = $jnicall;
-    return (cPtr == 0) ? null : ($interfacename)new $javaclassname(cPtr, $owner);
+    return (cPtr == 0) ? null : ($javainterfacename)new $javaclassname(cPtr, $owner);
   }
 
-%typemap(javadirectorin) CTYPE "($&interfacename)new $&javaclassname($jniinput, false)"
-%typemap(javadirectorin) CTYPE & "($interfacename)new $javaclassname($jniinput, false)"
-%typemap(javadirectorin) CTYPE *, CTYPE [] "($jniinput == 0) ? null : ($interfacename)new $javaclassname($jniinput, false)"
-%typemap(javadirectorin) CTYPE *const& "($jniinput == 0) ? null : ($*interfacename)new $*javaclassname($jniinput, false)"
-%typemap(javadirectorout) CTYPE, CTYPE *, CTYPE *const&, CTYPE [], CTYPE & "$javacall." ## #INTERFACE ## "_SWIGInterfaceUpcast()"
-%typemap(directorin,descriptor="L$packagepath/$&interfacename;") CTYPE
+%typemap(javadirectorin) CTYPE "($&javainterfacename)new $&javaclassname($jniinput, false)"
+%typemap(javadirectorin) CTYPE & "($javainterfacename)new $javaclassname($jniinput, false)"
+%typemap(javadirectorin) CTYPE *, CTYPE [] "($jniinput == 0) ? null : ($javainterfacename)new $javaclassname($jniinput, false)"
+%typemap(javadirectorin) CTYPE *const& "($jniinput == 0) ? null : ($*javainterfacename)new $*javaclassname($jniinput, false)"
+%typemap(javadirectorout) CTYPE, CTYPE *, CTYPE *const&, CTYPE [], CTYPE & "$javacall." ## #INTERFACE ## "_GetInterfaceCPtr()"
+%typemap(directorin,descriptor="L$packagepath/$&javainterfacename;") CTYPE
 %{ $input = 0;
    *(($&1_ltype*)&$input) = &$1; %}
-%typemap(directorin,descriptor="L$packagepath/$interfacename;") CTYPE *, CTYPE []
+%typemap(directorin,descriptor="L$packagepath/$javainterfacename;") CTYPE *, CTYPE []
 %{ *(($&1_ltype)&$input) = ($1_ltype) $1; %}
-%typemap(directorin,descriptor="L$packagepath/$interfacename;") CTYPE &
+%typemap(directorin,descriptor="L$packagepath/$javainterfacename;") CTYPE &
 %{ *($&1_ltype)&$input = ($1_ltype) &$1; %}
-%typemap(directorin,descriptor="L$packagepath/$*interfacename;") CTYPE *const&
+%typemap(directorin,descriptor="L$packagepath/$*javainterfacename;") CTYPE *const&
 %{ *($&1_ltype)&$input = ($1_ltype) &$1; %}
 
-%typemap(javainterfacecode, declaration="  long " ## #INTERFACE ## "_SWIGInterfaceUpcast();\n", cptrmethod=#INTERFACE ## "_SWIGInterfaceUpcast") CTYPE %{
-  public long INTERFACE##_SWIGInterfaceUpcast() {
-    return $imclassname.$javaclazzname##INTERFACE##_SWIGInterfaceUpcast(swigCPtr);
+%typemap(javainterfacecode, declaration="  long " ## #INTERFACE ## "_GetInterfaceCPtr();\n", cptrmethod=#INTERFACE ## "_GetInterfaceCPtr") CTYPE %{
+  public long INTERFACE##_GetInterfaceCPtr() {
+    return $imclassname.$javaclazzname##INTERFACE##_GetInterfaceCPtr(swigCPtr);
   }
 %}
 %enddef