variable/logical_operator.cpp

   1 #include <fridh/symbol.hpp>
   2
   3 namespace fridh
   4 {
   5 #define LOGICAL_OPERATOR(name, description, operator) \
   6         void variable::name(variable const & argument, variable & output) \
   7         { \
   8                 bool \
   9                         left_value, \
  10                         right_value; \
  11                 if(get_boolean_value(left_value) && argument.get_boolean_value(right_value)) \
  12                         output.new_boolean(left_value operator right_value); \
  13                 else \
  14                         unary_argument_type_error(description, type); \
  15         }
  16
  17         LOGICAL_OPERATOR(logical_and, "Logical and", &&)
  18         LOGICAL_OPERATOR(logical_or, "Logical or", ||)
  19 }