* $open_bracket=[
* $close_bracket=] */
+/*
+ * GiNaC Copyright (C) 1999 Johannes Gutenberg University Mainz, Germany
+ *
+ * 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 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
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ * 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., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+ */
+
#include <iostream>
#include <stdexcept>
-#include "ginac.h"
+#include "lst.h"
+#include "ex.h"
#define RESERVE(s,size) // no reserve needed for list
// public
-lst::lst() : basic(TINFO_LST)
+lst::lst() : basic(TINFO_lst)
{
debugmsg("lst default constructor",LOGLEVEL_CONSTRUCT);
}
// public
-lst::lst(exlist const & s, bool discardable) : basic(TINFO_LST)
+lst::lst(exlist const & s, bool discardable) : basic(TINFO_lst)
{
debugmsg("lst constructor from exlist",
LOGLEVEL_CONSTRUCT);
}
}
-lst::lst(exlist * vp) : basic(TINFO_LST)
+lst::lst(exlist * vp) : basic(TINFO_lst)
{
debugmsg("lst constructor from exlist *",LOGLEVEL_CONSTRUCT);
ASSERT(vp!=0);
delete vp;
}
-lst::lst(ex const & e1) : basic(TINFO_LST)
+lst::lst(ex const & e1) : basic(TINFO_lst)
{
debugmsg("lst constructor from 1 ex",
LOGLEVEL_CONSTRUCT);
seq.push_back(e1);
}
-lst::lst(ex const & e1, ex const & e2) : basic(TINFO_LST)
+lst::lst(ex const & e1, ex const & e2) : basic(TINFO_lst)
{
debugmsg("lst constructor from 2 ex",
LOGLEVEL_CONSTRUCT);
}
lst::lst(ex const & e1, ex const & e2, ex const & e3)
- : basic(TINFO_LST)
+ : basic(TINFO_lst)
{
debugmsg("lst constructor from 3 ex",
LOGLEVEL_CONSTRUCT);
}
lst::lst(ex const & e1, ex const & e2, ex const & e3,
- ex const & e4) : basic(TINFO_LST)
+ ex const & e4) : basic(TINFO_lst)
{
debugmsg("lst constructor from 4 ex",
LOGLEVEL_CONSTRUCT);
}
lst::lst(ex const & e1, ex const & e2, ex const & e3,
- ex const & e4, ex const & e5) : basic(TINFO_LST)
+ ex const & e4, ex const & e5) : basic(TINFO_lst)
{
debugmsg("lst constructor from 5 ex",
LOGLEVEL_CONSTRUCT);
lst::lst(ex const & e1, ex const & e2, ex const & e3,
ex const & e4, ex const & e5, ex const & e6)
- : basic(TINFO_LST)
+ : basic(TINFO_lst)
{
debugmsg("lst constructor from 6 ex",
LOGLEVEL_CONSTRUCT);
lst::lst(ex const & e1, ex const & e2, ex const & e3,
ex const & e4, ex const & e5, ex const & e6,
- ex const & e7) : basic(TINFO_LST)
+ ex const & e7) : basic(TINFO_lst)
{
debugmsg("lst constructor from 7 ex",
LOGLEVEL_CONSTRUCT);
lst::lst(ex const & e1, ex const & e2, ex const & e3,
ex const & e4, ex const & e5, ex const & e6,
- ex const & e7, ex const & e8) : basic(TINFO_LST)
+ ex const & e7, ex const & e8) : basic(TINFO_lst)
{
debugmsg("lst constructor from 8 ex",
LOGLEVEL_CONSTRUCT);
lst::lst(ex const & e1, ex const & e2, ex const & e3,
ex const & e4, ex const & e5, ex const & e6,
ex const & e7, ex const & e8, ex const & e9)
- : basic(TINFO_LST)
+ : basic(TINFO_lst)
{
debugmsg("lst constructor from 9 ex",
LOGLEVEL_CONSTRUCT);
ex const & e4, ex const & e5, ex const & e6,
ex const & e7, ex const & e8, ex const & e9,
ex const &e10)
- : basic(TINFO_LST)
+ : basic(TINFO_lst)
{
debugmsg("lst constructor from 10 ex",
LOGLEVEL_CONSTRUCT);