source/dispatch_case.h

   1 /* This file is part of Shapes.
   2  *
   3  * Shapes is free software: you can redistribute it and/or modify
   4  * it under the terms of the GNU General Public License as published by
   5  * the Free Software Foundation, either version 3 of the License, or
   6  * any later version.
   7  *
   8  * Shapes is distributed in the hope that it will be useful,
   9  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  10  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  11  * GNU General Public License for more details.
  12  *
  13  * You should have received a copy of the GNU General Public License
  14  * along with Shapes.  If not, see <http://www.gnu.org/licenses/>.
  15  *
  16  * Copyright 2008 Henrik Tidefelt
  17  */
  18
  19 #define UNARYDISPATCHCASE( T )\
  20         case ::Shapes::Kernel::TYPEID_ ## T :                                                            \
  21         {\
  22                 RefCountPtr< const ::Shapes::Lang::T > arg = self.down_cast< const ::Shapes::Lang::T >( ); \
  23                 if( arg == NullPtr< const ::Shapes::Lang::T >( ) )                                                                                                                              \
  24                         {\
  25                                 throw Exceptions::InternalError( strrefdup( "Downcast in unary dispatch failed, " #T ) ); \
  26                         }\
  27                 return op->op( arg, dyn ); \
  28         }\
  29         break;
  30
  31 #define UNARYDISPATCHBASEDECL static RefCountPtr< const Lang::Value > unaryDispatch( RefCountPtr< const Lang::Value > self, const Kernel::PassedDyn & dyn, const Shapes::Ast::UnaryExpr * op );
  32
  33 #define UNARYDISPATCHBASEIMPL \
  34         RefCountPtr< const Lang::Value >                                                                                                                                \
  35         Lang::Value::unaryDispatch( RefCountPtr< const Lang::Value > self, const Kernel::PassedDyn & dyn, const Shapes::Ast::UnaryExpr * op ) \
  36 {\
  37         switch( self->getTypeID( ) )\
  38                 {\
  39                         SINGLELOOP1( CLASSTREE1_ROOT, UNARYDISPATCHCASE );                                                              \
  40                 default:\
  41                         throw Exceptions::InternalError( strrefdup( "QuickTypeID out of range in unary dispatch." ) ); \
  42                 }\
  43 }
  44
  45 #define UNARYDISPATCHDECL
  46
  47 #define UNARYDISPATCHIMPL( T )
  48
  49
  50 #define BINARYDISPATCHCASE_LEVEL1( T1 )\
  51         case ::Shapes::Kernel::TYPEID_ ## T1 :                                                           \
  52         {\
  53                 RefCountPtr< const ::Shapes::Lang::T1 > arg1 = self.down_cast< const ::Shapes::Lang::T1 >( ); \
  54                 if( arg1 == NullPtr< const ::Shapes::Lang::T1 >( ) )                                                                                            \
  55                         {\
  56                                 throw Exceptions::InternalError( strrefdup( "Downcast in binary dispatch level 1 failed, " #T1 ) ); \
  57                         }\
  58                 return binaryDispatch2( arg1, other, dyn, op ); \
  59         }\
  60         break;
  61
  62 #define BINARYDISPATCH2CASE_LEVEL2( T2 )\
  63         case ::Shapes::Kernel::TYPEID_ ## T2 :                                                           \
  64         {\
  65                 RefCountPtr< const ::Shapes::Lang::T2 > arg2 = other.down_cast< const ::Shapes::Lang::T2 >( ); \
  66                 if( arg2 == NullPtr< const ::Shapes::Lang::T2 >( ) )                                                                                            \
  67                         {\
  68                                 throw Exceptions::InternalError( strrefdup( "Downcast in binary dispatch level 2 failed, " #T2 ) ); \
  69                         }\
  70                 return op->op( arg1, arg2, dyn ); \
  71         }\
  72         break;
  73
  74 #define BINARYDISPATCH2CASE_LEVEL1( T1 )\
  75         RefCountPtr< const Lang::Value >                                                                                                                                \
  76         Lang::Value::binaryDispatch2( RefCountPtr< const ::Shapes::Lang::T1 > arg1, RefCountPtr< const Lang::Value > other, const Kernel::PassedDyn & dyn, const ::Shapes::Ast::BinaryInfixExpr * op ) \
  77 {\
  78         switch( other->getTypeID( ) )                                                                                                                                                                                           \
  79                 {                                                                                                                                                                                                                                                                                               \
  80                         SINGLELOOP2( CLASSTREE2_ROOT, BINARYDISPATCH2CASE_LEVEL2 );                             \
  81                 default:                                                                                                                                                                                                                                                                \
  82                         throw Exceptions::InternalError( strrefdup( "QuickTypeID out of range in binary dispatch level 2." ) ); \
  83                 }                                                                                                                                                                                                                                                                                               \
  84 }
  85
  86
  87 #define BINARYDISPATCH2DECL( T ) static RefCountPtr< const Lang::Value > binaryDispatch2( RefCountPtr< const ::Shapes::Lang::T > self, RefCountPtr< const Lang::Value > other, const Kernel::PassedDyn & dyn, const ::Shapes::Ast::BinaryInfixExpr * op );
  88
  89 #define BINARYDISPATCHBASEDECL \
  90         static RefCountPtr< const Lang::Value > binaryDispatch1( RefCountPtr< const Lang::Value > self, RefCountPtr< const Lang::Value > other, const Kernel::PassedDyn & dyn, const ::Shapes::Ast::BinaryInfixExpr * op ); \
  91         SINGLELOOP1( CLASSTREE1_ROOT, BINARYDISPATCH2DECL )
  92
  93 #define BINARYDISPATCHBASEIMPL \
  94         RefCountPtr< const Lang::Value >                                                                                                                                \
  95         Lang::Value::binaryDispatch1( RefCountPtr< const Lang::Value > self, RefCountPtr< const Lang::Value > other, const Kernel::PassedDyn & dyn, const ::Shapes::Ast::BinaryInfixExpr * op ) \
  96 {\
  97         switch( self->getTypeID( ) )\
  98                 {\
  99                         SINGLELOOP1( CLASSTREE1_ROOT, BINARYDISPATCHCASE_LEVEL1 );                                                              \
 100                 default:\
 101                         throw Exceptions::InternalError( strrefdup( "QuickTypeID out of range in binary dispatch level 1." ) ); \
 102                 }\
 103 }\
 104         SINGLELOOP1( CLASSTREE1_ROOT, BINARYDISPATCH2CASE_LEVEL1 )
 105
 106 #define BINARYDISPATCHDECL
 107
 108 #define BINARYDISPATCHIMPL( Ts )