diff options
Diffstat (limited to 'Examples/xml/example_apply.expected-xml')
| -rw-r--r-- | Examples/xml/example_apply.expected-xml | 1486 |
1 files changed, 1486 insertions, 0 deletions
diff --git a/Examples/xml/example_apply.expected-xml b/Examples/xml/example_apply.expected-xml new file mode 100644 index 0000000..50a6509 --- /dev/null +++ b/Examples/xml/example_apply.expected-xml @@ -0,0 +1,1486 @@ +<swigxml:swig name="namespaces" xmlns:swigxml="http://jniplusplus.sourceforge.net" xmlns:swig="http://swig.sourceforge.net" xmlns:c="http://www.ansi.org" > + <swig:top > + <swigxml:child > + <swig:file name="../../Lib/swig.swg" > + <swigxml:type string="include" /> + </swig:file> + <swig:file name="example_apply.i" > + <swigxml:child > + <swig:module name="example" /> + <c:function name="add" > + <swigxml:parms > + <swigxml:parm name="x" > + <swigxml:type string="p.int" /> + </swigxml:parm> + <swigxml:parm name="y" > + <swigxml:type string="p.int" /> + </swigxml:parm> + <swigxml:parm name="result" > + <swigxml:type string="p.int" /> + </swigxml:parm> + </swigxml:parms> + <swigxml:storage string="extern" /> + <swigxml:type string="void" /> + </c:function> + <swig:file name="../../Lib/pointer.i" > + <swigxml:child > + <swig:module name="pointer" /> + <swig:insert > + <swigxml:code > + +%include pointer.i + +The pointer.i library provides run-time support for managing and +manipulating a variety of C/C++ pointer values. In particular, +you can create various kinds of objects and dereference common +pointer types. This is done through a common set of functions: + + ptrvalue - Dereferences a pointer + ptrset - Set the value of an object referenced by + a pointer. + ptrcreate - Create a new object and return a pointer. + ptrfree - Free the memory allocated by ptrcreate. + ptradd - Increment/decrement a pointer value. + +When creating, dereferencing, or setting the value of pointer +variable, only the common C datatypes of int, short, long, float, +double, char, and char * are currently supported. Other +datatypes may generate an error. + +One of the more interesting aspects of this library is that +it operates with a wide range of datatypes. For example, +the "ptrvalue" function can dereference "double *", "int *", +"long *", "char *", and other datatypes. Since SWIG encodes +pointers with type information, this can be done transparently +and in most cases, you can dereference a pointer without +ever knowing what type it actually is. + +This library is primarily designed for utility, not high +performance (the dynamic determination of pointer types takes +more work than most normal wrapper functions). As a result, +you may achieve better performance by writing customized +"helper" functions if you're making lots of calls to these +functions in inner loops or other intensive operations. + </swigxml:code> + <swigxml:section string="doc" /> + </swig:insert> + <swig:types > + <swigxml:parms > + <swigxml:parm > + <swigxml:type string="p.int" /> + </swigxml:parm> + <swigxml:parm > + <swigxml:type string="p.short" /> + </swigxml:parm> + <swigxml:parm > + <swigxml:type string="p.long" /> + </swigxml:parm> + <swigxml:parm > + <swigxml:type string="p.float" /> + </swigxml:parm> + <swigxml:parm > + <swigxml:type string="p.double" /> + </swigxml:parm> + <swigxml:parm > + <swigxml:type string="p.char" /> + </swigxml:parm> + <swigxml:parm > + <swigxml:type string="p.p.char" /> + </swigxml:parm> + <swigxml:parm > + <swigxml:type string="p.void" /> + </swigxml:parm> + </swigxml:parms> + </swig:types> + <swig:file name="../../Lib/xml/ptrlang.i" > + <swigxml:child > + <swig:insert > + <swigxml:code > + +#include &lt;ctype.h> + +/* Types used by the library */ +static swig_type_info *SWIG_POINTER_int_p = 0; +static swig_type_info *SWIG_POINTER_short_p =0; +static swig_type_info *SWIG_POINTER_long_p = 0; +static swig_type_info *SWIG_POINTER_float_p = 0; +static swig_type_info *SWIG_POINTER_double_p = 0; +static swig_type_info *SWIG_POINTER_char_p = 0; +static swig_type_info *SWIG_POINTER_char_pp = 0; +static swig_type_info *SWIG_POINTER_void_p = 0; + </swigxml:code> + </swig:insert> + <swig:insert > + <swigxml:code > + + SWIG_POINTER_int_p = SWIG_TypeQuery("int *"); + SWIG_POINTER_short_p = SWIG_TypeQuery("short *"); + SWIG_POINTER_long_p = SWIG_TypeQuery("long *"); + SWIG_POINTER_float_p = SWIG_TypeQuery("float *"); + SWIG_POINTER_double_p = SWIG_TypeQuery("double *"); + SWIG_POINTER_char_p = SWIG_TypeQuery("char *"); + SWIG_POINTER_char_pp = SWIG_TypeQuery("char **"); + SWIG_POINTER_void_p = SWIG_TypeQuery("void *"); + </swigxml:code> + <swigxml:section string="init" /> + </swig:insert> + <swig:insert > + <swigxml:code > + + +/* #ifdef WIN32 +#undef isspace +#define isspace(c) (c == ' ') +#endif +*/ + +/*------------------------------------------------------------------ + ptrvalue(ptr,type = 0) + + Attempts to dereference a pointer value. If type is given, it + will try to use that type. Otherwise, this function will attempt + to "guess" the proper datatype by checking against all of the + builtin C datatypes. + ------------------------------------------------------------------ */ + +#ifdef PERL_OBJECT +static SV *_ptrvalue(CPerlObj *pPerl,SV *_PTRVALUE, int index, char *type) { +#define ptrvalue(a,b,c) _ptrvalue(pPerl,a,b,c) +#else +static SV *_ptrvalue(SV *_PTRVALUE, int index, char *type) { +#define ptrvalue(a,b,c) _ptrvalue(a,b,c) +#endif + + void *ptr; + SV *obj = 0; + + if (SWIG_ConvertPtr(_PTRVALUE, &ptr, 0) &lt; 0) { + croak("Type error it ptrvalue. Argument is not a valid pointer value."); + } else { + /* If no datatype was passed, try a few common datatypes first */ + if (!type) { + + /* No datatype was passed. Type to figure out if it's a common one */ + + if (SWIG_ConvertPtr(_PTRVALUE,&ptr,SWIG_POINTER_int_p) >= 0) { + type = "int"; + } else if (SWIG_ConvertPtr(_PTRVALUE,&ptr,SWIG_POINTER_double_p) >= 0) { + type = "double"; + } else if (SWIG_ConvertPtr(_PTRVALUE,&ptr,SWIG_POINTER_short_p) >= 0) { + type = "short"; + } else if (SWIG_ConvertPtr(_PTRVALUE,&ptr,SWIG_POINTER_long_p) >= 0) { + type = "long"; + } else if (SWIG_ConvertPtr(_PTRVALUE,&ptr,SWIG_POINTER_float_p) >= 0) { + type = "float"; + } else if (SWIG_ConvertPtr(_PTRVALUE,&ptr,SWIG_POINTER_char_p) >= 0) { + type = "char"; + } else if (SWIG_ConvertPtr(_PTRVALUE,&ptr,SWIG_POINTER_char_pp) >= 0) { + type = "char *"; + } else { + type = "unknown"; + } + } + + if (!ptr) { + croak("Unable to dereference NULL pointer."); + return 0; + } + + /* Now we have a datatype. Try to figure out what to do about it */ + if (strcmp(type,"int") == 0) { + obj = sv_newmortal(); + sv_setiv(obj,(IV) *(((int *) ptr) + index)); + } else if (strcmp(type,"double") == 0) { + obj = sv_newmortal(); + sv_setnv(obj,(double) *(((double *) ptr)+index)); + } else if (strcmp(type,"short") == 0) { + obj = sv_newmortal(); + sv_setiv(obj,(IV) *(((short *) ptr) + index)); + } else if (strcmp(type,"long") == 0) { + obj = sv_newmortal(); + sv_setiv(obj,(IV) *(((long *) ptr) + index)); + } else if (strcmp(type,"float") == 0) { + obj = sv_newmortal(); + sv_setnv(obj,(double) *(((float *) ptr)+index)); + } else if (strcmp(type,"char") == 0) { + obj = sv_newmortal(); + sv_setpv(obj,((char *) ptr)+index); + } else if (strcmp(type,"char *") == 0) { + char *c = *(((char **) ptr)+index); + obj = sv_newmortal(); + if (c) + sv_setpv(obj,c); + else + sv_setpv(obj,"NULL"); + } else { + croak("Unable to dereference unsupported datatype."); + obj = 0; + } + } + return obj; +} + +/*------------------------------------------------------------------ + ptrcreate(type,value = 0,numelements = 1) + + Attempts to create a new object of given type. Type must be + a basic C datatype. Will not create complex objects. + ------------------------------------------------------------------ */ +#ifdef PERL_OBJECT +static SV *_ptrcreate(CPerlObj *pPerl, char *type, SV *value, int numelements) { +#define ptrcreate(a,b,c) _ptrcreate(pPerl,a,b,c) +#else +static SV *_ptrcreate(char *type, SV *value, int numelements) { +#define ptrcreate(a,b,c) _ptrcreate(a,b,c) +#endif + + void *ptr; + SV *obj; + int sz; + swig_type_info *cast = 0; + + /* Check the type string against a variety of possibilities */ + + if (strcmp(type,"int") == 0) { + sz = sizeof(int)*numelements; + cast = SWIG_POINTER_int_p; + } else if (strcmp(type,"short") == 0) { + sz = sizeof(short)*numelements; + cast = SWIG_POINTER_short_p; + } else if (strcmp(type,"long") == 0) { + sz = sizeof(long)*numelements; + cast = SWIG_POINTER_long_p; + } else if (strcmp(type,"double") == 0) { + sz = sizeof(double)*numelements; + cast = SWIG_POINTER_double_p; + } else if (strcmp(type,"float") == 0) { + sz = sizeof(float)*numelements; + cast = SWIG_POINTER_float_p; + } else if (strcmp(type,"char") == 0) { + sz = sizeof(char)*numelements; + cast = SWIG_POINTER_char_p; + } else if (strcmp(type,"char *") == 0) { + sz = sizeof(char *)*(numelements+1); + cast = SWIG_POINTER_char_pp; + } else if (strcmp(type,"void") == 0) { + sz = numelements; + cast = SWIG_POINTER_void_p; + } else { + croak("Unable to create unknown datatype."); + return 0; + } + + /* Create the new object */ + + ptr = (void *) malloc(sz); + if (!ptr) { + croak("Out of memory in ptrcreate."); + return 0; + } + + /* Now try to set its default value */ + + if (value) { + if (strcmp(type,"int") == 0) { + int *ip,i,ivalue; + ivalue = (int) SvIV(value); + ip = (int *) ptr; + for (i = 0; i &lt; numelements; i++) + ip[i] = ivalue; + } else if (strcmp(type,"short") == 0) { + short *ip,ivalue; + int i; + ivalue = (short) SvIV(value); + ip = (short *) ptr; + for (i = 0; i &lt; numelements; i++) + ip[i] = ivalue; + } else if (strcmp(type,"long") == 0) { + long *ip,ivalue; + int i; + ivalue = (long) SvIV(value); + ip = (long *) ptr; + for (i = 0; i &lt; numelements; i++) + ip[i] = ivalue; + } else if (strcmp(type,"double") == 0) { + double *ip,ivalue; + int i; + ivalue = (double) SvNV(value); + ip = (double *) ptr; + for (i = 0; i &lt; numelements; i++) + ip[i] = ivalue; + } else if (strcmp(type,"float") == 0) { + float *ip,ivalue; + int i; + ivalue = (float) SvNV(value); + ip = (float *) ptr; + for (i = 0; i &lt; numelements; i++) + ip[i] = ivalue; + } else if (strcmp(type,"char") == 0) { + char *ip,*ivalue; + ivalue = (char *) SvPV(value,PL_na); + ip = (char *) ptr; + strncpy(ip,ivalue,numelements-1); + } else if (strcmp(type,"char *") == 0) { + char **ip, *ivalue; + int i; + ivalue = (char *) SvPV(value,PL_na); + ip = (char **) ptr; + for (i = 0; i &lt; numelements; i++) { + if (ivalue) { + ip[i] = (char *) malloc(strlen(ivalue)+1); + strcpy(ip[i],ivalue); + } else { + ip[i] = 0; + } + } + ip[numelements] = 0; + } + } + /* Create the pointer value */ + + + obj = sv_newmortal(); + SWIG_MakePtr(obj,ptr,cast); + return obj; +} + +/*------------------------------------------------------------------ + ptrset(ptr,value,index = 0,type = 0) + + Attempts to set the value of a pointer variable. If type is + given, we will use that type. Otherwise, we'll guess the datatype. + ------------------------------------------------------------------ */ + +#ifdef PERL_OBJECT +static void _ptrset(CPerlObj *pPerl,SV *_PTRVALUE, SV *value, int index, char *type) { +#define ptrset(a,b,c,d) _ptrset(pPerl,a,b,c,d) +#else +static void _ptrset(SV *_PTRVALUE, SV *value, int index, char *type) { +#define ptrset(a,b,c,d) _ptrset(a,b,c,d) +#endif + void *ptr; + SV *obj; + + + if (SWIG_ConvertPtr(_PTRVALUE, &ptr, 0) &lt; 0) { + croak("Type error it ptrvalue. Argument is not a valid pointer value."); + } else { + /* If no datatype was passed, try a few common datatypes first */ + if (!type) { + /* No datatype was passed. Type to figure out if it's a common one */ + if (SWIG_ConvertPtr(_PTRVALUE,&ptr,SWIG_POINTER_int_p) >= 0) { + type = "int"; + } else if (SWIG_ConvertPtr(_PTRVALUE,&ptr,SWIG_POINTER_double_p) >= 0) { + type = "double"; + } else if (SWIG_ConvertPtr(_PTRVALUE,&ptr,SWIG_POINTER_short_p) >= 0) { + type = "short"; + } else if (SWIG_ConvertPtr(_PTRVALUE,&ptr,SWIG_POINTER_long_p) >= 0) { + type = "long"; + } else if (SWIG_ConvertPtr(_PTRVALUE,&ptr,SWIG_POINTER_float_p) >= 0) { + type = "float"; + } else if (SWIG_ConvertPtr(_PTRVALUE,&ptr,SWIG_POINTER_char_p) >= 0) { + type = "char"; + } else if (SWIG_ConvertPtr(_PTRVALUE,&ptr,SWIG_POINTER_char_pp) >= 0) { + type = "char *"; + } else { + type = "unknown"; + } + } + } + if (!ptr) { + croak("Unable to set NULL pointer."); + return; + } + + /* Now we have a datatype. Try to figure out what to do about it */ + if (strcmp(type,"int") == 0) { + *(((int *) ptr)+index) = (int) SvIV(value); + } else if (strcmp(type,"double") == 0) { + *(((double *) ptr)+index) = (double) SvNV(value); + } else if (strcmp(type,"short") == 0) { + *(((short *) ptr)+index) = (short) SvIV(value); + } else if (strcmp(type,"long") == 0) { + *(((long *) ptr)+index) = (long) SvIV(value); + } else if (strcmp(type,"float") == 0) { + *(((float *) ptr)+index) = (float) SvNV(value); + } else if (strcmp(type,"char") == 0) { + char *c = SvPV(value,PL_na); + strcpy(((char *) ptr)+index, c); + } else if (strcmp(type,"char *") == 0) { + char *c = SvPV(value,PL_na); + char **ca = (char **) ptr; + if (ca[index]) free(ca[index]); + if (strcmp(c,"NULL") == 0) { + ca[index] = 0; + } else { + ca[index] = (char *) malloc(strlen(c)+1); + strcpy(ca[index],c); + } + } else { + croak("Unable to set unsupported datatype."); + return; + } +} + +/*------------------------------------------------------------------ + ptradd(ptr,offset) + + Adds a value to an existing pointer value. Will do a type-dependent + add for basic datatypes. For other datatypes, will do a byte-add. + ------------------------------------------------------------------ */ + +#ifdef PERL_OBJECT +static SV *_ptradd(CPerlObj *pPerl, SV *_PTRVALUE, int offset) { +#define ptradd(a,b) _ptradd(pPerl,a,b) +#else +static SV *_ptradd(SV *_PTRVALUE, int offset) { +#define ptradd(a,b) _ptradd(a,b) +#endif + + void *ptr,*junk; + SV *obj; + swig_type_info *type; + char *tname; + + /* Try to handle a few common datatypes first */ + + if (SWIG_ConvertPtr(_PTRVALUE,&ptr,SWIG_POINTER_int_p) >= 0) { + ptr = (void *) (((int *) ptr) + offset); + } else if (SWIG_ConvertPtr(_PTRVALUE,&ptr,SWIG_POINTER_double_p) >= 0) { + ptr = (void *) (((double *) ptr) + offset); + } else if (SWIG_ConvertPtr(_PTRVALUE,&ptr,SWIG_POINTER_short_p) >= 0) { + ptr = (void *) (((short *) ptr) + offset); + } else if (SWIG_ConvertPtr(_PTRVALUE,&ptr,SWIG_POINTER_long_p) >= 0) { + ptr = (void *) (((long *) ptr) + offset); + } else if (SWIG_ConvertPtr(_PTRVALUE,&ptr,SWIG_POINTER_float_p) >= 0) { + ptr = (void *) (((float *) ptr) + offset); + } else if (SWIG_ConvertPtr(_PTRVALUE,&ptr,SWIG_POINTER_char_p) >= 0) { + ptr = (void *) (((char *) ptr) + offset); + } else if (SWIG_ConvertPtr(_PTRVALUE,&ptr,0) >= 0) { + ptr = (void *) (((char *) ptr) + offset); + } else { + croak("Type error in ptradd. Argument is not a valid pointer value."); + return 0; + } + printf("ptradd = %x\n", ptr); + tname = HvNAME(SvSTASH(SvRV(_PTRVALUE))); + obj = sv_newmortal(); + sv_setref_pv(obj,tname,ptr); + return obj; +} + +/*------------------------------------------------------------------ + ptrfree(ptr) + + Destroys a pointer value + ------------------------------------------------------------------ */ +#ifdef PERL_OBJECT +void _ptrfree(CPerlObj *pPerl, SV *_PTRVALUE) { +#define ptrfree(a) _ptrfree(pPerl, a) +#else +void _ptrfree(SV *_PTRVALUE) { +#define ptrfree(a) _ptrfree(a) +#endif + + void *ptr, *junk; + + if (SWIG_ConvertPtr(_PTRVALUE,&ptr,0) &lt; 0) { + croak("Type error in ptrfree. Argument is not a valid pointer value."); + return; + } + + /* Check to see if this pointer is a char ** */ + if (SWIG_ConvertPtr(_PTRVALUE,&junk,SWIG_POINTER_char_pp) >= 0) { + char **c = (char **) ptr; + if (c) { + int i = 0; + while (c[i]) { + free(c[i]); + i++; + } + } + } + if (ptr) + free((char *) ptr); +} + + </swigxml:code> + </swig:insert> + <swig:typemap name="ptr" > + <swigxml:code > +{ + $target = $source; +} </swigxml:code> + <swigxml:method string="in" /> + <swigxml:type string="p.SV" /> + <swigxml:lang string="perl5" /> + </swig:typemap> + <swig:typemap name="value" > + <swigxml:code > +{ + $target = $source; +} </swigxml:code> + <swigxml:method string="in" /> + <swigxml:type string="p.SV" /> + <swigxml:lang string="perl5" /> + </swig:typemap> + <swig:typemap name="ptrcast" > + <swigxml:code > +{ + $target = $source; + argvi++; +} </swigxml:code> + <swigxml:method string="out" /> + <swigxml:type string="p.SV" /> + <swigxml:lang string="perl5" /> + </swig:typemap> + <swig:typemap name="ptrvalue" > + <swigxml:code > +{ + $target = $source; + argvi++; +} </swigxml:code> + <swigxml:method string="out" /> + <swigxml:type string="p.SV" /> + <swigxml:lang string="perl5" /> + </swig:typemap> + <swig:typemap name="ptrcreate" > + <swigxml:code > +{ + $target = $source; + argvi++; +} </swigxml:code> + <swigxml:method string="out" /> + <swigxml:type string="p.SV" /> + <swigxml:lang string="perl5" /> + </swig:typemap> + <swig:typemap name="ptradd" > + <swigxml:code > +{ + $target = $source; + argvi++; +} </swigxml:code> + <swigxml:method string="out" /> + <swigxml:type string="p.SV" /> + <swigxml:lang string="perl5" /> + </swig:typemap> + <swig:typemap name="ptrset" > + <swigxml:code > +{ + if ($source == -1) return NULL; +} </swigxml:code> + <swigxml:method string="ret" /> + <swigxml:type string="int" /> + <swigxml:lang string="perl5" /> + </swig:typemap> + <c:function name="ptrvalue" > + <swigxml:parms > + <swigxml:parm name="ptr" > + <swigxml:type string="p.SV" /> + </swigxml:parm> + <swigxml:parm name="index" > + <swigxml:value string="0" /> + <swigxml:type string="int" /> + </swigxml:parm> + <swigxml:parm name="type" > + <swigxml:value string="0" /> + <swigxml:type string="p.char" /> + </swigxml:parm> + </swigxml:parms> + <swigxml:type string="p.SV" /> + </c:function> + <c:function name="ptrset" > + <swigxml:parms > + <swigxml:parm name="ptr" > + <swigxml:type string="p.SV" /> + </swigxml:parm> + <swigxml:parm name="value" > + <swigxml:type string="p.SV" /> + </swigxml:parm> + <swigxml:parm name="index" > + <swigxml:value string="0" /> + <swigxml:type string="int" /> + </swigxml:parm> + <swigxml:parm name="type" > + <swigxml:value string="0" /> + <swigxml:type string="p.char" /> + </swigxml:parm> + </swigxml:parms> + <swigxml:type string="void" /> + </c:function> + <c:function name="ptrcreate" > + <swigxml:parms > + <swigxml:parm name="type" > + <swigxml:type string="p.char" /> + </swigxml:parm> + <swigxml:parm name="value" > + <swigxml:value string="0" /> + <swigxml:type string="p.SV" /> + </swigxml:parm> + <swigxml:parm name="nitems" > + <swigxml:value string="1" /> + <swigxml:type string="int" /> + </swigxml:parm> + </swigxml:parms> + <swigxml:type string="p.SV" /> + </c:function> + <c:function name="ptrfree" > + <swigxml:parms > + <swigxml:parm name="ptr" > + <swigxml:type string="p.SV" /> + </swigxml:parm> + </swigxml:parms> + <swigxml:type string="void" /> + </c:function> + <c:function name="ptradd" > + <swigxml:parms > + <swigxml:parm name="ptr" > + <swigxml:type string="p.SV" /> + </swigxml:parm> + <swigxml:parm name="offset" > + <swigxml:type string="int" /> + </swigxml:parm> + </swigxml:parms> + <swigxml:type string="p.SV" /> + </c:function> + </swigxml:child> + <swigxml:type string="include" /> + </swig:file> + </swigxml:child> + <swigxml:type string="include" /> + </swig:file> + <swig:file name="../../Lib/xml/typemaps.i" > + <swigxml:child > + <swig:typemap name="INPUT" > + <swigxml:parms > + <swigxml:parm name="temp" > + <swigxml:type string="double" /> + </swigxml:parm> + </swigxml:parms> + <swigxml:code > +{ + temp = (double) SvNV($source); + $target = &temp; +} </swigxml:code> + <swigxml:method string="in" /> + <swigxml:type string="p.double" /> + <swigxml:lang string="perl5" /> + </swig:typemap> + <swig:typemap name="INPUT" > + <swigxml:parms > + <swigxml:parm name="temp" > + <swigxml:type string="float" /> + </swigxml:parm> + </swigxml:parms> + <swigxml:code > +{ + temp = (float) SvNV($source); + $target = &temp; +} </swigxml:code> + <swigxml:method string="in" /> + <swigxml:type string="p.float" /> + <swigxml:lang string="perl5" /> + </swig:typemap> + <swig:typemap name="INPUT" > + <swigxml:parms > + <swigxml:parm name="temp" > + <swigxml:type string="int" /> + </swigxml:parm> + </swigxml:parms> + <swigxml:code > +{ + temp = (int) SvIV($source); + $target = &temp; +} </swigxml:code> + <swigxml:method string="in" /> + <swigxml:type string="p.int" /> + <swigxml:lang string="perl5" /> + </swig:typemap> + <swig:typemap name="INPUT" > + <swigxml:parms > + <swigxml:parm name="temp" > + <swigxml:type string="short" /> + </swigxml:parm> + </swigxml:parms> + <swigxml:code > +{ + temp = (short) SvIV($source); + $target = &temp; +} </swigxml:code> + <swigxml:method string="in" /> + <swigxml:type string="p.short" /> + <swigxml:lang string="perl5" /> + </swig:typemap> + <swig:typemap name="INPUT" > + <swigxml:parms > + <swigxml:parm name="temp" > + <swigxml:type string="long" /> + </swigxml:parm> + </swigxml:parms> + <swigxml:code > +{ + temp = (long) SvIV($source); + $target = &temp; +} </swigxml:code> + <swigxml:method string="in" /> + <swigxml:type string="p.long" /> + <swigxml:lang string="perl5" /> + </swig:typemap> + <swig:typemap name="INPUT" > + <swigxml:parms > + <swigxml:parm name="temp" > + <swigxml:type string="unsigned int" /> + </swigxml:parm> + </swigxml:parms> + <swigxml:code > +{ + temp = (unsigned int) SvIV($source); + $target = &temp; +} </swigxml:code> + <swigxml:method string="in" /> + <swigxml:type string="p.unsigned int" /> + <swigxml:lang string="perl5" /> + </swig:typemap> + <swig:typemap name="INPUT" > + <swigxml:parms > + <swigxml:parm name="temp" > + <swigxml:type string="unsigned short" /> + </swigxml:parm> + </swigxml:parms> + <swigxml:code > +{ + temp = (unsigned short) SvIV($source); + $target = &temp; +} </swigxml:code> + <swigxml:method string="in" /> + <swigxml:type string="p.unsigned short" /> + <swigxml:lang string="perl5" /> + </swig:typemap> + <swig:typemap name="INPUT" > + <swigxml:parms > + <swigxml:parm name="temp" > + <swigxml:type string="unsigned long" /> + </swigxml:parm> + </swigxml:parms> + <swigxml:code > +{ + temp = (unsigned long) SvIV($source); + $target = &temp; +} </swigxml:code> + <swigxml:method string="in" /> + <swigxml:type string="p.unsigned long" /> + <swigxml:lang string="perl5" /> + </swig:typemap> + <swig:typemap name="INPUT" > + <swigxml:parms > + <swigxml:parm name="temp" > + <swigxml:type string="unsigned char" /> + </swigxml:parm> + </swigxml:parms> + <swigxml:code > +{ + temp = (unsigned char) SvIV($source); + $target = &temp; +} </swigxml:code> + <swigxml:method string="in" /> + <swigxml:type string="p.unsigned char" /> + <swigxml:lang string="perl5" /> + </swig:typemap> + <swig:typemap name="OUTPUT" > + <swigxml:parms > + <swigxml:parm name="temp" > + <swigxml:type string="int" /> + </swigxml:parm> + </swigxml:parms> + <swigxml:code > +{ + $target = &temp; +} </swigxml:code> + <swigxml:method string="ignore" /> + <swigxml:type string="p.int" /> + <swigxml:lang string="perl5" /> + </swig:typemap> + <swig:typemap name="OUTPUT" > + <swigxml:parms > + <swigxml:parm name="temp" > + <swigxml:type string="short" /> + </swigxml:parm> + </swigxml:parms> + <swigxml:code > +{ + $target = &amp;temp; +} </swigxml:code> + <swigxml:method string="ignore" /> + <swigxml:type string="p.short" /> + <swigxml:lang string="perl5" /> + </swig:typemap> + <swig:typemap name="OUTPUT" > + <swigxml:parms > + <swigxml:parm name="temp" > + <swigxml:type string="long" /> + </swigxml:parm> + </swigxml:parms> + <swigxml:code > +{ + $target = &amp;amp;temp; +} </swigxml:code> + <swigxml:method string="ignore" /> + <swigxml:type string="p.long" /> + <swigxml:lang string="perl5" /> + </swig:typemap> + <swig:typemap name="OUTPUT" > + <swigxml:parms > + <swigxml:parm name="temp" > + <swigxml:type string="unsigned int" /> + </swigxml:parm> + </swigxml:parms> + <swigxml:code > +{ + $target = &amp;amp;amp;temp; +} </swigxml:code> + <swigxml:method string="ignore" /> + <swigxml:type string="p.unsigned int" /> + <swigxml:lang string="perl5" /> + </swig:typemap> + <swig:typemap name="OUTPUT" > + <swigxml:parms > + <swigxml:parm name="temp" > + <swigxml:type string="unsigned short" /> + </swigxml:parm> + </swigxml:parms> + <swigxml:code > +{ + $target = &amp;amp;amp;amp;temp; +} </swigxml:code> + <swigxml:method string="ignore" /> + <swigxml:type string="p.unsigned short" /> + <swigxml:lang string="perl5" /> + </swig:typemap> + <swig:typemap name="OUTPUT" > + <swigxml:parms > + <swigxml:parm name="temp" > + <swigxml:type string="unsigned long" /> + </swigxml:parm> + </swigxml:parms> + <swigxml:code > +{ + $target = &amp;amp;amp;amp;amp;temp; +} </swigxml:code> + <swigxml:method string="ignore" /> + <swigxml:type string="p.unsigned long" /> + <swigxml:lang string="perl5" /> + </swig:typemap> + <swig:typemap name="OUTPUT" > + <swigxml:parms > + <swigxml:parm name="temp" > + <swigxml:type string="unsigned char" /> + </swigxml:parm> + </swigxml:parms> + <swigxml:code > +{ + $target = &amp;amp;amp;amp;amp;amp;temp; +} </swigxml:code> + <swigxml:method string="ignore" /> + <swigxml:type string="p.unsigned char" /> + <swigxml:lang string="perl5" /> + </swig:typemap> + <swig:typemap name="OUTPUT" > + <swigxml:parms > + <swigxml:parm name="temp" > + <swigxml:type string="float" /> + </swigxml:parm> + </swigxml:parms> + <swigxml:code > +{ + $target = &amp;amp;amp;amp;amp;amp;amp;temp; +} </swigxml:code> + <swigxml:method string="ignore" /> + <swigxml:type string="p.float" /> + <swigxml:lang string="perl5" /> + </swig:typemap> + <swig:typemap name="OUTPUT" > + <swigxml:parms > + <swigxml:parm name="temp" > + <swigxml:type string="double" /> + </swigxml:parm> + </swigxml:parms> + <swigxml:code > +{ + $target = &amp;amp;amp;amp;amp;amp;amp;amp;temp; +} </swigxml:code> + <swigxml:method string="ignore" /> + <swigxml:type string="p.double" /> + <swigxml:lang string="perl5" /> + </swig:typemap> + <swig:typemap name="OUTPUT" > + <swigxml:code > +{ + if (argvi >= items) { + EXTEND(sp,1); + } + $target = sv_newmortal(); + sv_setiv($target,(IV) *($source)); + argvi++; +} </swigxml:code> + <swigxml:method string="argout" /> + <swigxml:type string="p.int" /> + <swigxml:lang string="perl5" /> + </swig:typemap> + <swig:typemap name="OUTPUT" > + <swigxml:code > +{ + if (argvi >= items) { + EXTEND(sp,1); + } + $target = sv_newmortal(); + sv_setiv($target,(IV) *($source)); + argvi++; +} </swigxml:code> + <swigxml:method string="argout" /> + <swigxml:type string="p.short" /> + <swigxml:lang string="perl5" /> + </swig:typemap> + <swig:typemap name="OUTPUT" > + <swigxml:code > +{ + if (argvi >= items) { + EXTEND(sp,1); + } + $target = sv_newmortal(); + sv_setiv($target,(IV) *($source)); + argvi++; +} </swigxml:code> + <swigxml:method string="argout" /> + <swigxml:type string="p.long" /> + <swigxml:lang string="perl5" /> + </swig:typemap> + <swig:typemap name="OUTPUT" > + <swigxml:code > +{ + if (argvi >= items) { + EXTEND(sp,1); + } + $target = sv_newmortal(); + sv_setiv($target,(IV) *($source)); + argvi++; +} </swigxml:code> + <swigxml:method string="argout" /> + <swigxml:type string="p.unsigned int" /> + <swigxml:lang string="perl5" /> + </swig:typemap> + <swig:typemap name="OUTPUT" > + <swigxml:code > +{ + if (argvi >= items) { + EXTEND(sp,1); + } + $target = sv_newmortal(); + sv_setiv($target,(IV) *($source)); + argvi++; +} </swigxml:code> + <swigxml:method string="argout" /> + <swigxml:type string="p.unsigned short" /> + <swigxml:lang string="perl5" /> + </swig:typemap> + <swig:typemap name="OUTPUT" > + <swigxml:code > +{ + if (argvi >= items) { + EXTEND(sp,1); + } + $target = sv_newmortal(); + sv_setiv($target,(IV) *($source)); + argvi++; +} </swigxml:code> + <swigxml:method string="argout" /> + <swigxml:type string="p.unsigned long" /> + <swigxml:lang string="perl5" /> + </swig:typemap> + <swig:typemap name="OUTPUT" > + <swigxml:code > +{ + if (argvi >= items) { + EXTEND(sp,1); + } + $target = sv_newmortal(); + sv_setiv($target,(IV) *($source)); + argvi++; +} </swigxml:code> + <swigxml:method string="argout" /> + <swigxml:type string="p.unsigned char" /> + <swigxml:lang string="perl5" /> + </swig:typemap> + <swig:typemap name="OUTPUT" > + <swigxml:code > +{ + if (argvi >= items) { + EXTEND(sp,1); + } + $target = sv_newmortal(); + sv_setnv($target,(double) *($source)); + argvi++; +} </swigxml:code> + <swigxml:method string="argout" /> + <swigxml:type string="p.float" /> + <swigxml:lang string="perl5" /> + </swig:typemap> + <swig:typemap name="OUTPUT" > + <swigxml:code > +{ + if (argvi >= items) { + EXTEND(sp,1); + } + $target = sv_newmortal(); + sv_setnv($target,(double) *($source)); + argvi++; +} </swigxml:code> + <swigxml:method string="argout" /> + <swigxml:type string="p.double" /> + <swigxml:lang string="perl5" /> + </swig:typemap> + <swig:typemap name="BOTH" > + <swigxml:srctype string="p.int" /> + <swigxml:method string="in" /> + <swigxml:type string="p.int" /> + <swigxml:lang string="perl5" /> + <swigxml:srcname string="INPUT" /> + </swig:typemap> + <swig:typemap name="BOTH" > + <swigxml:srctype string="p.short" /> + <swigxml:method string="in" /> + <swigxml:type string="p.short" /> + <swigxml:lang string="perl5" /> + <swigxml:srcname string="INPUT" /> + </swig:typemap> + <swig:typemap name="BOTH" > + <swigxml:srctype string="p.long" /> + <swigxml:method string="in" /> + <swigxml:type string="p.long" /> + <swigxml:lang string="perl5" /> + <swigxml:srcname string="INPUT" /> + </swig:typemap> + <swig:typemap name="BOTH" > + <swigxml:srctype string="p.unsigned" /> + <swigxml:method string="in" /> + <swigxml:type string="p.unsigned" /> + <swigxml:lang string="perl5" /> + <swigxml:srcname string="INPUT" /> + </swig:typemap> + <swig:typemap name="BOTH" > + <swigxml:srctype string="p.unsigned short" /> + <swigxml:method string="in" /> + <swigxml:type string="p.unsigned short" /> + <swigxml:lang string="perl5" /> + <swigxml:srcname string="INPUT" /> + </swig:typemap> + <swig:typemap name="BOTH" > + <swigxml:srctype string="p.unsigned long" /> + <swigxml:method string="in" /> + <swigxml:type string="p.unsigned long" /> + <swigxml:lang string="perl5" /> + <swigxml:srcname string="INPUT" /> + </swig:typemap> + <swig:typemap name="BOTH" > + <swigxml:srctype string="p.unsigned char" /> + <swigxml:method string="in" /> + <swigxml:type string="p.unsigned char" /> + <swigxml:lang string="perl5" /> + <swigxml:srcname string="INPUT" /> + </swig:typemap> + <swig:typemap name="BOTH" > + <swigxml:srctype string="p.float" /> + <swigxml:method string="in" /> + <swigxml:type string="p.float" /> + <swigxml:lang string="perl5" /> + <swigxml:srcname string="INPUT" /> + </swig:typemap> + <swig:typemap name="BOTH" > + <swigxml:srctype string="p.double" /> + <swigxml:method string="in" /> + <swigxml:type string="p.double" /> + <swigxml:lang string="perl5" /> + <swigxml:srcname string="INPUT" /> + </swig:typemap> + <swig:typemap name="BOTH" > + <swigxml:srctype string="p.int" /> + <swigxml:method string="argout" /> + <swigxml:type string="p.int" /> + <swigxml:lang string="perl5" /> + <swigxml:srcname string="OUTPUT" /> + </swig:typemap> + <swig:typemap name="BOTH" > + <swigxml:srctype string="p.short" /> + <swigxml:method string="argout" /> + <swigxml:type string="p.short" /> + <swigxml:lang string="perl5" /> + <swigxml:srcname string="OUTPUT" /> + </swig:typemap> + <swig:typemap name="BOTH" > + <swigxml:srctype string="p.long" /> + <swigxml:method string="argout" /> + <swigxml:type string="p.long" /> + <swigxml:lang string="perl5" /> + <swigxml:srcname string="OUTPUT" /> + </swig:typemap> + <swig:typemap name="BOTH" > + <swigxml:srctype string="p.unsigned" /> + <swigxml:method string="argout" /> + <swigxml:type string="p.unsigned" /> + <swigxml:lang string="perl5" /> + <swigxml:srcname string="OUTPUT" /> + </swig:typemap> + <swig:typemap name="BOTH" > + <swigxml:srctype string="p.unsigned short" /> + <swigxml:method string="argout" /> + <swigxml:type string="p.unsigned short" /> + <swigxml:lang string="perl5" /> + <swigxml:srcname string="OUTPUT" /> + </swig:typemap> + <swig:typemap name="BOTH" > + <swigxml:srctype string="p.unsigned long" /> + <swigxml:method string="argout" /> + <swigxml:type string="p.unsigned long" /> + <swigxml:lang string="perl5" /> + <swigxml:srcname string="OUTPUT" /> + </swig:typemap> + <swig:typemap name="BOTH" > + <swigxml:srctype string="p.unsigned char" /> + <swigxml:method string="argout" /> + <swigxml:type string="p.unsigned char" /> + <swigxml:lang string="perl5" /> + <swigxml:srcname string="OUTPUT" /> + </swig:typemap> + <swig:typemap name="BOTH" > + <swigxml:srctype string="p.float" /> + <swigxml:method string="argout" /> + <swigxml:type string="p.float" /> + <swigxml:lang string="perl5" /> + <swigxml:srcname string="OUTPUT" /> + </swig:typemap> + <swig:typemap name="BOTH" > + <swigxml:srctype string="p.double" /> + <swigxml:method string="argout" /> + <swigxml:type string="p.double" /> + <swigxml:lang string="perl5" /> + <swigxml:srcname string="OUTPUT" /> + </swig:typemap> + <swig:typemap name="REFERENCE" > + <swigxml:parms > + <swigxml:parm name="dvalue" > + <swigxml:type string="double" /> + </swigxml:parm> + </swigxml:parms> + <swigxml:code > +{ + SV *tempsv; + if (!SvROK($source)) { + croak("expected a reference"); + } + tempsv = SvRV($source); + if ((!SvNOK(tempsv)) && (!SvIOK(tempsv))) { + printf("Received %d\n", SvTYPE(tempsv)); + croak("Expected a double reference."); + } + dvalue = SvNV(tempsv); + $target = &dvalue; +} </swigxml:code> + <swigxml:method string="in" /> + <swigxml:type string="p.double" /> + <swigxml:lang string="perl5" /> + </swig:typemap> + <swig:typemap name="REFERENCE" > + <swigxml:parms > + <swigxml:parm name="dvalue" > + <swigxml:type string="float" /> + </swigxml:parm> + </swigxml:parms> + <swigxml:code > +{ + SV *tempsv; + if (!SvROK($source)) { + croak("expected a reference"); + } + tempsv = SvRV($source); + if ((!SvNOK(tempsv)) && (!SvIOK(tempsv))) { + croak("expected a double reference"); + } + dvalue = (float) SvNV(tempsv); + $target = &dvalue; +} </swigxml:code> + <swigxml:method string="in" /> + <swigxml:type string="p.float" /> + <swigxml:lang string="perl5" /> + </swig:typemap> + <swig:typemap name="REFERENCE" > + <swigxml:parms > + <swigxml:parm name="dvalue" > + <swigxml:type string="int" /> + </swigxml:parm> + </swigxml:parms> + <swigxml:code > +{ + SV *tempsv; + if (!SvROK($source)) { + croak("expected a reference"); + } + tempsv = SvRV($source); + if (!SvIOK(tempsv)) { + croak("expected a integer reference"); + } + dvalue = SvIV(tempsv); + $target = &dvalue; +} </swigxml:code> + <swigxml:method string="in" /> + <swigxml:type string="p.int" /> + <swigxml:lang string="perl5" /> + </swig:typemap> + <swig:typemap name="REFERENCE" > + <swigxml:parms > + <swigxml:parm name="dvalue" > + <swigxml:type string="short" /> + </swigxml:parm> + </swigxml:parms> + <swigxml:code > +{ + SV *tempsv; + if (!SvROK($source)) { + croak("expected a reference"); + } + tempsv = SvRV($source); + if (!SvIOK(tempsv)) { + croak("expected a integer reference"); + } + dvalue = (short) SvIV(tempsv); + $target = &dvalue; +} </swigxml:code> + <swigxml:method string="in" /> + <swigxml:type string="p.short" /> + <swigxml:lang string="perl5" /> + </swig:typemap> + <swig:typemap name="REFERENCE" > + <swigxml:parms > + <swigxml:parm name="dvalue" > + <swigxml:type string="long" /> + </swigxml:parm> + </swigxml:parms> + <swigxml:code > +{ + SV *tempsv; + if (!SvROK($source)) { + croak("expected a reference"); + } + tempsv = SvRV($source); + if (!SvIOK(tempsv)) { + croak("expected a integer reference"); + } + dvalue = (long) SvIV(tempsv); + $target = &dvalue; +} </swigxml:code> + <swigxml:method string="in" /> + <swigxml:type string="p.long" /> + <swigxml:lang string="perl5" /> + </swig:typemap> + <swig:typemap name="REFERENCE" > + <swigxml:parms > + <swigxml:parm name="dvalue" > + <swigxml:type string="unsigned int" /> + </swigxml:parm> + </swigxml:parms> + <swigxml:code > +{ + SV *tempsv; + if (!SvROK($source)) { + croak("expected a reference"); + } + tempsv = SvRV($source); + if (!SvIOK(tempsv)) { + croak("expected a integer reference"); + } + dvalue = (unsigned int) SvIV(tempsv); + $target = &dvalue; +} </swigxml:code> + <swigxml:method string="in" /> + <swigxml:type string="p.unsigned int" /> + <swigxml:lang string="perl5" /> + </swig:typemap> + <swig:typemap name="REFERENCE" > + <swigxml:parms > + <swigxml:parm name="dvalue" > + <swigxml:type string="unsigned short" /> + </swigxml:parm> + </swigxml:parms> + <swigxml:code > +{ + SV *tempsv; + if (!SvROK($source)) { + croak("expected a reference"); + } + tempsv = SvRV($source); + if (!SvIOK(tempsv)) { + croak("expected a integer reference"); + } + dvalue = (unsigned short) SvIV(tempsv); + $target = &dvalue; +} </swigxml:code> + <swigxml:method string="in" /> + <swigxml:type string="p.unsigned short" /> + <swigxml:lang string="perl5" /> + </swig:typemap> + <swig:typemap name="REFERENCE" > + <swigxml:parms > + <swigxml:parm name="dvalue" > + <swigxml:type string="unsigned long" /> + </swigxml:parm> + </swigxml:parms> + <swigxml:code > +{ + SV *tempsv; + if (!SvROK($source)) { + croak("expected a reference"); + } + tempsv = SvRV($source); + if (!SvIOK(tempsv)) { + croak("expected a integer reference"); + } + dvalue = (unsigned long) SvIV(tempsv); + $target = &dvalue; +} </swigxml:code> + <swigxml:method string="in" /> + <swigxml:type string="p.unsigned long" /> + <swigxml:lang string="perl5" /> + </swig:typemap> + <swig:typemap name="REFERENCE" > + <swigxml:code > +{ + SV *tempsv; + tempsv = SvRV($arg); + sv_setnv(tempsv, (double) *$source); +} </swigxml:code> + <swigxml:method string="argout" /> + <swigxml:type string="p.double" /> + <swigxml:lang string="perl5" /> + </swig:typemap> + <swig:typemap name="REFERENCE" > + <swigxml:code > +{ + SV *tempsv; + tempsv = SvRV($arg); + sv_setnv(tempsv, (double) *$source); +} </swigxml:code> + <swigxml:method string="argout" /> + <swigxml:type string="p.float" /> + <swigxml:lang string="perl5" /> + </swig:typemap> + <swig:typemap name="REFERENCE" > + <swigxml:code > +{ + SV *tempsv; + tempsv = SvRV($arg); + sv_setiv(tempsv, (int) *$source); +} </swigxml:code> + <swigxml:method string="argout" /> + <swigxml:type string="p.int" /> + <swigxml:lang string="perl5" /> + </swig:typemap> + <swig:typemap name="REFERENCE" > + <swigxml:code > +{ + SV *tempsv; + tempsv = SvRV($arg); + sv_setiv(tempsv, (int) *$source); +} </swigxml:code> + <swigxml:method string="argout" /> + <swigxml:type string="p.short" /> + <swigxml:lang string="perl5" /> + </swig:typemap> + <swig:typemap name="REFERENCE" > + <swigxml:code > +{ + SV *tempsv; + tempsv = SvRV($arg); + sv_setiv(tempsv, (int) *$source); +} </swigxml:code> + <swigxml:method string="argout" /> + <swigxml:type string="p.long" /> + <swigxml:lang string="perl5" /> + </swig:typemap> + <swig:typemap name="REFERENCE" > + <swigxml:code > +{ + SV *tempsv; + tempsv = SvRV($arg); + sv_setiv(tempsv, (int) *$source); +} </swigxml:code> + <swigxml:method string="argout" /> + <swigxml:type string="p.unsigned int" /> + <swigxml:lang string="perl5" /> + </swig:typemap> + <swig:typemap name="REFERENCE" > + <swigxml:code > +{ + SV *tempsv; + tempsv = SvRV($arg); + sv_setiv(tempsv, (int) *$source); +} </swigxml:code> + <swigxml:method string="argout" /> + <swigxml:type string="p.unsigned short" /> + <swigxml:lang string="perl5" /> + </swig:typemap> + <swig:typemap name="REFERENCE" > + <swigxml:code > +{ + SV *tempsv; + tempsv = SvRV($arg); + sv_setiv(tempsv, (int) *$source); +} </swigxml:code> + <swigxml:method string="argout" /> + <swigxml:type string="p.unsigned long" /> + <swigxml:lang string="perl5" /> + </swig:typemap> + </swigxml:child> + <swigxml:type string="include" /> + </swig:file> + <c:function name="sub" > + <swigxml:parms > + <swigxml:parm name="INPUT" > + <swigxml:type string="p.int" /> + </swigxml:parm> + <swigxml:parm name="INPUT" > + <swigxml:type string="p.int" /> + </swigxml:parm> + <swigxml:parm name="OUTPUT" > + <swigxml:type string="p.int" /> + </swigxml:parm> + </swigxml:parms> + <swigxml:storage string="extern" /> + <swigxml:type string="void" /> + </c:function> + <swig:apply name="OUTPUT" > + <swigxml:parms > + <swigxml:none name="r" > + <swigxml:type string="p.int" /> + </swigxml:none> + </swigxml:parms> + <swigxml:type string="p.int" /> + </swig:apply> + <c:function name="divide" > + <swigxml:parms > + <swigxml:parm name="n" > + <swigxml:type string="int" /> + </swigxml:parm> + <swigxml:parm name="d" > + <swigxml:type string="int" /> + </swigxml:parm> + <swigxml:parm name="r" > + <swigxml:type string="p.int" /> + </swigxml:parm> + </swigxml:parms> + <swigxml:storage string="extern" /> + <swigxml:type string="int" /> + </c:function> + </swigxml:child> + <swigxml:type string="include" /> + </swig:file> + </swigxml:child> + </swig:top> +</swigxml:swig> |