Include mzscheme.h.
(usage): Add "-mzscheme" as another target language option. (main): Recognize "-mzscheme". git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@396 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
parent
85659455ff
commit
57606bf177
1 changed files with 9 additions and 4 deletions
|
|
@ -1,9 +1,9 @@
|
|||
/*******************************************************************************
|
||||
* Simplified Wrapper and Interface Generator (SWIG)
|
||||
*
|
||||
*
|
||||
* Author : David Beazley
|
||||
*
|
||||
* Department of Computer Science
|
||||
* Department of Computer Science
|
||||
* University of Chicago
|
||||
* 1100 E 58th Street
|
||||
* Chicago, IL 60637
|
||||
|
|
@ -31,6 +31,7 @@ static char cvsroot[] = "$Header$";
|
|||
#include "java.h"
|
||||
#include "python.h"
|
||||
#include "guile.h"
|
||||
#include "mzscheme.h"
|
||||
|
||||
#include <ctype.h>
|
||||
|
||||
|
|
@ -45,7 +46,8 @@ Target Language Options:\n\
|
|||
-python - Generate Python wrappers.\n\
|
||||
-perl5 - Generate Perl5 wrappers.\n\
|
||||
-java - Generate Java wrappers.\n\
|
||||
-guile - Generate Guile wrappers.\n";
|
||||
-guile - Generate Guile wrappers.\n\
|
||||
-mzscheme - Generate Mzscheme wrappers.\n";
|
||||
|
||||
//-----------------------------------------------------------------
|
||||
// main()
|
||||
|
|
@ -59,7 +61,7 @@ int main(int argc, char **argv) {
|
|||
Language *dl = new SWIG_LANG;
|
||||
extern int SWIG_main(int, char **, Language *);
|
||||
Swig_init_args(argc,argv);
|
||||
|
||||
|
||||
// Get options
|
||||
for (i = 1; i < argc; i++) {
|
||||
if (argv[i]) {
|
||||
|
|
@ -82,6 +84,9 @@ int main(int argc, char **argv) {
|
|||
} else if (strcmp(argv[i],"-java") == 0) {
|
||||
dl = new JAVA;
|
||||
Swig_mark_arg(i);
|
||||
} else if (strcmp(argv[i],"-mzscheme") == 0) {
|
||||
dl = new MZSCHEME;
|
||||
Swig_mark_arg(i);
|
||||
} else if (strcmp(argv[i],"-help") == 0) {
|
||||
fputs(usage,stderr);
|
||||
Swig_mark_arg(i);
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue