===================================================================
RCS file: /home/cvs/OpenXM/src/ox_ntl/ntl.cpp,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -p -r1.6 -r1.7
--- OpenXM/src/ox_ntl/ntl.cpp	2008/09/19 10:55:40	1.6
+++ OpenXM/src/ox_ntl/ntl.cpp	2013/10/18 01:28:52	1.7
@@ -1,4 +1,4 @@
-/* $OpenXM: OpenXM/src/ox_ntl/ntl.cpp,v 1.5 2004/07/04 02:31:51 iwane Exp $ */
+/* $OpenXM: OpenXM/src/ox_ntl/ntl.cpp,v 1.6 2008/09/19 10:55:40 iwane Exp $ */
 
 #include <NTL/ZZXFactoring.h>
 #include <NTL/LLL.h>
@@ -33,9 +33,11 @@ ntl_fctr(oxstack_node **arg, int argc)
 	cmo *err;
 	ZZX f;
 	int ret;
+	char emss[25] = "Invalid Parameter(#)";
+	char emst[25] = "Invalid Parameter(type)";
 
 	if (argc != 1) {
-		err = ((cmo *)new_cmo_error2((cmo *)new_cmo_string("Invalid Parameter(#)")));
+		err = ((cmo *)new_cmo_error2((cmo *)new_cmo_string(emss)));
 		p = oxstack_node_init(err);
 		return (p);
 	}
@@ -43,13 +45,13 @@ ntl_fctr(oxstack_node **arg, int argc)
 	ret = cmo_to_ZZX(f, poly, x);
 	if (ret != NTL_SUCCESS) {
 		/* format error */
-		err = (cmo *)new_cmo_error2((cmo *)new_cmo_string("Invalid Parameter(type)"));
+		err = (cmo *)new_cmo_error2((cmo *)new_cmo_string(emst));
 		p = oxstack_node_init(err);
 		return (p);
 	}
 
 #if __NTL_PRINT
-	cout << "input: " << f << endl;
+	std::cout << "input: " << f << std::endl;
 #endif
 
 	cmon_factors_t *factors = new_cmon_factors();
@@ -58,7 +60,7 @@ ntl_fctr(oxstack_node **arg, int argc)
 	factor(*factors->cont, *factors->f, f);
 
 #if __NTL_PRINT
-	cout << "fctr : " << *factors->f << endl;
+	std::cout << "fctr : " << *factors->f << std::endl;
 #endif
 
 	p = oxstack_node_init(NULL);
@@ -87,9 +89,11 @@ ntl_lll(oxstack_node **arg, int argc)
 	ZZX f;
 	int ret;
 	cmon_mat_zz_t *mat;
+	char emss[25] = "Invalid Parameter(#)";
+	char emst[25] = "Invalid Parameter(type)";
 
 	if (argc != 1) {
-		err = ((cmo *)new_cmo_error2((cmo *)new_cmo_string("Invalid Parameter(#)")));
+		err = ((cmo *)new_cmo_error2((cmo *)new_cmo_string(emss)));
 		p = oxstack_node_init(err);
 		return (p);
 	}
@@ -99,21 +103,21 @@ ntl_lll(oxstack_node **arg, int argc)
 	if (ret != NTL_SUCCESS) {
 		delete_cmon_mat_zz(mat);
 		/* format error */
-		err = ((cmo *)new_cmo_error2((cmo *)new_cmo_string("Invalid Parameter(type)")));
+		err = ((cmo *)new_cmo_error2((cmo *)new_cmo_string(emst)));
 		p = oxstack_node_init(err);
 		return (p);
 	}
 
 #if __NTL_PRINT
-	cout << "input: " << (*mat->mat) << endl;
+	std::cout << "input: " << (*mat->mat) << std::endl;
 #endif
 
 	ZZ det2;
 	mat_ZZ U;
 
 #if __NTL_PRINT
-	cout << "output: " << (*mat->mat) << endl;
-	cout << U << endl;
+	std::cout << "output: " << (*mat->mat) << std::endl;
+	std::cout << U <<std:: endl;
 #endif
 
 	p = oxstack_node_init(NULL);
@@ -127,8 +131,6 @@ ntl_lll(oxstack_node **arg, int argc)
 
 #include <unistd.h>
 #include <gc/gc.h>
-#include <strstream>
-#include "gmp.h"
 
 void ntl_free(void *ptr, size_t size) {}
 
@@ -163,27 +165,36 @@ main(int argc, char *argv[])
 #endif
 
 {
-	cmo_zz *n;
 	
-	istrstream istr("[3 -3 -6]");
 	ZZ cont;
 	ZZX fac;
 	vec_pair_ZZX_long facs;
-	cmo_indeterminate *x = new_cmo_indeterminate((cmo *)new_cmo_string("x"));
-	istr >> fac;
+//	char xx[2] = "x";
+//	cmo_indeterminate *x = new_cmo_indeterminate((cmo *)new_cmo_string(xx));
 
+//	std::istringstream istr("[3 -3 -6]");
+//	istr >> fac;
+
+	SetCoeff(fac, 0, 3);
+	SetCoeff(fac, 1, -3);
+	SetCoeff(fac, 2, -6);
+
+
 	factor(cont, facs, fac);
 
 	//	mpz_clear(ppp->mpz);
+}
+
+if (0) {
 	mp_set_memory_functions(GC_malloc, ntl_realloc, ntl_free);
 	for (int i = 0;; i++) {
 
-		cmon_factors_t *mat = new_cmon_factors(cont, facs, x);
-		cmo *aaa = convert_cmon((cmo *)mat);
-		delete_cmon((cmo *)mat);
+//		cmon_factors_t *mat = new_cmon_factors(cont, facs, x);
+//		cmo *aaa = convert_cmon((cmo *)mat);
+//		delete_cmon((cmo *)mat);
 
 		if (i % 1000 == 0) {
-			printf("GC-counts: %d,   size: %u\n", GC_gc_no, GC_get_heap_size());
+			printf("GC-counts: %lu,   size: %u\n", GC_gc_no, GC_get_heap_size());
 			GC_gcollect();
 			usleep(1);
 		}