ginac/fail.cpp

   1 /** @file fail.cpp
   2  *
   3  *  Implementation of class signaling failure of operation. Considered
   4  *  obsolete all this stuff ought to be replaced by exceptions. */
   5
   6 /*
   7  *  GiNaC Copyright (C) 1999-2001 Johannes Gutenberg University Mainz, Germany
   8  *
   9  *  This program is free software; you can redistribute it and/or modify
  10  *  it under the terms of the GNU General Public License as published by
  11  *  the Free Software Foundation; either version 2 of the License, or
  12  *  (at your option) any later version.
  13  *
  14  *  This program is distributed in the hope that it will be useful,
  15  *  but WITHOUT ANY WARRANTY; without even the implied warranty of
  16  *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  17  *  GNU General Public License for more details.
  18  *
  19  *  You should have received a copy of the GNU General Public License
  20  *  along with this program; if not, write to the Free Software
  21  *  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  22  */
  23
  24 #include "fail.h"
  25 #include "archive.h"
  26 #include "debugmsg.h"
  27
  28 #ifndef NO_NAMESPACE_GINAC
  29 namespace GiNaC {
  30 #endif // ndef NO_NAMESPACE_GINAC
  31
  32 GINAC_IMPLEMENT_REGISTERED_CLASS(fail, basic)
  33
  34 //////////
  35 // default constructor, destructor, copy constructor assignment operator and helpers
  36 //////////
  37
  38 // public
  39
  40 fail::fail() : inherited(TINFO_fail)
  41 {
  42         debugmsg("fail default constructor",LOGLEVEL_CONSTRUCT);
  43 }
  44
  45 fail::~fail()
  46 {
  47         debugmsg("fail destructor",LOGLEVEL_DESTRUCT);
  48         destroy(false);
  49 }
  50
  51 fail::fail(const fail & other)
  52 {
  53         debugmsg("fail copy constructor",LOGLEVEL_CONSTRUCT);
  54         copy(other);
  55 }
  56
  57 const fail & fail::operator=(const fail & other)
  58 {
  59         debugmsg("fail operator=",LOGLEVEL_ASSIGNMENT);
  60         if (this != &other) {
  61                 destroy(true);
  62                 copy(other);
  63         }
  64         return *this;
  65 }
  66
  67 // protected
  68
  69 void fail::copy(const fail & other)
  70 {
  71         inherited::copy(other);
  72 }
  73
  74 void fail::destroy(bool call_parent)
  75 {
  76         if (call_parent) inherited::destroy(call_parent);
  77 }
  78
  79 //////////
  80 // archiving
  81 //////////
  82
  83 /** Construct object from archive_node. */
  84 fail::fail(const archive_node &n, const lst &sym_lst) : inherited(n, sym_lst)
  85 {
  86         debugmsg("fail constructor from archive_node", LOGLEVEL_CONSTRUCT);
  87 }
  88
  89 /** Unarchive the object. */
  90 ex fail::unarchive(const archive_node &n, const lst &sym_lst)
  91 {
  92         return (new fail(n, sym_lst))->setflag(status_flags::dynallocated);
  93 }
  94
  95 /** Archive the object. */
  96 void fail::archive(archive_node &n) const
  97 {
  98         inherited::archive(n);
  99 }
 100
 101 //////////
 102 // functions overriding virtual functions from bases classes
 103 //////////
 104
 105 // public
 106
 107 basic * fail::duplicate() const
 108 {
 109         debugmsg("fail duplicate",LOGLEVEL_DUPLICATE);
 110         return new fail(*this);
 111 }
 112
 113 void fail::print(std::ostream & os, unsigned upper_precedence) const
 114 {
 115         debugmsg("fail print",LOGLEVEL_PRINT);
 116         os << "FAIL";
 117 }
 118
 119 void fail::printraw(std::ostream & os) const
 120 {
 121         debugmsg("fail printraw",LOGLEVEL_PRINT);
 122         os << "FAIL";
 123 }
 124
 125 // protected
 126
 127 int fail::compare_same_type(const basic & other) const
 128 {
 129         // two fails are always identical
 130         return 0;
 131 }
 132
 133 #ifndef NO_NAMESPACE_GINAC
 134 } // namespace GiNaC
 135 #endif // ndef NO_NAMESPACE_GINAC