mirror of
https://github.com/nillerusr/source-engine.git
synced 2025-01-03 14:06:44 +00:00
104 lines
3.2 KiB
Plaintext
104 lines
3.2 KiB
Plaintext
/* Define a C preprocessor symbol that can be used in interface files
|
||
to distinguish between the SWIG language modules. */
|
||
|
||
#define SWIG_UFFI
|
||
|
||
/* Typespecs for basic types. */
|
||
|
||
%typemap(ffitype) char ":char";
|
||
%typemap(ffitype) unsigned char ":unsigned-char";
|
||
%typemap(ffitype) signed char ":char";
|
||
%typemap(ffitype) short ":short";
|
||
%typemap(ffitype) signed short ":short";
|
||
%typemap(ffitype) unsigned short ":unsigned-short";
|
||
%typemap(ffitype) int ":int";
|
||
%typemap(ffitype) signed int ":int";
|
||
%typemap(ffitype) unsigned int ":unsigned-int";
|
||
%typemap(ffitype) long ":long";
|
||
%typemap(ffitype) signed long ":long";
|
||
%typemap(ffitype) unsigned long ":unsigned-long";
|
||
%typemap(ffitype) float ":float";
|
||
%typemap(ffitype) double ":double";
|
||
%typemap(ffitype) char * ":cstring";
|
||
%typemap(ffitype) void * ":pointer-void";
|
||
%typemap(ffitype) void ":void";
|
||
|
||
// FIXME: This is guesswork
|
||
typedef long size_t;
|
||
|
||
%wrapper %{
|
||
;; $Id: uffi.swg 7358 2005-08-09 15:09:15Z mkoeppe $
|
||
|
||
(eval-when (compile eval)
|
||
|
||
;;; You can define your own identifier converter if you want.
|
||
;;; Use the -identifier-converter command line argument to
|
||
;;; specify its name.
|
||
|
||
(defun identifier-convert-null (id &key type)
|
||
(declare (ignore type))
|
||
(read-from-string id))
|
||
|
||
(defun identifier-convert-lispify (cname &key type)
|
||
(assert (stringp cname))
|
||
(if (eq type :constant)
|
||
(setf cname (format nil "*~A*" cname)))
|
||
(setf cname (replace-regexp cname "_" "-"))
|
||
(let ((lastcase :other)
|
||
newcase char res)
|
||
(dotimes (n (length cname))
|
||
(setf char (schar cname n))
|
||
(if* (alpha-char-p char)
|
||
then
|
||
(setf newcase (if (upper-case-p char) :upper :lower))
|
||
|
||
(when (or (and (eq lastcase :upper) (eq newcase :lower))
|
||
(and (eq lastcase :lower) (eq newcase :upper)))
|
||
;; case change... add a dash
|
||
(push #\- res)
|
||
(setf newcase :other))
|
||
|
||
(push (char-downcase char) res)
|
||
|
||
(setf lastcase newcase)
|
||
|
||
else
|
||
(push char res)
|
||
(setf lastcase :other)))
|
||
(read-from-string (coerce (nreverse res) 'string))))
|
||
|
||
(defun identifier-convert-low-level (cname &key type)
|
||
(assert (stringp cname))
|
||
(if (eq type :constant)
|
||
(setf cname (format nil "+~A+" cname)))
|
||
(setf cname (substitute #\- #\_ cname))
|
||
(if (eq type :operator)
|
||
(setf cname (format nil "%~A" cname)))
|
||
(if (eq type :constant-function)
|
||
nil)
|
||
(read-from-string cname))
|
||
|
||
|
||
|
||
(defmacro swig-defconstant (string value &key (export T))
|
||
(let ((symbol (funcall *swig-identifier-converter* string :type :constant)))
|
||
`(eval-when (compile load eval)
|
||
(uffi:def-constant ,symbol ,value ,export))))
|
||
|
||
(defmacro swig-defun (name &rest rest)
|
||
(let ((symbol (funcall *swig-identifier-converter* name :type :operator)))
|
||
`(eval-when (compile load eval)
|
||
(uffi:def-function (,name ,symbol) ,@rest)
|
||
(export (quote ,symbol)))))
|
||
|
||
(defmacro swig-def-struct (name &rest fields)
|
||
"Declare a struct object"
|
||
(let ((symbol (funcall *swig-identifier-converter* name :type :type)))
|
||
`(eval-when (compile load eval)
|
||
(uffi:def-struct ,symbol ,@fields)
|
||
(export (quote ,symbol)))))
|
||
|
||
|
||
) ;; eval-when
|
||
%}
|