FM / octave

/usr/share/swig/3.0.12/octave/

/usr/share/swig/3.0.12/octave

Name	Size	Mode	Actions
attribute.i	34	0644	edit dl rm
boost_shared_ptr.i	15898	0644	edit dl rm
carrays.i	129	0644	edit dl rm
cdata.i	30	0644	edit dl rm
cmalloc.i	32	0644	edit dl rm
director.swg	3036	0644	edit dl rm
exception.i	427	0644	edit dl rm
factory.i	32	0644	edit dl rm
implicit.i	287	0644	edit dl rm
octave.swg	222	0644	edit dl rm
octcomplex.swg	2368	0644	edit dl rm
octcontainer.swg	16311	0644	edit dl rm
octfragments.swg	1	0644	edit dl rm
octiterators.swg	9120	0644	edit dl rm
octopers.swg	2625	0644	edit dl rm
octprimtypes.swg	5787	0644	edit dl rm
octrun.swg	45160	0644	edit dl rm
octruntime.swg	15662	0644	edit dl rm
octstdcommon.swg	6260	0644	edit dl rm
octtypemaps.swg	2458	0644	edit dl rm
octuserdir.swg	1814	0644	edit dl rm
std_alloc.i	27	0644	edit dl rm
std_basic_string.i	2317	0644	edit dl rm
std_char_traits.i	33	0644	edit dl rm
std_common.i	2328	0644	edit dl rm
std_complex.i	470	0644	edit dl rm
std_container.i	59	0644	edit dl rm
std_deque.i	679	0644	edit dl rm
std_except.i	35	0644	edit dl rm
std_list.i	677	0644	edit dl rm
std_map.i	4720	0644	edit dl rm
std_pair.i	3330	0644	edit dl rm
std_shared_ptr.i	68	0644	edit dl rm
std_string.i	35	0644	edit dl rm
std_vector.i	700	0644	edit dl rm
std_wstring.i	35	0644	edit dl rm
stl.i	181	0644	edit dl rm
typemaps.i	33	0644	edit dl rm

Edit: /usr/share/swig/3.0.12/octave/std_pair.i (3330B)

// 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;
	  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 (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;
	  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>

cmd: