Gecko [ www.casapremiada.novaexata.com.br ]

Name	Size	Permission
carray.i	3.18 KB	-rw-r--r--
class.swg	1.68 KB	-rw-r--r--
cstring.i	5.93 KB	-rw-r--r--
director.swg	2.94 KB	-rw-r--r--
ocaml.i	1.42 KB	-rw-r--r--
ocaml.swg	14.05 KB	-rw-r--r--
ocamldec.swg	5.21 KB	-rw-r--r--
ocamlkw.swg	1.04 KB	-rw-r--r--
preamble.swg	473 B	-rw-r--r--
std_common.i	531 B	-rw-r--r--
std_complex.i	1.51 KB	-rw-r--r--
std_deque.i	722 B	-rw-r--r--
std_list.i	4.22 KB	-rw-r--r--
std_map.i	2.28 KB	-rw-r--r--
std_pair.i	712 B	-rw-r--r--
std_string.i	3.13 KB	-rw-r--r--
std_vector.i	2.69 KB	-rw-r--r--
stl.i	357 B	-rw-r--r--
swig.ml	4.57 KB	-rw-r--r--
swig.mli	1.66 KB	-rw-r--r--
swigp4.ml	6.5 KB	-rw-r--r--
typecheck.i	4.59 KB	-rw-r--r--
typemaps.i	8.83 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