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

Version simplification.

Browse source 
'swig -ldflags' added for MzScheme, Ocaml, Pike and PHP


git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@4187 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
William S Fulton 2002-12-11 22:39:28 +00:00
commit d489112eb9
5 changed files with 55 additions and 28 deletions
Download patch file Download diff file Expand all files Collapse all files

18
Source/Modules/ocaml.cxx
View file

@ -21,13 +21,17 @@ char cvsroot_ocaml_cxx[] = "$Header$";
#include "swigmod.h"
#ifndef MACSWIG
#include "swigconfig.h"
#endif
#include <ctype.h>
static const char *ocaml_usage = (char*)"\
static const char *usage = (char*)"\
\n\
Ocaml Options (available with -ocaml)\n\
-help - Print this help\n\
-prefix name - Set a prefix to be appended to all names\n\
-ldflags - Print runtime libraries to link with\n\
-prefix name - Set a prefix to be appended to all names\n\
\n";
static int classmode = 0;
@ -76,10 +80,9 @@ public:
for (i = 1; i < argc; i++) {
if (argv[i]) {
if (strcmp (argv[i], "-help") == 0) {
fputs (ocaml_usage, stderr);
fputs (usage, stderr);
SWIG_exit (0);
}
else if (strcmp (argv[i], "-prefix") == 0) {
} else if (strcmp (argv[i], "-prefix") == 0) {
if (argv[i + 1]) {
prefix = new char[strlen(argv[i + 1]) + 2];
strcpy(prefix, argv[i + 1]);
@ -89,6 +92,9 @@ public:
} else {
Swig_arg_error();
}
} else if (strcmp (argv[i], "-ldflags") == 0) {
printf("%s\n", SWIG_OCAML_RUNTIME);
SWIG_exit (EXIT_SUCCESS);
}
}
}