Gecko [ www.jdcpatala.org ]

Name	Size	Permission
Makefile.swig	942 B	-rw-r--r--
argcargv.i	1.2 KB	-rw-r--r--
attribute.i	34 B	-rw-r--r--
boost_shared_ptr.i	20.93 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--
cpointer.i	33 B	-rw-r--r--
cstring.i	32 B	-rw-r--r--
director.swg	6.91 KB	-rw-r--r--
embed.i	169 B	-rw-r--r--
exception.i	126 B	-rw-r--r--
extconf.rb	234 B	-rw-r--r--
factory.i	32 B	-rw-r--r--
file.i	642 B	-rw-r--r--
progargcargv.i	770 B	-rw-r--r--
ruby.swg	2.59 KB	-rw-r--r--
rubyapi.swg	801 B	-rw-r--r--
rubyautodoc.swg	4.26 KB	-rw-r--r--
rubyclasses.swg	11.08 KB	-rw-r--r--
rubycomplex.swg	3.77 KB	-rw-r--r--
rubycontainer.swg	28.13 KB	-rw-r--r--
rubycontainer_extended.swg	3.46 KB	-rw-r--r--
rubydef.swg	42 B	-rw-r--r--
rubyerrors.swg	3.63 KB	-rw-r--r--
rubyfragments.swg	552 B	-rw-r--r--
rubyhead.swg	4.74 KB	-rw-r--r--
rubyinit.swg	39 B	-rw-r--r--
rubyiterators.swg	22.29 KB	-rw-r--r--
rubykw.swg	1.15 KB	-rw-r--r--
rubymacros.swg	456 B	-rw-r--r--
rubyopers.swg	1.81 KB	-rw-r--r--
rubyprimtypes.swg	5.34 KB	-rw-r--r--
rubyrun.swg	13.76 KB	-rw-r--r--
rubyruntime.swg	423 B	-rw-r--r--
rubystdautodoc.swg	1.78 KB	-rw-r--r--
rubystdcommon.swg	4.8 KB	-rw-r--r--
rubystdcommon_forward.swg	542 B	-rw-r--r--
rubystdfunctors.swg	3.96 KB	-rw-r--r--
rubystrings.swg	1.53 KB	-rw-r--r--
rubytracking.swg	4.66 KB	-rw-r--r--
rubytypemaps.swg	1.77 KB	-rw-r--r--
rubyuserdir.swg	657 B	-rw-r--r--
rubywstrings.swg	2.03 KB	-rw-r--r--
std_alloc.i	27 B	-rw-r--r--
std_array.i	3.45 KB	-rw-r--r--
std_basic_string.i	2.6 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	612 B	-rw-r--r--
std_container.i	60 B	-rw-r--r--
std_deque.i	731 B	-rw-r--r--
std_except.i	35 B	-rw-r--r--
std_functors.i	768 B	-rw-r--r--
std_ios.i	380 B	-rw-r--r--
std_iostream.i	227 B	-rw-r--r--
std_list.i	1.04 KB	-rw-r--r--
std_map.i	11.06 KB	-rw-r--r--
std_multimap.i	5.98 KB	-rw-r--r--
std_multiset.i	1.4 KB	-rw-r--r--
std_pair.i	5.41 KB	-rw-r--r--
std_queue.i	850 B	-rw-r--r--
std_set.i	6.38 KB	-rw-r--r--
std_shared_ptr.i	4.15 KB	-rw-r--r--
std_sstream.i	30 B	-rw-r--r--
std_stack.i	852 B	-rw-r--r--
std_streambuf.i	31 B	-rw-r--r--
std_string.i	153 B	-rw-r--r--
std_unordered_map.i	2.92 KB	-rw-r--r--
std_unordered_multimap.i	3.48 KB	-rw-r--r--
std_unordered_multiset.i	1.87 KB	-rw-r--r--
std_unordered_set.i	1.77 KB	-rw-r--r--
std_vector.i	1.19 KB	-rw-r--r--
std_vectora.i	950 B	-rw-r--r--
std_wstring.i	1.3 KB	-rw-r--r--
stl.i	291 B	-rw-r--r--
timeval.i	1.15 KB	-rw-r--r--
typemaps.i	11.05 KB	-rw-r--r--

Code Editor : std_pair.i

/*
  Pairs
*/
%include <rubystdcommon.swg>

//#define SWIG_STD_PAIR_ASVAL

%fragment("StdPairTraits","header",fragment="StdTraits") {
  namespace swig {

template <class T, class U >
    struct traits_asval<std::pair<T,U> >  {
      typedef std::pair<T,U> value_type;

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

static int asval(VALUE obj, std::pair<T,U> *val) {
	int res = SWIG_ERROR;
	if ( TYPE(obj) == T_ARRAY ) {
	  if (RARRAY_LEN(obj) == 2) {
	    VALUE first = rb_ary_entry(obj,0);
	    VALUE second = rb_ary_entry(obj,1);
	    res = get_pair(first, second, val);
	  }
	} else {
	  value_type *p;
	  swig_type_info *descriptor = swig::type_info<value_type>();
	  res = descriptor ? SWIG_ConvertPtr(obj, (void **)&p, descriptor, 0) : SWIG_ERROR;
	  if (SWIG_IsOK(res) && val)  *val = *p;
	}
	return res;
      }
    };

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

static int get_pair(VALUE first, 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((VALUE)first, pfirst);
	  if (!SWIG_IsOK(res1)) {
	    %delete(vp);
	    return res1;
	  }
	  U *psecond = &(vp->second);
	  int res2 = swig::asval((VALUE)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((VALUE)first, pfirst);
	  if (!SWIG_IsOK(res1)) return res1;
	  U *psecond = 0;
	  int res2 = swig::asval((VALUE)second, psecond);
	  if (!SWIG_IsOK(res2)) return res2;
	  return res1 > res2 ? res1 : res2;
	}
      }

static int asptr(VALUE obj, std::pair<T,U> **val) {
	int res = SWIG_ERROR;
	if ( TYPE(obj) == T_ARRAY ) {
	  if ( RARRAY_LEN(obj) == 2) {
	    VALUE first = rb_ary_entry(obj,0);
	    VALUE second = rb_ary_entry(obj,1);
	    res = get_pair(first, second, val);
	  }
	} else {
	  value_type *p;
	  swig_type_info *descriptor = swig::type_info<value_type>();
	  res = descriptor ? SWIG_ConvertPtr(obj, (void **)&p, descriptor, 0) : SWIG_ERROR;
	  if (SWIG_IsOK(res) && val)  *val = p;
	}
	return res;
      }
    };

template <class T, class U >
    struct traits_from<std::pair<T,U> >   {
      static VALUE _wrap_pair_second( VALUE self )
      {
	std::pair< typename swig::noconst_traits<T >::noconst_type,U>* p = NULL;
	swig::asptr( self, &p );
	return swig::from( p->second );
      }

static VALUE _wrap_pair_second_eq( VALUE self, VALUE arg )
      {
	std::pair< typename swig::noconst_traits<T >::noconst_type,U>* p = NULL;
	swig::asptr( self, &p );
	return swig::from( p->second );
      }

static VALUE from(const std::pair<T,U>& val) {
	VALUE obj = rb_ary_new2(2);
	rb_ary_push(obj, swig::from<typename swig::noconst_traits<T >::noconst_type>(val.first));
	rb_ary_push(obj, swig::from(val.second));
	rb_define_singleton_method(obj, "second",
				   VALUEFUNC(_wrap_pair_second), 0 );
	rb_define_singleton_method(obj, "second=",
				   VALUEFUNC(_wrap_pair_second_eq), 1 );
	rb_obj_freeze(obj); // treat as immutable tuple
	return obj;
      }
    };

}
}

// Missing typemap
%typemap(in) std::pair* (int res) {
  res = swig::asptr( $input, &$1 );
  if (!SWIG_IsOK(res))
    %argument_fail(res, "$1_type", $symname, $argnum); 
}

%define %swig_pair_methods(pair...)

%extend { 
  VALUE inspect() const
    {
      VALUE tmp;
      const char *type_name = swig::type_name< pair >();
      VALUE str = rb_str_new2( type_name );
      str = rb_str_cat2( str, " (" );
      tmp = swig::from( $self->first );
      tmp = rb_obj_as_string( tmp );
      str = rb_str_buf_append( str, tmp );
      str = rb_str_cat2( str, "," );
      tmp = swig::from( $self->second );
      tmp = rb_obj_as_string( tmp );
      str = rb_str_buf_append( str, tmp );
      str = rb_str_cat2( str, ")" );
      return str;
    }

VALUE to_s() const
    {
      VALUE tmp;
      VALUE str = rb_str_new2( "(" );
      tmp = swig::from( $self->first );
      tmp = rb_obj_as_string( tmp );
      str = rb_str_buf_append( str, tmp );
      str = rb_str_cat2( str, "," );
      tmp = swig::from( $self->second );
      tmp = rb_obj_as_string( tmp );
      str = rb_str_buf_append( str, tmp );
      str = rb_str_cat2( str, ")" );
      return str;
    }

VALUE __getitem__( int index )
    { 
      if (( index % 2 ) == 0 )
	return swig::from( $self->first );
      else
	return swig::from( $self->second );
    }

VALUE __setitem__( int index, VALUE obj )
    { 
      int res;
      if (( index % 2 ) == 0 )
	{
	  res = swig::asval( obj, &($self->first) );
	}
      else
	{
	  res = swig::asval(obj, &($self->second) );
	}
      if (!SWIG_IsOK(res))
	rb_raise( rb_eArgError, "invalid item for " #pair );
      return obj;
    }

} // extend

%enddef

%include <std/std_pair.i>

${this.title}

Code Editor : std_pair.i