===================================================================
RCS file: /home/cvs/OpenXM/src/ox_ntl/main.cpp,v
retrieving revision 1.1
retrieving revision 1.6
diff -u -p -r1.1 -r1.6
--- OpenXM/src/ox_ntl/main.cpp	2003/11/03 03:11:21	1.1
+++ OpenXM/src/ox_ntl/main.cpp	2008/09/19 10:55:40	1.6
@@ -1,26 +1,53 @@
-/* $OpenXM$ */
+/* $OpenXM: OpenXM/src/ox_ntl/main.cpp,v 1.5 2004/07/05 10:08:35 ohara Exp $ */
 
+/*
+[1208] ox_launch(0, "/home/openxm/OpenXM/src/ox_ntl/ox_ntl");
+0
+[1210] load("ntl.rr");
+[1229] ntl.factor(0, x^2-1);
+[[1,1],[x+1,1],[x-1,1]]
+[1231] ox_shutdown(0);
+0
+ */
 #include "ox_toolkit.h"
 #include "oxserv.h"
+#include "oxstack.h"
 #include "ntl.h"
 
 #define VERSION 0x00000001
-#define ID_STRING "$Revision: 1.1 $"
+#define ID_STRING "$Revision: 1.6 $"
 
-#if 1
-extern "C" {
-void dprintf(const char *, ...);
-}
-#endif
 
-static cmo *
-ntl_executeFunction(const char *func, cmo **arg, int argc)
+static void
+ntl_executeFunction(const char *func, oxstack_node **arg, int argc)
 {
-	if (strcmp(func, "fctr") == 0) {
-		return (ntl_fctr(arg, argc));
+	oxstack_node *ans;
+	int i;
+
+	enum {
+		RET_CMO,
+		RET_USR,
+	};
+
+	struct {
+		const char *name;
+		oxstack_node *(*func)(oxstack_node **, int);
+		int return_type;
+	} funcs[] = {
+		{"fctr", ntl_fctr, RET_USR},
+		{"lll", ntl_lll, RET_USR},
+		{NULL, NULL, 0}
+	};
+
+	for (i = 0; funcs[i].name != NULL; i++) {
+		if (strcmp(func, funcs[i].name) == 0) {
+			ans = funcs[i].func(arg, argc);
+			oxstack_push(ans);
+			return ;
+		}
 	}
 
-	return (NULL);
+	oxstack_push_cmo((cmo *)new_cmo_error2((cmo *)new_cmo_string("Unknown Function")));
 }
 
 
@@ -28,8 +55,7 @@ ntl_executeFunction(const char *func, cmo **arg, int a
 int
 main(int argc, char *argv[])
 {
-	int fd = 3;
-	int i;
+	const int fd = 3;
 	int ret;
 
 	OXFILE *oxfp;
@@ -38,14 +64,18 @@ main(int argc, char *argv[])
 
 	ox_stderr_init(stderr);
 
-	oxserv_set(OXSERV_SET_EXECUTE_FUNCTION, ntl_executeFunction, NULL);
+	oxserv_set(OXSERV_SET_EXECUTE_FUNCTION, (void *)(void (*)())ntl_executeFunction, NULL);
+	oxserv_set(OXSERV_SET_DELETE_CMO, (void *)(void (*)())delete_cmon, NULL);
+	oxserv_set(OXSERV_SET_GET_CMOTAG, (void *)(void (*)())get_cmon_tag, NULL);
+	oxserv_set(OXSERV_SET_CONVERT_CMO, (void *)(void (*)())convert_cmon, NULL);
 	oxserv_init(oxfp, VERSION, ID_STRING, "ox_ntl", NULL, NULL);
 
-	for (i = 0;; i++) {
-		ret = oxserv_receive(oxfp);
-		if (ret != OXSERV_SUCCESS)
-			break;
-	}
+printf("\n\n");
+printf("MAPLE=%s\n", getenv("MAPLE"));
+printf("PATH=%s\n", getenv("PATH"));
+printf("LD_LIBRARY_PATH=%s\n", getenv("LD_LIBRARY_PATH"));
+sleep(10000);
+	ret = oxserv_receive(oxfp);
 
 	oxserv_dest();
 	oxf_close(oxfp);