The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#include "model/nonterminal_rules/wfe.h"
#include <cassert>

#include "model/terminal_rules/ATOMIC.h"
#include "model/terminal_rules/BINARY_OPERATOR.h"
#include "model/terminal_rules/LEFT_PAREN.h"
#include "model/terminal_rules/RIGHT_PAREN.h"
#include "model/terminal_rules/UNARY_OPERATOR.h"

#include <list>

using namespace std;

// ---------------------------------------------------------------------------

class wfe::match_1 : public Rule_List
{
  friend class wfe;

  match_1()
  {
    push_back(new wfe);
    push_back(new BINARY_OPERATOR);
    push_back(new wfe);
  }

};

// ---------------------------------------------------------------------------

class wfe::match_2 : public Rule_List
{
  friend class wfe;

  match_2()
  {
    push_back(new LEFT_PAREN);
    push_back(new wfe);
    push_back(new RIGHT_PAREN);
  }

};

// ---------------------------------------------------------------------------

class wfe::match_3 : public Rule_List
{
  friend class wfe;

  match_3()
  {
    push_back(new UNARY_OPERATOR);
    push_back(new wfe);
  }

};

// ---------------------------------------------------------------------------

class wfe::match_4 : public Rule_List
{
  friend class wfe;

  match_4()
  {
    push_back(new ATOMIC);
  }

};

// ---------------------------------------------------------------------------

wfe* wfe::Clone() const
{
  return new wfe(*this);
}

// ---------------------------------------------------------------------------

void wfe::Initialize(const unsigned int in_allowed_length, const Rule *in_previous_rule)
{
  list<Rule_List*>::iterator a_rule_list;
  for(a_rule_list = m_rule_lists.begin();
      a_rule_list != m_rule_lists.end();
      a_rule_list++)
    delete *a_rule_list;

  m_rule_lists.clear();

#ifndef DISABLE_PRODUCTION_LENGTH_OPTIMIZATION
  if (in_allowed_length >= 1)
#endif // DISABLE_PRODUCTION_LENGTH_OPTIMIZATION
    m_rule_lists.push_back(new match_1);

#ifndef DISABLE_PRODUCTION_LENGTH_OPTIMIZATION
  if (in_allowed_length >= 2)
#endif // DISABLE_PRODUCTION_LENGTH_OPTIMIZATION
    m_rule_lists.push_back(new match_2);

#ifndef DISABLE_PRODUCTION_LENGTH_OPTIMIZATION
  if (in_allowed_length >= 1)
#endif // DISABLE_PRODUCTION_LENGTH_OPTIMIZATION
    m_rule_lists.push_back(new match_3);

#ifndef DISABLE_PRODUCTION_LENGTH_OPTIMIZATION
  if (in_allowed_length == 1)
#endif // DISABLE_PRODUCTION_LENGTH_OPTIMIZATION
    m_rule_lists.push_back(new match_4);

  Nonterminal_Rule::Initialize(in_allowed_length, in_previous_rule);
}