source/units_obsolete.cc

   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         class UserLength : public Expression
  20         {
  21                 Ast::SourceLocation loc;
  22                 double val;
  23                 const char * unit;
  24         public:
  25                 UserLength( const Ast::SourceLocation & _loc, double _val, const char * _unit );
  26                 virtual ~UserLength( );
  27                 virtual void eval( Kernel::EvalState * evalState ) const;
  28                 virtual const Ast::SourceLocation & firstLoc( ) const;
  29                 virtual const Ast::SourceLocation & lastLoc( ) const;
  30         };
  31
  32         class IntroduceUnitStmt : public Expression
  33         {
  34                 Ast::SourceLocation idLoc;
  35                 const char * id;
  36                 Ast::Expression * expr;
  37         public:
  38                 IntroduceUnitStmt( const Ast::SourceLocation & _idLoc, const char * _id, Ast::Expression * _expr );
  39                 virtual ~IntroduceUnitStmt( );
  40                 virtual void eval( Kernel::EvalState * evalState ) const;
  41                 virtual const Ast::SourceLocation & firstLoc( ) const;
  42                 virtual const Ast::SourceLocation & lastLoc( ) const;
  43         };
  44
  45
  46
  47
  48 Shapes::UserLength::UserLength( const Ast::SourceLocation & _loc, double _val, const char * _unit )
  49         : loc( _loc ), val( _val ), unit( _unit )
  50 { }
  51
  52 Shapes::UserLength::~UserLength( )
  53 {
  54         delete unit;
  55 }
  56
  57 void
  58 Shapes::UserLength::eval( Kernel::EvalState * evalState ) const
  59 {
  60         Kernel::ContRef cont = evalState->cont_;
  61         (*cont)( Kernel::ValueRef( new Lang::Length( val * evalState->env->lookupUnit( loc, unit ) ) ),
  62                                          evalState );
  63 }
  64
  65 const Ast::SourceLocation &
  66 Shapes::UserLength::firstLoc( ) const
  67 {
  68         return loc;
  69 }
  70
  71 const Ast::SourceLocation &
  72 Shapes::UserLength::lastLoc( ) const
  73 {
  74         return loc;
  75 }
  76
  77
  78 Shapes::IntroduceUnitStmt::IntroduceUnitStmt( const Ast::SourceLocation & _idLoc, const char * _id, Ast::Expression * _expr )
  79         : idLoc( _idLoc ), id( _id ), expr( _expr )
  80 { }
  81
  82 Shapes::IntroduceUnitStmt::~IntroduceUnitStmt( )
  83 {
  84         delete id;
  85         delete expr;
  86 }
  87
  88 RefCountPtr< const Lang::Value >
  89 Shapes::IntroduceUnitStmt::value( Kernel::VariableHandle dstgroup, SimplePDF::PDF_out * pdfo, Kernel::GraphicsState * metaState, Kernel::PassedEnv env ) const
  90 {
  91         RefCountPtr< const Lang::Value > untypedVal = expr->value( dstgroup, pdfo, metaState, env );
  92         typedef const Lang::Length ArgType;
  93         ArgType * val = dynamic_cast< ArgType * >( untypedVal.getPtr( ) );
  94         if( val == 0 )
  95                 {
  96                         throw Exceptions::TypeMismatch( expr, untypedVal->getTypeName( ), ArgType::staticTypeName( ) );
  97                 }
  98         env->defineUnit( idLoc, id, val->getVal( ) );
  99         return Shapes::THE_VOID;
 100 }
 101
 102 const Ast::SourceLocation &
 103 Shapes::IntroduceUnitStmt::firstLoc( ) const
 104 {
 105         return idLoc;
 106 }
 107
 108 const Ast::SourceLocation &
 109 Shapes::IntroduceUnitStmt::lastLoc( ) const
 110 {
 111         return expr->lastLoc( );
 112 }
 113
 114
 115 Shapes::AssignUnitStmt::AssignUnitStmt( const Ast::SourceLocation & _idLoc, const char * _id, Ast::Expression * _expr )
 116         : idLoc( _idLoc ), id( _id ), expr( _expr )
 117 { }
 118
 119 Shapes::AssignUnitStmt::~AssignUnitStmt( )
 120 {
 121         delete id;
 122         delete expr;
 123 }
 124
 125 RefCountPtr< const Lang::Value >
 126 Shapes::AssignUnitStmt::value( Kernel::VariableHandle dstgroup, SimplePDF::PDF_out * pdfo, Kernel::GraphicsState * metaState, Kernel::PassedEnv env ) const
 127 {
 128         RefCountPtr< const Lang::Value > untypedVal = expr->value( dstgroup, pdfo, metaState, env );
 129         typedef const Lang::Length ArgType;
 130         ArgType * val = dynamic_cast< ArgType * >( untypedVal.getPtr( ) );
 131         if( val == 0 )
 132                 {
 133                         throw Exceptions::TypeMismatch( expr, untypedVal->getTypeName( ), ArgType::staticTypeName( ) );
 134                 }
 135         env->redefineUnit( idLoc, id, val->getVal( ) );
 136         return Shapes::THE_VOID;
 137 }
 138
 139 const Ast::SourceLocation &
 140 Shapes::AssignUnitStmt::firstLoc( ) const
 141 {
 142         return idLoc;
 143 }
 144
 145 const Ast::SourceLocation &
 146 Shapes::AssignUnitStmt::lastLoc( ) const
 147 {
 148         return expr->lastLoc( );
 149 }
 150