From: Richard Kreckel <Richard.Kreckel@uni-mainz.de>
Date: Fri, 11 May 2001 14:51:40 +0000 (+0000)
Subject: - Added inclusion of <sstream> or <strstream> since <ginac/ginac.h> now
X-Git-Tag: release_0-8-3~7
X-Git-Url: https://www.ginac.de/ginac.git/static/gitweb.css/ginac.git?a=commitdiff_plain;h=bbe1866cef6b794266cd4917a54fb2c02a9931b4;p=ginac.git

- Added inclusion of <sstream> or <strstream> since <ginac/ginac.h> now
  does not do so any more.
---

diff --git a/check/check_lsolve.cpp b/check/check_lsolve.cpp
index 4ad32034..59264d9d 100644
--- a/check/check_lsolve.cpp
+++ b/check/check_lsolve.cpp
@@ -23,6 +23,12 @@
 
 #include "checks.h"
 
+#if defined(HAVE_SSTREAM)
+#  include <sstream>
+#else
+#  include <strstream>
+#endif
+
 static unsigned check_matrix_solve(unsigned m, unsigned n, unsigned p,
 								   unsigned degree)
 {
@@ -49,9 +55,15 @@ static unsigned check_matrix_solve(unsigned m, unsigned n, unsigned p,
 	matrix X(n,p);
 	for (unsigned i=0; i<n; ++i) {
 		for (unsigned j=0; j<p; ++j) {
+#if defined(HAVE_SSTREAM)
+			ostringstream buf;
+			buf << "x" << i << j << ends;
+			x.push_back(symbol(buf.str()));
+#else
 			char buf[4];
 			ostrstream(buf,sizeof(buf)) << i << j << ends;
 			x.push_back(symbol(string("x")+buf));
+#endif
 			X.set(i,j,x[p*i+j]);
 		}
 	}
@@ -101,10 +113,17 @@ static unsigned check_inifcns_lsolve(unsigned n)
 		vector<symbol> a;
 		vector<symbol> x;
 		for (unsigned i=0; i<n; ++i) {
+#if defined(HAVE_SSTREAM)
+			ostringstream buf;
+			buf << i << ends;
+			a.push_back(symbol(string("a")+buf.str()));
+			x.push_back(symbol(string("x")+buf.str()));
+#else
 			char buf[3];
 			ostrstream(buf,sizeof(buf)) << i << ends;
 			a.push_back(symbol(string("a")+buf));
 			x.push_back(symbol(string("x")+buf));
+#endif
 		}
 		lst eqns;  // equation list
 		lst vars;  // variable list