Gecko [ dataharbor.africa ]

Name	Size	Permission
attribute.i	34 B	-rw-r--r--
boost_shared_ptr.i	15.35 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	2.66 KB	-rw-r--r--
exception.i	139 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.93 KB	-rw-r--r--
octfragments.swg	1 B	-rw-r--r--
octiterators.swg	8.91 KB	-rw-r--r--
octopers.swg	2.61 KB	-rw-r--r--
octprimtypes.swg	5.34 KB	-rw-r--r--
octrun.swg	43.25 KB	-rw-r--r--
octruntime.swg	10.42 KB	-rw-r--r--
octstdcommon.swg	6.04 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	2.26 KB	-rw-r--r--
std_carray.i	1.55 KB	-rw-r--r--
std_char_traits.i	33 B	-rw-r--r--
std_common.i	2.28 KB	-rw-r--r--
std_complex.i	470 B	-rw-r--r--
std_container.i	59 B	-rw-r--r--
std_deque.i	679 B	-rw-r--r--
std_except.i	35 B	-rw-r--r--
std_list.i	677 B	-rw-r--r--
std_map.i	4.44 KB	-rw-r--r--
std_pair.i	3.06 KB	-rw-r--r--
std_string.i	35 B	-rw-r--r--
std_vector.i	700 B	-rw-r--r--
stl.i	181 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 (obj.is_cell()) {
	  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;
	  int res = SWIG_ConvertPtr(obj,(void**)&p,swig::type_info<value_type>(),0);
	  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))
	    return res1;
	  U *psecond = &(vp->second);
	  int res2 = swig::asval(second, psecond);
	  if (!SWIG_IsOK(res2))
	    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 (obj.is_cell()) {
	  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;
	  int res = SWIG_ConvertPtr(obj,(void**)&p,swig::type_info<value_type>(),0);
	  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