source/astexpr_relational.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 #include <cmath>
  20
  21 #include "astexprs.h"
  22 #include "shapesexceptions.h"
  23 #include "lighttypes.h"
  24
  25 using namespace Shapes;
  26 using namespace std;
  27
  28
  29 RefCountPtr< const Lang::Value >
  30 Ast::LessExpr::impl( DUMMYANDREF( const Lang::Symbol ) arg1, DUMMYANDREF( const Lang::Symbol ) arg2, const Kernel::PassedDyn & dyn ) const
  31 {
  32         return RefCountPtr< const Lang::Value >( new Lang::Boolean( *arg1 < *arg2 ) );
  33 }
  34
  35 RefCountPtr< const Lang::Value >
  36 Ast::LessExpr::impl( DUMMYANDREF( const Lang::Float ) arg1, DUMMYANDREF( const Lang::Float ) arg2, const Kernel::PassedDyn & dyn ) const
  37 {
  38         return RefCountPtr< const Lang::Value >( new Lang::Boolean( arg1->val_ < arg2->val_ ) );
  39 }
  40
  41 RefCountPtr< const Lang::Value >
  42 Ast::LessExpr::impl( DUMMYANDREF( const Lang::Integer ) arg1, DUMMYANDREF( const Lang::Integer ) arg2, const Kernel::PassedDyn & dyn ) const
  43 {
  44         return RefCountPtr< const Lang::Value >( new Lang::Boolean( arg1->val_ < arg2->val_ ) );
  45 }
  46
  47 RefCountPtr< const Lang::Value >
  48 Ast::LessExpr::impl( DUMMYANDREF( const Lang::Character ) arg1, DUMMYANDREF( const Lang::Character ) arg2, const Kernel::PassedDyn & dyn ) const
  49 {
  50         return RefCountPtr< const Lang::Value >( new Lang::Boolean( arg1->val_ < arg2->val_ ) );
  51 }
  52
  53 RefCountPtr< const Lang::Value >
  54 Ast::LessExpr::impl( DUMMYANDREF( const Lang::Length ) arg1, DUMMYANDREF( const Lang::Length ) arg2, const Kernel::PassedDyn & dyn ) const
  55 {
  56         return RefCountPtr< const Lang::Value >( new Lang::Boolean( arg1->get( ) < arg2->get( ) ) );
  57 }
  58
  59 RefCountPtr< const Lang::Value >
  60 Ast::LessExpr::impl( DUMMYANDREF( const Lang::Coords2D ) arg1, DUMMYANDREF( const Lang::Coords2D ) arg2, const Kernel::PassedDyn & dyn ) const
  61 {
  62         Lang::PathPoint2D * res = new Lang::PathPoint2D( arg2 );
  63         res->rear_ = arg1;
  64         return Kernel::ValueRef( res );
  65 }
  66
  67 RefCountPtr< const Lang::Value >
  68 Ast::LessExpr::impl( DUMMYANDREF( const Lang::Coords2D ) arg1, DUMMYANDREF( const Lang::PathPoint2D ) arg2, const Kernel::PassedDyn & dyn ) const
  69 {
  70         Lang::PathPoint2D * res = new Lang::PathPoint2D( *arg2 );
  71         if( res->rear_.getPtr( ) != 0 )
  72                 {
  73                         throw Exceptions::OutOfRange( this->loc( ), strrefdup( "Pathpoint already has a rear handle" ) );
  74                 }
  75         res->rear_ = arg1;
  76         return Kernel::ValueRef( res );
  77 }
  78
  79 RefCountPtr< const Lang::Value >
  80 Ast::LessExpr::impl( DUMMYANDREF( const Lang::Coords2D ) arg1, DUMMYANDREF( const Lang::PathSlider2D ) arg2, const Kernel::PassedDyn & dyn ) const
  81 {
  82         if( arg2->getRear( ) != NullPtr< const Lang::Value >( ) )
  83                 {
  84                         throw Exceptions::OutOfRange( this->loc( ), strrefdup( "Slider already has a rear handle" ) );
  85                 }
  86         return Kernel::ValueRef( new Lang::PathSlider2D_rear( *arg2, arg1 ) );
  87 }
  88
  89 RefCountPtr< const Lang::Value >
  90 Ast::LessExpr::impl( DUMMYANDREF( const Lang::PolarHandleBase ) arg1, DUMMYANDREF( const Lang::Coords2D ) arg2, const Kernel::PassedDyn & dyn ) const
  91 {
  92         Lang::PathPoint2D * res = new Lang::PathPoint2D( arg2 );
  93         res->rear_ = arg1;
  94         return Kernel::ValueRef( res );
  95 }
  96
  97 RefCountPtr< const Lang::Value >
  98 Ast::LessExpr::impl( DUMMYANDREF( const Lang::PolarHandleBase ) arg1, DUMMYANDREF( const Lang::PathPoint2D ) arg2, const Kernel::PassedDyn & dyn ) const
  99 {
 100         Lang::PathPoint2D * res = new Lang::PathPoint2D( *arg2 );
 101         if( res->rear_.getPtr( ) != 0 )
 102                 {
 103                         throw Exceptions::OutOfRange( this->loc( ), strrefdup( "Pathpoint already has a rear handle" ) );
 104                 }
 105         res->rear_ = arg1;
 106         return Kernel::ValueRef( res );
 107 }
 108
 109 RefCountPtr< const Lang::Value >
 110 Ast::LessExpr::impl( DUMMYANDREF( const Lang::PolarHandleBase ) arg1, DUMMYANDREF( const Lang::PathSlider2D ) arg2, const Kernel::PassedDyn & dyn ) const
 111 {
 112         if( arg2->getRear( ) != NullPtr< const Lang::Value >( ) )
 113                 {
 114                         throw Exceptions::OutOfRange( this->loc( ), strrefdup( "Slider already has a rear handle" ) );
 115                 }
 116         return Kernel::ValueRef( new Lang::PathSlider2D_rear( *arg2, arg1 ) );
 117 }
 118
 119 RefCountPtr< const Lang::Value >
 120 Ast::LessExpr::impl( DUMMYANDREF( const Lang::CornerCoords2D ) arg1, DUMMYANDREF( const Lang::Coords2D ) arg2, const Kernel::PassedDyn & dyn ) const
 121 {
 122         throw Exceptions::MiscellaneousRequirement( strrefdup( "A handle mustn't have a default angle." ) );
 123 }
 124
 125 RefCountPtr< const Lang::Value >
 126 Ast::LessExpr::impl( DUMMYANDREF( const Lang::CornerCoords2D ) arg1, DUMMYANDREF( const Lang::PathPoint2D ) arg2, const Kernel::PassedDyn & dyn ) const
 127 {
 128         throw Exceptions::MiscellaneousRequirement( strrefdup( "A handle mustn't have a default angle." ) );
 129 }
 130
 131 RefCountPtr< const Lang::Value >
 132 Ast::LessExpr::impl( DUMMYANDREF( const Lang::Coords3D ) arg1, DUMMYANDREF( const Lang::Coords3D ) arg2, const Kernel::PassedDyn & dyn ) const
 133 {
 134         Lang::PathPoint3D * res = new Lang::PathPoint3D( arg2 );
 135         res->rear_ = arg1;
 136         return Kernel::ValueRef( res );
 137 }
 138
 139 RefCountPtr< const Lang::Value >
 140 Ast::LessExpr::impl( DUMMYANDREF( const Lang::Coords3D ) arg1, DUMMYANDREF( const Lang::PathPoint3D ) arg2, const Kernel::PassedDyn & dyn ) const
 141 {
 142         Lang::PathPoint3D * res = new Lang::PathPoint3D( *arg2 );
 143         if( res->rear_.getPtr( ) != 0 )
 144                 {
 145                         throw Exceptions::OutOfRange( this->loc( ), strrefdup( "Pathpoint already has a rear handle" ) );
 146                 }
 147         res->rear_ = arg1;
 148         return Kernel::ValueRef( res );
 149 }
 150
 151 RefCountPtr< const Lang::Value >
 152 Ast::LessExpr::impl( DUMMYANDREF( const Lang::Coords3D ) arg1, DUMMYANDREF( const Lang::PathSlider3D ) arg2, const Kernel::PassedDyn & dyn ) const
 153 {
 154         if( arg2->getRear( ) != NullPtr< const Lang::Value >( ) )
 155                 {
 156                         throw Exceptions::OutOfRange( this->loc( ), strrefdup( "Slider already has a rear handle" ) );
 157                 }
 158         return Kernel::ValueRef( new Lang::PathSlider3D_rear( *arg2, arg1 ) );
 159 }
 160
 161
 162 RefCountPtr< const Lang::Value >
 163 Ast::GreaterExpr::impl( DUMMYANDREF( const Lang::Symbol ) arg1, DUMMYANDREF( const Lang::Symbol ) arg2, const Kernel::PassedDyn & dyn ) const
 164 {
 165         return RefCountPtr< const Lang::Value >( new Lang::Boolean( *arg1 > *arg2 ) );
 166 }
 167
 168 RefCountPtr< const Lang::Value >
 169 Ast::GreaterExpr::impl( DUMMYANDREF( const Lang::Float ) arg1, DUMMYANDREF( const Lang::Float ) arg2, const Kernel::PassedDyn & dyn ) const
 170 {
 171         return RefCountPtr< const Lang::Value >( new Lang::Boolean( arg1->val_ > arg2->val_ ) );
 172 }
 173
 174 RefCountPtr< const Lang::Value >
 175 Ast::GreaterExpr::impl( DUMMYANDREF( const Lang::Integer ) arg1, DUMMYANDREF( const Lang::Integer ) arg2, const Kernel::PassedDyn & dyn ) const
 176 {
 177         return RefCountPtr< const Lang::Value >( new Lang::Boolean( arg1->val_ > arg2->val_ ) );
 178 }
 179
 180 RefCountPtr< const Lang::Value >
 181 Ast::GreaterExpr::impl( DUMMYANDREF( const Lang::Character ) arg1, DUMMYANDREF( const Lang::Character ) arg2, const Kernel::PassedDyn & dyn ) const
 182 {
 183         return RefCountPtr< const Lang::Value >( new Lang::Boolean( arg1->val_ > arg2->val_ ) );
 184 }
 185
 186 RefCountPtr< const Lang::Value >
 187 Ast::GreaterExpr::impl( DUMMYANDREF( const Lang::Length ) arg1, DUMMYANDREF( const Lang::Length ) arg2, const Kernel::PassedDyn & dyn ) const
 188 {
 189         return RefCountPtr< const Lang::Value >( new Lang::Boolean( arg1->get( ) > arg2->get( ) ) );
 190 }
 191
 192 RefCountPtr< const Lang::Value >
 193 Ast::GreaterExpr::impl( DUMMYANDREF( const Lang::Coords2D ) arg1, DUMMYANDREF( const Lang::Coords2D ) arg2, const Kernel::PassedDyn & dyn ) const
 194 {
 195         Lang::PathPoint2D * res = new Lang::PathPoint2D( arg1 );
 196         res->front_ = arg2;
 197         return Kernel::ValueRef( res );
 198 }
 199
 200 RefCountPtr< const Lang::Value >
 201 Ast::GreaterExpr::impl( DUMMYANDREF( const Lang::PathPoint2D ) arg1, DUMMYANDREF( const Lang::Coords2D ) arg2, const Kernel::PassedDyn & dyn ) const
 202 {
 203         Lang::PathPoint2D * res = new Lang::PathPoint2D( *arg1 );
 204         if( res->front_.getPtr( ) != 0 )
 205                 {
 206                         throw Exceptions::OutOfRange( this->loc( ), strrefdup( "Pathpoint already has a front handle" ) );
 207                 }
 208         res->front_ = arg2;
 209         return Kernel::ValueRef( res );
 210 }
 211
 212 RefCountPtr< const Lang::Value >
 213 Ast::GreaterExpr::impl( DUMMYANDREF( const Lang::PathSlider2D ) arg1, DUMMYANDREF( const Lang::Coords2D ) arg2, const Kernel::PassedDyn & dyn ) const
 214 {
 215         if( arg1->getFront( ) != NullPtr< const Lang::Value >( ) )
 216                 {
 217                         throw Exceptions::OutOfRange( this->loc( ), strrefdup( "Slider already has a front handle" ) );
 218                 }
 219         return Kernel::ValueRef( new Lang::PathSlider2D_front( *arg1, arg2 ) );
 220 }
 221
 222 RefCountPtr< const Lang::Value >
 223 Ast::GreaterExpr::impl( DUMMYANDREF( const Lang::Coords2D ) arg1, DUMMYANDREF( const Lang::PolarHandleBase ) arg2, const Kernel::PassedDyn & dyn ) const
 224 {
 225         Lang::PathPoint2D * res = new Lang::PathPoint2D( arg1 );
 226         res->front_ = arg2;
 227         return Kernel::ValueRef( res );
 228 }
 229
 230 RefCountPtr< const Lang::Value >
 231 Ast::GreaterExpr::impl( DUMMYANDREF( const Lang::PathPoint2D ) arg1, DUMMYANDREF( const Lang::PolarHandleBase ) arg2, const Kernel::PassedDyn & dyn ) const
 232 {
 233         Lang::PathPoint2D * res = new Lang::PathPoint2D( *arg1 );
 234         if( res->front_.getPtr( ) != 0 )
 235                 {
 236                         throw Exceptions::OutOfRange( this->loc( ), strrefdup( "Pathpoint already has a front handle" ) );
 237                 }
 238         res->front_ = arg2;
 239         return Kernel::ValueRef( res );
 240 }
 241
 242 RefCountPtr< const Lang::Value >
 243 Ast::GreaterExpr::impl( DUMMYANDREF( const Lang::PathSlider2D ) arg1, DUMMYANDREF( const Lang::PolarHandleBase ) arg2, const Kernel::PassedDyn & dyn ) const
 244 {
 245         if( arg1->getFront( ) != NullPtr< const Lang::Value >( ) )
 246                 {
 247                         throw Exceptions::OutOfRange( this->loc( ), strrefdup( "Slider already has a front handle" ) );
 248                 }
 249         return Kernel::ValueRef( new Lang::PathSlider2D_front( *arg1, arg2 ) );
 250 }
 251
 252 RefCountPtr< const Lang::Value >
 253 Ast::GreaterExpr::impl( DUMMYANDREF( const Lang::Coords2D ) arg1, DUMMYANDREF( const Lang::CornerCoords2D ) arg2, const Kernel::PassedDyn & dyn ) const
 254 {
 255         throw Exceptions::MiscellaneousRequirement( strrefdup( "A handle mustn't have a default angle." ) );
 256 }
 257
 258 RefCountPtr< const Lang::Value >
 259 Ast::GreaterExpr::impl( DUMMYANDREF( const Lang::PathPoint2D ) arg1, DUMMYANDREF( const Lang::CornerCoords2D ) arg2, const Kernel::PassedDyn & dyn ) const
 260 {
 261         throw Exceptions::MiscellaneousRequirement( strrefdup( "A handle mustn't have a default angle." ) );
 262 }
 263
 264 RefCountPtr< const Lang::Value >
 265 Ast::GreaterExpr::impl( DUMMYANDREF( const Lang::Coords3D ) arg1, DUMMYANDREF( const Lang::Coords3D ) arg2, const Kernel::PassedDyn & dyn ) const
 266 {
 267         Lang::PathPoint3D * res = new Lang::PathPoint3D( arg1 );
 268         res->front_ = arg2;
 269         return Kernel::ValueRef( res );
 270 }
 271
 272 RefCountPtr< const Lang::Value >
 273 Ast::GreaterExpr::impl( DUMMYANDREF( const Lang::PathPoint3D ) arg1, DUMMYANDREF( const Lang::Coords3D ) arg2, const Kernel::PassedDyn & dyn ) const
 274 {
 275         Lang::PathPoint3D * res = new Lang::PathPoint3D( *arg1 );
 276         if( res->front_.getPtr( ) != 0 )
 277                 {
 278                         throw Exceptions::OutOfRange( this->loc( ), strrefdup( "Pathpoint already has a front handle" ) );
 279                 }
 280         res->front_ = arg2;
 281         return Kernel::ValueRef( res );
 282 }
 283
 284 RefCountPtr< const Lang::Value >
 285 Ast::GreaterExpr::impl( DUMMYANDREF( const Lang::PathSlider3D ) arg1, DUMMYANDREF( const Lang::Coords3D ) arg2, const Kernel::PassedDyn & dyn ) const
 286 {
 287         if( arg1->getFront( ) != NullPtr< const Lang::Value >( ) )
 288                 {
 289                         throw Exceptions::OutOfRange( this->loc( ), strrefdup( "Slider already has a front handle" ) );
 290                 }
 291         return Kernel::ValueRef( new Lang::PathSlider3D_front( *arg1, arg2 ) );
 292 }
 293
 294
 295 RefCountPtr< const Lang::Value >
 296 Ast::EqualExpr::impl( DUMMYANDREF( const Lang::Symbol ) arg1, DUMMYANDREF( const Lang::Symbol ) arg2, const Kernel::PassedDyn & dyn ) const
 297 {
 298         return RefCountPtr< const Lang::Value >( new Lang::Boolean( *arg1 == *arg2 ) );
 299 }
 300
 301 RefCountPtr< const Lang::Value >
 302 Ast::EqualExpr::impl( DUMMYANDREF( const Lang::Float ) arg1, DUMMYANDREF( const Lang::Float ) arg2, const Kernel::PassedDyn & dyn ) const
 303 {
 304         return RefCountPtr< const Lang::Value >( new Lang::Boolean( arg1->val_ == arg2->val_ ) );
 305 }
 306
 307 RefCountPtr< const Lang::Value >
 308 Ast::EqualExpr::impl( DUMMYANDREF( const Lang::Integer ) arg1, DUMMYANDREF( const Lang::Integer ) arg2, const Kernel::PassedDyn & dyn ) const
 309 {
 310         return RefCountPtr< const Lang::Value >( new Lang::Boolean( arg1->val_ == arg2->val_ ) );
 311 }
 312
 313 RefCountPtr< const Lang::Value >
 314 Ast::EqualExpr::impl( DUMMYANDREF( const Lang::Character ) arg1, DUMMYANDREF( const Lang::Character ) arg2, const Kernel::PassedDyn & dyn ) const
 315 {
 316         return RefCountPtr< const Lang::Value >( new Lang::Boolean( arg1->val_ == arg2->val_ ) );
 317 }
 318
 319 RefCountPtr< const Lang::Value >
 320 Ast::EqualExpr::impl( DUMMYANDREF( const Lang::Length ) arg1, DUMMYANDREF( const Lang::Length ) arg2, const Kernel::PassedDyn & dyn ) const
 321 {
 322         return RefCountPtr< const Lang::Value >( new Lang::Boolean( arg1->get( ) == arg2->get( ) ) );
 323 }
 324
 325 RefCountPtr< const Lang::Value >
 326 Ast::EqualExpr::impl( DUMMYANDREF( const Lang::Class ) arg1, DUMMYANDREF( const Lang::Class ) arg2, const Kernel::PassedDyn & dyn ) const
 327 {
 328         return RefCountPtr< const Lang::Value >( new Lang::Boolean( arg1 == arg2 ) );
 329 }
 330
 331 RefCountPtr< const Lang::Value >
 332 Ast::EqualExpr::impl( DUMMYANDREF( const Lang::Function ) arg1, DUMMYANDREF( const Lang::Function ) arg2, const Kernel::PassedDyn & dyn ) const
 333 {
 334         return RefCountPtr< const Lang::Value >( new Lang::Boolean( arg1 == arg2 ) ); /* Compare pointers (!). */
 335 }
 336
 337
 338 RefCountPtr< const Lang::Value >
 339 Ast::NotEqualExpr::impl( DUMMYANDREF( const Lang::Symbol ) arg1, DUMMYANDREF( const Lang::Symbol ) arg2, const Kernel::PassedDyn & dyn ) const
 340 {
 341         return RefCountPtr< const Lang::Value >( new Lang::Boolean( *arg1 != *arg2 ) );
 342 }
 343
 344 RefCountPtr< const Lang::Value >
 345 Ast::NotEqualExpr::impl( DUMMYANDREF( const Lang::Float ) arg1, DUMMYANDREF( const Lang::Float ) arg2, const Kernel::PassedDyn & dyn ) const
 346 {
 347         return RefCountPtr< const Lang::Value >( new Lang::Boolean( arg1->val_ != arg2->val_ ) );
 348 }
 349
 350 RefCountPtr< const Lang::Value >
 351 Ast::NotEqualExpr::impl( DUMMYANDREF( const Lang::Integer ) arg1, DUMMYANDREF( const Lang::Integer ) arg2, const Kernel::PassedDyn & dyn ) const
 352 {
 353         return RefCountPtr< const Lang::Value >( new Lang::Boolean( arg1->val_ != arg2->val_ ) );
 354 }
 355
 356 RefCountPtr< const Lang::Value >
 357 Ast::NotEqualExpr::impl( DUMMYANDREF( const Lang::Character ) arg1, DUMMYANDREF( const Lang::Character ) arg2, const Kernel::PassedDyn & dyn ) const
 358 {
 359         return RefCountPtr< const Lang::Value >( new Lang::Boolean( arg1->val_ != arg2->val_ ) );
 360 }
 361
 362 RefCountPtr< const Lang::Value >
 363 Ast::NotEqualExpr::impl( DUMMYANDREF( const Lang::Length ) arg1, DUMMYANDREF( const Lang::Length ) arg2, const Kernel::PassedDyn & dyn ) const
 364 {
 365         return RefCountPtr< const Lang::Value >( new Lang::Boolean( arg1->get( ) != arg2->get( ) ) );
 366 }
 367
 368 RefCountPtr< const Lang::Value >
 369 Ast::NotEqualExpr::impl( DUMMYANDREF( const Lang::Class ) arg1, DUMMYANDREF( const Lang::Class ) arg2, const Kernel::PassedDyn & dyn ) const
 370 {
 371         return RefCountPtr< const Lang::Value >( new Lang::Boolean( arg1 != arg2 ) );
 372 }
 373
 374 RefCountPtr< const Lang::Value >
 375 Ast::NotEqualExpr::impl( DUMMYANDREF( const Lang::Function ) arg1, DUMMYANDREF( const Lang::Function ) arg2, const Kernel::PassedDyn & dyn ) const
 376 {
 377         return RefCountPtr< const Lang::Value >( new Lang::Boolean( arg1 != arg2 ) ); /* Compare pointers (!). */
 378 }
 379
 380
 381 RefCountPtr< const Lang::Value >
 382 Ast::LessEqualExpr::impl( DUMMYANDREF( const Lang::Symbol ) arg1, DUMMYANDREF( const Lang::Symbol ) arg2, const Kernel::PassedDyn & dyn ) const
 383 {
 384         return RefCountPtr< const Lang::Value >( new Lang::Boolean( *arg1 <= *arg2 ) );
 385 }
 386
 387 RefCountPtr< const Lang::Value >
 388 Ast::LessEqualExpr::impl( DUMMYANDREF( const Lang::Float ) arg1, DUMMYANDREF( const Lang::Float ) arg2, const Kernel::PassedDyn & dyn ) const
 389 {
 390         return RefCountPtr< const Lang::Value >( new Lang::Boolean( arg1->val_ <= arg2->val_ ) );
 391 }
 392
 393 RefCountPtr< const Lang::Value >
 394 Ast::LessEqualExpr::impl( DUMMYANDREF( const Lang::Integer ) arg1, DUMMYANDREF( const Lang::Integer ) arg2, const Kernel::PassedDyn & dyn ) const
 395 {
 396         return RefCountPtr< const Lang::Value >( new Lang::Boolean( arg1->val_ <= arg2->val_ ) );
 397 }
 398
 399 RefCountPtr< const Lang::Value >
 400 Ast::LessEqualExpr::impl( DUMMYANDREF( const Lang::Character ) arg1, DUMMYANDREF( const Lang::Character ) arg2, const Kernel::PassedDyn & dyn ) const
 401 {
 402         return RefCountPtr< const Lang::Value >( new Lang::Boolean( arg1->val_ <= arg2->val_ ) );
 403 }
 404
 405 RefCountPtr< const Lang::Value >
 406 Ast::LessEqualExpr::impl( DUMMYANDREF( const Lang::Length ) arg1, DUMMYANDREF( const Lang::Length ) arg2, const Kernel::PassedDyn & dyn ) const
 407 {
 408         return RefCountPtr< const Lang::Value >( new Lang::Boolean( arg1->get( ) <= arg2->get( ) ) );
 409 }
 410
 411
 412 RefCountPtr< const Lang::Value >
 413 Ast::GreaterEqualExpr::impl( DUMMYANDREF( const Lang::Symbol ) arg1, DUMMYANDREF( const Lang::Symbol ) arg2, const Kernel::PassedDyn & dyn ) const
 414 {
 415         return RefCountPtr< const Lang::Value >( new Lang::Boolean( *arg1 >= *arg2 ) );
 416 }
 417
 418 RefCountPtr< const Lang::Value >
 419 Ast::GreaterEqualExpr::impl( DUMMYANDREF( const Lang::Float ) arg1, DUMMYANDREF( const Lang::Float ) arg2, const Kernel::PassedDyn & dyn ) const
 420 {
 421         return RefCountPtr< const Lang::Value >( new Lang::Boolean( arg1->val_ >= arg2->val_ ) );
 422 }
 423
 424 RefCountPtr< const Lang::Value >
 425 Ast::GreaterEqualExpr::impl( DUMMYANDREF( const Lang::Integer ) arg1, DUMMYANDREF( const Lang::Integer ) arg2, const Kernel::PassedDyn & dyn ) const
 426 {
 427         return RefCountPtr< const Lang::Value >( new Lang::Boolean( arg1->val_ >= arg2->val_ ) );
 428 }
 429
 430 RefCountPtr< const Lang::Value >
 431 Ast::GreaterEqualExpr::impl( DUMMYANDREF( const Lang::Character ) arg1, DUMMYANDREF( const Lang::Character ) arg2, const Kernel::PassedDyn & dyn ) const
 432 {
 433         return RefCountPtr< const Lang::Value >( new Lang::Boolean( arg1->val_ >= arg2->val_ ) );
 434 }
 435
 436 RefCountPtr< const Lang::Value >
 437 Ast::GreaterEqualExpr::impl( DUMMYANDREF( const Lang::Length ) arg1, DUMMYANDREF( const Lang::Length ) arg2, const Kernel::PassedDyn & dyn ) const
 438 {
 439         return RefCountPtr< const Lang::Value >( new Lang::Boolean( arg1->get( ) >= arg2->get( ) ) );
 440 }
 441
 442
 443 RefCountPtr< const Lang::Value >
 444 Ast::AndExpr::impl( DUMMYANDREF( const Lang::Boolean ) arg1, DUMMYANDREF( const Lang::Boolean ) arg2, const Kernel::PassedDyn & dyn ) const
 445 {
 446         return RefCountPtr< const Lang::Value >( new Lang::Boolean( arg1->val_ && arg2->val_ ) );
 447 }
 448
 449
 450 RefCountPtr< const Lang::Value >
 451 Ast::OrExpr::impl( DUMMYANDREF( const Lang::Boolean ) arg1, DUMMYANDREF( const Lang::Boolean ) arg2, const Kernel::PassedDyn & dyn ) const
 452 {
 453         return RefCountPtr< const Lang::Value >( new Lang::Boolean( arg1->val_ || arg2->val_ ) );
 454 }
 455
 456
 457 RefCountPtr< const Lang::Value >
 458 Ast::XorExpr::impl( DUMMYANDREF( const Lang::Boolean ) arg1, DUMMYANDREF( const Lang::Boolean ) arg2, const Kernel::PassedDyn & dyn ) const
 459 {
 460         return RefCountPtr< const Lang::Value >( new Lang::Boolean( arg1->val_ ^ arg2->val_ ) );
 461 }