X-Git-Url: https://ginac.de/ginac.git//ginac.git?a=blobdiff_plain;f=ginac%2Flortensor.h;h=86bf70a04e9d46c6be033ae9fc9e1388bc8327d7;hb=7cc6f4d2cff92294f76ffb990035883e9705c82e;hp=5dc925b0235058dbb72623f8a3c6f8e84407d0ec;hpb=b5e7e31e6d33bbae4d635c27637c7e114b043735;p=ginac.git diff --git a/ginac/lortensor.h b/ginac/lortensor.h index 5dc925b0..86bf70a0 100644 --- a/ginac/lortensor.h +++ b/ginac/lortensor.h @@ -3,7 +3,7 @@ * Interface to GiNaC´s lortensor objects. */ /* - * 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 @@ -25,28 +25,27 @@ #include #include -#include "config.h" #include -#include -#include +#include "indexed.h" +#include "lorentzidx.h" -#ifndef NO_GINAC_NAMESPACE +#ifndef NO_NAMESPACE_GINAC namespace GiNaC { -#endif // ndef NO_GINAC_NAMESPACE +#endif // ndef NO_NAMESPACE_GINAC /** Base class for lortensor object */ class lortensor : public indexed { // friends - friend lortensor lortensor_g(ex const & mu, ex const & nu); - // friend lortensor lortensor_delta(ex const & mu, ex const & nu); - friend lortensor lortensor_epsilon(ex const & mu, ex const & nu, - ex const & rho, ex const & sigma); - friend lortensor lortensor_rankn(string const & n, exvector const & iv); - friend lortensor lortensor_rank1(string const & n, ex const & mu); - friend lortensor lortensor_rank2(string const & n, ex const & mu, ex const & nu); - friend ex simplify_lortensor_mul(ex const & m); - friend ex simplify_lortensor(ex const & e); + friend lortensor lortensor_g(const ex & mu, const ex & nu); + // friend lortensor lortensor_delta(const ex & mu, const ex & nu); + friend lortensor lortensor_epsilon(const ex & mu, const ex & nu, + const ex & rho, const ex & sigma); + // friend lortensor lortensor_rankn(const string & n, const exvector & iv); + friend lortensor lortensor_rank1(const string & n, const ex & mu); + friend lortensor lortensor_rank2(const string & n, const ex & mu, const ex & nu); + friend ex simplify_lortensor_mul(const ex & m); + friend ex simplify_lortensor(const ex & e); // types @@ -66,23 +65,23 @@ public: public: lortensor(); ~lortensor(); - lortensor(lortensor const & other); - lortensor const & operator=(lortensor const & other); + lortensor(const lortensor & other); + const lortensor & operator=(const lortensor & other); protected: - void copy(lortensor const & other); + void copy(const lortensor & other); void destroy(bool call_parent); // other constructors protected: - lortensor(lortensor_types const lt, string const & n); - lortensor(lortensor_types const lt, string const & n, ex const & mu); - lortensor(lortensor_types const lt, string const & n, ex const & mu, ex const & nu); - lortensor(lortensor_types const lt, string const & n, ex const & mu, ex const & nu, - ex const & rho); - lortensor(lortensor_types const lt, string const & n, ex const & mu, ex const & nu, ex const & rho, ex const & sigma); - lortensor(lortensor_types const lt, string const & n, exvector const & iv); - lortensor(lortensor_types const lt, string const & n, unsigned s, exvector const & iv); - lortensor(lortensor_types const lt, string const & n, unsigned s, exvector * ivp); + lortensor(lortensor_types const lt, const string & n); + lortensor(lortensor_types const lt, const string & n, const ex & mu); + lortensor(lortensor_types const lt, const string & n, const ex & mu, const ex & nu); + lortensor(lortensor_types const lt, const string & n, const ex & mu, const ex & nu, + const ex & rho); + lortensor(lortensor_types const lt, const string & n, const ex & mu, const ex & nu, const ex & rho, const ex & sigma); + lortensor(lortensor_types const lt, const string & n, const exvector & iv); + lortensor(lortensor_types const lt, const string & n, unsigned s, const exvector & iv); + lortensor(lortensor_types const lt, const string & n, unsigned s, exvector * ivp); //functions overriding virtual functions from base classes public: @@ -94,11 +93,11 @@ public: bool info(unsigned inf) const; ex eval(int level=0) const; protected: - int compare_same_type(basic const & other) const; - bool is_equal_same_type(basic const & other) const; + int compare_same_type(const basic & other) const; + bool is_equal_same_type(const basic & other) const; unsigned return_type(void) const; unsigned return_type_tinfo(void) const; - ex thisexprseq(exvector const & v) const; + ex thisexprseq(const exvector & v) const; ex thisexprseq(exvector * vp) const; // new virtual functions which can be overridden by derived classes @@ -106,7 +105,7 @@ protected: //non virtual functions in this class public: - void setname(string const & n); + void setname(const string & n); string getname(void) const {return name;} protected: bool all_of_type_lorentzidx(void) const; @@ -125,12 +124,11 @@ private: // global constants - extern const lortensor some_lortensor; - extern type_info const & typeid_lortensor; +extern const lortensor some_lortensor; +extern const type_info & typeid_lortensor; -// utility functions !!!!!!!!!!!!!!!!!! (to do) +// utility functions - inline const lortensor & ex_to_lortensor(const ex &e) { return static_cast(*e.bp); @@ -141,13 +139,13 @@ inline lortensor &ex_to_nonconst_lortensor(const ex &e) return static_cast(*e.bp); } -lortensor lortensor_g(ex const & mu, ex const & nu); -ex simplify_lortensor_mul(ex const & m); -ex simplify_lortensor(ex const & e); +lortensor lortensor_g(const ex & mu, const ex & nu); +ex simplify_lortensor_mul(const ex & m); +ex simplify_lortensor(const ex & e); ex Dim(void); -#ifndef NO_GINAC_NAMESPACE +#ifndef NO_NAMESPACE_GINAC } // namespace GiNaC -#endif // ndef NO_GINAC_NAMESPACE +#endif // ndef NO_NAMESPACE_GINAC #endif // ndef __GINAC_LORTENSOR_H__