jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

The great merge

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@4141 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Dave Beazley 2002-11-30 22:01:28 +00:00
commit 12a43edc2d
1508 changed files with 125983 additions and 44037 deletions
Download patch file Download diff file Expand all files Collapse all files

175
Lib/ocaml/typecheck.i Normal file
View file

@ -0,0 +1,175 @@
/* -*- C++ -*- */
/* Type checking code adapted from python backend. */
/* ------------------------------------------------------------
* Typechecking rules
* ------------------------------------------------------------ */
%typecheck(SWIG_TYPECHECK_INTEGER) char, signed char, const char &, const signed char & {
if( !Is_block($input) ) $1 = 0;
else {
switch( Tag_val($input) ) {
case C_char: $1 = 1;
default: $1 = 0;
}
}
}
%typecheck(SWIG_TYPECHECK_INTEGER) unsigned char, const unsigned char & {
if( !Is_block($input) ) $1 = 0;
else {
switch( Tag_val($input) ) {
case C_uchar: $1 = 1;
default: $1 = 0;
}
}
}
%typecheck(SWIG_TYPECHECK_INTEGER) short, signed short, const short &, const signed short & {
if( !Is_block($input) ) $1 = 0;
else {
switch( Tag_val($input) ) {
case C_short: $1 = 1;
default: $1 = 0;
}
}
}
%typecheck(SWIG_TYPECHECK_INTEGER) unsigned short, const unsigned short & {
if( !Is_block($input) ) $1 = 0;
else {
switch( Tag_val($input) ) {
case C_ushort: $1 = 1;
default: $1 = 0;
}
}
}
// XXX arty
// Will move enum SWIGTYPE later when I figure out what to do with it...
%typecheck(SWIG_TYPECHECK_INTEGER) int, signed int, const int &, const signed int &, enum SWIGTYPE {
if( !Is_block($input) ) $1 = 0;
else {
switch( Tag_val($input) ) {
case C_int: $1 = 1;
default: $1 = 0;
}
}
}
%typecheck(SWIG_TYPECHECK_INTEGER) unsigned int, const unsigned int & {
if( !Is_block($input) ) $1 = 0;
else {
switch( Tag_val($input) ) {
case C_uint: $1 = 1;
case C_int32: $1 = 1;
default: $1 = 0;
}
}
}
%typecheck(SWIG_TYPECHECK_INTEGER) long, signed long, unsigned long, long long, signed long long, unsigned long long, const long &, const signed long &, const unsigned long &, const long long &, const signed long long &, const unsigned long long & {
if( !Is_block($input) ) $1 = 0;
else {
switch( Tag_val($input) ) {
case C_int64: $1 = 1;
default: $1 = 0;
}
}
}
%typecheck(SWIG_TYPECHECK_INTEGER) bool, oc_bool, BOOL, const bool &, const oc_bool &, const BOOL & {
if( !Is_block($input) ) $1 = 0;
else {
switch( Tag_val($input) ) {
case C_bool: $1 = 1;
default: $1 = 0;
}
}
}
%typecheck(SWIG_TYPECHECK_DOUBLE) float, const float & {
if( !Is_block($input) ) $1 = 0;
else {
switch( Tag_val($input) ) {
case C_float: $1 = 1;
default: $1 = 0;
}
}
}
%typecheck(SWIG_TYPECHECK_DOUBLE) double, const double & {
if( !Is_block($input) ) $1 = 0;
else {
switch( Tag_val($input) ) {
case C_double: $1 = 1;
default: $1 = 0;
}
}
}
%typecheck(SWIG_TYPECHECK_STRING) char * {
if( !Is_block($input) ) $1 = 0;
else {
switch( Tag_val($input) ) {
case C_string: $1 = 1; break;
case C_ptr: {
swig_type_info *typeinfo =
(swig_type_info *)(long)Int64_val(Field($input,1));
$1 = SWIG_TypeCheck("char *",typeinfo) ||
SWIG_TypeCheck("signed char *",typeinfo) ||
SWIG_TypeCheck("unsigned char *",typeinfo) ||
SWIG_TypeCheck("const char *",typeinfo) ||
SWIG_TypeCheck("const signed char *",typeinfo) ||
SWIG_TypeCheck("const unsigned char *",typeinfo) ||
SWIG_TypeCheck("std::string",typeinfo);
} break;
default: $1 = 0; break;
}
}
}
%typecheck(SWIG_TYPECHECK_POINTER) SWIGTYPE *, SWIGTYPE &, SWIGTYPE [] {
void *ptr;
$1 = !caml_ptr_val_internal($input, &ptr,$descriptor);
}
#if 0
%typecheck(SWIG_TYPECHECK_POINTER) SWIGTYPE {
void *ptr;
$1 = !caml_ptr_val_internal($input, &ptr, $&1_descriptor);
}
#endif
%typecheck(SWIG_TYPECHECK_VOIDPTR) void * {
void *ptr;
$1 = !caml_ptr_val_internal($input, &ptr, 0);
}
/* ------------------------------------------------------------
* Exception handling
* ------------------------------------------------------------ */
%typemap(throws) int,
long,
short,
unsigned int,
unsigned long,
unsigned short {
SWIG_exception($1,"Thrown exception from C++ (int)");
}
%typemap(throws) SWIGTYPE CLASS {
$&1_ltype temp = new $1_ltype($1);
SWIG_exception((int)temp,"Thrown exception from C++ (object)");
}
%typemap(throws) SWIGTYPE {
SWIG_exception(0,"Thrown exception from C++ (unknown)");
}
%typemap(throws) char * {
SWIG_exception(0,$1);
}