X-Git-Url: https://www.ginac.de/ginac.git//ginac.git?p=ginac.git;a=blobdiff_plain;f=ginac%2Ffail.cpp;h=d3ed59a29e512a21fb73cf83bbfb30dc83ffcfb8;hp=0bbe01c67bd8dd07e1149429e6fd45603601484a;hb=ae189720de0413ffd18629bf7821ae5048d58688;hpb=1bd972bf8e4eeeb8aec6081100876e81a7f18450 diff --git a/ginac/fail.cpp b/ginac/fail.cpp index 0bbe01c6..d3ed59a2 100644 --- a/ginac/fail.cpp +++ b/ginac/fail.cpp @@ -1,7 +1,7 @@ /** @file fail.cpp * - * Implementation of class signaling failure of operation. Considered - * obsolete all this stuff ought to be replaced by exceptions. */ + * Implementation of class signaling failure of operation. Considered obsolete + * (all of this is replaced by exceptions). */ /* * GiNaC Copyright (C) 1999-2001 Johannes Gutenberg University Mainz, Germany @@ -22,86 +22,32 @@ */ #include "fail.h" +#include "print.h" #include "archive.h" #include "debugmsg.h" +#include "utils.h" -#ifndef NO_NAMESPACE_GINAC namespace GiNaC { -#endif // ndef NO_NAMESPACE_GINAC GINAC_IMPLEMENT_REGISTERED_CLASS(fail, basic) ////////// -// default constructor, destructor, copy constructor assignment operator and helpers +// default ctor, dtor, copy ctor assignment operator and helpers ////////// -// public - -fail::fail() : inherited(TINFO_fail) -{ - debugmsg("fail default constructor",LOGLEVEL_CONSTRUCT); -} - -// protected - -void fail::copy(const fail & other) -{ - inherited::copy(other); -} - -void fail::destroy(bool call_parent) -{ - if (call_parent) inherited::destroy(call_parent); -} +DEFAULT_CTORS(fail) ////////// // archiving ////////// -/** Construct object from archive_node. */ -fail::fail(const archive_node &n, const lst &sym_lst) : inherited(n, sym_lst) -{ - debugmsg("fail constructor from archive_node", LOGLEVEL_CONSTRUCT); -} - -/** Unarchive the object. */ -ex fail::unarchive(const archive_node &n, const lst &sym_lst) -{ - return (new fail(n, sym_lst))->setflag(status_flags::dynallocated); -} - -/** Archive the object. */ -void fail::archive(archive_node &n) const -{ - inherited::archive(n); -} +DEFAULT_ARCHIVING(fail) ////////// -// functions overriding virtual functions from bases classes +// functions overriding virtual functions from base classes ////////// -// public - -void fail::print(std::ostream & os, unsigned upper_precedence) const -{ - debugmsg("fail print",LOGLEVEL_PRINT); - os << "FAIL"; -} - -void fail::printraw(std::ostream & os) const -{ - debugmsg("fail printraw",LOGLEVEL_PRINT); - os << "FAIL"; -} - -// protected - -int fail::compare_same_type(const basic & other) const -{ - // two fails are always identical - return 0; -} +DEFAULT_COMPARE(fail) +DEFAULT_PRINT(fail, "FAIL") -#ifndef NO_NAMESPACE_GINAC } // namespace GiNaC -#endif // ndef NO_NAMESPACE_GINAC