SystemCallTan.cpp

Go to the documentation of this file.

#ifndef _MADARA_NO_KARL_

#include <math.h>

#include "madara/expression/LeafNode.h"
#include "madara/expression/SystemCallTan.h"
#include "madara/knowledge/ThreadSafeContext.h"
#include "madara/expression/Visitor.h"


madara::expression::SystemCallTan::SystemCallTan (
  madara::knowledge::ThreadSafeContext & context,
  const ComponentNodes & nodes)
  : SystemCallNode (context, nodes)
{

}

// Dtor
madara::expression::SystemCallTan::~SystemCallTan (void)
{
}

madara::knowledge::KnowledgeRecord
madara::expression::SystemCallTan::item (void) const
{
  return madara::knowledge::KnowledgeRecord (nodes_.size ());
}

madara::knowledge::KnowledgeRecord
madara::expression::SystemCallTan::prune (bool & can_change)
{
  madara::knowledge::KnowledgeRecord result;

  if (nodes_.size () == 1)
  {
    bool arg_can_change = false;
    result = knowledge::KnowledgeRecord (
         tan (nodes_[0]->prune (arg_can_change).to_double ()));

    if (!arg_can_change && dynamic_cast <LeafNode *> (nodes_[0]) == 0)
    {
      delete nodes_[0];
      nodes_[0] = new LeafNode (*(this->logger_), result);
    }

    can_change = can_change || arg_can_change;
  }
  else
  {
    std::stringstream args;

    for (unsigned int i = 0; i < nodes_.size (); ++i)
    {
      if (nodes_[i])
      {
        bool unused = false;
        args << nodes_[i]->prune (unused).to_double ();

        if (i != nodes_.size () - 1)
          args << ",";
      }
      else
      {
        madara_logger_ptr_log (logger_, logger::LOG_ERROR,
          "KARL COMPILE ERROR: System call tan encountered a null arg at %d\n",
          i);
      }
    }

    madara_logger_ptr_log (logger_, logger::LOG_EMERGENCY,
      "KARL COMPILE ERROR: System call tan requires 1 argument,"
      "e.g., #tan (1.5), where 1.5 is radians. Args currently are: %s\n",
      args.str ().c_str ());
  }

  return result;
}

madara::knowledge::KnowledgeRecord
madara::expression::SystemCallTan::evaluate (
const madara::knowledge::KnowledgeUpdateSettings & settings)
{
  knowledge::KnowledgeRecord return_value;

  if (nodes_.size () == 1)
  {
    madara_logger_ptr_log (logger_, logger::LOG_MINOR,
      "System call tan is returning the tangent "
      "of its first argument\n");

    return_value = knowledge::KnowledgeRecord (
           tan (nodes_[0]->evaluate (settings).to_double ()));
  }
  else
  {
    madara_logger_ptr_log (logger_, logger::LOG_EMERGENCY,
      "KARL RUNTIME ERROR: System call tan requires 1 argument,"
      " e.g., #tan (1.5), where 1.5 is radians\n");
  }

  return return_value;
}

// accept a visitor
void
madara::expression::SystemCallTan::accept (
madara::expression::Visitor &visitor) const
{
  visitor.visit (*this);
}

#endif // _MADARA_NO_KARL_