Mercurial > fem-fenics-eugenio

annotate src/form.h @ 253:5e9b5bbdc56b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Support both DOLFIN 1.3.0 and 1.4.0 * src/dolfin_compat.h: use a macro to set the correct shared_ptr (std or boost)
author Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
date Tue, 29 Jul 2014 18:05:56 +0200
parents 9e944b0d0fc8
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
90
7cd7bd1fc2b5 New wrapper class for dolfin::Form
gedeone-octave <marcovass89@hotmail.it>
parents:
diff changeset
1 /*
151
5fe2a157f4eb Update GPL to v3
gedeone-octave <marcovass89@hotmail.it>
parents: 90
diff changeset
2 Copyright (C) 2013 Marco Vassallo <gedeone-octave@users.sourceforge.net>
90
7cd7bd1fc2b5 New wrapper class for dolfin::Form
gedeone-octave <marcovass89@hotmail.it>
parents:
diff changeset
3
7cd7bd1fc2b5 New wrapper class for dolfin::Form
gedeone-octave <marcovass89@hotmail.it>
parents:
diff changeset
4 This program is free software; you can redistribute it and/or modify it under
7cd7bd1fc2b5 New wrapper class for dolfin::Form
gedeone-octave <marcovass89@hotmail.it>
parents:
diff changeset
5 the terms of the GNU General Public License as published by the Free Software
151
5fe2a157f4eb Update GPL to v3
gedeone-octave <marcovass89@hotmail.it>
parents: 90
diff changeset
6 Foundation; either version 3 of the License, or (at your option) any later
90
7cd7bd1fc2b5 New wrapper class for dolfin::Form
gedeone-octave <marcovass89@hotmail.it>
parents:
diff changeset
7 version.
7cd7bd1fc2b5 New wrapper class for dolfin::Form
gedeone-octave <marcovass89@hotmail.it>
parents:
diff changeset
8
7cd7bd1fc2b5 New wrapper class for dolfin::Form
gedeone-octave <marcovass89@hotmail.it>
parents:
diff changeset
9 This program is distributed in the hope that it will be useful, but WITHOUT
7cd7bd1fc2b5 New wrapper class for dolfin::Form
gedeone-octave <marcovass89@hotmail.it>
parents:
diff changeset
10 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
7cd7bd1fc2b5 New wrapper class for dolfin::Form
gedeone-octave <marcovass89@hotmail.it>
parents:
diff changeset
11 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
7cd7bd1fc2b5 New wrapper class for dolfin::Form
gedeone-octave <marcovass89@hotmail.it>
parents:
diff changeset
12 details.
7cd7bd1fc2b5 New wrapper class for dolfin::Form
gedeone-octave <marcovass89@hotmail.it>
parents:
diff changeset
13
7cd7bd1fc2b5 New wrapper class for dolfin::Form
gedeone-octave <marcovass89@hotmail.it>
parents:
diff changeset
14 You should have received a copy of the GNU General Public License along with
7cd7bd1fc2b5 New wrapper class for dolfin::Form
gedeone-octave <marcovass89@hotmail.it>
parents:
diff changeset
15 this program; if not, see <http://www.gnu.org/licenses/>.
7cd7bd1fc2b5 New wrapper class for dolfin::Form
gedeone-octave <marcovass89@hotmail.it>
parents:
diff changeset
16 */
7cd7bd1fc2b5 New wrapper class for dolfin::Form
gedeone-octave <marcovass89@hotmail.it>
parents:
diff changeset
17
7cd7bd1fc2b5 New wrapper class for dolfin::Form
gedeone-octave <marcovass89@hotmail.it>
parents:
diff changeset
18 #ifndef _FORM_OCTAVE_
7cd7bd1fc2b5 New wrapper class for dolfin::Form
gedeone-octave <marcovass89@hotmail.it>
parents:
diff changeset
19 #define _FORM_OCTAVE_
7cd7bd1fc2b5 New wrapper class for dolfin::Form
gedeone-octave <marcovass89@hotmail.it>
parents:
diff changeset
20
7cd7bd1fc2b5 New wrapper class for dolfin::Form
gedeone-octave <marcovass89@hotmail.it>
parents:
diff changeset
21 #include <memory>
7cd7bd1fc2b5 New wrapper class for dolfin::Form
gedeone-octave <marcovass89@hotmail.it>
parents:
diff changeset
22 #include <vector>
7cd7bd1fc2b5 New wrapper class for dolfin::Form
gedeone-octave <marcovass89@hotmail.it>
parents:
diff changeset
23 #include <dolfin.h>
7cd7bd1fc2b5 New wrapper class for dolfin::Form
gedeone-octave <marcovass89@hotmail.it>
parents:
diff changeset
24 #include <octave/oct.h>
253
5e9b5bbdc56b Support both DOLFIN 1.3.0 and 1.4.0
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents: 173
diff changeset
25 #include "dolfin_compat.h"
90
7cd7bd1fc2b5 New wrapper class for dolfin::Form
gedeone-octave <marcovass89@hotmail.it>
parents:
diff changeset
26
7cd7bd1fc2b5 New wrapper class for dolfin::Form
gedeone-octave <marcovass89@hotmail.it>
parents:
diff changeset
27 class form : public octave_base_value
7cd7bd1fc2b5 New wrapper class for dolfin::Form
gedeone-octave <marcovass89@hotmail.it>
parents:
diff changeset
28 {
7cd7bd1fc2b5 New wrapper class for dolfin::Form
gedeone-octave <marcovass89@hotmail.it>
parents:
diff changeset
29
7cd7bd1fc2b5 New wrapper class for dolfin::Form
gedeone-octave <marcovass89@hotmail.it>
parents:
diff changeset
30 public:
7cd7bd1fc2b5 New wrapper class for dolfin::Form
gedeone-octave <marcovass89@hotmail.it>
parents:
diff changeset
31
173
9e944b0d0fc8 Some Formatting improvements (?)
gedeone-octave <marcovass89@hotmail.it>
parents: 151
diff changeset
32 form ()
9e944b0d0fc8 Some Formatting improvements (?)
gedeone-octave <marcovass89@hotmail.it>
parents: 151
diff changeset
33 : octave_base_value () {}
90
7cd7bd1fc2b5 New wrapper class for dolfin::Form
gedeone-octave <marcovass89@hotmail.it>
parents:
diff changeset
34
173
9e944b0d0fc8 Some Formatting improvements (?)
gedeone-octave <marcovass89@hotmail.it>
parents: 151
diff changeset
35 form (const dolfin::Form _frm)
9e944b0d0fc8 Some Formatting improvements (?)
gedeone-octave <marcovass89@hotmail.it>
parents: 151
diff changeset
36 : octave_base_value (), frm (new dolfin::Form (_frm)) {}
90
7cd7bd1fc2b5 New wrapper class for dolfin::Form
gedeone-octave <marcovass89@hotmail.it>
parents:
diff changeset
37
253
5e9b5bbdc56b Support both DOLFIN 1.3.0 and 1.4.0
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents: 173
diff changeset
38 form (SHARED_PTR <const dolfin::Form> _frm)
173
9e944b0d0fc8 Some Formatting improvements (?)
gedeone-octave <marcovass89@hotmail.it>
parents: 151
diff changeset
39 : octave_base_value (), frm (_frm) {}
90
7cd7bd1fc2b5 New wrapper class for dolfin::Form
gedeone-octave <marcovass89@hotmail.it>
parents:
diff changeset
40
173
9e944b0d0fc8 Some Formatting improvements (?)
gedeone-octave <marcovass89@hotmail.it>
parents: 151
diff changeset
41 void
9e944b0d0fc8 Some Formatting improvements (?)
gedeone-octave <marcovass89@hotmail.it>
parents: 151
diff changeset
42 print (std::ostream& os, bool pr_as_read_syntax = false) const
9e944b0d0fc8 Some Formatting improvements (?)
gedeone-octave <marcovass89@hotmail.it>
parents: 151
diff changeset
43 {
9e944b0d0fc8 Some Formatting improvements (?)
gedeone-octave <marcovass89@hotmail.it>
parents: 151
diff changeset
44 os << "Form " << ": is a form of rank " << frm->rank ()
9e944b0d0fc8 Some Formatting improvements (?)
gedeone-octave <marcovass89@hotmail.it>
parents: 151
diff changeset
45 << " with " << frm->num_coefficients ()
9e944b0d0fc8 Some Formatting improvements (?)
gedeone-octave <marcovass89@hotmail.it>
parents: 151
diff changeset
46 << " coefficients" << std::endl;
9e944b0d0fc8 Some Formatting improvements (?)
gedeone-octave <marcovass89@hotmail.it>
parents: 151
diff changeset
47 }
90
7cd7bd1fc2b5 New wrapper class for dolfin::Form
gedeone-octave <marcovass89@hotmail.it>
parents:
diff changeset
48
173
9e944b0d0fc8 Some Formatting improvements (?)
gedeone-octave <marcovass89@hotmail.it>
parents: 151
diff changeset
49 ~form(void) {}
90
7cd7bd1fc2b5 New wrapper class for dolfin::Form
gedeone-octave <marcovass89@hotmail.it>
parents:
diff changeset
50
173
9e944b0d0fc8 Some Formatting improvements (?)
gedeone-octave <marcovass89@hotmail.it>
parents: 151
diff changeset
51 bool
9e944b0d0fc8 Some Formatting improvements (?)
gedeone-octave <marcovass89@hotmail.it>
parents: 151
diff changeset
52 is_defined (void) const
9e944b0d0fc8 Some Formatting improvements (?)
gedeone-octave <marcovass89@hotmail.it>
parents: 151
diff changeset
53 { return true; }
90
7cd7bd1fc2b5 New wrapper class for dolfin::Form
gedeone-octave <marcovass89@hotmail.it>
parents:
diff changeset
54
173
9e944b0d0fc8 Some Formatting improvements (?)
gedeone-octave <marcovass89@hotmail.it>
parents: 151
diff changeset
55 const dolfin::Form &
9e944b0d0fc8 Some Formatting improvements (?)
gedeone-octave <marcovass89@hotmail.it>
parents: 151
diff changeset
56 get_form (void) const
9e944b0d0fc8 Some Formatting improvements (?)
gedeone-octave <marcovass89@hotmail.it>
parents: 151
diff changeset
57 { return (*frm); }
90
7cd7bd1fc2b5 New wrapper class for dolfin::Form
gedeone-octave <marcovass89@hotmail.it>
parents:
diff changeset
58
253
5e9b5bbdc56b Support both DOLFIN 1.3.0 and 1.4.0
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents: 173
diff changeset
59 const SHARED_PTR <const dolfin::Form> &
173
9e944b0d0fc8 Some Formatting improvements (?)
gedeone-octave <marcovass89@hotmail.it>
parents: 151
diff changeset
60 get_pform (void) const
9e944b0d0fc8 Some Formatting improvements (?)
gedeone-octave <marcovass89@hotmail.it>
parents: 151
diff changeset
61 { return frm; }
90
7cd7bd1fc2b5 New wrapper class for dolfin::Form
gedeone-octave <marcovass89@hotmail.it>
parents:
diff changeset
62
7cd7bd1fc2b5 New wrapper class for dolfin::Form
gedeone-octave <marcovass89@hotmail.it>
parents:
diff changeset
63 private:
7cd7bd1fc2b5 New wrapper class for dolfin::Form
gedeone-octave <marcovass89@hotmail.it>
parents:
diff changeset
64
253
5e9b5bbdc56b Support both DOLFIN 1.3.0 and 1.4.0
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents: 173
diff changeset
65 SHARED_PTR <const dolfin::Form> frm;
90
7cd7bd1fc2b5 New wrapper class for dolfin::Form
gedeone-octave <marcovass89@hotmail.it>
parents:
diff changeset
66
7cd7bd1fc2b5 New wrapper class for dolfin::Form
gedeone-octave <marcovass89@hotmail.it>
parents:
diff changeset
67 DECLARE_OCTAVE_ALLOCATOR;
7cd7bd1fc2b5 New wrapper class for dolfin::Form
gedeone-octave <marcovass89@hotmail.it>
parents:
diff changeset
68 DECLARE_OV_TYPEID_FUNCTIONS_AND_DATA;
7cd7bd1fc2b5 New wrapper class for dolfin::Form
gedeone-octave <marcovass89@hotmail.it>
parents:
diff changeset
69
7cd7bd1fc2b5 New wrapper class for dolfin::Form
gedeone-octave <marcovass89@hotmail.it>
parents:
diff changeset
70 };
7cd7bd1fc2b5 New wrapper class for dolfin::Form
gedeone-octave <marcovass89@hotmail.it>
parents:
diff changeset
71 static bool form_type_loaded = false;
7cd7bd1fc2b5 New wrapper class for dolfin::Form
gedeone-octave <marcovass89@hotmail.it>
parents:
diff changeset
72
7cd7bd1fc2b5 New wrapper class for dolfin::Form
gedeone-octave <marcovass89@hotmail.it>
parents:
diff changeset
73 DEFINE_OCTAVE_ALLOCATOR (form);
7cd7bd1fc2b5 New wrapper class for dolfin::Form
gedeone-octave <marcovass89@hotmail.it>
parents:
diff changeset
74 DEFINE_OV_TYPEID_FUNCTIONS_AND_DATA (form, "form", "form");
7cd7bd1fc2b5 New wrapper class for dolfin::Form
gedeone-octave <marcovass89@hotmail.it>
parents:
diff changeset
75 #endif