X-Git-Url: https://www.ginac.de/ginac.git//ginac.git?p=ginac.git;a=blobdiff_plain;f=ginac%2Fconstant.h;h=2e6ad5b0eb8d851ab033e5633ce32160ec020435;hp=89cb7ebae83576c0d1e02cf0c33666e9ddbf30ab;hb=0a1b35cf1e59c9e3aae33de8febaa1c8f4bbe630;hpb=9eab44408b9213d8909b7a9e525f404ad06064dd diff --git a/ginac/constant.h b/ginac/constant.h index 89cb7eba..2e6ad5b0 100644 --- a/ginac/constant.h +++ b/ginac/constant.h @@ -3,7 +3,7 @@ * Interface to GiNaC's constant types and some special constants. */ /* - * GiNaC Copyright (C) 1999 Johannes Gutenberg University Mainz, Germany + * 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 @@ -26,19 +26,25 @@ #include #include +#ifndef NO_GINAC_NAMESPACE namespace GiNaC { +#endif // ndef NO_GINAC_NAMESPACE +typedef ex (*evalffunctype)(void); + /** This class holds constants, symbols with specific numerical value. Each * object of this class must either provide their own function to evaluate it * to class numeric or provide the constant as a numeric (if it's an exact * number). */ class constant : public basic { + GINAC_DECLARE_REGISTERED_CLASS(constant, basic) // member functions // default constructor, destructor, copy constructor assignment operator and helpers public: + constant(); ~constant(); constant(constant const & other); // constant const & operator=(constant const & other); /* it's pervert! */ @@ -48,14 +54,15 @@ protected: // other constructors public: - constant(string const & initname, ex (*efun)()=0); + constant(string const & initname, evalffunctype efun=0); constant(string const & initname, numeric const & initnumber); // functions overriding virtual functions from bases classes public: basic * duplicate() const; - void printraw(ostream & os) const; void print(ostream & os, unsigned upper_precedence=0) const; + void printraw(ostream & os) const; + void printtree(ostream & os, unsigned indent) const; void printcsrc(ostream & os, unsigned type, unsigned upper_precedence=0) const; ex evalf(int level=0) const; ex diff(symbol const & s) const; @@ -73,9 +80,9 @@ protected: private: string name; - ex (*ef)(); + evalffunctype ef; numeric * number; - bool fct_assigned; + // bool fct_assigned; unsigned serial; //!< unique serial number for comparision static unsigned next_serial; }; @@ -90,6 +97,8 @@ extern const constant Pi; extern const constant Catalan; extern const constant EulerGamma; +#ifndef NO_GINAC_NAMESPACE } // namespace GiNaC +#endif // ndef NO_GINAC_NAMESPACE #endif // ndef __GINAC_CONSTANT_H__