Perl added to the Unified typemap library, cleaner way to use the library, and 'normalized' macro names

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

SWIG/Examples/test-suite/constant_pointers.i

@@ -73,3 +73,37 @@ const int* globalRet1() {return &GlobalInt;}
 int* const globalRet2() {return &GlobalInt;}
 
 %}
+
+
+%{
+  struct A
+  {
+  };
+%}
+
+
+%inline 
+{
+  typedef const A* Acptr;
+
+  Acptr opaque(Acptr aptr) {
+    return aptr;
+  }
+
+  struct B
+  {
+    const A ca;
+    A a;
+    A* ap;
+    const A* cap;
+    Acptr acptr;  
+  };
+
+  const B* bar(const B* b) {
+    return b;
+  }
+
+  B const*& cbar(B const*& b) {
+    return b;
+  }
+}