54737ee9a9
(throw typemap). - fix the examples with exception problems and warnings - proper and consist treatment of basic types (short, unsigned char,...) now all are checked for range and sign. Before, this was depending of the use of parsing or no parsing, and/or the converter method, and/or the use of directors, etc. git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@5659 626c5289-ae23-0410-ae9c-e8d60b6d4f22
65 lines
1.6 KiB
OpenEdge ABL
65 lines
1.6 KiB
OpenEdge ABL
/* File : example.i */
|
|
%module example
|
|
|
|
%{
|
|
#include <stdarg.h>
|
|
%}
|
|
|
|
/* This example illustrates SWIG's handling of varargs functions.
|
|
By default, variable length arguments are simply ignored. This
|
|
is generally appropriate for wrapping I/O functions like printf.
|
|
You can simply format a string in the scripting language, and
|
|
pass it directly */
|
|
|
|
int printf(const char *fmt, ...);
|
|
|
|
/* Since passing a format string might be dangerous. Here is a slightly
|
|
different way of wrapping a printf style function */
|
|
|
|
#if 1
|
|
/* Replace ... with char *. */
|
|
%varargs(char *) fprintf;
|
|
|
|
/* Ignore the format string, but set it to %s */
|
|
%typemap(in,numinputs=0) const char *fmt {
|
|
$1 = "%s";
|
|
}
|
|
#else
|
|
/* An alternative approach using typemaps */
|
|
%typemap(in) (const char *fmt, ...) {
|
|
$1 = "%s";
|
|
$2 = (void *) PyString_AsString($input);
|
|
}
|
|
#endif
|
|
|
|
/* Typemap just to make the example work */
|
|
%typemap(in) FILE * "$1 = PyFile_AsFile($input);";
|
|
|
|
int fprintf(FILE *, const char *fmt, ...);
|
|
|
|
/* Here is somewhat different example. A variable length argument
|
|
function that takes a NULL-terminated list of arguments. We
|
|
can use a slightly different form of %varargs that specifies
|
|
a default value and a maximum number of arguments.
|
|
*/
|
|
|
|
/* Maximum of 20 arguments with default value NULL */
|
|
|
|
%varargs(20, char *x = NULL) printv;
|
|
|
|
%inline %{
|
|
void printv(char *s, ...) {
|
|
va_list ap;
|
|
char *x;
|
|
fputs(s,stdout);
|
|
fputc(' ',stdout);
|
|
va_start(ap, s);
|
|
while ((x = va_arg(ap, char *))) {
|
|
fputs(x,stdout);
|
|
fputc(' ',stdout);
|
|
}
|
|
va_end(ap);
|
|
fputc('\n',stdout);
|
|
}
|
|
%}
|
|
|