Gecko [ 122.154.134.11 ]

Name	Size	Permission
attribute.i	34 B	-rw-r--r--
boost_shared_ptr.i	15.27 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	59 B	-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.28 KB	-rw-r--r--
octcontainer.swg	16.08 KB	-rw-r--r--
octfragments.swg	1 B	-rw-r--r--
octiterators.swg	9.02 KB	-rw-r--r--
octopers.swg	2.61 KB	-rw-r--r--
octprimtypes.swg	5.34 KB	-rw-r--r--
octrun.swg	42.77 KB	-rw-r--r--
octruntime.swg	3.18 KB	-rw-r--r--
octstdcommon.swg	6.04 KB	-rw-r--r--
octtypemaps.swg	2.5 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.22 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	1.03 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_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 : octprimtypes.swg

/* ------------------------------------------------------------
 * Primitive Types
 * ------------------------------------------------------------ */

// boolean

%fragment(SWIG_From_frag(bool),"header") {
SWIGINTERNINLINE octave_value
  SWIG_From_dec(bool)(bool value)
{
  return octave_value(value);
}
}

%fragment(SWIG_AsVal_frag(bool),"header",
	  fragment=SWIG_AsVal_frag(long)) {
SWIGINTERN int
SWIG_AsVal_dec(bool)(const octave_value& ov, bool *val)
{
  if (!ov.is_bool_type())
    return SWIG_ERROR;
  if (val)
    *val = ov.bool_value();
  return SWIG_OK;
}
}

// long

%fragment(SWIG_From_frag(long),"header") {
  SWIGINTERNINLINE octave_value SWIG_From_dec(long)  (long value)
    {    
      return octave_value(value);
    }
}

%fragment(SWIG_AsVal_frag(long),"header") {
  SWIGINTERN int SWIG_AsVal_dec(long)(const octave_value& ov, long* val)
    {
      if (!ov.is_scalar_type())
	return SWIG_TypeError;
      if (ov.is_complex_scalar())
	return SWIG_TypeError;
      if (ov.is_double_type()||ov.is_single_type()) {
	double v=ov.double_value();
	if (v!=floor(v))
	  return SWIG_TypeError;
      }
      if (val)
	*val = ov.long_value();
      return SWIG_OK;
    }
}

// unsigned long

%fragment(SWIG_From_frag(unsigned long),"header") {
  SWIGINTERNINLINE octave_value SWIG_From_dec(unsigned long)  (unsigned long value)
    {    
      return octave_value(value);
    }
}

%fragment(SWIG_AsVal_frag(unsigned long),"header") {
  SWIGINTERN int SWIG_AsVal_dec(unsigned long)(const octave_value& ov, unsigned long* val)
    {
      if (!ov.is_scalar_type())
	return SWIG_TypeError;
      if (ov.is_complex_scalar())
	return SWIG_TypeError;
      if (ov.is_double_type()||ov.is_single_type()) {
	double v=ov.double_value();
	if (v<0)
	  return SWIG_OverflowError;  
	if (v!=floor(v))
	  return SWIG_TypeError;
      }
      if (ov.is_int8_type()||ov.is_int16_type()||
	  ov.is_int32_type()) {
	long v=ov.long_value();
	if (v<0)
	  return SWIG_OverflowError;  
      }
      if (ov.is_int64_type()) {
	long long v=ov.int64_scalar_value().value();
	if (v<0)
	  return SWIG_OverflowError;  
      }
      if (val)
	*val = ov.ulong_value();
      return SWIG_OK;
    }
}

// long long

%fragment(SWIG_From_frag(long long),"header") {
  SWIGINTERNINLINE octave_value SWIG_From_dec(long long)  (long long value)
    {    
      return octave_int64(value);
    }
}

%fragment(SWIG_AsVal_frag(long long),"header") {
  SWIGINTERN int SWIG_AsVal_dec(long long)(const octave_value& ov, long long* val)
    {
      if (!ov.is_scalar_type())
	return SWIG_TypeError;
      if (ov.is_complex_scalar())
	return SWIG_TypeError;
      if (ov.is_double_type()||ov.is_single_type()) {
	double v=ov.double_value();
	if (v!=floor(v))
	  return SWIG_TypeError;
      }
      if (val) {
	if (ov.is_int64_type())
	  *val = ov.int64_scalar_value().value();
	else if (ov.is_uint64_type())
	  *val = ov.uint64_scalar_value().value();
	else
	  *val = ov.long_value();
      }
      return SWIG_OK;
    }
}

%fragment(SWIG_From_frag(unsigned long long),"header") {
  SWIGINTERNINLINE octave_value SWIG_From_dec(unsigned long long)  (unsigned long long value)
    {    
      return octave_uint64(value);
    }
}

%fragment(SWIG_AsVal_frag(unsigned long long),"header") {
  SWIGINTERN int SWIG_AsVal_dec(unsigned long long)(const octave_value& ov, unsigned long long* val)
    {
      if (!ov.is_scalar_type())
	return SWIG_TypeError;
      if (ov.is_complex_scalar())
	return SWIG_TypeError;
      if (ov.is_double_type()||ov.is_single_type()) {
	double v=ov.double_value();
	if (v<0)
	  return SWIG_OverflowError;  
	if (v!=floor(v))
	  return SWIG_TypeError;
      }
      if (ov.is_int8_type()||ov.is_int16_type()||
	  ov.is_int32_type()) {
	long v=ov.long_value();
	if (v<0)
	  return SWIG_OverflowError;  
      }
      if (ov.is_int64_type()) {
	long long v=ov.int64_scalar_value().value();
	if (v<0)
	  return SWIG_OverflowError;  
      }
      if (val) {
	if (ov.is_int64_type())
	  *val = ov.int64_scalar_value().value();
	else if (ov.is_uint64_type())
	  *val = ov.uint64_scalar_value().value();
	else
	  *val = ov.long_value();
      }
      return SWIG_OK;
    }
}

// double

%fragment(SWIG_From_frag(double),"header") {
  SWIGINTERNINLINE octave_value SWIG_From_dec(double)  (double value)
    {    
      return octave_value(value);
    }
}

%fragment(SWIG_AsVal_frag(double),"header") {
  SWIGINTERN int SWIG_AsVal_dec(double)(const octave_value& ov, double* val)
    {
      if (!ov.is_scalar_type())
	return SWIG_TypeError;
      if (ov.is_complex_scalar())
	return SWIG_TypeError;
      if (val)
	*val = ov.double_value();
      return SWIG_OK;
    }
}

// const char* (strings)

%fragment("SWIG_AsCharPtrAndSize","header") {
SWIGINTERN int
SWIG_AsCharPtrAndSize(octave_value ov, char** cptr, size_t* psize, int *alloc)
{
  if (ov.is_cell() && ov.rows() == 1 && ov.columns() == 1)
    ov = ov.cell_value()(0);
  if (!ov.is_string())
    return SWIG_TypeError;
  
  std::string str=ov.string_value();
  size_t len=str.size();
  char* cstr=(char*)str.c_str();
  if (alloc) {
    *cptr = %new_copy_array(cstr, len + 1, char);
    *alloc = SWIG_NEWOBJ;
  } else if (cptr)
    *cptr = cstr;
  if (psize)
    *psize = len + 1;
  return SWIG_OK;
}
}

%fragment("SWIG_FromCharPtrAndSize","header",fragment="SWIG_pchar_descriptor") {
SWIGINTERNINLINE octave_value
SWIG_FromCharPtrAndSize(const char* carray, size_t size)
{
  return std::string(carray,carray+size);
}
}

${this.title}

Code Editor : octprimtypes.swg