3 * Interface to 'abstract' class structure. */
6 * GiNaC Copyright (C) 1999-2000 Johannes Gutenberg University Mainz, Germany
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.
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.
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
23 #ifndef __GINAC_STRUCTURE_H__
24 #define __GINAC_STRUCTURE_H__
28 #ifndef NO_NAMESPACE_GINAC
30 #endif // ndef NO_NAMESPACE_GINAC
32 struct registered_structure_info {
36 /** The class structure is used to implement user defined classes
37 with named members which behave similar to ordinary C structs.
38 structure is an 'abstract' base class (it is possible but not
39 meaningful to make instances), the user defined structures
40 will be create by the perl script structure.pl */
42 class structure : public basic
46 // default constructor, destructor, copy constructor assignment operator and helpers
50 structure(const structure & other);
51 const structure & operator=(const structure & other);
53 void copy(const structure & other);
54 void destroy(bool call_parent);
59 // functions overriding virtual functions from bases classes
61 basic * duplicate() const;
62 void printraw(ostream & os) const;
63 void print(ostream & os, unsigned upper_precedence=0) const;
64 void printtree(ostream & os, unsigned indent) const;
65 void printcsrc(ostream & os, unsigned type, unsigned upper_precedence=0) const;
67 int compare_same_type(const basic & other) const;
68 bool is_equal_same_type(const basic & other) const;
70 // new virtual functions which can be overridden by derived classes
73 // non-virtual functions in this class
75 static vector<registered_structure_info> & registered_structures(void);
77 static unsigned register_new(const char * nm);
86 extern const structure some_structure;
87 extern const type_info & typeid_structure;
89 #ifndef NO_NAMESPACE_GINAC
91 #endif // ndef NO_NAMESPACE_GINAC
93 #endif // ndef __GINAC_STRUCTURE_H__