| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044 |
- // Copyright 2024 Christophe Henry
- // henry UNDERSCORE christophe AT hotmail DOT com
- // This is an extended version of the state machine available in the boost::mpl library
- // Distributed under the same license as the original.
- // Copyright for the original version:
- // Copyright 2005 David Abrahams and Aleksey Gurtovoy. Distributed
- // under the Boost Software License, Version 1.0. (See accompanying
- // file LICENSE_1_0.txt or copy at
- // http://www.boost.org/LICENSE_1_0.txt)
- #ifndef BOOST_MSM_FRONT_PUML_COMMON_H
- #define BOOST_MSM_FRONT_PUML_COMMON_H
- #include <cstdint>
- #include <string>
- #include <string_view>
- #include <vector>
- #include <boost/any.hpp>
- #include <boost/fusion/mpl.hpp>
- #include <boost/fusion/include/as_vector.hpp>
- #include <boost/fusion/container/vector.hpp>
- #include <boost/fusion/include/insert_range.hpp>
- #include <boost/fusion/include/at_c.hpp>
- #include <boost/fusion/include/for_each.hpp>
- #include <boost/fusion/include/make_vector.hpp>
- #include <boost/mpl/size.hpp>
- #include <boost/msm/front/states.hpp>
- // functors
- #include <boost/msm/front/functor_row.hpp>
- #include <boost/msm/front/operator.hpp>
- namespace boost::msm::front::puml
- {
- namespace detail {
- template <class T1, class T2>
- struct pair_type
- {
- using first = T1;
- using second = T2;
- };
- }
- template<typename T>
- struct convert_to_msm_names
- {
- using type = T;
- };
- template <std::uint32_t hash,
- class Flags = boost::fusion::vector0<>,
- class Entries = boost::fusion::vector0<>,
- class Exits = boost::fusion::vector0<>>
- struct State
- {
- using generated_type = State<hash>;
- using flag_list = boost::fusion::vector0<>;
- using entries = Entries;
- using exits = Exits;
- using internal_flag_list = Flags;
- template <class Event, class FSM>
- void on_entry(Event& evt, FSM& fsm)
- {
- boost::fusion::for_each(Entries{},
- [&](auto action_guard_pair)
- {
- if constexpr (
- std::is_same_v<typename decltype(action_guard_pair)::second,boost::msm::front::none>)
- {
- typename decltype(action_guard_pair)::first{}(evt, fsm, *this, *this);
- }
- else
- {
- if (typename decltype(action_guard_pair)::second{}(evt, fsm, *this, *this))
- {
- typename decltype(action_guard_pair)::first{}(evt, fsm, *this, *this);
- }
- }
- });
- }
- template <class Event, class FSM>
- void on_exit(Event& evt, FSM& fsm)
- {
- boost::fusion::for_each(Exits{},
- [&](auto action_guard_pair)
- {
- if constexpr (
- std::is_same_v<typename decltype(action_guard_pair)::second, boost::msm::front::none>)
- {
- typename decltype(action_guard_pair)::first{}(evt, fsm, *this, *this);
- }
- else
- {
- if (typename decltype(action_guard_pair)::second{}(evt, fsm, *this, *this))
- {
- typename decltype(action_guard_pair)::first{}(evt, fsm, *this, *this);
- }
- }
- });
- }
- // typedefs added for front::state compatibility
- typedef ::boost::mpl::vector<> internal_transition_table;
- typedef ::boost::fusion::vector<> internal_transition_table11;
- typedef ::boost::fusion::vector<> transition_table;
- typedef ::boost::fusion::vector0<> deferred_events;
- struct internal
- {
- typedef state_tag tag;
- };
- };
- template <std::uint32_t hash>
- struct Event
- {
- };
- template <std::uint32_t hash>
- struct Action
- {
- };
- template <std::uint32_t hash>
- struct Guard
- {
- };
- template <std::uint32_t hash>
- struct Flag
- {
- };
- namespace detail {
- // CRC32 Table (zlib polynomial)
- static constexpr std::uint32_t crc_table[256] =
- {
- 0x00000000L, 0x77073096L, 0xee0e612cL, 0x990951baL, 0x076dc419L,
- 0x706af48fL, 0xe963a535L, 0x9e6495a3L, 0x0edb8832L, 0x79dcb8a4L,
- 0xe0d5e91eL, 0x97d2d988L, 0x09b64c2bL, 0x7eb17cbdL, 0xe7b82d07L,
- 0x90bf1d91L, 0x1db71064L, 0x6ab020f2L, 0xf3b97148L, 0x84be41deL,
- 0x1adad47dL, 0x6ddde4ebL, 0xf4d4b551L, 0x83d385c7L, 0x136c9856L,
- 0x646ba8c0L, 0xfd62f97aL, 0x8a65c9ecL, 0x14015c4fL, 0x63066cd9L,
- 0xfa0f3d63L, 0x8d080df5L, 0x3b6e20c8L, 0x4c69105eL, 0xd56041e4L,
- 0xa2677172L, 0x3c03e4d1L, 0x4b04d447L, 0xd20d85fdL, 0xa50ab56bL,
- 0x35b5a8faL, 0x42b2986cL, 0xdbbbc9d6L, 0xacbcf940L, 0x32d86ce3L,
- 0x45df5c75L, 0xdcd60dcfL, 0xabd13d59L, 0x26d930acL, 0x51de003aL,
- 0xc8d75180L, 0xbfd06116L, 0x21b4f4b5L, 0x56b3c423L, 0xcfba9599L,
- 0xb8bda50fL, 0x2802b89eL, 0x5f058808L, 0xc60cd9b2L, 0xb10be924L,
- 0x2f6f7c87L, 0x58684c11L, 0xc1611dabL, 0xb6662d3dL, 0x76dc4190L,
- 0x01db7106L, 0x98d220bcL, 0xefd5102aL, 0x71b18589L, 0x06b6b51fL,
- 0x9fbfe4a5L, 0xe8b8d433L, 0x7807c9a2L, 0x0f00f934L, 0x9609a88eL,
- 0xe10e9818L, 0x7f6a0dbbL, 0x086d3d2dL, 0x91646c97L, 0xe6635c01L,
- 0x6b6b51f4L, 0x1c6c6162L, 0x856530d8L, 0xf262004eL, 0x6c0695edL,
- 0x1b01a57bL, 0x8208f4c1L, 0xf50fc457L, 0x65b0d9c6L, 0x12b7e950L,
- 0x8bbeb8eaL, 0xfcb9887cL, 0x62dd1ddfL, 0x15da2d49L, 0x8cd37cf3L,
- 0xfbd44c65L, 0x4db26158L, 0x3ab551ceL, 0xa3bc0074L, 0xd4bb30e2L,
- 0x4adfa541L, 0x3dd895d7L, 0xa4d1c46dL, 0xd3d6f4fbL, 0x4369e96aL,
- 0x346ed9fcL, 0xad678846L, 0xda60b8d0L, 0x44042d73L, 0x33031de5L,
- 0xaa0a4c5fL, 0xdd0d7cc9L, 0x5005713cL, 0x270241aaL, 0xbe0b1010L,
- 0xc90c2086L, 0x5768b525L, 0x206f85b3L, 0xb966d409L, 0xce61e49fL,
- 0x5edef90eL, 0x29d9c998L, 0xb0d09822L, 0xc7d7a8b4L, 0x59b33d17L,
- 0x2eb40d81L, 0xb7bd5c3bL, 0xc0ba6cadL, 0xedb88320L, 0x9abfb3b6L,
- 0x03b6e20cL, 0x74b1d29aL, 0xead54739L, 0x9dd277afL, 0x04db2615L,
- 0x73dc1683L, 0xe3630b12L, 0x94643b84L, 0x0d6d6a3eL, 0x7a6a5aa8L,
- 0xe40ecf0bL, 0x9309ff9dL, 0x0a00ae27L, 0x7d079eb1L, 0xf00f9344L,
- 0x8708a3d2L, 0x1e01f268L, 0x6906c2feL, 0xf762575dL, 0x806567cbL,
- 0x196c3671L, 0x6e6b06e7L, 0xfed41b76L, 0x89d32be0L, 0x10da7a5aL,
- 0x67dd4accL, 0xf9b9df6fL, 0x8ebeeff9L, 0x17b7be43L, 0x60b08ed5L,
- 0xd6d6a3e8L, 0xa1d1937eL, 0x38d8c2c4L, 0x4fdff252L, 0xd1bb67f1L,
- 0xa6bc5767L, 0x3fb506ddL, 0x48b2364bL, 0xd80d2bdaL, 0xaf0a1b4cL,
- 0x36034af6L, 0x41047a60L, 0xdf60efc3L, 0xa867df55L, 0x316e8eefL,
- 0x4669be79L, 0xcb61b38cL, 0xbc66831aL, 0x256fd2a0L, 0x5268e236L,
- 0xcc0c7795L, 0xbb0b4703L, 0x220216b9L, 0x5505262fL, 0xc5ba3bbeL,
- 0xb2bd0b28L, 0x2bb45a92L, 0x5cb36a04L, 0xc2d7ffa7L, 0xb5d0cf31L,
- 0x2cd99e8bL, 0x5bdeae1dL, 0x9b64c2b0L, 0xec63f226L, 0x756aa39cL,
- 0x026d930aL, 0x9c0906a9L, 0xeb0e363fL, 0x72076785L, 0x05005713L,
- 0x95bf4a82L, 0xe2b87a14L, 0x7bb12baeL, 0x0cb61b38L, 0x92d28e9bL,
- 0xe5d5be0dL, 0x7cdcefb7L, 0x0bdbdf21L, 0x86d3d2d4L, 0xf1d4e242L,
- 0x68ddb3f8L, 0x1fda836eL, 0x81be16cdL, 0xf6b9265bL, 0x6fb077e1L,
- 0x18b74777L, 0x88085ae6L, 0xff0f6a70L, 0x66063bcaL, 0x11010b5cL,
- 0x8f659effL, 0xf862ae69L, 0x616bffd3L, 0x166ccf45L, 0xa00ae278L,
- 0xd70dd2eeL, 0x4e048354L, 0x3903b3c2L, 0xa7672661L, 0xd06016f7L,
- 0x4969474dL, 0x3e6e77dbL, 0xaed16a4aL, 0xd9d65adcL, 0x40df0b66L,
- 0x37d83bf0L, 0xa9bcae53L, 0xdebb9ec5L, 0x47b2cf7fL, 0x30b5ffe9L,
- 0xbdbdf21cL, 0xcabac28aL, 0x53b39330L, 0x24b4a3a6L, 0xbad03605L,
- 0xcdd70693L, 0x54de5729L, 0x23d967bfL, 0xb3667a2eL, 0xc4614ab8L,
- 0x5d681b02L, 0x2a6f2b94L, 0xb40bbe37L, 0xc30c8ea1L, 0x5a05df1bL,
- 0x2d02ef8dL
- };
- constexpr std::uint32_t crc32(std::string_view str)
- {
- std::uint32_t crc = 0xffffffff;
- for (auto c : str)
- crc = (crc >> 8) ^ boost::msm::front::puml::detail::crc_table[(crc ^ c) & 0xff];
- return crc ^ 0xffffffff;
- }
- // removes training spaces or -
- constexpr std::string_view cleanup_token(const std::string_view& str)
- {
- auto first_not_whitespace = str.find_first_not_of("- \t");
- auto last_not_whitespace = str.find_last_not_of("- \t");
- if (first_not_whitespace != std::string::npos && last_not_whitespace != std::string::npos)
- {
- //return std::string(str, first_not_whitespace, last_not_whitespace - first_not_whitespace + 1);
- return str.substr(first_not_whitespace, last_not_whitespace - first_not_whitespace + 1);
- }
- else
- {
- return std::string_view{};
- }
- }
- struct Transition
- {
- std::string_view source;
- std::string_view target;
- std::string_view event;
- std::string_view guard;
- std::string_view action;
- };
- // finds guards [Guard]
- // requires all blanks to have been removed
- constexpr boost::msm::front::puml::detail::Transition
- parse_guards(std::string_view part)
- {
- boost::msm::front::puml::detail::Transition res;
- auto start_pos = part.find("[");
- auto end_pos = part.find("]");
- if (start_pos != std::string::npos && end_pos != std::string::npos)
- {
- ++start_pos;
- res.guard = boost::msm::front::puml::detail::cleanup_token(part.substr(start_pos, end_pos - start_pos));
- }
- return res;
- }
- // requires all blanks to have been removed
- constexpr boost::msm::front::puml::detail::Transition parse_row_right(std::string_view part)
- {
- auto action_pos = part.find("/");
- auto guard_pos = part.find("[");
- auto evt_pos = part.find(":");
- auto internal_pos = part.find("-");
- bool is_internal_transition =
- internal_pos != std::string::npos && internal_pos > evt_pos && internal_pos <= action_pos && internal_pos <= guard_pos;
- auto start_event_name_pos = (internal_pos == std::string::npos) ? evt_pos : internal_pos;
- boost::msm::front::puml::detail::Transition res;
- // target is until : or end of string if not provided
- if (evt_pos != std::string::npos && !is_internal_transition)
- {
- res.target = boost::msm::front::puml::detail::cleanup_token(part.substr(0, evt_pos));
- }
- else if (!is_internal_transition)
- {
- res.target = boost::msm::front::puml::detail::cleanup_token(part);
- }
- // event is between : and / or [, whatever comes first
- if (action_pos == std::string::npos && guard_pos == std::string::npos)
- {
- res.event = boost::msm::front::puml::detail::cleanup_token(part.substr(start_event_name_pos + 1));
- }
- else
- {
- auto length = std::min(action_pos, guard_pos) > 1 + start_event_name_pos ?
- std::min(action_pos, guard_pos) - 1 - start_event_name_pos
- : 0;
- res.event = boost::msm::front::puml::detail::cleanup_token(part.substr(start_event_name_pos + 1, length));
- }
- // handle different guard / action cases
- if (action_pos != std::string::npos && guard_pos != std::string::npos)
- {
- res.action = boost::msm::front::puml::detail::cleanup_token(part.substr(action_pos + 1, guard_pos - 1 - action_pos));
- }
- else if (action_pos != std::string::npos)
- {
- // we have an action => target until /
- res.action = boost::msm::front::puml::detail::cleanup_token(part.substr(action_pos + 1));
- }
- // handle guards
- res.guard = boost::msm::front::puml::detail::parse_guards(
- boost::msm::front::puml::detail::cleanup_token(part)).guard;
- return res;
- }
- constexpr boost::msm::front::puml::detail::Transition parse_row(std::string_view row)
- {
- auto arrow_pos = row.find("->");
- auto puml_event_pos = row.find(":");
- auto left = row.substr(0, arrow_pos);
- auto right = row.substr(arrow_pos + 2);
- if (puml_event_pos != std::string::npos)
- {
- return boost::msm::front::puml::detail::Transition{
- boost::msm::front::puml::detail::cleanup_token(left),
- boost::msm::front::puml::detail::parse_row_right(right).target,
- boost::msm::front::puml::detail::parse_row_right(right).event,
- boost::msm::front::puml::detail::parse_row_right(right).guard,
- boost::msm::front::puml::detail::parse_row_right(right).action };
- }
- else if (arrow_pos != std::string::npos)
- {
- // simple source -> target form
- return boost::msm::front::puml::detail::Transition{
- boost::msm::front::puml::detail::cleanup_token(left),
- boost::msm::front::puml::detail::cleanup_token(right),
- std::string_view{},
- std::string_view{},
- std::string_view{}
- };
- }
- return boost::msm::front::puml::detail::Transition{};
- }
- constexpr int count_transitions(std::string_view s)
- {
- //s = reduce(s, "");
- int occurrences = 0;
- std::string::size_type pos = 0;
- auto target = "->";
- while ((pos = s.find(target, pos)) != std::string::npos)
- {
- ++occurrences;
- pos += 2;
- }
- return occurrences;
- };
- constexpr int count_inits(std::string_view s, std::size_t occurrences=0)
- {
- auto target = "[*]";
- auto star_pos = s.find(target);
- auto endl_after_pos = s.find("\n", star_pos);
- auto arrow_after_pos = s.find("->", star_pos);
- if (star_pos != std::string::npos &&
- star_pos < arrow_after_pos &&
- arrow_after_pos < endl_after_pos)
- {
- return count_inits(s.substr(endl_after_pos), occurrences + 1);
- }
- return occurrences;
- };
- constexpr int count_actions(std::string_view s)
- {
- int occurrences = 0;
- if (!s.empty())
- {
- occurrences = 1;
- }
- std::string::size_type pos = 0;
- auto target = ",";
- while ((pos = s.find(target, pos)) != std::string::npos)
- {
- ++occurrences;
- pos += 1;
- }
- return occurrences;
- };
- template <int t>
- constexpr
- auto parse_stt(std::string_view stt)
- {
- auto prev_pos = std::string::size_type(0);
- auto pos = std::string::size_type(0);
- auto trans_cpt = 0;
- do
- {
- pos = stt.find("\n", prev_pos);
- auto transition_symbol = stt.find("->", prev_pos);
- auto init_symbol = stt.find("[*]", prev_pos);
- if (init_symbol < pos || transition_symbol >= pos)
- {
- prev_pos = pos + 1;
- }
- else
- {
- if (trans_cpt == t)
- {
- return boost::msm::front::puml::detail::parse_row(stt.substr(prev_pos, pos - prev_pos));
- }
- prev_pos = pos + 1;
- ++trans_cpt;
- }
- } while (pos != std::string::npos);
- // should not happen
- return boost::msm::front::puml::detail::Transition{};
- }
- template <int a>
- constexpr auto parse_action(std::string_view actions)
- {
- //actions = reduce(actions, "");
- auto prev_pos = std::string::size_type(0);
- auto pos = std::string::size_type(0);
- auto action_cpt = 0;
- do
- {
- pos = actions.find(",", prev_pos);
- if (action_cpt == a)
- {
- return boost::msm::front::puml::detail::cleanup_token(actions.substr(prev_pos, pos - prev_pos));
- }
- ++action_cpt;
- prev_pos = pos + 1;
- } while (pos != std::string::npos);
- // should not happen
- return std::string_view{};
- }
- template <int t>
- constexpr
- auto parse_inits(std::string_view stt)
- {
- //stt = reduce(stt, "");
- auto prev_pos = std::string::size_type(0);
- auto pos = std::string::size_type(0);
- auto trans_cpt = 0;
- do
- {
- pos = stt.find("\n", prev_pos);
- auto init_symbol = stt.find("[*]", prev_pos);
- if (pos > init_symbol)
- {
- auto init_symbol2 = stt.find("->", init_symbol);
- if (pos > init_symbol2)
- {
- if (trans_cpt == t)
- {
- return cleanup_token(stt.substr(init_symbol2 + 2, pos - init_symbol2 - 2));
- }
- ++trans_cpt;
- }
- }
- prev_pos = pos + 1;
- } while (pos != std::string::npos);
- // should not happen
- return std::string_view{};
- }
- } //namespace detail
- constexpr std::uint32_t by_name(std::string_view str)
- {
- return boost::msm::front::puml::detail::crc32(str) ^ 0xFFFFFFFF;
- }
- // specializations
- template<>
- struct convert_to_msm_names<State<by_name("")>>
- {
- using type = boost::msm::front::none;
- };
- template<>
- struct convert_to_msm_names<Event< by_name("")>>
- {
- using type = boost::msm::front::none;
- };
- template<>
- struct convert_to_msm_names<Action< by_name("")>>
- {
- using type = boost::msm::front::none;
- };
- template<>
- struct convert_to_msm_names<Guard< by_name("")>>
- {
- using type = boost::msm::front::none;
- };
- template<>
- struct convert_to_msm_names<Action< by_name("defer")>>
- {
- using type = boost::msm::front::Defer;
- };
- template<>
- struct convert_to_msm_names<Event< by_name("*")>>
- {
- using type = boost::any;
- };
- namespace detail
- {
- template <class Func>
- constexpr auto parse_guard_simple(Func guard_func)
- {
- constexpr auto and_pos = guard_func().find("&&");
- constexpr auto or_pos = guard_func().find("||");
- constexpr auto not_pos = guard_func().find("!");
- constexpr auto parens_begin_pos = guard_func().find("(");
- constexpr auto parens_end_pos = guard_func().find(")");
- constexpr auto last_and_pos = guard_func().find("&&", parens_end_pos);
- constexpr auto last_or_pos = guard_func().find("||", parens_end_pos);
- // check for operator of the lesser precedence after end parens
- if constexpr (parens_begin_pos != std::string::npos && parens_end_pos != std::string::npos &&
- last_or_pos != std::string::npos && parens_end_pos < last_or_pos)
- {
- return boost::msm::front::Or_<
- decltype(boost::msm::front::puml::detail::parse_guard_simple(
- [=]() {return boost::msm::front::puml::detail::cleanup_token(guard_func().substr(0, last_or_pos)); })),
- decltype(boost::msm::front::puml::detail::parse_guard_simple(
- [=]() {return boost::msm::front::puml::detail::cleanup_token(guard_func().substr(last_or_pos + 2)); })) > {};
- }
- else if constexpr (parens_begin_pos != std::string::npos && parens_end_pos != std::string::npos &&
- last_and_pos != std::string::npos && parens_end_pos < last_and_pos)
- {
- return boost::msm::front::And_<
- decltype(boost::msm::front::puml::detail::parse_guard_simple(
- [=]() {return boost::msm::front::puml::detail::cleanup_token(guard_func().substr(0, last_and_pos)); })),
- decltype(boost::msm::front::puml::detail::parse_guard_simple(
- [=]() {return boost::msm::front::puml::detail::cleanup_token(guard_func().substr(last_and_pos + 2)); })) > {};
- }
- else if constexpr (parens_begin_pos != std::string::npos && parens_end_pos != std::string::npos &&
- or_pos != std::string::npos && or_pos < and_pos && or_pos < parens_begin_pos)
- {
- return boost::msm::front::Or_<
- decltype(boost::msm::front::puml::detail::parse_guard_simple(
- [=]() {return boost::msm::front::puml::detail::cleanup_token(guard_func().substr(0, or_pos)); })),
- decltype(boost::msm::front::puml::detail::parse_guard_simple(
- [=]() {return boost::msm::front::puml::detail::cleanup_token(guard_func().substr(or_pos + 2)); })) > {};
- }
- else if constexpr (parens_begin_pos != std::string::npos && parens_end_pos != std::string::npos &&
- and_pos != std::string::npos && and_pos < or_pos && and_pos < parens_begin_pos)
- {
- return boost::msm::front::And_<
- decltype(boost::msm::front::puml::detail::parse_guard_simple(
- [=]() {return boost::msm::front::puml::detail::cleanup_token(guard_func().substr(0, and_pos)); })),
- decltype(boost::msm::front::puml::detail::parse_guard_simple(
- [=]() {return boost::msm::front::puml::detail::cleanup_token(guard_func().substr(and_pos + 2)); })) > {};
- }
- else if constexpr (parens_begin_pos != std::string::npos && parens_end_pos != std::string::npos &&
- not_pos != std::string::npos && not_pos < parens_begin_pos)
- {
- return boost::msm::front::Not_<decltype(boost::msm::front::puml::detail::parse_guard_simple(
- [=]() {return boost::msm::front::puml::detail::cleanup_token(guard_func().substr(not_pos + 1)); })) > {};
- }
- else if constexpr (parens_begin_pos != std::string::npos && parens_end_pos != std::string::npos)
- {
- return boost::msm::front::puml::detail::parse_guard_simple(
- [=]() {return boost::msm::front::puml::detail::cleanup_token(guard_func().substr(parens_begin_pos + 1, parens_end_pos - (parens_begin_pos + 1))); });
- }
- else if constexpr (and_pos == std::string::npos && or_pos == std::string::npos && not_pos == std::string::npos)
- {
- return typename boost::msm::front::puml::convert_to_msm_names < Guard <by_name(guard_func())> >::type{};
- }
- // at least one operator, break at pos of the lesser precedence
- else if constexpr (or_pos != std::string::npos)
- {
- return boost::msm::front::Or_<
- decltype(boost::msm::front::puml::detail::parse_guard_simple(
- [=]() {return boost::msm::front::puml::detail::cleanup_token(guard_func().substr(0, or_pos)); })),
- decltype(boost::msm::front::puml::detail::parse_guard_simple(
- [=]() {return boost::msm::front::puml::detail::cleanup_token(guard_func().substr(or_pos + 2)); })) > {};
- }
- else if constexpr (and_pos != std::string::npos)
- {
- return boost::msm::front::And_<
- decltype(boost::msm::front::puml::detail::parse_guard_simple(
- [=]() {return boost::msm::front::puml::detail::cleanup_token(guard_func().substr(0, and_pos)); })),
- decltype(boost::msm::front::puml::detail::parse_guard_simple(
- [=]() {return boost::msm::front::puml::detail::cleanup_token(guard_func().substr(and_pos + 2)); })) > {};
- }
- else
- {
- return boost::msm::front::Not_<decltype(boost::msm::front::puml::detail::parse_guard_simple(
- [=]() {return boost::msm::front::puml::detail::cleanup_token(guard_func().substr(not_pos + 1)); })) > {};
- }
- }
- template <class Func>
- constexpr auto parse_guard_advanced(Func guard_func)
- {
- constexpr auto and_pos = guard_func().find("And(");
- constexpr auto or_pos = guard_func().find("Or(");
- constexpr auto not_pos = guard_func().find("Not(");
- if constexpr (and_pos == std::string::npos && or_pos == std::string::npos && not_pos == std::string::npos)
- {
- return typename boost::msm::front::puml::convert_to_msm_names < Guard <by_name(guard_func())> >::type{};
- }
- // at least one operator, break at pos of the lesser precedence
- else if constexpr (or_pos != std::string::npos)
- {
- constexpr auto comma_pos = guard_func().find(",", or_pos);
- constexpr auto endparens_pos = guard_func().find(")", or_pos);
- return boost::msm::front::Or_<
- decltype(boost::msm::front::puml::detail::parse_guard_advanced(
- [=]() {return boost::msm::front::puml::detail::cleanup_token(guard_func().substr(or_pos + 3, comma_pos - (or_pos + 3))); })),
- decltype(boost::msm::front::puml::detail::parse_guard_advanced(
- [=]() {return boost::msm::front::puml::detail::cleanup_token(guard_func().substr(comma_pos + 1, endparens_pos - (comma_pos + 1))); }))
- > {};
- }
- else if constexpr (and_pos != std::string::npos)
- {
- constexpr auto comma_pos = guard_func().find(",", and_pos);
- constexpr auto endparens_pos = guard_func().find(")", and_pos);
- return boost::msm::front::And_<
- decltype(boost::msm::front::puml::detail::parse_guard_advanced(
- [=]() {return boost::msm::front::puml::detail::cleanup_token(guard_func().substr(and_pos + 4, comma_pos - (and_pos + 4))); })),
- decltype(boost::msm::front::puml::detail::parse_guard_advanced(
- [=]() {return boost::msm::front::puml::detail::cleanup_token(guard_func().substr(comma_pos + 1, endparens_pos - (comma_pos + 1))); }))
- > {};
- }
- else
- {
- constexpr auto endparens_pos = guard_func().find(")", not_pos);
- return boost::msm::front::Not_<
- decltype(boost::msm::front::puml::detail::parse_guard_advanced(
- [=]() {return boost::msm::front::puml::detail::cleanup_token(guard_func().substr(not_pos + 4, endparens_pos - (not_pos + 4))); }))
- > {};
- }
- }
- template <class Func>
- constexpr auto parse_guard(Func guard_func)
- {
- if constexpr (guard_func().find("And(") != std::string::npos ||
- guard_func().find("Or(") != std::string::npos ||
- guard_func().find("Not(") != std::string::npos)
- {
- return boost::msm::front::puml::detail::parse_guard_advanced(guard_func);
- }
- else
- {
- return boost::msm::front::puml::detail::parse_guard_simple(guard_func);
- }
- }
- constexpr int count_terminates(std::string_view s, std::size_t occurrences = 0)
- {
- if (s.empty())
- return occurrences;
- auto star_pos = s.find("[*]");
- auto arrow_pos = s.rfind("->", star_pos);
- auto endl_before_pos = s.rfind("\n", star_pos);
- if (star_pos != std::string::npos &&
- arrow_pos != std::string::npos &&
- arrow_pos > endl_before_pos )
- {
- return count_terminates(s.substr(star_pos + 3), occurrences + 1);
- }
- else if(star_pos != std::string::npos)
- {
- return count_terminates(s.substr(star_pos + 3), occurrences);
- }
- return occurrences;
- };
- template <class Func, class T>
- constexpr auto parse_terminate(Func stt, auto state_name, T vec = T{})
- {
- if constexpr (stt().empty())
- {
- return vec;
- }
- else
- {
- constexpr auto star_pos = stt().find("[*]");
- constexpr auto arrow_pos = stt().rfind("->", star_pos);
- constexpr auto endl_before_pos = stt().rfind("\n", star_pos);
- constexpr auto state_pos = stt().rfind(state_name(), arrow_pos);
- if constexpr (
- star_pos != std::string::npos &&
- arrow_pos != std::string::npos &&
- arrow_pos > endl_before_pos &&
- state_pos != std::string::npos &&
- state_pos > endl_before_pos &&
- cleanup_token(stt().substr(state_pos, arrow_pos - state_pos)) == state_name())
- {
- return
- typename ::boost::mpl::push_back<
- T,
- boost::msm::TerminateFlag
- >::type{};
- }
- else if constexpr (star_pos != std::string::npos)
- {
- return parse_terminate(
- [=]() {return stt().substr(star_pos + 3); },
- state_name,
- vec);
- }
- else
- {
- return vec;
- }
- }
- };
- template <class Func, class T = boost::fusion::vector0<>>
- constexpr auto parse_flags(Func stt, auto state_name, T vec = T{})
- {
- constexpr auto flag_pos = stt().find("flag");
- if constexpr (flag_pos != std::string::npos)
- {
- // we need to handle a flag
- constexpr auto endl_after_flag_pos = stt().find("\n", flag_pos);
- constexpr auto col_pos = stt().rfind(":",flag_pos);
- constexpr auto endl_before_flag_pos = stt().rfind("\n", flag_pos);
- if constexpr (endl_after_flag_pos != std::string::npos)
- {
- // the name start from end of prev line+1 to :
- if constexpr (cleanup_token(stt().substr(endl_before_flag_pos+1,col_pos- (endl_before_flag_pos+1))) == state_name())
- {
- // flag name is from flag tag until endline
- return parse_flags(
- [=]() {return stt().substr(endl_after_flag_pos + 1); },
- state_name,
- typename ::boost::mpl::push_back<
- T,
- typename boost::msm::front::puml::convert_to_msm_names<
- boost::msm::front::puml::Flag< by_name(cleanup_token(stt().substr(flag_pos + 4, endl_after_flag_pos - (flag_pos + 4))))>>::type
- >::type{});
- }
- else
- {
- // check starting from next line
- return parse_flags(
- [=]() {return stt().substr(endl_after_flag_pos + 1); },
- state_name,
- vec);
- }
- }
- else
- {
- // the flag line is the last line of the string so we will end recursion wether we found a flag or not
- if constexpr (cleanup_token(stt().substr(endl_before_flag_pos + 1, col_pos - (endl_before_flag_pos + 1))) == state_name())
- {
- return typename ::boost::mpl::push_back<
- T,
- typename boost::msm::front::puml::convert_to_msm_names<
- boost::msm::front::puml::Flag< by_name(cleanup_token(stt().substr(flag_pos + 4, endl_after_flag_pos - (flag_pos + 4))))>>::type
- >::type{};
- }
- else
- {
- return vec;
- }
- }
- }
- else
- {
- // no flag left, end recursion
- return vec;
- }
- }
- template <class Func, int actions_count, int anum, class T = boost::fusion::vector<>>
- constexpr auto create_action_sequence_helper(Func action_func, T vec = T{})
- {
- // stop condition
- if constexpr (anum >= actions_count)
- {
- return vec;
- }
- else
- {
- return boost::msm::front::puml::detail::create_action_sequence_helper<Func, actions_count, anum + 1>(
- action_func,
- typename ::boost::mpl::push_back<
- T,
- typename boost::msm::front::puml::convert_to_msm_names<
- Action<by_name(boost::msm::front::puml::detail::parse_action<anum>(action_func()))>>::type >::type{});
- }
- }
- template <class Func>
- constexpr auto create_action_sequence(Func action_func)
- {
- return boost::msm::front::puml::detail::create_action_sequence_helper<
- Func, boost::msm::front::puml::detail::count_actions(action_func()), 0>(action_func);
- }
- template <class Func, class T = boost::fusion::vector0<>>
- constexpr auto parse_state_actions(Func stt, auto state_name, auto tag_text, T vec = T{})
- {
- constexpr auto entry_pos = stt().find(std::string_view(tag_text()));
- constexpr auto tag_size = std::string_view(tag_text()).length();
- if constexpr (entry_pos != std::string::npos)
- {
- // we need to handle an entry
- constexpr auto endl_after_entry_pos = stt().find("\n", entry_pos);
- constexpr auto bracket_beg_after_entry_pos = stt().find("[", entry_pos);
- constexpr auto col_pos = stt().rfind(":", entry_pos);
- constexpr auto endl_before_entry_pos = stt().rfind("\n", entry_pos);
- auto make_action_sequence = [](auto actions)
- {
- if constexpr (boost::mpl::size<decltype(actions)>::value == 1)
- return boost::fusion::at_c<0>(actions);
- else if constexpr (boost::mpl::size<decltype(actions)>::value == 0)
- return boost::msm::front::none{};
- else
- return boost::msm::front::ActionSequence_<decltype(actions)>{};
- };
- if constexpr (endl_after_entry_pos != std::string::npos)
- {
- // the name start from end of prev line+1 to :
- if constexpr (by_name(cleanup_token(stt().substr(endl_before_entry_pos + 1, col_pos - (endl_before_entry_pos + 1)))) == by_name(state_name()))
- {
- if constexpr (bracket_beg_after_entry_pos != std::string::npos && bracket_beg_after_entry_pos < endl_after_entry_pos)
- {
- constexpr auto bracket_end_after_entry_pos = stt().find("]", entry_pos);
- auto guard_l = [=]() {return stt().substr(bracket_beg_after_entry_pos +1, bracket_end_after_entry_pos - (bracket_beg_after_entry_pos +1)) ; };
- auto action_l = [=]() {return stt().substr(entry_pos + tag_size, bracket_beg_after_entry_pos - (entry_pos + tag_size)); };
- // action name is from entry tag until [
- return parse_state_actions(
- [=]() {return stt().substr(endl_after_entry_pos + 1); },
- state_name,
- tag_text,
- typename ::boost::mpl::push_back<
- T,
- boost::msm::front::puml::detail::pair_type<
- decltype(make_action_sequence(boost::msm::front::puml::detail::create_action_sequence(action_l))),
- typename boost::msm::front::puml::convert_to_msm_names<
- decltype(boost::msm::front::puml::detail::parse_guard(guard_l))>::type
- >
- >::type{});
- }
- else
- {
- // action name is from entry tag until endline
- auto action_l = [=]() {return stt().substr(entry_pos + tag_size, endl_after_entry_pos - (entry_pos + tag_size)); };
- return parse_state_actions(
- [=]() {return stt().substr(endl_after_entry_pos + 1); },
- state_name,
- tag_text,
- typename ::boost::mpl::push_back<
- T,
- boost::msm::front::puml::detail::pair_type<
- decltype(make_action_sequence(boost::msm::front::puml::detail::create_action_sequence(action_l))),
- typename boost::msm::front::puml::convert_to_msm_names<
- boost::msm::front::puml::Guard<by_name("")>>::type
- >
- >::type{});
- }
- }
- else
- {
- // check starting from next line
- return parse_state_actions(
- [=]() {return stt().substr(endl_after_entry_pos + 1); },
- state_name,
- tag_text,
- vec);
- }
- }
- // last line of string
- else
- {
- // the entry line is the last line of the string so we will end recursion wether we found an entry or not
- if constexpr (by_name(cleanup_token(stt().substr(endl_before_entry_pos + 1, col_pos - (endl_before_entry_pos + 1)))) == by_name(state_name()))
- {
- if constexpr (bracket_beg_after_entry_pos != std::string::npos && bracket_beg_after_entry_pos < endl_after_entry_pos)
- {
- constexpr auto bracket_end_after_entry_pos = stt().find("]", entry_pos);
- auto guard_l = [stt]() {return stt().substr(bracket_beg_after_entry_pos +1, bracket_end_after_entry_pos - (bracket_beg_after_entry_pos +1)) ; };
- // action name is from entry tag until [
- auto action_l = [stt]() {return stt().substr(entry_pos + tag_size, bracket_beg_after_entry_pos - (entry_pos + tag_size)); };
- return
- typename ::boost::mpl::push_back<
- T,
- boost::msm::front::puml::detail::pair_type<
- decltype(make_action_sequence(boost::msm::front::puml::detail::create_action_sequence(action_l))),
- decltype(boost::msm::front::puml::detail::parse_guard(guard_l))
- >
- >::type{};
- }
- else
- {
- auto action_l = [stt]() {return stt().substr(entry_pos + tag_size, endl_after_entry_pos - (entry_pos + tag_size)); };
- return
- typename ::boost::mpl::push_back<
- T,
- boost::msm::front::puml::detail::pair_type <
- decltype(make_action_sequence(boost::msm::front::puml::detail::create_action_sequence(action_l))),
- boost::msm::front::puml::Guard<by_name("")>
- >
- >::type{};
- }
- }
- else
- {
- return vec;
- }
- }
- }
- else
- {
- // no entry left, end recursion
- return vec;
- }
- }
- // recursively fills fusion vector with transition (making a tansition_table)
- template <class Func, int transitions, int tnum, class T = boost::fusion::vector<>>
- constexpr auto create_transition_table_helper(Func stt, T vec = T{})
- {
- // stop condition
- if constexpr (tnum >= transitions)
- {
- return vec;
- }
- else
- {
- auto guard_l = [stt]() {return boost::msm::front::puml::detail::parse_stt<tnum>(stt()).guard; };
- auto action_l = [stt]() {return boost::msm::front::puml::detail::parse_stt<tnum>(stt()).action; };
- auto source_l = [stt]() {return boost::msm::front::puml::detail::parse_stt<tnum>(stt()).source; };
- auto target_l = [stt]() {return boost::msm::front::puml::detail::parse_stt<tnum>(stt()).target; };
- auto stt_l = [stt]() {return std::string_view(stt()); };
- auto entry_l = []() {return "entry"; };
- auto exit_l = []() {return "exit"; };
- auto make_action_sequence = [](auto actions)
- {
- if constexpr (boost::mpl::size<decltype(actions)>::value == 1)
- return boost::fusion::at_c<0>(actions);
- else if constexpr (boost::mpl::size<decltype(actions)>::value == 0)
- return boost::msm::front::none{};
- else
- return boost::msm::front::ActionSequence_<decltype(actions)>{};
- };
- using one_row =
- boost::msm::front::Row <
- State < by_name(boost::msm::front::puml::detail::parse_stt<tnum>(stt()).source),
- decltype(boost::msm::front::puml::detail::parse_terminate(
- stt_l, source_l, boost::msm::front::puml::detail::parse_flags(stt_l,source_l))),
- decltype(parse_state_actions(stt_l,source_l, entry_l)),
- decltype(parse_state_actions(stt_l,source_l, exit_l))
- >,
- typename boost::msm::front::puml::convert_to_msm_names<
- Event< by_name(boost::msm::front::puml::detail::parse_stt<tnum>(stt()).event)>>::type,
- typename boost::msm::front::puml::convert_to_msm_names<
- State< by_name(boost::msm::front::puml::detail::parse_stt<tnum>(stt()).target),
- decltype(boost::msm::front::puml::detail::parse_terminate(
- stt_l, target_l, boost::msm::front::puml::detail::parse_flags(stt_l,target_l))),
- decltype(parse_state_actions(stt_l, target_l, entry_l)),
- decltype(parse_state_actions(stt_l, target_l, exit_l))
- >>::type,
- decltype(make_action_sequence(boost::msm::front::puml::detail::create_action_sequence(action_l))),
- decltype(boost::msm::front::puml::detail::parse_guard(guard_l))
- >;
- return boost::msm::front::puml::detail::create_transition_table_helper<Func, transitions, tnum + 1>(
- stt, typename ::boost::mpl::push_back< T, one_row>::type{});
- }
- }
- template <class Func, int regions, int rnum, class T = boost::fusion::vector<>>
- constexpr auto create_inits_helper(Func stt, T vec = T{})
- {
- // stop condition
- if constexpr (rnum >= regions)
- {
- return vec;
- }
- else
- {
- return boost::msm::front::puml::detail::create_inits_helper<Func, regions, rnum + 1>(
- stt, typename ::boost::mpl::push_back< T, State<by_name(boost::msm::front::puml::detail::parse_inits<rnum>(stt()))> >::type{});
- }
- }
- }//namespace detail
- template <class Func>
- constexpr auto create_transition_table(Func stt_func)
- {
- return boost::msm::front::puml::detail::create_transition_table_helper<
- Func,
- boost::msm::front::puml::detail::count_transitions(
- stt_func()) -
- boost::msm::front::puml::detail::count_inits(stt_func()) -
- boost::msm::front::puml::detail::count_terminates(stt_func())
- , 0>(stt_func);
- }
- template <class Func>
- constexpr auto create_initial_states(Func stt_func)
- {
- return boost::msm::front::puml::detail::create_inits_helper<
- Func,
- boost::msm::front::puml::detail::count_inits(stt_func()), 0>(stt_func);
- }
- template <class Func>
- constexpr auto create_fsm_table(Func stt_func)
- {
- return boost::msm::front::puml::detail::pair_type <
- decltype(
- boost::msm::front::puml::detail::create_transition_table_helper<
- Func,
- boost::msm::front::puml::detail::count_transitions(
- stt_func()) -
- boost::msm::front::puml::detail::count_inits(stt_func()) -
- boost::msm::front::puml::detail::count_terminates(stt_func())
- , 0>(stt_func)),
- decltype(
- boost::msm::front::puml::detail::create_inits_helper<
- Func,
- boost::msm::front::puml::detail::count_inits(stt_func()), 0>(stt_func))>{};
- }
- }//boost::msm::front::puml
- // helper macro to hide declarations
- #define BOOST_MSM_PUML_DECLARE_TABLE(stt) \
- using Stt = decltype(create_fsm_table([]() {return stt;})); \
- using transition_table = typename Stt::first; \
- using initial_state = typename Stt::second;
- #endif // BOOST_MSM_FRONT_PUML_COMMON_H
|