Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
carray.i	3.1 KB	-rw-r--r--
class.swg	1.75 KB	-rw-r--r--
cstring.i	5.93 KB	-rw-r--r--
director.swg	2.96 KB	-rw-r--r--
ocaml.i	1.28 KB	-rw-r--r--
ocaml.swg	8.36 KB	-rw-r--r--
ocamlkw.swg	1.16 KB	-rw-r--r--
ocamlrun.swg	14.61 KB	-rw-r--r--
ocamlrundec.swg	6.29 KB	-rw-r--r--
preamble.swg	473 B	-rw-r--r--
std_common.i	597 B	-rw-r--r--
std_complex.i	1.51 KB	-rw-r--r--
std_deque.i	722 B	-rw-r--r--
std_except.i	1.4 KB	-rw-r--r--
std_list.i	4.33 KB	-rw-r--r--
std_map.i	2.54 KB	-rw-r--r--
std_pair.i	773 B	-rw-r--r--
std_string.i	3.08 KB	-rw-r--r--
std_vector.i	2.98 KB	-rw-r--r--
stl.i	291 B	-rw-r--r--
swig.ml	4.74 KB	-rw-r--r--
swig.mli	1.72 KB	-rw-r--r--
swigp4.ml	6.5 KB	-rw-r--r--
typecheck.i	5.21 KB	-rw-r--r--
typemaps.i	1.99 KB	-rw-r--r--
typeregister.swg	55 B	-rw-r--r--

Code Editor : std_complex.i

// -*- C++ -*- 
#ifndef SWIG_STD_COMPLEX_I_
#define SWIG_STD_COMPLEX_I_

#ifdef SWIG

%{
#include <complex>
%}

namespace std 
{
  template <class T> class complex;  
  
  %define specialize_std_complex(T)
  
  %typemap(in) complex<T> {
    if (PyComplex_Check($input)) {
      $1 = std::complex<T>(PyComplex_RealAsDouble($input),
			   PyComplex_ImagAsDouble($input));
    } else if (PyFloat_Check($input)) {
      $1 = std::complex<T>(PyFloat_AsDouble($input), 0);
    } else if (PyInt_Check($input)) {
      $1 = std::complex<T>(PyInt_AsLong($input), 0);
    }
    else {
      PyErr_SetString(PyExc_TypeError,"Expected a complex");
      SWIG_fail;
    }
  }  
  
  %typemap(in) const complex<T>& (std::complex<T> temp) {
    if (PyComplex_Check($input)) {
      temp = std::complex<T>(PyComplex_RealAsDouble($input),
			     PyComplex_ImagAsDouble($input));
      $1 = &temp;
    } else if (PyFloat_Check($input)) {
      temp = std::complex<T>(PyFloat_AsDouble($input), 0);
      $1 = &temp;
    } else if (PyInt_Check($input)) {
      temp = std::complex<T>(PyInt_AsLong($input), 0);
      $1 = &temp;
    } else {	
      PyErr_SetString(PyExc_TypeError,"Expected a complex");
      SWIG_fail;
    }
  }
  
  %typemap(out) complex<T> {
    $result = PyComplex_FromDoubles($1.real(), $1.imag());
  }
  
  %typemap(out) const complex<T> & {
    $result = PyComplex_FromDoubles($1->real(), $1->imag());
  }

%enddef  
     
  specialize_std_complex(double);
  specialize_std_complex(float);
}
  
#endif // SWIG

#endif //SWIG_STD_COMPLEX_I_

${this.title}

Code Editor : std_complex.i