Mercurial > fem-fenics-eugenio

annotate inst/private/check_mf_files.m @ 260:1e2a9be8083a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Support template dolfin::MeshFunction
author Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
date Wed, 06 Aug 2014 19:52:03 +0200
parents
children f22588ae37af
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
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
1e2a9be8083a Support template dolfin::MeshFunction
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff changeset
21 function found = check_mf_files (typename)
1e2a9be8083a Support template dolfin::MeshFunction
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff changeset
22 if (! ischar (typename))
1e2a9be8083a Support template dolfin::MeshFunction
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff changeset
23 error ("check_mf_files: invalid argument");
1e2a9be8083a Support template dolfin::MeshFunction
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff changeset
24 endif
1e2a9be8083a Support template dolfin::MeshFunction
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff changeset
25
1e2a9be8083a Support template dolfin::MeshFunction
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff changeset
26 [~, err, ~] = stat (["MeshFunction_", typename, ".oct"]);
1e2a9be8083a Support template dolfin::MeshFunction
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff changeset
27 read = (err == 0);
1e2a9be8083a Support template dolfin::MeshFunction
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff changeset
28 [~, err, ~] = stat (["@meshfunction_", typename, "/save.oct"]);
1e2a9be8083a Support template dolfin::MeshFunction
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff changeset
29 write = (err == 0);
1e2a9be8083a Support template dolfin::MeshFunction
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff changeset
30
1e2a9be8083a Support template dolfin::MeshFunction
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff changeset
31 found = read && write;
1e2a9be8083a Support template dolfin::MeshFunction
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff changeset
32 endfunction