Mercurial > fem-fenics-eugenio
annotate inst/private/generate_mf_header.m @ 268:61830a4f9ab9
Improve formatting
author | Eugenio Gianniti <eugenio.gianniti@mail.polimi.it> |
---|---|
date | Thu, 14 Aug 2014 12:26:55 +0200 |
parents | f22588ae37af |
children |
rev | line source |
---|---|
260
1e2a9be8083a
Support template dolfin::MeshFunction
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff
changeset
|
1 ## Copyright (C) 2014 Eugenio Gianniti <eugenio.gianniti@mail.polimi.it> |
1e2a9be8083a
Support template dolfin::MeshFunction
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff
changeset
|
2 ## |
1e2a9be8083a
Support template dolfin::MeshFunction
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff
changeset
|
3 ## This program is free software; you can redistribute it and/or modify it under |
1e2a9be8083a
Support template dolfin::MeshFunction
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff
changeset
|
4 ## the terms of the GNU General Public License as published by the Free Software |
1e2a9be8083a
Support template dolfin::MeshFunction
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff
changeset
|
5 ## Foundation; either version 3 of the License, or (at your option) any later |
1e2a9be8083a
Support template dolfin::MeshFunction
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff
changeset
|
6 ## version. |
1e2a9be8083a
Support template dolfin::MeshFunction
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff
changeset
|
7 ## |
1e2a9be8083a
Support template dolfin::MeshFunction
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff
changeset
|
8 ## This program is distributed in the hope that it will be useful, but WITHOUT |
1e2a9be8083a
Support template dolfin::MeshFunction
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff
changeset
|
9 ## ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or |
1e2a9be8083a
Support template dolfin::MeshFunction
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff
changeset
|
10 ## FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more |
1e2a9be8083a
Support template dolfin::MeshFunction
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff
changeset
|
11 ## details. |
1e2a9be8083a
Support template dolfin::MeshFunction
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff
changeset
|
12 ## |
1e2a9be8083a
Support template dolfin::MeshFunction
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff
changeset
|
13 ## You should have received a copy of the GNU General Public License along with |
1e2a9be8083a
Support template dolfin::MeshFunction
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff
changeset
|
14 ## this program; if not, see <http://www.gnu.org/licenses/>. |
1e2a9be8083a
Support template dolfin::MeshFunction
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff
changeset
|
15 |
1e2a9be8083a
Support template dolfin::MeshFunction
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff
changeset
|
16 |
1e2a9be8083a
Support template dolfin::MeshFunction
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff
changeset
|
17 ## -*- texinfo -*- |
1e2a9be8083a
Support template dolfin::MeshFunction
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff
changeset
|
18 ## function for internal usage only |
1e2a9be8083a
Support template dolfin::MeshFunction
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff
changeset
|
19 ## @end deftypefn |
1e2a9be8083a
Support template dolfin::MeshFunction
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff
changeset
|
20 |
261
f22588ae37af
Improve template meshfunction implementation
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
260
diff
changeset
|
21 function output = generate_mf_header (typename, label) |
260
1e2a9be8083a
Support template dolfin::MeshFunction
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff
changeset
|
22 |
1e2a9be8083a
Support template dolfin::MeshFunction
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff
changeset
|
23 STRING ="\n\ |
261
f22588ae37af
Improve template meshfunction implementation
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
260
diff
changeset
|
24 #ifndef _MESHFUNCTION_@@LABEL@@_OCTAVE_\n\ |
f22588ae37af
Improve template meshfunction implementation
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
260
diff
changeset
|
25 #define _MESHFUNCTION_@@LABEL@@_OCTAVE_\n\ |
260
1e2a9be8083a
Support template dolfin::MeshFunction
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff
changeset
|
26 \n\ |
1e2a9be8083a
Support template dolfin::MeshFunction
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff
changeset
|
27 #include <dolfin.h>\n\ |
1e2a9be8083a
Support template dolfin::MeshFunction
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff
changeset
|
28 #include <octave/oct.h>\n\ |
1e2a9be8083a
Support template dolfin::MeshFunction
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff
changeset
|
29 #include <fem-fenics/dolfin_compat.h>\n\ |
1e2a9be8083a
Support template dolfin::MeshFunction
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff
changeset
|
30 \n\ |
261
f22588ae37af
Improve template meshfunction implementation
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
260
diff
changeset
|
31 class meshfunction_@@LABEL@@ : public octave_base_value\n\ |
260
1e2a9be8083a
Support template dolfin::MeshFunction
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff
changeset
|
32 {\n\ |
268
61830a4f9ab9
Improve formatting
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
261
diff
changeset
|
33 public:\n\ |
260
1e2a9be8083a
Support template dolfin::MeshFunction
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff
changeset
|
34 \n\ |
261
f22588ae37af
Improve template meshfunction implementation
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
260
diff
changeset
|
35 meshfunction_@@LABEL@@ (void)\n\ |
260
1e2a9be8083a
Support template dolfin::MeshFunction
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff
changeset
|
36 : octave_base_value () {}\n\ |
1e2a9be8083a
Support template dolfin::MeshFunction
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff
changeset
|
37 \n\ |
261
f22588ae37af
Improve template meshfunction implementation
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
260
diff
changeset
|
38 meshfunction_@@LABEL@@ (dolfin::MeshFunction <@@TYPENAME@@ > const & _mf)\n\ |
f22588ae37af
Improve template meshfunction implementation
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
260
diff
changeset
|
39 : octave_base_value (), pmf (new dolfin::MeshFunction <@@TYPENAME@@ > (_mf)) {}\n\ |
260
1e2a9be8083a
Support template dolfin::MeshFunction
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff
changeset
|
40 \n\ |
261
f22588ae37af
Improve template meshfunction implementation
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
260
diff
changeset
|
41 meshfunction_@@LABEL@@ (SHARED_PTR <dolfin::Mesh const> mesh,\n\ |
268
61830a4f9ab9
Improve formatting
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
261
diff
changeset
|
42 std::string const & filename)\n\ |
260
1e2a9be8083a
Support template dolfin::MeshFunction
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff
changeset
|
43 : octave_base_value (),\n\ |
261
f22588ae37af
Improve template meshfunction implementation
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
260
diff
changeset
|
44 pmf (new dolfin::MeshFunction <@@TYPENAME@@ > (mesh, filename)) {}\n\ |
260
1e2a9be8083a
Support template dolfin::MeshFunction
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff
changeset
|
45 \n\ |
1e2a9be8083a
Support template dolfin::MeshFunction
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff
changeset
|
46 bool\n\ |
1e2a9be8083a
Support template dolfin::MeshFunction
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff
changeset
|
47 is_defined (void) const\n\ |
268
61830a4f9ab9
Improve formatting
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
261
diff
changeset
|
48 { return true; }\n\ |
260
1e2a9be8083a
Support template dolfin::MeshFunction
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff
changeset
|
49 \n\ |
1e2a9be8083a
Support template dolfin::MeshFunction
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff
changeset
|
50 void\n\ |
1e2a9be8083a
Support template dolfin::MeshFunction
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff
changeset
|
51 print (std::ostream& os, bool pr_as_read_syntax = false) const\n\ |
268
61830a4f9ab9
Improve formatting
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
261
diff
changeset
|
52 { os << ""MeshFunction <@@TYPENAME@@ >: ""\n\ |
61830a4f9ab9
Improve formatting
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
261
diff
changeset
|
53 << get_pmf ()->str (@@VERBOSE@@) << std::endl; }\n\ |
260
1e2a9be8083a
Support template dolfin::MeshFunction
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff
changeset
|
54 \n\ |
261
f22588ae37af
Improve template meshfunction implementation
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
260
diff
changeset
|
55 dolfin::MeshFunction <@@TYPENAME@@ > const &\n\ |
260
1e2a9be8083a
Support template dolfin::MeshFunction
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff
changeset
|
56 get_mf (void) const\n\ |
268
61830a4f9ab9
Improve formatting
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
261
diff
changeset
|
57 { return *pmf; }\n\ |
260
1e2a9be8083a
Support template dolfin::MeshFunction
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff
changeset
|
58 \n\ |
261
f22588ae37af
Improve template meshfunction implementation
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
260
diff
changeset
|
59 SHARED_PTR <dolfin::MeshFunction <@@TYPENAME@@ > const> const &\n\ |
260
1e2a9be8083a
Support template dolfin::MeshFunction
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff
changeset
|
60 get_pmf (void) const\n\ |
268
61830a4f9ab9
Improve formatting
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
261
diff
changeset
|
61 { return pmf; }\n\ |
260
1e2a9be8083a
Support template dolfin::MeshFunction
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff
changeset
|
62 \n\ |
268
61830a4f9ab9
Improve formatting
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
261
diff
changeset
|
63 private:\n\ |
260
1e2a9be8083a
Support template dolfin::MeshFunction
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff
changeset
|
64 \n\ |
261
f22588ae37af
Improve template meshfunction implementation
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
260
diff
changeset
|
65 SHARED_PTR <dolfin::MeshFunction <@@TYPENAME@@ > const> pmf;\n\ |
260
1e2a9be8083a
Support template dolfin::MeshFunction
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff
changeset
|
66 \n\ |
1e2a9be8083a
Support template dolfin::MeshFunction
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff
changeset
|
67 DECLARE_OCTAVE_ALLOCATOR;\n\ |
1e2a9be8083a
Support template dolfin::MeshFunction
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff
changeset
|
68 DECLARE_OV_TYPEID_FUNCTIONS_AND_DATA;\n\ |
1e2a9be8083a
Support template dolfin::MeshFunction
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff
changeset
|
69 };\n\ |
1e2a9be8083a
Support template dolfin::MeshFunction
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff
changeset
|
70 \n\ |
261
f22588ae37af
Improve template meshfunction implementation
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
260
diff
changeset
|
71 static bool meshfunction_@@LABEL@@_type_loaded = false;\n\ |
260
1e2a9be8083a
Support template dolfin::MeshFunction
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff
changeset
|
72 \n\ |
261
f22588ae37af
Improve template meshfunction implementation
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
260
diff
changeset
|
73 DEFINE_OCTAVE_ALLOCATOR (meshfunction_@@LABEL@@);\n\ |
f22588ae37af
Improve template meshfunction implementation
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
260
diff
changeset
|
74 DEFINE_OV_TYPEID_FUNCTIONS_AND_DATA (meshfunction_@@LABEL@@,\n\ |
f22588ae37af
Improve template meshfunction implementation
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
260
diff
changeset
|
75 ""meshfunction_@@LABEL@@"", ""meshfunction_@@LABEL@@"");\n\ |
260
1e2a9be8083a
Support template dolfin::MeshFunction
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff
changeset
|
76 \n\ |
1e2a9be8083a
Support template dolfin::MeshFunction
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff
changeset
|
77 #endif"; |
1e2a9be8083a
Support template dolfin::MeshFunction
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff
changeset
|
78 |
261
f22588ae37af
Improve template meshfunction implementation
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
260
diff
changeset
|
79 STRING = strrep (STRING, "@@TYPENAME@@", typename); |
f22588ae37af
Improve template meshfunction implementation
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
260
diff
changeset
|
80 STRING = strrep (STRING, "@@LABEL@@", label); |
f22588ae37af
Improve template meshfunction implementation
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
260
diff
changeset
|
81 verbose = "false"; |
f22588ae37af
Improve template meshfunction implementation
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
260
diff
changeset
|
82 if (strcmp (typename, "double")) |
f22588ae37af
Improve template meshfunction implementation
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
260
diff
changeset
|
83 verbose = "true"; |
f22588ae37af
Improve template meshfunction implementation
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
260
diff
changeset
|
84 endif |
f22588ae37af
Improve template meshfunction implementation
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
260
diff
changeset
|
85 STRING = strrep (STRING, "@@VERBOSE@@", verbose); |
260
1e2a9be8083a
Support template dolfin::MeshFunction
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff
changeset
|
86 |
261
f22588ae37af
Improve template meshfunction implementation
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
260
diff
changeset
|
87 fid = fopen (["meshfunction_", label, ".h"], "w"); |
260
1e2a9be8083a
Support template dolfin::MeshFunction
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff
changeset
|
88 if (is_valid_file_id (fid)) |
1e2a9be8083a
Support template dolfin::MeshFunction
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff
changeset
|
89 fputs (fid, STRING); |
1e2a9be8083a
Support template dolfin::MeshFunction
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff
changeset
|
90 output = fclose (fid); |
1e2a9be8083a
Support template dolfin::MeshFunction
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff
changeset
|
91 else |
1e2a9be8083a
Support template dolfin::MeshFunction
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff
changeset
|
92 error ("cannot open file"); |
1e2a9be8083a
Support template dolfin::MeshFunction
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff
changeset
|
93 output = 1; |
1e2a9be8083a
Support template dolfin::MeshFunction
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff
changeset
|
94 endif |
1e2a9be8083a
Support template dolfin::MeshFunction
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff
changeset
|
95 |
1e2a9be8083a
Support template dolfin::MeshFunction
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff
changeset
|
96 endfunction |