/** @file lorentzidx.cpp
*
- * Implementation of GiNaC's lorentz indices.
- *
- * GiNaC Copyright (C) 1999 Johannes Gutenberg University Mainz, Germany
+ * Implementation of GiNaC's lorentz indices. */
+
+/*
+ * GiNaC Copyright (C) 1999-2000 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
#include <stdexcept>
-#include "ginac.h"
+#include "lorentzidx.h"
+#include "lst.h"
+#include "archive.h"
#include "utils.h"
+#include "debugmsg.h"
+
+#ifndef NO_GINAC_NAMESPACE
+namespace GiNaC {
+#endif // ndef NO_GINAC_NAMESPACE
+
+GINAC_IMPLEMENT_REGISTERED_CLASS(lorentzidx, idx)
//////////
// default constructor, destructor, copy constructor assignment operator and helpers
debugmsg("lorentzidx default constructor",LOGLEVEL_CONSTRUCT);
// serial is incremented in idx::idx()
name="mu"+ToString(serial);
- tinfo_key=TINFO_LORENTZIDX;
+ tinfo_key=TINFO_lorentzidx;
}
lorentzidx::~lorentzidx()
destroy(0);
}
-lorentzidx::lorentzidx(lorentzidx const & other)
+lorentzidx::lorentzidx(const lorentzidx & other)
{
debugmsg("lorentzidx copy constructor",LOGLEVEL_CONSTRUCT);
copy(other);
}
-lorentzidx const & lorentzidx::operator=(lorentzidx const & other)
+const lorentzidx & lorentzidx::operator=(const lorentzidx & other)
{
debugmsg("lorentzidx operator=",LOGLEVEL_ASSIGNMENT);
if (this != &other) {
// protected
-void lorentzidx::copy(lorentzidx const & other)
+void lorentzidx::copy(const lorentzidx & other)
{
- idx::copy(other);
+ inherited::copy(other);
orthogonal_only=other.orthogonal_only;
dim_parallel_space=other.dim_parallel_space;
}
void lorentzidx::destroy(bool call_parent)
{
- if (call_parent) idx::destroy(call_parent);
+ if (call_parent) inherited::destroy(call_parent);
}
//////////
} else {
name="mu"+ToString(serial);
}
- tinfo_key=TINFO_LORENTZIDX;
+ tinfo_key=TINFO_lorentzidx;
}
-lorentzidx::lorentzidx(string const & n, bool cov, bool oonly, unsigned dimp)
+lorentzidx::lorentzidx(const string & n, bool cov, bool oonly, unsigned dimp)
: idx(n,cov), orthogonal_only(oonly), dim_parallel_space(dimp)
{
debugmsg("lorentzidx constructor from string,bool,bool,unsigned",
LOGLEVEL_CONSTRUCT);
- tinfo_key=TINFO_LORENTZIDX;
+ tinfo_key=TINFO_lorentzidx;
}
-lorentzidx::lorentzidx(char const * n, bool cov, bool oonly, unsigned dimp)
+lorentzidx::lorentzidx(const char * n, bool cov, bool oonly, unsigned dimp)
: idx(n,cov), orthogonal_only(oonly), dim_parallel_space(dimp)
{
debugmsg("lorentzidx constructor from char*,bool,bool,unsigned",
LOGLEVEL_CONSTRUCT);
- tinfo_key=TINFO_LORENTZIDX;
+ tinfo_key=TINFO_lorentzidx;
}
-lorentzidx::lorentzidx(unsigned const v, bool cov) : idx(v,cov),
+lorentzidx::lorentzidx(unsigned v, bool cov) : idx(v,cov),
orthogonal_only(false), dim_parallel_space(0)
{
debugmsg("lorentzidx constructor from unsigned,bool",LOGLEVEL_CONSTRUCT);
- tinfo_key=TINFO_LORENTZIDX;
+ tinfo_key=TINFO_lorentzidx;
+}
+
+//////////
+// archiving
+//////////
+
+/** Construct object from archive_node. */
+lorentzidx::lorentzidx(const archive_node &n, const lst &sym_lst) : inherited(n, sym_lst)
+{
+ debugmsg("lorentzidx constructor from archive_node", LOGLEVEL_CONSTRUCT);
+ n.find_bool("orthogonal_only", orthogonal_only);
+ if (orthogonal_only)
+ n.find_unsigned("pdim", dim_parallel_space);
+}
+
+/** Unarchive the object. */
+ex lorentzidx::unarchive(const archive_node &n, const lst &sym_lst)
+{
+ ex s = (new lorentzidx(n, sym_lst))->setflag(status_flags::dynallocated);
+
+ if (ex_to_lorentzidx(s).symbolic) {
+ // If lorentzidx is in sym_lst, return the existing lorentzidx
+ for (int i=0; i<sym_lst.nops(); i++) {
+ if (is_ex_of_type(sym_lst.op(i), lorentzidx) && (ex_to_lorentzidx(sym_lst.op(i)).name == ex_to_lorentzidx(s).name))
+ return sym_lst.op(i);
+ }
+ }
+ return s;
+}
+
+/** Archive the object. */
+void lorentzidx::archive(archive_node &n) const
+{
+ inherited::archive(n);
+ n.add_bool("orthogonal_only", orthogonal_only);
+ if (orthogonal_only)
+ n.add_unsigned("pdim", dim_parallel_space);
}
//////////
bool lorentzidx::info(unsigned inf) const
{
if (inf==info_flags::lorentzidx) return true;
- return idx::info(inf);
+ return inherited::info(inf);
}
//////////
lorentzidx lorentzidx::create_anonymous_representative(void) const
{
- ASSERT(is_symbolic());
+ GINAC_ASSERT(is_symbolic());
lorentzidx i_copy(*this);
i_copy.serial=0;
i_copy.name="anonymous_representative";
//////////
const lorentzidx some_lorentzidx;
-type_info const & typeid_lorentzidx=typeid(some_lorentzidx);
-
-
+const type_info & typeid_lorentzidx=typeid(some_lorentzidx);
+#ifndef NO_GINAC_NAMESPACE
+} // namespace GiNaC
+#endif // ndef NO_GINAC_NAMESPACE