Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
attribute.i	34 B	-rw-r--r--
boost_shared_ptr.i	20.88 KB	-rw-r--r--
carrays.i	129 B	-rw-r--r--
cdata.i	30 B	-rw-r--r--
cmalloc.i	32 B	-rw-r--r--
director.swg	3.32 KB	-rw-r--r--
exception.i	427 B	-rw-r--r--
factory.i	32 B	-rw-r--r--
implicit.i	287 B	-rw-r--r--
octave.swg	222 B	-rw-r--r--
octcomplex.swg	2.31 KB	-rw-r--r--
octcontainer.swg	15.78 KB	-rw-r--r--
octfragments.swg	1 B	-rw-r--r--
octheaders.hpp	3.96 KB	-rw-r--r--
octiterators.swg	8.91 KB	-rw-r--r--
octopers.swg	2.56 KB	-rw-r--r--
octprimtypes.swg	5.79 KB	-rw-r--r--
octrun.swg	48.65 KB	-rw-r--r--
octruntime.swg	14.21 KB	-rw-r--r--
octstdcommon.swg	5.82 KB	-rw-r--r--
octtypemaps.swg	2.4 KB	-rw-r--r--
octuserdir.swg	1.77 KB	-rw-r--r--
std_alloc.i	27 B	-rw-r--r--
std_basic_string.i	1.61 KB	-rw-r--r--
std_carray.i	0 B	-rw-r--r--
std_char_traits.i	33 B	-rw-r--r--
std_common.i	2.27 KB	-rw-r--r--
std_complex.i	584 B	-rw-r--r--
std_container.i	59 B	-rw-r--r--
std_deque.i	678 B	-rw-r--r--
std_except.i	35 B	-rw-r--r--
std_list.i	676 B	-rw-r--r--
std_map.i	4.61 KB	-rw-r--r--
std_pair.i	3.43 KB	-rw-r--r--
std_shared_ptr.i	68 B	-rw-r--r--
std_string.i	35 B	-rw-r--r--
std_vector.i	700 B	-rw-r--r--
std_wstring.i	35 B	-rw-r--r--
stl.i	291 B	-rw-r--r--
typemaps.i	33 B	-rw-r--r--

Code Editor : std_pair.i

// Pairs

%include <octstdcommon.swg>

//#define SWIG_STD_PAIR_ASVAL

%fragment("StdPairTraits","header",fragment="StdTraits") {
  namespace swig {
#ifdef SWIG_STD_PAIR_ASVAL
    template <class T, class U >
    struct traits_asval<std::pair<T,U> >  {
      typedef std::pair<T,U> value_type;

static int get_pair(const octave_value& first, octave_value second,
			  std::pair<T,U> *val)
      {
	if (val) {
	  T *pfirst = &(val->first);
	  int res1 = swig::asval(first, pfirst);
	  if (!SWIG_IsOK(res1))
	    return res1;
	  U *psecond = &(val->second);
	  int res2 = swig::asval(second, psecond);
	  if (!SWIG_IsOK(res2))
	    return res2;
	  return res1 > res2 ? res1 : res2;
	} else {
	  T *pfirst = 0;
	  int res1 = swig::asval(first, pfirst);
	  if (!SWIG_IsOK(res1))
	    return res1;
	  U *psecond = 0;
	  int res2 = swig::asval((PyObject*)second, psecond);
	  if (!SWIG_IsOK(res2))
	    return res2;
	  return res1 > res2 ? res1 : res2;
	}
      }

static int asval(const octave_value& obj, std::pair<T,U> *val) {
	if (
%#if SWIG_OCTAVE_PREREQ(4,4,0)
          obj.iscell()
%#else
          obj.is_cell()
%#endif
        ) {
	  Cell c=obj.cell_value();
	  if (c.numel()<2) {
	    error("pair from Cell array requires at least two elements");
	    return SWIG_ERROR;
	  }
	  return get_pair(c(0),c(1),val);
	} else {
	  value_type *p;
	  swig_type_info *descriptor = swig::type_info<value_type>();
	  int res = descriptor ? SWIG_ConvertPtr(obj, (void **)&p, descriptor, 0) : SWIG_ERROR;
	  if (SWIG_IsOK(res) && val)
	    *val = *p;
	  return res;
	}
	return SWIG_ERROR;
      }
    };

#else
    template <class T, class U >
    struct traits_asptr<std::pair<T,U> >  {
      typedef std::pair<T,U> value_type;

static int get_pair(const octave_value& first, octave_value second,
			  std::pair<T,U> **val) 
      {
	if (val) {
	  value_type *vp = %new_instance(std::pair<T,U>);
	  T *pfirst = &(vp->first);
	  int res1 = swig::asval(first, pfirst);
	  if (!SWIG_IsOK(res1)) {
	    %delete(vp);
	    return res1;
	  }
	  U *psecond = &(vp->second);
	  int res2 = swig::asval(second, psecond);
	  if (!SWIG_IsOK(res2)) {
	    %delete(vp);
	    return res2;
	  }
	  *val = vp;
	  return SWIG_AddNewMask(res1 > res2 ? res1 : res2);
	} else {
	  T *pfirst = 0;
	  int res1 = swig::asval(first, pfirst);
	  if (!SWIG_IsOK(res1))
	    return res1;
	  U *psecond = 0;
	  int res2 = swig::asval(second, psecond);
	  if (!SWIG_IsOK(res2))
	    return res2;
	  return res1 > res2 ? res1 : res2;
	}
	return SWIG_ERROR;
      }

static int asptr(const octave_value& obj, std::pair<T,U> **val) {
	if (
%#if SWIG_OCTAVE_PREREQ(4,4,0)
          obj.iscell()
%#else
          obj.is_cell()
%#endif
        ) {
	  Cell c=obj.cell_value();
	  if (c.numel()<2) {
	    error("pair from Cell array requires at least two elements");
	    return SWIG_ERROR;
	  }
	  return get_pair(c(0),c(1),val);
	} else {
	  value_type *p;
	  swig_type_info *descriptor = swig::type_info<value_type>();
	  int res = descriptor ? SWIG_ConvertPtr(obj, (void **)&p, descriptor, 0) : SWIG_ERROR;
	  if (SWIG_IsOK(res) && val)
	    *val = p;
	  return res;
	}
	return SWIG_ERROR;
      }
    };

#endif
    template <class T, class U >
    struct traits_from<std::pair<T,U> >   {
      static octave_value from(const std::pair<T,U>& val) {
	Cell c(1,2);
	c(0)=swig::from(val.first);
	c(1)=swig::from(val.second);
	return c;
      }
    };
  }
}

%define %swig_pair_methods(pair...)
%enddef

%include <std/std_pair.i>

${this.title}

Code Editor : std_pair.i