source/shapesvalue.cc

   1 #include "shapesvalue.h"
   2 #include "shapesexceptions.h"
   3 #include "consts.h"
   4 #include "classtreemacros.h"
   5
   6 #if DISPATCHSTYLE == DISPATCHSTYLE_VOID
   7 #include "globals.h"
   8 #elif DISPATCHSTYLE == DISPATCHSTYLE_CASE
   9 #include "astexpr.h"
  10 #endif
  11
  12 using namespace Shapes;
  13
  14
  15 Lang::Value::Value( )
  16         : node_( 0 )
  17 { }
  18
  19 Lang::Value::~Value( )
  20 { }
  21
  22 DISPATCHBASEIMPL
  23
  24 Kernel::VariableHandle
  25 Lang::Value::getField( const char * fieldID, const RefCountPtr< const Lang::Value > & selfRef ) const
  26 {
  27         throw Exceptions::ElementaryWithout( Exceptions::ElementaryWithout::VALUE, Exceptions::ElementaryWithout::FIELD, getTypeName( ) );
  28 }
  29
  30 void
  31 Lang::Value::show( std::ostream & os ) const
  32 {
  33         os << "(unable to display)" ;
  34 }
  35
  36 /*
  37 RefCountPtr< const Lang::Value >
  38 Lang::Value::transformed( const Shapes::Transform & transform, Kernel::ValueRef self ) const
  39 {
  40         throw Exceptions::CoreTypeMismatch( strrefdup( "<transform>" ), 1, this->getTypeName( ), Shapes::SEVERAL_TYPES );
  41 }
  42
  43 RefCountPtr< const Lang::Value >
  44 Lang::Value::transformed( const Lang::Transform3D & transform, Kernel::ValueRef self ) const
  45 {
  46         throw Exceptions::CoreTypeMismatch( strrefdup( "<transform3D>" ), 1, this->getTypeName( ), Shapes::SEVERAL_TYPES );
  47 }
  48 */
  49
  50 RefCountPtr< const char >
  51 Lang::Value::getTypeName( ) const
  52 {
  53         return this->getClass( )->getPrettyName( );
  54 }
  55
  56
  57 DISPATCHIMPL( NoOperatorOverloadValue );
  58
  59 DISPATCHIMPL( NoOperatorOverloadGeometric2D );
  60
  61
  62 //RefCountPtr< const Lang::Class > Lang::NoOperatorOverloadValue::TypeID( new Lang::SystemFinalClass( strrefdup( "NonDispatching" ) ) );
  63 //TYPEINFOIMPL( NoOperatorOverloadValue );
  64
  65 RefCountPtr< const Lang::Class > Lang::Geometric2D::TypeID = NullPtr< const Lang::Class >( );   /* The value is set in main */
  66 TYPEINFOIMPL( Geometric2D );
  67
  68 RefCountPtr< const Lang::Class > Lang::Geometric3D::TypeID = NullPtr< const Lang::Class >( );   /* The value is set in main */
  69 TYPEINFOIMPL( Geometric3D );
  70
  71
  72 Kernel::VariableHandle
  73 Helpers::newValHandle( const Lang::Value * val )
  74 {
  75         return Kernel::VariableHandle( new Kernel::Variable( RefCountPtr< const Lang::Value >( val ) ) );
  76 }
  77