01/09/2006: mutandiz

Fixes a number of SEGVs primarily in the handling of
	various anonymous types. Found in a pass through the
	swig test-suite. Still more to do here, but this is a
	good checkpoint.

	Adds -cwrap and -nocwrap as an allegrocl specific
	command-line argument. Controls generating of a C
	wrapper file when wrapping C code. By default only a
	lisp file is created for C code wrapping.

	Doc updates for the command-line arguments and fixes as
	pointed out on swig-devel


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

Lib/allegrocl/allegrocl.swg

@@ -469,6 +469,7 @@ $body)"
                   collect sym))))
 
 (in-package #.*swig-module-name*)
+
 %}
 
 

Lib/allegrocl/longlongs.i

@@ -0,0 +1,33 @@
+/* longlongs.i
+
+   Typemap addition for support of 'long long' type and 'unsigned long long 
+   Makes use of swig-def-foreign-class, so this header should be loaded
+   after allegrocl.swg and after any custom user identifier-conversion
+   functions have been defined.
+
+*/
+
+%typemap(in) long long, unsigned long long "$1 = $input;";
+%typemap(out) long long, unsigned long long "$result = $1;";
+
+%typemap(ffitype) long long "(:struct (l1 :long) (l2 :long))";
+%typemap(ffitype) unsigned long long "(:struct (l1 :unsigned-long)
+         (l2 :unsigned-long))";
+
+%typemap(lout) long long 
+"  (make-instance #.(swig-insert-id \"longlong\" () :type :class)
+                  :foreign-address $body)";
+%typemap(lout) unsigned long long
+"  (make-instance #.(swig-insert-id \"ulonglong\" () :type :class)
+                  :foreign-address $body)";
+
+%insert("lisphead") %{
+
+(swig-def-foreign-class "longlong"
+ (ff:foreign-pointer)
+ (:struct (:struct (l1 :long) (l2 :long))))
+
+(swig-def-foreign-class "ulonglong"
+ (ff:foreign-pointer)
+ (:struct (:struct (l1 :unsigned-long) (l2 :unsigned-long))))
+%}