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

Include mzscheme.h.

Browse source 
(usage): Add "-mzscheme" as another target language option.
(main): Recognize "-mzscheme".


git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@396 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Thien-Thi Nguyen 2000-04-06 08:34:40 +00:00
commit b0fa80612d
1 changed files with 9 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

13
Source/Modules1.1/swigmain.cxx
View file

@ -1,9 +1,9 @@
/******************************************************************************* /*******************************************************************************
* Simplified Wrapper and Interface Generator (SWIG) * Simplified Wrapper and Interface Generator (SWIG)
* *
* Author : David Beazley * Author : David Beazley
* *
* Department of Computer Science * Department of Computer Science
* University of Chicago * University of Chicago
* 1100 E 58th Street * 1100 E 58th Street
* Chicago, IL 60637 * Chicago, IL 60637
@ -31,6 +31,7 @@ static char cvsroot[] = "$Header$";
#include "java.h" #include "java.h"
#include "python.h" #include "python.h"
#include "guile.h" #include "guile.h"
#include "mzscheme.h"
#include <ctype.h> #include <ctype.h>
@ -45,7 +46,8 @@ Target Language Options:\n\
-python - Generate Python wrappers.\n\ -python - Generate Python wrappers.\n\
-perl5 - Generate Perl5 wrappers.\n\ -perl5 - Generate Perl5 wrappers.\n\
-java - Generate Java wrappers.\n\ -java - Generate Java wrappers.\n\
-guile - Generate Guile wrappers.\n"; -guile - Generate Guile wrappers.\n\
-mzscheme - Generate Mzscheme wrappers.\n";
//----------------------------------------------------------------- //-----------------------------------------------------------------
// main() // main()
@ -59,7 +61,7 @@ int main(int argc, char **argv) {
Language *dl = new SWIG_LANG; Language *dl = new SWIG_LANG;
extern int SWIG_main(int, char **, Language *); extern int SWIG_main(int, char **, Language *);
Swig_init_args(argc,argv); Swig_init_args(argc,argv);
// Get options // Get options
for (i = 1; i < argc; i++) { for (i = 1; i < argc; i++) {
if (argv[i]) { if (argv[i]) {
@ -82,6 +84,9 @@ int main(int argc, char **argv) {
} else if (strcmp(argv[i],"-java") == 0) { } else if (strcmp(argv[i],"-java") == 0) {
dl = new JAVA; dl = new JAVA;
Swig_mark_arg(i); 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) { } else if (strcmp(argv[i],"-help") == 0) {
fputs(usage,stderr); fputs(usage,stderr);
Swig_mark_arg(i); Swig_mark_arg(i);