interpreter/function.cpp

   1 #include <map>
   2 #include <fridh/symbol.hpp>
   3
   4 namespace fridh
   5 {
   6         parse_tree_node::parse_tree_node():
   7                 type(parse_tree_node_type::uninitialised)
   8         {
   9         }
  10
  11         parse_tree_node::parse_tree_node(parse_tree_node_type::type type):
  12                 type(type)
  13         {
  14         }
  15
  16         parse_tree_node::parse_tree_node(variable * variable_pointer):
  17                 type(parse_tree_node_type::variable),
  18                 variable_pointer(variable_pointer)
  19         {
  20         }
  21
  22         parse_tree_node::parse_tree_node(unary_operator_type::type unary_operator):
  23                 type(parse_tree_node_type::unary_operator_node)
  24         {
  25                 unary_operator_pointer = new parse_tree_unary_operator_node;
  26                 unary_operator_pointer->type = unary_operator;
  27         }
  28
  29         parse_tree_node::parse_tree_node(binary_operator_type::type binary_operator):
  30                 type(parse_tree_node_type::binary_operator_node)
  31         {
  32                 binary_operator_pointer = new parse_tree_binary_operator_node;
  33                 binary_operator_pointer->type = binary_operator;
  34         }
  35
  36         parse_tree_node::parse_tree_node(parse_tree_nodes & elements):
  37                 type(parse_tree_node_type::array)
  38         {
  39                 array_pointer = new parse_tree_array;
  40                 array_pointer->elements = elements;
  41         }
  42
  43         void parse_tree_node::is_call()
  44         {
  45                 type = parse_tree_node_type::call;
  46                 call_pointer = new parse_tree_call;
  47         }
  48
  49         bool parse_tree_node::is_post_fix() const
  50         {
  51                 if(type != parse_tree_node_type::unary_operator_node)
  52                         throw ail::exception("Tried to retrieve post fix node properties of a non-post-fix node");
  53
  54                 unary_operator_type::type unary_type = unary_operator_pointer->type;
  55                 return
  56                         unary_type == unary_operator_type::increment ||
  57                         unary_type == unary_operator_type::decrement
  58                 ;
  59         }
  60
  61         parse_tree_symbol::parse_tree_symbol():
  62                 type(symbol_prefix::none)
  63         {
  64         }
  65 }