* New funny timing added: compute an antipode in Yukawa theory.
[ginac.git] / ginac / clifford.h
1 /** @file clifford.h
2  *
3  *  Interface to GiNaC's clifford objects. */
4
5 /*
6  *  GiNaC Copyright (C) 1999-2001 Johannes Gutenberg University Mainz, Germany
7  *
8  *  This program is free software; you can redistribute it and/or modify
9  *  it under the terms of the GNU General Public License as published by
10  *  the Free Software Foundation; either version 2 of the License, or
11  *  (at your option) any later version.
12  *
13  *  This program is distributed in the hope that it will be useful,
14  *  but WITHOUT ANY WARRANTY; without even the implied warranty of
15  *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
16  *  GNU General Public License for more details.
17  *
18  *  You should have received a copy of the GNU General Public License
19  *  along with this program; if not, write to the Free Software
20  *  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
21  */
22
23 #ifndef __GINAC_CLIFFORD_H__
24 #define __GINAC_CLIFFORD_H__
25
26 #include <string>
27 #include "lortensor.h"
28
29 namespace GiNaC {
30
31
32 /** This class holds an object representing an element of the Clifford
33  *  algebra (the Dirac gamma matrices). These objects only carry Lorentz
34  *  indices. Spinor indices are always hidden in our implementation. */
35 class clifford : public lortensor
36 {
37         GINAC_DECLARE_REGISTERED_CLASS(clifford, lortensor)
38
39 // friends
40
41         friend clifford clifford_gamma(const ex & mu);
42
43         // other constructors
44 public:
45         clifford(const std::string & n, const ex & mu);
46         clifford(const std::string & n, const exvector & iv);
47         clifford(const std::string & n, exvector * ivp);
48
49         // functions overriding virtual functions from base classes
50 public:
51         void printraw(std::ostream & os) const;
52         void printtree(std::ostream & os, unsigned indent) const;
53         void print(std::ostream & os, unsigned upper_precedence=0) const;
54         bool info(unsigned inf) const;
55         // ex eval(int level=0) const;
56 protected:
57         bool is_equal_same_type(const basic & other) const;
58         ex simplify_ncmul(const exvector & v) const;
59         ex thisexprseq(const exvector & v) const;
60         ex thisexprseq(exvector * vp) const;
61
62         // new virtual functions which can be overridden by derived classes
63         // none
64         
65         // non-virtual functions in this class
66         // none
67
68         // member variables
69         // none
70 };
71
72 // global functions
73 inline const clifford &ex_to_clifford(const ex &e)
74 {
75         return static_cast<const clifford &>(*e.bp);
76 }
77
78 clifford clifford_gamma(const ex & mu);
79
80 } // namespace GiNaC
81
82 #endif // ndef __GINAC_CLIFFORD_H__