| /* ----------------------------------------------------------------------------- |
| * See the LICENSE file for information on copyright, usage and redistribution |
| * of SWIG, and the README file for authors - http://www.swig.org/release.html. |
| * |
| * 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)))) |
| %} |