Lines Matching defs:Swig
4 ;;;* This file contains generic SWIG GOOPS classes for generated
8 (define-module (Swig swigrun))
10 (define-module (Swig common)
12 #:use-module (Swig swigrun))
14 (define-class <swig-metaclass> (<class>)
17 (define-method (initialize (class <swig-metaclass>) initargs)
21 (define-class <swig> ()
22 (swig-smob #:init-value #f)
23 #:metaclass <swig-metaclass>
26 (define-method (initialize (obj <swig>) initargs)
28 (slot-set! obj 'swig-smob
34 ;; new-Function will return a <swig> goops class. In that case, extract the smob
36 (if (slot-exists? ret 'swig-smob)
37 (slot-ref ret 'swig-smob)
44 ;; Don't fail if the function SWIG-PointerAddress is not present.
45 (let ((address (false-if-exception (SWIG-PointerAddress o))))
51 (define-method (write (o <swig>) file)
68 (export <swig-metaclass> <swig>)
