1 /* Copyright (c) 1997-2021
2    Ewgenij Gawrilow, Michael Joswig, and the polymake team
3    Technische Universität Berlin, Germany
4    https://polymake.org
5 
6    This program is free software; you can redistribute it and/or modify it
7    under the terms of the GNU General Public License as published by the
8    Free Software Foundation; either version 2, or (at your option) any
9    later version: http://www.gnu.org/licenses/gpl.txt.
10 
11    This program is distributed in the hope that it will be useful,
12    but WITHOUT ANY WARRANTY; without even the implied warranty of
13    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
14    GNU General Public License for more details.
15 --------------------------------------------------------------------------------
16 */
17 
18 #include "polymake/client.h"
19 #include "polymake/topaz/complex_tools.h"
20 
21 namespace polymake { namespace topaz {
22 
is_pseudo_manifold_client(BigObject p)23 void is_pseudo_manifold_client(BigObject p)
24 {
25    const Lattice<BasicDecoration>& HD = p.give("HASSE_DIAGRAM");
26    p.take("PSEUDO_MANIFOLD") << is_pseudo_manifold(HD,true);
27 }
28 
29 Function4perl(&is_pseudo_manifold_client, "is_pseudo_manifold(SimplicialComplex)");
30 
31 } }
32 
33 // Local Variables:
34 // mode:C++
35 // c-basic-offset:3
36 // indent-tabs-mode:nil
37 // End:
38