*** empty log message ***
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@4142 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Dave Beazley
parent
12a43edc2d
commit
d4d33f06d5
3 changed files with 242 additions and 2 deletions
87
Examples/java/typemap/example.i
Normal file
87
Examples/java/typemap/example.i
Normal file
|
|
@ -0,0 +1,87 @@
|
||||||
|
/* File : example.i */
|
||||||
|
%module example
|
||||||
|
%{
|
||||||
|
/*
|
||||||
|
example of a function that returns a value in the char * argument
|
||||||
|
normally used like:
|
||||||
|
|
||||||
|
char buf[bigenough];
|
||||||
|
f1(buf);
|
||||||
|
*/
|
||||||
|
|
||||||
|
void f1(char *s) {
|
||||||
|
if(s != NULL) {
|
||||||
|
sprintf(s, "hello world");
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
void f2(char *s) {
|
||||||
|
f1(s);
|
||||||
|
}
|
||||||
|
|
||||||
|
void f3(char *s) {
|
||||||
|
f1(s);
|
||||||
|
}
|
||||||
|
|
||||||
|
%}
|
||||||
|
|
||||||
|
/* default behaviour is that of input arg, Java cannot return a value in a
|
||||||
|
* string argument, so any changes made by f1(char*) will not be seen in the Java
|
||||||
|
* string passed to the f1 function.
|
||||||
|
*/
|
||||||
|
void f1(char *s);
|
||||||
|
|
||||||
|
%include various.i
|
||||||
|
|
||||||
|
/* use the BYTE argout typemap to get around this. Changes in the string by
|
||||||
|
* f2 can be seen in Java. */
|
||||||
|
void f2(char *BYTE);
|
||||||
|
|
||||||
|
/* alternative approach uses a StringBuffer typemap for argout */
|
||||||
|
|
||||||
|
/* what is the corresponding jni type */
|
||||||
|
%typemap(jni) char *SBUF "jobject"
|
||||||
|
|
||||||
|
/* what types to use in java source code */
|
||||||
|
%typemap(jtype) char *SBUF "StringBuffer"
|
||||||
|
%typemap(jstype) char *SBUF "StringBuffer"
|
||||||
|
|
||||||
|
/* how to convert java type to requested c type */
|
||||||
|
%typemap(in) char *SBUF {
|
||||||
|
jclass sbufClass;
|
||||||
|
jmethodID toStringID;
|
||||||
|
jmethodID setLengthID;
|
||||||
|
jstring js;
|
||||||
|
|
||||||
|
$1 = NULL;
|
||||||
|
if($input != NULL) {
|
||||||
|
/* get the String from the StringBuffer */
|
||||||
|
sbufClass = (*jenv)->GetObjectClass(jenv, $input);
|
||||||
|
toStringID = (*jenv)->GetMethodID(jenv, sbufClass, "toString", "()Ljava/lang/String;");
|
||||||
|
js = (jstring) (*jenv)->CallObjectMethod(jenv, $input, toStringID);
|
||||||
|
/* convert the String to a char * */
|
||||||
|
$1 = (char *)(*jenv)->GetStringUTFChars(jenv, js, 0);
|
||||||
|
/* zero the original StringBuffer, so we can replace it with the result */
|
||||||
|
setLengthID = (*jenv)->GetMethodID(jenv, sbufClass, "setLength", "(I)V");
|
||||||
|
(*jenv)->CallVoidMethod(jenv, $input, setLengthID, (jint) 0);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/* how to convert the c type to the java type */
|
||||||
|
%typemap(argout) char *SBUF {
|
||||||
|
jclass sbufClass;
|
||||||
|
jmethodID appendStringID;
|
||||||
|
|
||||||
|
if($1 != NULL) {
|
||||||
|
/* append the result to the empty StringBuffer */
|
||||||
|
sbufClass = (*jenv)->GetObjectClass(jenv, $input);
|
||||||
|
appendStringID = (*jenv)->GetMethodID(jenv, sbufClass, "append", "(Ljava/lang/String;)Ljava/lang/StringBuffer;");
|
||||||
|
(*jenv)->CallObjectMethod(jenv, $input, appendStringID, (*jenv)->NewStringUTF(jenv, $1));
|
||||||
|
if($input != NULL) (*jenv)->ReleaseStringUTFChars(jenv, $input, $1);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
/* Prevent the default freearg typemap from being used */
|
||||||
|
%typemap(freearg) char *SBUF ""
|
||||||
|
|
||||||
|
/* apply the new typemap to our function */
|
||||||
|
void f3(char *SBUF);
|
||||||
|
|
@ -7,8 +7,8 @@
|
||||||
//
|
//
|
||||||
/* Revision History
|
/* Revision History
|
||||||
* $Log$
|
* $Log$
|
||||||
* Revision 1.2 2002/11/30 22:01:08 beazley
|
* Revision 1.3 2002/11/30 22:10:09 beazley
|
||||||
* The great merge
|
* *** empty log message ***
|
||||||
*
|
*
|
||||||
* Revision 1.1.2.1 2001/06/20 11:47:29 mkoeppe
|
* Revision 1.1.2.1 2001/06/20 11:47:29 mkoeppe
|
||||||
* Portability fixes
|
* Portability fixes
|
||||||
|
|
|
||||||
153
Source/Modules1.1/swigmain.cxx
Normal file
153
Source/Modules1.1/swigmain.cxx
Normal file
|
|
@ -0,0 +1,153 @@
|
||||||
|
/*******************************************************************************
|
||||||
|
* Simplified Wrapper and Interface Generator (SWIG)
|
||||||
|
*
|
||||||
|
* swigmain.cxx
|
||||||
|
*
|
||||||
|
* This file is the main entry point to SWIG. It collects the command
|
||||||
|
* line options, registers built-in language modules, and instantiates
|
||||||
|
* a module for code generation. If adding new language modules
|
||||||
|
* to SWIG, you would modify this file.
|
||||||
|
*
|
||||||
|
* Author : David Beazley
|
||||||
|
*
|
||||||
|
* Department of Computer Science
|
||||||
|
* University of Chicago
|
||||||
|
* 1100 E 58th Street
|
||||||
|
* Chicago, IL 60637
|
||||||
|
* beazley@cs.uchicago.edu
|
||||||
|
*
|
||||||
|
* Please read the file LICENSE for the copyright and terms by which SWIG
|
||||||
|
* can be used and distributed.
|
||||||
|
*******************************************************************************/
|
||||||
|
|
||||||
|
char cvsroot_swigmain_cxx[] = "$Header$";
|
||||||
|
|
||||||
|
#ifndef MACSWIG
|
||||||
|
#include "swigconfig.h"
|
||||||
|
#endif
|
||||||
|
|
||||||
|
#include "swigmod.h"
|
||||||
|
|
||||||
|
/* Module factories. These functions are used to instantiate
|
||||||
|
the built-in language modules. If adding a new language
|
||||||
|
module to SWIG, place a similar function here. Make sure
|
||||||
|
the function has "C" linkage. This is required so that modules
|
||||||
|
can be dynamically loaded in future versions. */
|
||||||
|
|
||||||
|
extern "C" {
|
||||||
|
Language *swig_tcl(void);
|
||||||
|
Language *swig_python(void);
|
||||||
|
Language *swig_perl5(void);
|
||||||
|
Language *swig_ruby(void);
|
||||||
|
Language *swig_guile(void);
|
||||||
|
Language *swig_mzscheme(void);
|
||||||
|
Language *swig_java(void);
|
||||||
|
Language *swig_php(void);
|
||||||
|
Language *swig_ocaml(void);
|
||||||
|
Language *swig_pike(void);
|
||||||
|
Language *swig_sexp(void);
|
||||||
|
Language *swig_xml(void);
|
||||||
|
}
|
||||||
|
|
||||||
|
struct swig_module {
|
||||||
|
const char *name;
|
||||||
|
ModuleFactory fac;
|
||||||
|
const char *help;
|
||||||
|
};
|
||||||
|
|
||||||
|
/* Association of command line options to language modules.
|
||||||
|
Place an entry for new language modules here, keeping the
|
||||||
|
list sorted alphabetically. */
|
||||||
|
|
||||||
|
swig_module modules[] = {
|
||||||
|
{"-guile", swig_guile, "Guile"},
|
||||||
|
{"-java", swig_java, "Java"},
|
||||||
|
{"-mzscheme", swig_mzscheme, "Mzscheme"},
|
||||||
|
{"-ocaml", swig_ocaml, "Ocaml"},
|
||||||
|
{"-perl", swig_perl5, "Perl"},
|
||||||
|
{"-perl5", swig_perl5, 0},
|
||||||
|
{"-php", swig_php, "PHP"},
|
||||||
|
{"-php4", swig_php, 0},
|
||||||
|
{"-pike", swig_pike, "Pike"},
|
||||||
|
{"-python", swig_python, "Python"},
|
||||||
|
{"-ruby", swig_ruby, "Ruby"},
|
||||||
|
{"-sexp", swig_sexp, "Lisp S-Expressions"},
|
||||||
|
{"-tcl", swig_tcl, "Tcl"},
|
||||||
|
{"-tcl8", swig_tcl, 0},
|
||||||
|
{"-xml", swig_xml, "XML"},
|
||||||
|
{NULL, NULL, NULL}
|
||||||
|
};
|
||||||
|
|
||||||
|
#ifdef MACSWIG
|
||||||
|
#include <console.h>
|
||||||
|
#include <SIOUX.h>
|
||||||
|
#endif
|
||||||
|
|
||||||
|
#ifndef SWIG_LANG
|
||||||
|
#define SWIG_LANG "-python"
|
||||||
|
#endif
|
||||||
|
|
||||||
|
//-----------------------------------------------------------------
|
||||||
|
// main()
|
||||||
|
//
|
||||||
|
// Main program. Initializes the files and starts the parser.
|
||||||
|
//-----------------------------------------------------------------
|
||||||
|
|
||||||
|
|
||||||
|
int main(int argc, char **argv) {
|
||||||
|
int i;
|
||||||
|
Language *dl = 0;
|
||||||
|
ModuleFactory fac = 0;
|
||||||
|
|
||||||
|
extern int SWIG_main(int, char **, Language *);
|
||||||
|
|
||||||
|
#ifdef MACSWIG
|
||||||
|
SIOUXSettings.asktosaveonclose = false;
|
||||||
|
argc = ccommand(&argv);
|
||||||
|
#endif
|
||||||
|
|
||||||
|
/* Register built-in modules */
|
||||||
|
for (i = 0; modules[i].name; i++) {
|
||||||
|
Swig_register_module(modules[i].name, modules[i].fac);
|
||||||
|
}
|
||||||
|
|
||||||
|
Swig_init_args(argc,argv);
|
||||||
|
|
||||||
|
/* Get options */
|
||||||
|
for (i = 1; i < argc; i++) {
|
||||||
|
if (argv[i]) {
|
||||||
|
fac = Swig_find_module(argv[i]);
|
||||||
|
if (fac) {
|
||||||
|
dl = (fac)();
|
||||||
|
Swig_mark_arg(i);
|
||||||
|
} else if (strcmp(argv[i],"-nolang") == 0) {
|
||||||
|
dl = new Language;
|
||||||
|
Swig_mark_arg(i);
|
||||||
|
} else if ((strcmp(argv[i],"-dnone") == 0) ||
|
||||||
|
(strcmp(argv[i],"-dhtml") == 0) ||
|
||||||
|
(strcmp(argv[i],"-dlatex") == 0) ||
|
||||||
|
(strcmp(argv[i],"-dascii") == 0) ||
|
||||||
|
(strcmp(argv[i],"-stat") == 0))
|
||||||
|
{
|
||||||
|
Printf(stderr,"swig: Warning. %s option deprecated.\n",argv[i]);
|
||||||
|
Swig_mark_arg(i);
|
||||||
|
} else if (strcmp(argv[i],"-help") == 0) {
|
||||||
|
Printf(stderr,"Target Language Options:\n");
|
||||||
|
for (int j = 0; modules[j].name; j++) {
|
||||||
|
if (modules[j].help) {
|
||||||
|
Printf(stderr," %-15s - Generate %s wrappers.\n", modules[j].name, modules[j].help);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
Swig_mark_arg(i);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if (!dl) {
|
||||||
|
fac = Swig_find_module(SWIG_LANG);
|
||||||
|
if (fac) {
|
||||||
|
dl = (fac)();
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return SWIG_main(argc,argv,dl);
|
||||||
|
}
|
||||||
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue