QtCollider/primitives/primitives.h

   1 /************************************************************************
   2 *
   3 * Copyright 2010-2012 Jakob Leben (jakob.leben@gmail.com)
   4 *
   5 * This file is part of SuperCollider Qt GUI.
   6 *
   7 * This program is free software: you can redistribute it and/or modify
   8 * it under the terms of the GNU General Public License as published by
   9 * the Free Software Foundation, either version 3 of the License, or
  10 * (at your option) any later version.
  11 *
  12 * This program is distributed in the hope that it will be useful,
  13 * but WITHOUT ANY WARRANTY; without even the implied warranty of
  14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15 * GNU General Public License for more details.
  16 *
  17 * You should have received a copy of the GNU General Public License
  18 * along with this program.  If not, see <http://www.gnu.org/licenses/>.
  19 *
  20 ************************************************************************/
  21
  22 #include <PyrPrimitive.h>
  23 #include <VMGlobals.h>
  24 #include <PyrSlot.h>
  25
  26 #include <QList>
  27
  28 #include <cstring>
  29
  30 namespace QtCollider {
  31
  32 template <typename T>
  33 struct LangPrimitive
  34 {
  35 };
  36
  37 class LangPrimitiveDefiner
  38 {
  39 public:
  40   LangPrimitiveDefiner() :
  41     _base( nextPrimitiveIndex() ), _index(0)
  42   {}
  43
  44   template<typename T>
  45   void define()
  46   {
  47     LangPrimitive<T>::define( _base, _index++ );
  48   }
  49
  50 private:
  51   int _base;
  52   int _index;
  53 };
  54
  55
  56 } // namespace
  57
  58 #define QC_LANG_PRIMITIVE( NAME, ARGC, RECEIVER, ARGS, GLOBAL ) \
  59   struct NAME {}; \
  60   template<> struct LangPrimitive <NAME> { \
  61       static int implementation ( RECEIVER, ARGS, GLOBAL ); \
  62       static int mediate( VMGlobals *g, int i ) { \
  63           PyrSlot *stack = g->sp - i + 1; \
  64           return implementation( stack, i > 1 ? stack+1 : 0, g ); \
  65       } \
  66       static void define( int base, int index ) { \
  67           definePrimitive( base, index, "_" #NAME, &mediate, ARGC + 1, 0 ); \
  68       } \
  69   }; \
  70   int LangPrimitive<NAME>::implementation( RECEIVER, ARGS, GLOBAL )
  71
  72 #if 0
  73 #define QC_LANG_PRIMITIVE( name, argc, receiver, args, global ) \
  74   int name ( receiver, args, global ); \
  75   static QtCollider::LangPrimitive<&name> p_##name( "_" #name, argc ); \
  76   int name ( receiver, args, global )
  77 #endif