You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
36 lines
1.4 KiB
36 lines
1.4 KiB
/* ----------------------------------------------------------------------------- |
|
* 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)))) |
|
%}
|
|
|