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)23void 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