QtCollider/primitives/primitives.h

   1 /************************************************************************
   2 *
   3 * Copyright 2010 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 struct LangPrimitiveData {
  33   PrimitiveHandler mediator;
  34   char *name;
  35   int argc;
  36 };
  37
  38 typedef QList<LangPrimitiveData> LangPrimitiveList;
  39
  40 LangPrimitiveList& langPrimitives();
  41
  42 template <int FN( PyrSlot*, PyrSlot*, VMGlobals* )>
  43 class LangPrimitive
  44 {
  45 public:
  46   LangPrimitive ( const char *name, int argc ) {
  47     LangPrimitiveData d;
  48     d.mediator = &mediate;
  49     d.name = strdup(name);
  50     d.argc = argc;
  51     langPrimitives().append( d );
  52   }
  53 private:
  54   static int mediate( VMGlobals *g, int i ) {
  55     PyrSlot *stack = g->sp - i + 1;
  56     int ret = (*FN)( stack, i > 1 ? stack+1 : 0, g );
  57     return ret;
  58   }
  59 };
  60
  61 } // namespace
  62
  63 #define QC_LANG_PRIMITIVE( name, argc, receiver, args, global ) \
  64   int name ( receiver, args, global ); \
  65   static QtCollider::LangPrimitive<&name> p_##name( "_" #name, argc ); \
  66   int name ( receiver, args, global )