interpreter/unit.cpp

   1 #include <fridh/symbol.hpp>
   2
   3 namespace fridh
   4 {
   5         executable_unit::executable_unit():
   6                 type(executable_unit_type::uninitialised)
   7         {
   8         }
   9
  10         executable_unit::executable_unit(executable_unit const & other)
  11         {
  12                 copy(other);
  13         }
  14
  15         executable_unit::~executable_unit()
  16         {
  17                 destroy();
  18         }
  19
  20         executable_unit & executable_unit::operator=(executable_unit const & other)
  21         {
  22                 destroy();
  23                 copy(other);
  24                 return *this;
  25         }
  26
  27         void executable_unit::copy(executable_unit const & other)
  28         {
  29 #define COPY_MEMBER(type, member_type, member) \
  30                 case executable_unit_type::type: \
  31                         member = new member_type(*other.member); \
  32                         break;
  33
  34                 type = other.type;
  35
  36                 switch(other.type)
  37                 {
  38                         COPY_MEMBER(statement, parse_tree_node, statement_pointer)
  39                         COPY_MEMBER(return_statement, parse_tree_node, statement_pointer)
  40                         COPY_MEMBER(if_statement, if_statement, if_pointer)
  41                         COPY_MEMBER(if_else_statement, if_else_statement, if_else_pointer)
  42                         COPY_MEMBER(for_each_statement, for_each_statement, for_each_pointer)
  43                         COPY_MEMBER(for_statement, for_statement, for_pointer)
  44                         COPY_MEMBER(while_statement, while_statement, while_pointer)
  45                 }
  46
  47 #undef COPY_MEMBER
  48
  49         }
  50
  51         void executable_unit::destroy()
  52         {
  53
  54 #define DELETE_MEMBER(type, member) \
  55                         case executable_unit_type::type: \
  56                                 delete member; \
  57                                 break;
  58
  59                 switch(type)
  60                 {
  61                         DELETE_MEMBER(statement, statement_pointer)
  62                         DELETE_MEMBER(return_statement, statement_pointer)
  63                         DELETE_MEMBER(if_statement, if_pointer)
  64                         DELETE_MEMBER(if_else_statement, if_else_pointer)
  65                         DELETE_MEMBER(for_each_statement, for_each_pointer)
  66                         DELETE_MEMBER(for_statement, for_pointer)
  67                         DELETE_MEMBER(while_statement, while_pointer)
  68                 }
  69
  70 #undef DELETE_MEMBER
  71
  72         }
  73 }