mirror of
https://github.com/nillerusr/source-engine.git
synced 2024-12-27 16:43:01 +00:00
874 lines
43 KiB
OpenEdge ABL
874 lines
43 KiB
OpenEdge ABL
/* -----------------------------------------------------------------------------
|
|
* See the LICENSE file for information on copyright, usage and redistribution
|
|
* of SWIG, and the README file for authors - http://www.swig.org/release.html.
|
|
*
|
|
* std_pair.i
|
|
*
|
|
* SWIG typemaps for std::pair
|
|
* ----------------------------------------------------------------------------- */
|
|
|
|
%include <std_common.i>
|
|
%include <exception.i>
|
|
|
|
|
|
// ------------------------------------------------------------------------
|
|
// std::pair
|
|
//
|
|
// See std_vector.i for the rationale of typemap application
|
|
// ------------------------------------------------------------------------
|
|
|
|
%{
|
|
#include <utility>
|
|
%}
|
|
|
|
// exported class
|
|
|
|
namespace std {
|
|
|
|
template<class T, class U> struct pair {
|
|
%typemap(in) pair<T,U> (std::pair<T,U>* m) {
|
|
if (SCHEME_PAIRP($input)) {
|
|
T* x;
|
|
U* y;
|
|
Scheme_Object *first, *second;
|
|
first = scheme_car($input);
|
|
second = scheme_cdr($input);
|
|
x = (T*) SWIG_MustGetPtr(first,$descriptor(T *),$argnum, 0);
|
|
y = (U*) SWIG_MustGetPtr(second,$descriptor(U *),$argnum, 0);
|
|
$1 = std::make_pair(*x,*y);
|
|
} else {
|
|
$1 = *(($&1_type)
|
|
SWIG_MustGetPtr($input,$&1_descriptor,$argnum, 0));
|
|
}
|
|
}
|
|
%typemap(in) const pair<T,U>& (std::pair<T,U> temp,
|
|
std::pair<T,U>* m),
|
|
const pair<T,U>* (std::pair<T,U> temp,
|
|
std::pair<T,U>* m) {
|
|
if (SCHEME_PAIRP($input)) {
|
|
T* x;
|
|
U* y;
|
|
Scheme_Object *first, *second;
|
|
first = scheme_car($input);
|
|
second = scheme_cdr($input);
|
|
x = (T*) SWIG_MustGetPtr(first,$descriptor(T *),$argnum, 0);
|
|
y = (U*) SWIG_MustGetPtr(second,$descriptor(U *),$argnum, 0);
|
|
temp = std::make_pair(*x,*y);
|
|
$1 = &temp;
|
|
} else {
|
|
$1 = ($1_ltype)
|
|
SWIG_MustGetPtr($input,$1_descriptor,$argnum, 0);
|
|
}
|
|
}
|
|
%typemap(out) pair<T,U> {
|
|
T* x = new T($1.first);
|
|
U* y = new U($1.second);
|
|
Scheme_Object* first = SWIG_NewPointerObj(x,$descriptor(T *), 1);
|
|
Scheme_Object* second = SWIG_NewPointerObj(y,$descriptor(U *), 1);
|
|
$result = scheme_make_pair(first,second);
|
|
}
|
|
%typecheck(SWIG_TYPECHECK_PAIR) pair<T,U> {
|
|
/* native pair? */
|
|
if (SCHEME_PAIRP($input)) {
|
|
T* x;
|
|
U* y;
|
|
Scheme_Object* first = scheme_car($input);
|
|
Scheme_Object* second = scheme_cdr($input);
|
|
if (SWIG_ConvertPtr(first,(void**) &x,
|
|
$descriptor(T *), 0) != -1 &&
|
|
SWIG_ConvertPtr(second,(void**) &y,
|
|
$descriptor(U *), 0) != -1) {
|
|
$1 = 1;
|
|
} else {
|
|
$1 = 0;
|
|
}
|
|
} else {
|
|
/* wrapped pair? */
|
|
std::pair<T,U >* p;
|
|
if (SWIG_ConvertPtr($input,(void **) &p,
|
|
$&1_descriptor, 0) != -1)
|
|
$1 = 1;
|
|
else
|
|
$1 = 0;
|
|
}
|
|
}
|
|
%typecheck(SWIG_TYPECHECK_PAIR) const pair<T,U>&,
|
|
const pair<T,U>* {
|
|
/* native pair? */
|
|
if (SCHEME_PAIRP($input)) {
|
|
T* x;
|
|
U* y;
|
|
Scheme_Object* first = scheme_car($input);
|
|
Scheme_Object* second = scheme_cdr($input);
|
|
if (SWIG_ConvertPtr(first,(void**) &x,
|
|
$descriptor(T *), 0) != -1 &&
|
|
SWIG_ConvertPtr(second,(void**) &y,
|
|
$descriptor(U *), 0) != -1) {
|
|
$1 = 1;
|
|
} else {
|
|
$1 = 0;
|
|
}
|
|
} else {
|
|
/* wrapped pair? */
|
|
std::pair<T,U >* p;
|
|
if (SWIG_ConvertPtr($input,(void **) &p,
|
|
$1_descriptor, 0) != -1)
|
|
$1 = 1;
|
|
else
|
|
$1 = 0;
|
|
}
|
|
}
|
|
pair();
|
|
pair(T first, U second);
|
|
pair(const pair& p);
|
|
|
|
template <class U1, class U2> pair(const pair<U1, U2> &p);
|
|
|
|
T first;
|
|
U second;
|
|
};
|
|
|
|
// specializations for built-ins
|
|
|
|
%define specialize_std_pair_on_first(T,CHECK,CONVERT_FROM,CONVERT_TO)
|
|
template<class U> struct pair<T,U> {
|
|
%typemap(in) pair<T,U> (std::pair<T,U>* m) {
|
|
if (SCHEME_PAIRP($input)) {
|
|
U* y;
|
|
Scheme_Object *first, *second;
|
|
first = scheme_car($input);
|
|
second = scheme_cdr($input);
|
|
if (!CHECK(first))
|
|
SWIG_exception(SWIG_TypeError,
|
|
"pair<" #T "," #U "> expected");
|
|
y = (U*) SWIG_MustGetPtr(second,$descriptor(U *),$argnum, 0);
|
|
$1 = std::make_pair(CONVERT_FROM(first),*y);
|
|
} else {
|
|
$1 = *(($&1_type)
|
|
SWIG_MustGetPtr($input,$&1_descriptor,$argnum, 0));
|
|
}
|
|
}
|
|
%typemap(in) const pair<T,U>& (std::pair<T,U> temp,
|
|
std::pair<T,U>* m),
|
|
const pair<T,U>* (std::pair<T,U> temp,
|
|
std::pair<T,U>* m) {
|
|
if (SCHEME_PAIRP($input)) {
|
|
U* y;
|
|
Scheme_Object *first, *second;
|
|
first = scheme_car($input);
|
|
second = scheme_cdr($input);
|
|
if (!CHECK(first))
|
|
SWIG_exception(SWIG_TypeError,
|
|
"pair<" #T "," #U "> expected");
|
|
y = (U*) SWIG_MustGetPtr(second,$descriptor(U *),$argnum, 0);
|
|
temp = std::make_pair(CONVERT_FROM(first),*y);
|
|
$1 = &temp;
|
|
} else {
|
|
$1 = ($1_ltype)
|
|
SWIG_MustGetPtr($input,$1_descriptor,$argnum, 0);
|
|
}
|
|
}
|
|
%typemap(out) pair<T,U> {
|
|
U* y = new U($1.second);
|
|
Scheme_Object* second = SWIG_NewPointerObj(y,$descriptor(U *), 1);
|
|
$result = scheme_make_pair(CONVERT_TO($1.first),second);
|
|
}
|
|
%typecheck(SWIG_TYPECHECK_PAIR) pair<T,U> {
|
|
/* native pair? */
|
|
if (SCHEME_PAIRP($input)) {
|
|
U* y;
|
|
Scheme_Object* first = scheme_car($input);
|
|
Scheme_Object* second = scheme_cdr($input);
|
|
if (CHECK(first) &&
|
|
SWIG_ConvertPtr(second,(void**) &y,
|
|
$descriptor(U *), 0) != -1) {
|
|
$1 = 1;
|
|
} else {
|
|
$1 = 0;
|
|
}
|
|
} else {
|
|
/* wrapped pair? */
|
|
std::pair<T,U >* p;
|
|
if (SWIG_ConvertPtr($input,(void **) &p,
|
|
$&1_descriptor, 0) != -1)
|
|
$1 = 1;
|
|
else
|
|
$1 = 0;
|
|
}
|
|
}
|
|
%typecheck(SWIG_TYPECHECK_PAIR) const pair<T,U>&,
|
|
const pair<T,U>* {
|
|
/* native pair? */
|
|
if (SCHEME_PAIRP($input)) {
|
|
U* y;
|
|
Scheme_Object* first = scheme_car($input);
|
|
Scheme_Object* second = scheme_cdr($input);
|
|
if (CHECK(first) &&
|
|
SWIG_ConvertPtr(second,(void**) &y,
|
|
$descriptor(U *), 0) != -1) {
|
|
$1 = 1;
|
|
} else {
|
|
$1 = 0;
|
|
}
|
|
} else {
|
|
/* wrapped pair? */
|
|
std::pair<T,U >* p;
|
|
if (SWIG_ConvertPtr($input,(void **) &p,
|
|
$1_descriptor, 0) != -1)
|
|
$1 = 1;
|
|
else
|
|
$1 = 0;
|
|
}
|
|
}
|
|
pair();
|
|
pair(T first, U second);
|
|
pair(const pair& p);
|
|
|
|
template <class U1, class U2> pair(const pair<U1, U2> &p);
|
|
|
|
T first;
|
|
U second;
|
|
};
|
|
%enddef
|
|
|
|
%define specialize_std_pair_on_second(U,CHECK,CONVERT_FROM,CONVERT_TO)
|
|
template<class T> struct pair<T,U> {
|
|
%typemap(in) pair<T,U> (std::pair<T,U>* m) {
|
|
if (SCHEME_PAIRP($input)) {
|
|
T* x;
|
|
Scheme_Object *first, *second;
|
|
first = scheme_car($input);
|
|
second = scheme_cdr($input);
|
|
x = (T*) SWIG_MustGetPtr(first,$descriptor(T *),$argnum, 0);
|
|
if (!CHECK(second))
|
|
SWIG_exception(SWIG_TypeError,
|
|
"pair<" #T "," #U "> expected");
|
|
$1 = std::make_pair(*x,CONVERT_FROM(second));
|
|
} else {
|
|
$1 = *(($&1_type)
|
|
SWIG_MustGetPtr($input,$&1_descriptor,$argnum, 0));
|
|
}
|
|
}
|
|
%typemap(in) const pair<T,U>& (std::pair<T,U> temp,
|
|
std::pair<T,U>* m),
|
|
const pair<T,U>* (std::pair<T,U> temp,
|
|
std::pair<T,U>* m) {
|
|
if (SCHEME_PAIRP($input)) {
|
|
T* x;
|
|
Scheme_Object *first, *second;
|
|
first = scheme_car($input);
|
|
second = scheme_cdr($input);
|
|
x = (T*) SWIG_MustGetPtr(first,$descriptor(T *),$argnum, 0);
|
|
if (!CHECK(second))
|
|
SWIG_exception(SWIG_TypeError,
|
|
"pair<" #T "," #U "> expected");
|
|
temp = std::make_pair(*x,CONVERT_FROM(second));
|
|
$1 = &temp;
|
|
} else {
|
|
$1 = ($1_ltype)
|
|
SWIG_MustGetPtr($input,$1_descriptor,$argnum, 0);
|
|
}
|
|
}
|
|
%typemap(out) pair<T,U> {
|
|
T* x = new T($1.first);
|
|
Scheme_Object* first = SWIG_NewPointerObj(x,$descriptor(T *), 1);
|
|
$result = scheme_make_pair(first,CONVERT_TO($1.second));
|
|
}
|
|
%typecheck(SWIG_TYPECHECK_PAIR) pair<T,U> {
|
|
/* native pair? */
|
|
if (SCHEME_PAIRP($input)) {
|
|
T* x;
|
|
Scheme_Object* first = scheme_car($input);
|
|
Scheme_Object* second = scheme_cdr($input);
|
|
if (SWIG_ConvertPtr(first,(void**) &x,
|
|
$descriptor(T *), 0) != -1 &&
|
|
CHECK(second)) {
|
|
$1 = 1;
|
|
} else {
|
|
$1 = 0;
|
|
}
|
|
} else {
|
|
/* wrapped pair? */
|
|
std::pair<T,U >* p;
|
|
if (SWIG_ConvertPtr($input,(void **) &p,
|
|
$&1_descriptor, 0) != -1)
|
|
$1 = 1;
|
|
else
|
|
$1 = 0;
|
|
}
|
|
}
|
|
%typecheck(SWIG_TYPECHECK_PAIR) const pair<T,U>&,
|
|
const pair<T,U>* {
|
|
/* native pair? */
|
|
if (SCHEME_PAIRP($input)) {
|
|
T* x;
|
|
Scheme_Object* first = scheme_car($input);
|
|
Scheme_Object* second = scheme_cdr($input);
|
|
if (SWIG_ConvertPtr(first,(void**) &x,
|
|
$descriptor(T *), 0) != -1 &&
|
|
CHECK(second)) {
|
|
$1 = 1;
|
|
} else {
|
|
$1 = 0;
|
|
}
|
|
} else {
|
|
/* wrapped pair? */
|
|
std::pair<T,U >* p;
|
|
if (SWIG_ConvertPtr($input,(void **) &p,
|
|
$1_descriptor, 0) != -1)
|
|
$1 = 1;
|
|
else
|
|
$1 = 0;
|
|
}
|
|
}
|
|
pair();
|
|
pair(T first, U second);
|
|
pair(const pair& p);
|
|
|
|
template <class U1, class U2> pair(const pair<U1, U2> &p);
|
|
|
|
T first;
|
|
U second;
|
|
};
|
|
%enddef
|
|
|
|
%define specialize_std_pair_on_both(T,CHECK_T,CONVERT_T_FROM,CONVERT_T_TO,
|
|
U,CHECK_U,CONVERT_U_FROM,CONVERT_U_TO)
|
|
template<> struct pair<T,U> {
|
|
%typemap(in) pair<T,U> (std::pair<T,U>* m) {
|
|
if (SCHEME_PAIRP($input)) {
|
|
Scheme_Object *first, *second;
|
|
first = scheme_car($input);
|
|
second = scheme_cdr($input);
|
|
if (!CHECK_T(first) || !CHECK_U(second))
|
|
SWIG_exception(SWIG_TypeError,
|
|
"pair<" #T "," #U "> expected");
|
|
$1 = make_pair(CONVERT_T_FROM(first),
|
|
CONVERT_U_FROM(second));
|
|
} else {
|
|
$1 = *(($&1_type)
|
|
SWIG_MustGetPtr($input,$&1_descriptor,$argnum, 0));
|
|
}
|
|
}
|
|
%typemap(in) const pair<T,U>& (std::pair<T,U> temp,
|
|
std::pair<T,U>* m),
|
|
const pair<T,U>* (std::pair<T,U> temp,
|
|
std::pair<T,U>* m) {
|
|
if (SCHEME_PAIRP($input)) {
|
|
Scheme_Object *first, *second;
|
|
T *x;
|
|
first = scheme_car($input);
|
|
second = scheme_cdr($input);
|
|
x = (T*) SWIG_MustGetPtr(first,$descriptor(T *),$argnum, 0);
|
|
if (!CHECK_T(first) || !CHECK_U(second))
|
|
SWIG_exception(SWIG_TypeError,
|
|
"pair<" #T "," #U "> expected");
|
|
temp = make_pair(CONVERT_T_FROM(first),
|
|
CONVERT_U_FROM(second));
|
|
$1 = &temp;
|
|
} else {
|
|
$1 = ($1_ltype)
|
|
SWIG_MustGetPtr($input,$1_descriptor,$argnum, 0);
|
|
}
|
|
}
|
|
%typemap(out) pair<T,U> {
|
|
$result = scheme_make_pair(CONVERT_T_TO($1.first),
|
|
CONVERT_U_TO($1.second));
|
|
}
|
|
%typecheck(SWIG_TYPECHECK_PAIR) pair<T,U> {
|
|
/* native pair? */
|
|
if (SCHEME_PAIRP($input)) {
|
|
Scheme_Object* first = scheme_car($input);
|
|
Scheme_Object* second = scheme_cdr($input);
|
|
if (CHECK_T(first) && CHECK_U(second)) {
|
|
$1 = 1;
|
|
} else {
|
|
$1 = 0;
|
|
}
|
|
} else {
|
|
/* wrapped pair? */
|
|
std::pair<T,U >* p;
|
|
if (SWIG_ConvertPtr($input,(void **) &p,
|
|
$&1_descriptor, 0) != -1)
|
|
$1 = 1;
|
|
else
|
|
$1 = 0;
|
|
}
|
|
}
|
|
%typecheck(SWIG_TYPECHECK_PAIR) const pair<T,U>&,
|
|
const pair<T,U>* {
|
|
/* native pair? */
|
|
if (SCHEME_PAIRP($input)) {
|
|
Scheme_Object* first = scheme_car($input);
|
|
Scheme_Object* second = scheme_cdr($input);
|
|
if (CHECK_T(first) && CHECK_U(second)) {
|
|
$1 = 1;
|
|
} else {
|
|
$1 = 0;
|
|
}
|
|
} else {
|
|
/* wrapped pair? */
|
|
std::pair<T,U >* p;
|
|
if (SWIG_ConvertPtr($input,(void **) &p,
|
|
$1_descriptor, 0) != -1)
|
|
$1 = 1;
|
|
else
|
|
$1 = 0;
|
|
}
|
|
}
|
|
pair();
|
|
pair(T first, U second);
|
|
pair(const pair& p);
|
|
|
|
template <class U1, class U2> pair(const pair<U1, U2> &p);
|
|
|
|
T first;
|
|
U second;
|
|
};
|
|
%enddef
|
|
|
|
|
|
specialize_std_pair_on_first(bool,SCHEME_BOOLP,
|
|
SCHEME_TRUEP,swig_make_boolean);
|
|
specialize_std_pair_on_first(int,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value);
|
|
specialize_std_pair_on_first(short,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value);
|
|
specialize_std_pair_on_first(long,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value);
|
|
specialize_std_pair_on_first(unsigned int,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value);
|
|
specialize_std_pair_on_first(unsigned short,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value);
|
|
specialize_std_pair_on_first(unsigned long,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value);
|
|
specialize_std_pair_on_first(double,SCHEME_REALP,
|
|
scheme_real_to_double,scheme_make_double);
|
|
specialize_std_pair_on_first(float,SCHEME_REALP,
|
|
scheme_real_to_double,scheme_make_double);
|
|
specialize_std_pair_on_first(std::string,SCHEME_STRINGP,
|
|
swig_scm_to_string,swig_make_string);
|
|
|
|
specialize_std_pair_on_second(bool,SCHEME_BOOLP,
|
|
SCHEME_TRUEP,swig_make_boolean);
|
|
specialize_std_pair_on_second(int,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value);
|
|
specialize_std_pair_on_second(short,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value);
|
|
specialize_std_pair_on_second(long,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value);
|
|
specialize_std_pair_on_second(unsigned int,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value);
|
|
specialize_std_pair_on_second(unsigned short,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value);
|
|
specialize_std_pair_on_second(unsigned long,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value);
|
|
specialize_std_pair_on_second(double,SCHEME_REALP,
|
|
scheme_real_to_double,scheme_make_double);
|
|
specialize_std_pair_on_second(float,SCHEME_REALP,
|
|
scheme_real_to_double,scheme_make_double);
|
|
specialize_std_pair_on_second(std::string,SCHEME_STRINGP,
|
|
swig_scm_to_string,swig_make_string);
|
|
|
|
specialize_std_pair_on_both(bool,SCHEME_BOOLP,
|
|
SCHEME_TRUEP,swig_make_boolean,
|
|
bool,SCHEME_BOOLP,
|
|
SCHEME_TRUEP,swig_make_boolean);
|
|
specialize_std_pair_on_both(bool,SCHEME_BOOLP,
|
|
SCHEME_TRUEP,swig_make_boolean,
|
|
int,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value);
|
|
specialize_std_pair_on_both(bool,SCHEME_BOOLP,
|
|
SCHEME_TRUEP,swig_make_boolean,
|
|
short,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value);
|
|
specialize_std_pair_on_both(bool,SCHEME_BOOLP,
|
|
SCHEME_TRUEP,swig_make_boolean,
|
|
long,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value);
|
|
specialize_std_pair_on_both(bool,SCHEME_BOOLP,
|
|
SCHEME_TRUEP,swig_make_boolean,
|
|
unsigned int,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value);
|
|
specialize_std_pair_on_both(bool,SCHEME_BOOLP,
|
|
SCHEME_TRUEP,swig_make_boolean,
|
|
unsigned short,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value);
|
|
specialize_std_pair_on_both(bool,SCHEME_BOOLP,
|
|
SCHEME_TRUEP,swig_make_boolean,
|
|
unsigned long,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value);
|
|
specialize_std_pair_on_both(bool,SCHEME_BOOLP,
|
|
SCHEME_TRUEP,swig_make_boolean,
|
|
double,SCHEME_REALP,
|
|
scheme_real_to_double,scheme_make_double);
|
|
specialize_std_pair_on_both(bool,SCHEME_BOOLP,
|
|
SCHEME_TRUEP,swig_make_boolean,
|
|
float,SCHEME_REALP,
|
|
scheme_real_to_double,scheme_make_double);
|
|
specialize_std_pair_on_both(bool,SCHEME_BOOLP,
|
|
SCHEME_TRUEP,swig_make_boolean,
|
|
std::string,SCHEME_STRINGP,
|
|
swig_scm_to_string,swig_make_string);
|
|
specialize_std_pair_on_both(int,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value,
|
|
bool,SCHEME_BOOLP,
|
|
SCHEME_TRUEP,swig_make_boolean);
|
|
specialize_std_pair_on_both(int,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value,
|
|
int,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value);
|
|
specialize_std_pair_on_both(int,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value,
|
|
short,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value);
|
|
specialize_std_pair_on_both(int,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value,
|
|
long,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value);
|
|
specialize_std_pair_on_both(int,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value,
|
|
unsigned int,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value);
|
|
specialize_std_pair_on_both(int,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value,
|
|
unsigned short,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value);
|
|
specialize_std_pair_on_both(int,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value,
|
|
unsigned long,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value);
|
|
specialize_std_pair_on_both(int,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value,
|
|
double,SCHEME_REALP,
|
|
scheme_real_to_double,scheme_make_double);
|
|
specialize_std_pair_on_both(int,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value,
|
|
float,SCHEME_REALP,
|
|
scheme_real_to_double,scheme_make_double);
|
|
specialize_std_pair_on_both(int,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value,
|
|
std::string,SCHEME_STRINGP,
|
|
swig_scm_to_string,swig_make_string);
|
|
specialize_std_pair_on_both(short,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value,
|
|
bool,SCHEME_BOOLP,
|
|
SCHEME_TRUEP,swig_make_boolean);
|
|
specialize_std_pair_on_both(short,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value,
|
|
int,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value);
|
|
specialize_std_pair_on_both(short,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value,
|
|
short,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value);
|
|
specialize_std_pair_on_both(short,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value,
|
|
long,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value);
|
|
specialize_std_pair_on_both(short,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value,
|
|
unsigned int,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value);
|
|
specialize_std_pair_on_both(short,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value,
|
|
unsigned short,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value);
|
|
specialize_std_pair_on_both(short,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value,
|
|
unsigned long,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value);
|
|
specialize_std_pair_on_both(short,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value,
|
|
double,SCHEME_REALP,
|
|
scheme_real_to_double,scheme_make_double);
|
|
specialize_std_pair_on_both(short,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value,
|
|
float,SCHEME_REALP,
|
|
scheme_real_to_double,scheme_make_double);
|
|
specialize_std_pair_on_both(short,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value,
|
|
std::string,SCHEME_STRINGP,
|
|
swig_scm_to_string,swig_make_string);
|
|
specialize_std_pair_on_both(long,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value,
|
|
bool,SCHEME_BOOLP,
|
|
SCHEME_TRUEP,swig_make_boolean);
|
|
specialize_std_pair_on_both(long,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value,
|
|
int,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value);
|
|
specialize_std_pair_on_both(long,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value,
|
|
short,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value);
|
|
specialize_std_pair_on_both(long,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value,
|
|
long,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value);
|
|
specialize_std_pair_on_both(long,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value,
|
|
unsigned int,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value);
|
|
specialize_std_pair_on_both(long,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value,
|
|
unsigned short,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value);
|
|
specialize_std_pair_on_both(long,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value,
|
|
unsigned long,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value);
|
|
specialize_std_pair_on_both(long,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value,
|
|
double,SCHEME_REALP,
|
|
scheme_real_to_double,scheme_make_double);
|
|
specialize_std_pair_on_both(long,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value,
|
|
float,SCHEME_REALP,
|
|
scheme_real_to_double,scheme_make_double);
|
|
specialize_std_pair_on_both(long,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value,
|
|
std::string,SCHEME_STRINGP,
|
|
swig_scm_to_string,swig_make_string);
|
|
specialize_std_pair_on_both(unsigned int,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value,
|
|
bool,SCHEME_BOOLP,
|
|
SCHEME_TRUEP,swig_make_boolean);
|
|
specialize_std_pair_on_both(unsigned int,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value,
|
|
int,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value);
|
|
specialize_std_pair_on_both(unsigned int,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value,
|
|
short,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value);
|
|
specialize_std_pair_on_both(unsigned int,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value,
|
|
long,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value);
|
|
specialize_std_pair_on_both(unsigned int,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value,
|
|
unsigned int,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value);
|
|
specialize_std_pair_on_both(unsigned int,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value,
|
|
unsigned short,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value);
|
|
specialize_std_pair_on_both(unsigned int,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value,
|
|
unsigned long,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value);
|
|
specialize_std_pair_on_both(unsigned int,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value,
|
|
double,SCHEME_REALP,
|
|
scheme_real_to_double,scheme_make_double);
|
|
specialize_std_pair_on_both(unsigned int,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value,
|
|
float,SCHEME_REALP,
|
|
scheme_real_to_double,scheme_make_double);
|
|
specialize_std_pair_on_both(unsigned int,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value,
|
|
std::string,SCHEME_STRINGP,
|
|
swig_scm_to_string,swig_make_string);
|
|
specialize_std_pair_on_both(unsigned short,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value,
|
|
bool,SCHEME_BOOLP,
|
|
SCHEME_TRUEP,swig_make_boolean);
|
|
specialize_std_pair_on_both(unsigned short,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value,
|
|
int,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value);
|
|
specialize_std_pair_on_both(unsigned short,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value,
|
|
short,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value);
|
|
specialize_std_pair_on_both(unsigned short,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value,
|
|
long,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value);
|
|
specialize_std_pair_on_both(unsigned short,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value,
|
|
unsigned int,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value);
|
|
specialize_std_pair_on_both(unsigned short,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value,
|
|
unsigned short,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value);
|
|
specialize_std_pair_on_both(unsigned short,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value,
|
|
unsigned long,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value);
|
|
specialize_std_pair_on_both(unsigned short,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value,
|
|
double,SCHEME_REALP,
|
|
scheme_real_to_double,scheme_make_double);
|
|
specialize_std_pair_on_both(unsigned short,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value,
|
|
float,SCHEME_REALP,
|
|
scheme_real_to_double,scheme_make_double);
|
|
specialize_std_pair_on_both(unsigned short,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value,
|
|
std::string,SCHEME_STRINGP,
|
|
swig_scm_to_string,swig_make_string);
|
|
specialize_std_pair_on_both(unsigned long,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value,
|
|
bool,SCHEME_BOOLP,
|
|
SCHEME_TRUEP,swig_make_boolean);
|
|
specialize_std_pair_on_both(unsigned long,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value,
|
|
int,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value);
|
|
specialize_std_pair_on_both(unsigned long,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value,
|
|
short,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value);
|
|
specialize_std_pair_on_both(unsigned long,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value,
|
|
long,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value);
|
|
specialize_std_pair_on_both(unsigned long,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value,
|
|
unsigned int,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value);
|
|
specialize_std_pair_on_both(unsigned long,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value,
|
|
unsigned short,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value);
|
|
specialize_std_pair_on_both(unsigned long,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value,
|
|
unsigned long,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value);
|
|
specialize_std_pair_on_both(unsigned long,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value,
|
|
double,SCHEME_REALP,
|
|
scheme_real_to_double,scheme_make_double);
|
|
specialize_std_pair_on_both(unsigned long,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value,
|
|
float,SCHEME_REALP,
|
|
scheme_real_to_double,scheme_make_double);
|
|
specialize_std_pair_on_both(unsigned long,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value,
|
|
std::string,SCHEME_STRINGP,
|
|
swig_scm_to_string,swig_make_string);
|
|
specialize_std_pair_on_both(double,SCHEME_REALP,
|
|
scheme_real_to_double,scheme_make_double,
|
|
bool,SCHEME_BOOLP,
|
|
SCHEME_TRUEP,swig_make_boolean);
|
|
specialize_std_pair_on_both(double,SCHEME_REALP,
|
|
scheme_real_to_double,scheme_make_double,
|
|
int,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value);
|
|
specialize_std_pair_on_both(double,SCHEME_REALP,
|
|
scheme_real_to_double,scheme_make_double,
|
|
short,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value);
|
|
specialize_std_pair_on_both(double,SCHEME_REALP,
|
|
scheme_real_to_double,scheme_make_double,
|
|
long,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value);
|
|
specialize_std_pair_on_both(double,SCHEME_REALP,
|
|
scheme_real_to_double,scheme_make_double,
|
|
unsigned int,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value);
|
|
specialize_std_pair_on_both(double,SCHEME_REALP,
|
|
scheme_real_to_double,scheme_make_double,
|
|
unsigned short,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value);
|
|
specialize_std_pair_on_both(double,SCHEME_REALP,
|
|
scheme_real_to_double,scheme_make_double,
|
|
unsigned long,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value);
|
|
specialize_std_pair_on_both(double,SCHEME_REALP,
|
|
scheme_real_to_double,scheme_make_double,
|
|
double,SCHEME_REALP,
|
|
scheme_real_to_double,scheme_make_double);
|
|
specialize_std_pair_on_both(double,SCHEME_REALP,
|
|
scheme_real_to_double,scheme_make_double,
|
|
float,SCHEME_REALP,
|
|
scheme_real_to_double,scheme_make_double);
|
|
specialize_std_pair_on_both(double,SCHEME_REALP,
|
|
scheme_real_to_double,scheme_make_double,
|
|
std::string,SCHEME_STRINGP,
|
|
swig_scm_to_string,swig_make_string);
|
|
specialize_std_pair_on_both(float,SCHEME_REALP,
|
|
scheme_real_to_double,scheme_make_double,
|
|
bool,SCHEME_BOOLP,
|
|
SCHEME_TRUEP,swig_make_boolean);
|
|
specialize_std_pair_on_both(float,SCHEME_REALP,
|
|
scheme_real_to_double,scheme_make_double,
|
|
int,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value);
|
|
specialize_std_pair_on_both(float,SCHEME_REALP,
|
|
scheme_real_to_double,scheme_make_double,
|
|
short,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value);
|
|
specialize_std_pair_on_both(float,SCHEME_REALP,
|
|
scheme_real_to_double,scheme_make_double,
|
|
long,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value);
|
|
specialize_std_pair_on_both(float,SCHEME_REALP,
|
|
scheme_real_to_double,scheme_make_double,
|
|
unsigned int,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value);
|
|
specialize_std_pair_on_both(float,SCHEME_REALP,
|
|
scheme_real_to_double,scheme_make_double,
|
|
unsigned short,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value);
|
|
specialize_std_pair_on_both(float,SCHEME_REALP,
|
|
scheme_real_to_double,scheme_make_double,
|
|
unsigned long,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value);
|
|
specialize_std_pair_on_both(float,SCHEME_REALP,
|
|
scheme_real_to_double,scheme_make_double,
|
|
double,SCHEME_REALP,
|
|
scheme_real_to_double,scheme_make_double);
|
|
specialize_std_pair_on_both(float,SCHEME_REALP,
|
|
scheme_real_to_double,scheme_make_double,
|
|
float,SCHEME_REALP,
|
|
scheme_real_to_double,scheme_make_double);
|
|
specialize_std_pair_on_both(float,SCHEME_REALP,
|
|
scheme_real_to_double,scheme_make_double,
|
|
std::string,SCHEME_STRINGP,
|
|
swig_scm_to_string,swig_make_string);
|
|
specialize_std_pair_on_both(std::string,SCHEME_STRINGP,
|
|
swig_scm_to_string,swig_make_string,
|
|
bool,SCHEME_BOOLP,
|
|
SCHEME_TRUEP,swig_make_boolean);
|
|
specialize_std_pair_on_both(std::string,SCHEME_STRINGP,
|
|
swig_scm_to_string,swig_make_string,
|
|
int,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value);
|
|
specialize_std_pair_on_both(std::string,SCHEME_STRINGP,
|
|
swig_scm_to_string,swig_make_string,
|
|
short,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value);
|
|
specialize_std_pair_on_both(std::string,SCHEME_STRINGP,
|
|
swig_scm_to_string,swig_make_string,
|
|
long,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value);
|
|
specialize_std_pair_on_both(std::string,SCHEME_STRINGP,
|
|
swig_scm_to_string,swig_make_string,
|
|
unsigned int,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value);
|
|
specialize_std_pair_on_both(std::string,SCHEME_STRINGP,
|
|
swig_scm_to_string,swig_make_string,
|
|
unsigned short,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value);
|
|
specialize_std_pair_on_both(std::string,SCHEME_STRINGP,
|
|
swig_scm_to_string,swig_make_string,
|
|
unsigned long,SCHEME_INTP,
|
|
SCHEME_INT_VAL,scheme_make_integer_value);
|
|
specialize_std_pair_on_both(std::string,SCHEME_STRINGP,
|
|
swig_scm_to_string,swig_make_string,
|
|
double,SCHEME_REALP,
|
|
scheme_real_to_double,scheme_make_double);
|
|
specialize_std_pair_on_both(std::string,SCHEME_STRINGP,
|
|
swig_scm_to_string,swig_make_string,
|
|
float,SCHEME_REALP,
|
|
scheme_real_to_double,scheme_make_double);
|
|
specialize_std_pair_on_both(std::string,SCHEME_STRINGP,
|
|
swig_scm_to_string,swig_make_string,
|
|
std::string,SCHEME_STRINGP,
|
|
swig_scm_to_string,swig_make_string);
|
|
}
|