1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
|
/* Copyright (c) 1997-2024
Ewgenij Gawrilow, Michael Joswig, and the polymake team
Technische Universität Berlin, Germany
https://polymake.org
This program is free software; you can redistribute it and/or modify it
under the terms of the GNU General Public License as published by the
Free Software Foundation; either version 2, or (at your option) any
later version: http://www.gnu.org/licenses/gpl.txt.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
--------------------------------------------------------------------------------
*/
#pragma once
#include "polymake/perl/constants.h"
#include "polymake/perl/Value.h"
#include "polymake/perl/types.h"
#include "polymake/perl/macros.h"
#include "polymake/perl/wrappers.h"
#include "polymake/perl/calls.h"
#include "polymake/perl/BigObject.h"
namespace polymake { namespace perl {
using pm::perl::Value;
using pm::perl::Scalar;
using pm::perl::Array;
using pm::perl::Hash;
using pm::perl::Canned;
using pm::perl::TryCanned;
using pm::perl::Enum;
using pm::perl::Returns;
using pm::perl::CrossApp;
using pm::perl::AnchorArg;
using pm::perl::load_data;
using pm::perl::save_data;
using pm::perl::get_custom;
extern std::ostream cout;
}
using pm::perl::BigObject;
using pm::perl::BigObjectType;
using pm::perl::ListReturn;
using pm::perl::OptionSet;
using pm::perl::Undefined;
using pm::perl::get_debug_level;
constexpr auto temporary = pm::perl::property_kind::temporary;
}
#ifdef POLYMAKE_APPNAME
namespace polymake { namespace POLYMAKE_APPNAME {
# ifdef POLYMAKE_BUNDLED_EXT
namespace bundled { namespace POLYMAKE_BUNDLED_EXT {
# endif
class GlueRegistratorTag;
# ifdef POLYMAKE_BUNDLED_EXT
} }
using PolymakeGlueRegistratorTag = bundled::POLYMAKE_BUNDLED_EXT::GlueRegistratorTag;
# define EmbeddedItemsKey4perl(app, bundled) MacroTokenAsString(app) ":" MacroTokenAsString(bundled)
# else
using PolymakeGlueRegistratorTag = GlueRegistratorTag;
# define EmbeddedItemsKey4perl(app, bundled) MacroTokenAsString(app)
# endif
template <typename Tag, pm::perl::RegistratorQueue::Kind kind>
const pm::perl::RegistratorQueue& get_registrator_queue(mlist<Tag>, std::integral_constant<pm::perl::RegistratorQueue::Kind, kind>)
{
static pm::perl::RegistratorQueue queue(EmbeddedItemsKey4perl(POLYMAKE_APPNAME, POLYMAKE_BUNDLED_EXT), kind);
return queue;
}
namespace {
template <typename What, int id>
class QueueingRegistrator4perl {
public:
template <typename... Args>
explicit QueueingRegistrator4perl(Args&&... args)
{
static_cast<const What&>(get_registrator_queue(mlist<PolymakeGlueRegistratorTag>(), std::integral_constant<pm::perl::RegistratorQueue::Kind, What::kind>()))
.add__me(std::forward<Args>(args)...);
}
static QueueingRegistrator4perl r;
};
template <typename What, int id>
class StaticRegistrator4perl {
public:
template <typename... Args>
explicit StaticRegistrator4perl(Args&&... args)
{
What::add__me(std::forward<Args>(args)...);
}
static StaticRegistrator4perl r;
};
} } }
#endif // POLYMAKE_APPNAME
namespace polymake { namespace perl_bindings {
///==== Automatically generated contents follow. Please do not delete this line. ====
template <typename T, typename T0>
RecognizeType4perl("Polymake::common::Serialized", (T0), pm::Serialized<T0>)
template <typename T, typename T0, typename T1>
RecognizeType4perl("Polymake::common::Pair", (T0,T1), std::pair<T0,T1>)
template <typename T, typename T0, typename... T1>
RecognizeType4perl("Polymake::common::CachedObjectPointer", (T1...), const CachedObjectPointer<T0,T1...>)
///==== Automatically generated contents end here. Please do not delete this line. ====
} }
// Local Variables:
// mode:C++
// c-basic-offset:3
// indent-tabs-mode:nil
// End:
|
