/* Execute a C# program.
- Copyright (C) 2003-2004 Free Software Foundation, Inc.
+ Copyright (C) 2003-2013 Free Software Foundation, Inc.
Written by Bruno Haible <bruno@clisp.org>, 2003.
- This program is free software; you can redistribute it and/or modify
+ This program is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
- the Free Software Foundation; either version 2, or (at your option)
- any later version.
+ the Free Software Foundation; either version 3 of the License, or
+ (at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
- along with this program; if not, write to the Free Software Foundation,
- Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */
+ along with this program. If not, see <http://www.gnu.org/licenses/>. */
-#ifdef HAVE_CONFIG_H
-# include <config.h>
-#endif
+#include <config.h>
#include <alloca.h>
/* Specification. */
#include "execute.h"
#include "sh-quote.h"
-#include "xallocsa.h"
+#include "xmalloca.h"
#include "error.h"
#include "gettext.h"
#define reset_classpath reset_monopath
#include "classpath.h"
#include "classpath.c"
+#undef reset_classpath
+#undef set_classpath
+#undef new_classpath
+#undef CLASSPATHVAR
+
+/* Handling of clix' PATH variable is just like Java CLASSPATH. */
+#if defined _WIN32 || defined __WIN32__ || defined __CYGWIN__
+ /* Native Windows, Cygwin */
+ #define CLASSPATHVAR "PATH"
+#elif defined __APPLE__ && defined __MACH__
+ /* Mac OS X */
+ #define CLASSPATHVAR "DYLD_LIBRARY_PATH"
+#else
+ /* Normal Unix */
+ #define CLASSPATHVAR "LD_LIBRARY_PATH"
+#endif
+#define new_classpath new_clixpath
+#define set_classpath set_clixpath
+#define reset_classpath reset_clixpath
+#include "classpath.h"
+#include "classpath.c"
+#undef reset_classpath
+#undef set_classpath
+#undef new_classpath
+#undef CLASSPATHVAR
#define _(str) gettext (str)
ilrun pnet
mono mono
+ clix sscli
With Mono, the MONO_PATH is a colon separated list of pathnames. (On
Windows: semicolon separated list of pathnames.)
1. "ilrun", because it is a completely free system.
2. "mono", because it is a partially free system but doesn't integrate
well with Unix.
+ 3. "clix", although it is not free, because it is a kind of "reference
+ implementation" of C#.
But the order can be changed through the --enable-csharp configuration
option.
*/
static int
execute_csharp_using_pnet (const char *assembly_path,
- const char * const *libdirs,
- unsigned int libdirs_count,
- const char * const *args, unsigned int nargs,
- bool verbose, bool quiet,
- execute_fn *executer, void *private_data)
+ const char * const *libdirs,
+ unsigned int libdirs_count,
+ const char * const *args, unsigned int nargs,
+ bool verbose, bool quiet,
+ execute_fn *executer, void *private_data)
{
static bool ilrun_tested;
static bool ilrun_present;
if (!ilrun_tested)
{
/* Test for presence of ilrun:
- "ilrun --version >/dev/null 2>/dev/null" */
+ "ilrun --version >/dev/null 2>/dev/null" */
char *argv[3];
int exitstatus;
argv[1] = "--version";
argv[2] = NULL;
exitstatus = execute ("ilrun", "ilrun", argv, false, false, true, true,
- true, false);
+ true, false, NULL);
ilrun_present = (exitstatus == 0);
ilrun_tested = true;
}
bool err;
argc = 1 + 2 * libdirs_count + 1 + nargs;
- argv = (char **) xallocsa ((argc + 1) * sizeof (char *));
+ argv = (char **) xmalloca ((argc + 1) * sizeof (char *));
argp = argv;
*argp++ = "ilrun";
for (i = 0; i < libdirs_count; i++)
- {
- *argp++ = "-L";
- *argp++ = (char *) libdirs[i];
- }
+ {
+ *argp++ = "-L";
+ *argp++ = (char *) libdirs[i];
+ }
*argp++ = (char *) assembly_path;
for (i = 0; i < nargs; i++)
- *argp++ = (char *) args[i];
+ *argp++ = (char *) args[i];
*argp = NULL;
/* Ensure argv length was correctly calculated. */
if (argp - argv != argc)
- abort ();
+ abort ();
if (verbose)
- {
- char *command = shell_quote_argv (argv);
- printf ("%s\n", command);
- free (command);
- }
+ {
+ char *command = shell_quote_argv (argv);
+ printf ("%s\n", command);
+ free (command);
+ }
err = executer ("ilrun", "ilrun", argv, private_data);
- freesa (argv);
+ freea (argv);
return err;
}
static int
execute_csharp_using_mono (const char *assembly_path,
- const char * const *libdirs,
- unsigned int libdirs_count,
- const char * const *args, unsigned int nargs,
- bool verbose, bool quiet,
- execute_fn *executer, void *private_data)
+ const char * const *libdirs,
+ unsigned int libdirs_count,
+ const char * const *args, unsigned int nargs,
+ bool verbose, bool quiet,
+ execute_fn *executer, void *private_data)
{
static bool mono_tested;
static bool mono_present;
if (!mono_tested)
{
/* Test for presence of mono:
- "mono --version >/dev/null 2>/dev/null" */
+ "mono --version >/dev/null 2>/dev/null" */
char *argv[3];
int exitstatus;
argv[1] = "--version";
argv[2] = NULL;
exitstatus = execute ("mono", "mono", argv, false, false, true, true,
- true, false);
+ true, false, NULL);
mono_present = (exitstatus == 0);
mono_tested = true;
}
if (mono_present)
{
char *old_monopath;
- char **argv = (char **) xallocsa ((2 + nargs + 1) * sizeof (char *));
+ char **argv = (char **) xmalloca ((2 + nargs + 1) * sizeof (char *));
unsigned int i;
bool err;
argv[0] = "mono";
argv[1] = (char *) assembly_path;
for (i = 0; i <= nargs; i++)
- argv[2 + i] = (char *) args[i];
+ argv[2 + i] = (char *) args[i];
if (verbose)
- {
- char *command = shell_quote_argv (argv);
- printf ("%s\n", command);
- free (command);
- }
+ {
+ char *command = shell_quote_argv (argv);
+ printf ("%s\n", command);
+ free (command);
+ }
err = executer ("mono", "mono", argv, private_data);
/* Reset MONO_PATH. */
reset_monopath (old_monopath);
- freesa (argv);
+ freea (argv);
+
+ return err;
+ }
+ else
+ return -1;
+}
+
+static int
+execute_csharp_using_sscli (const char *assembly_path,
+ const char * const *libdirs,
+ unsigned int libdirs_count,
+ const char * const *args, unsigned int nargs,
+ bool verbose, bool quiet,
+ execute_fn *executer, void *private_data)
+{
+ static bool clix_tested;
+ static bool clix_present;
+
+ if (!clix_tested)
+ {
+ /* Test for presence of clix:
+ "clix >/dev/null 2>/dev/null ; test $? = 1" */
+ char *argv[2];
+ int exitstatus;
+
+ argv[0] = "clix";
+ argv[1] = NULL;
+ exitstatus = execute ("clix", "clix", argv, false, false, true, true,
+ true, false, NULL);
+ clix_present = (exitstatus == 0 || exitstatus == 1);
+ clix_tested = true;
+ }
+
+ if (clix_present)
+ {
+ char *old_clixpath;
+ char **argv = (char **) xmalloca ((2 + nargs + 1) * sizeof (char *));
+ unsigned int i;
+ bool err;
+
+ /* Set clix' PATH variable. */
+ old_clixpath = set_clixpath (libdirs, libdirs_count, false, verbose);
+
+ argv[0] = "clix";
+ argv[1] = (char *) assembly_path;
+ for (i = 0; i <= nargs; i++)
+ argv[2 + i] = (char *) args[i];
+
+ if (verbose)
+ {
+ char *command = shell_quote_argv (argv);
+ printf ("%s\n", command);
+ free (command);
+ }
+
+ err = executer ("clix", "clix", argv, private_data);
+
+ /* Reset clix' PATH variable. */
+ reset_clixpath (old_clixpath);
+
+ freea (argv);
return err;
}
bool
execute_csharp_program (const char *assembly_path,
- const char * const *libdirs,
- unsigned int libdirs_count,
- const char * const *args,
- bool verbose, bool quiet,
- execute_fn *executer, void *private_data)
+ const char * const *libdirs,
+ unsigned int libdirs_count,
+ const char * const *args,
+ bool verbose, bool quiet,
+ execute_fn *executer, void *private_data)
{
unsigned int nargs;
int result;
/* First try the C# implementation specified through --enable-csharp. */
#if CSHARP_CHOICE_PNET
result = execute_csharp_using_pnet (assembly_path, libdirs, libdirs_count,
- args, nargs, verbose, quiet,
- executer, private_data);
+ args, nargs, verbose, quiet,
+ executer, private_data);
if (result >= 0)
return (bool) result;
#endif
#if CSHARP_CHOICE_MONO
result = execute_csharp_using_mono (assembly_path, libdirs, libdirs_count,
- args, nargs, verbose, quiet,
- executer, private_data);
+ args, nargs, verbose, quiet,
+ executer, private_data);
if (result >= 0)
return (bool) result;
#endif
/* Then try the remaining C# implementations in our standard order. */
#if !CSHARP_CHOICE_PNET
result = execute_csharp_using_pnet (assembly_path, libdirs, libdirs_count,
- args, nargs, verbose, quiet,
- executer, private_data);
+ args, nargs, verbose, quiet,
+ executer, private_data);
if (result >= 0)
return (bool) result;
#endif
#if !CSHARP_CHOICE_MONO
result = execute_csharp_using_mono (assembly_path, libdirs, libdirs_count,
- args, nargs, verbose, quiet,
- executer, private_data);
+ args, nargs, verbose, quiet,
+ executer, private_data);
if (result >= 0)
return (bool) result;
#endif
+ result = execute_csharp_using_sscli (assembly_path, libdirs, libdirs_count,
+ args, nargs, verbose, quiet,
+ executer, private_data);
+ if (result >= 0)
+ return (bool) result;
+
if (!quiet)
error (0, 0, _("C# virtual machine not found, try installing pnet"));
return true;
projects / gnulib.git / blobdiff