lang/LangPrimSource/PyrSymbolPrim.cpp

   1 /*
   2         SuperCollider real time audio synthesis system
   3     Copyright (c) 2002 James McCartney. All rights reserved.
   4         http://www.audiosynth.com
   5
   6     This program is free software; you can redistribute it and/or modify
   7     it under the terms of the GNU General Public License as published by
   8     the Free Software Foundation; either version 2 of the License, or
   9     (at your option) any later version.
  10
  11     This program is distributed in the hope that it will be useful,
  12     but WITHOUT ANY WARRANTY; without even the implied warranty of
  13     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14     GNU General Public License for more details.
  15
  16     You should have received a copy of the GNU General Public License
  17     along with this program; if not, write to the Free Software
  18     Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301  USA
  19 */
  20 /*
  21
  22 Primitives for Symbol.
  23
  24 */
  25
  26 #include <string.h>
  27 #include <stdlib.h>
  28 #include "PyrPrimitive.h"
  29 #include "PyrSymbol.h"
  30 #include "VMGlobals.h"
  31 #include "PyrKernel.h"
  32 #include "SCBase.h"
  33
  34 /*
  35 int prSymbolString(struct VMGlobals *g, int numArgsPushed);
  36 int prSymbolString(struct VMGlobals *g, int numArgsPushed)
  37 {
  38         PyrSlot *a;
  39         PyrString *string;
  40
  41         a = g->sp;
  42         if (NotSym(a)) return errWrongType;
  43         string = newPyrString(g->gc, slotRawSymbol(a)->name, 0, true);
  44         SetObject(a, string);
  45         return errNone;
  46 }
  47 */
  48
  49 int prSymbolIsPrefix(struct VMGlobals *g, int numArgsPushed);
  50 int prSymbolIsPrefix(struct VMGlobals *g, int numArgsPushed)
  51 {
  52         PyrSlot *a, *b;
  53         int length;
  54
  55         a = g->sp - 1;
  56         b = g->sp;
  57         if (!IsSym(a) || !IsSym(b)) return errWrongType;
  58         int32 alen = slotRawSymbol(a)->length;
  59         int32 blen = slotRawSymbol(b)->length;
  60         length = sc_min(alen, blen);
  61         if (memcmp(slotRawSymbol(a)->name, slotRawSymbol(b)->name, length) == 0) {
  62                 SetTrue(a);
  63         } else {
  64                 SetFalse(a);
  65         }
  66         return errNone;
  67 }
  68
  69 int prSymbolClass(struct VMGlobals *g, int numArgsPushed);
  70 int prSymbolClass(struct VMGlobals *g, int numArgsPushed)
  71 {
  72         PyrSlot *a;
  73         PyrClass *classobj;
  74         //char firstChar;
  75
  76         a = g->sp;
  77         if (slotRawSymbol(a)->flags & sym_Class) {
  78         //firstChar = slotRawSymbol(a)->name[0];
  79         //if (firstChar >= 'A' && firstChar <= 'Z') {
  80                 classobj = slotRawSymbol(a)->u.classobj;
  81                 if (classobj) {
  82                         SetObject(a, classobj);
  83                 } else {
  84                         SetNil(a);
  85                 }
  86         } else {
  87                 SetNil(a);
  88         }
  89         return errNone;
  90 }
  91
  92 int prSymbolIsSetter(struct VMGlobals *g, int numArgsPushed);
  93 int prSymbolIsSetter(struct VMGlobals *g, int numArgsPushed)
  94 {
  95         PyrSlot *a;
  96
  97         a = g->sp;
  98         if (slotRawSymbol(a)->flags & sym_Setter) {
  99                 SetTrue(a);
 100         } else {
 101                 SetFalse(a);
 102         }
 103         return errNone;
 104 }
 105
 106 int prSymbolAsSetter(struct VMGlobals *g, int numArgsPushed);
 107 int prSymbolAsSetter(struct VMGlobals *g, int numArgsPushed)
 108 {
 109         PyrSlot *a;
 110         char str[256];
 111         int len;
 112
 113         a = g->sp;
 114         if (!(slotRawSymbol(a)->flags & sym_Setter)) {
 115                 if ((slotRawSymbol(a)->flags & sym_Class) || (slotRawSymbol(a)->flags & sym_Primitive)) {
 116                         error("Cannot convert class names or primitive names to setters.\n");
 117                         return errFailed;
 118                 }
 119                 if (strlen(slotRawSymbol(a)->name)>255) {
 120                         error("symbol name too long.\n");
 121                         return errFailed;
 122                 }
 123                 strcpy(str, slotRawSymbol(a)->name);
 124                 len = strlen(str);
 125                 str[len] = '_';
 126                 str[len+1] = 0;
 127
 128                 //postfl("prSymbolAsSetter %s\n", str);
 129                 SetRaw(a, getsym(str));
 130         }
 131         return errNone;
 132 }
 133
 134 int prSymbolAsGetter(struct VMGlobals *g, int numArgsPushed);
 135 int prSymbolAsGetter(struct VMGlobals *g, int numArgsPushed)
 136 {
 137         PyrSlot *a;
 138         char str[256];
 139
 140         a = g->sp;
 141         if ((slotRawSymbol(a)->flags & sym_Setter)) {
 142                 if ((slotRawSymbol(a)->flags & sym_Class) || (slotRawSymbol(a)->flags & sym_Primitive)) {
 143                         error("Cannot convert class names or primitive names to getters.\n");
 144                         return errFailed;
 145                 }
 146                 strcpy(str, slotRawSymbol(a)->name);
 147                 str[strlen(str)-1] = 0;
 148                 //postfl("prSymbolAsGetter %s\n", str);
 149                 SetRaw(a, getsym(str));
 150         }
 151         return errNone;
 152 }
 153
 154 int prSymbolIsClassName(struct VMGlobals *g, int numArgsPushed);
 155 int prSymbolIsClassName(struct VMGlobals *g, int numArgsPushed)
 156 {
 157         PyrSlot *a;
 158
 159         a = g->sp;
 160         if (slotRawSymbol(a)->flags & sym_Class) {
 161                 SetTrue(a);
 162         } else {
 163                 SetFalse(a);
 164         }
 165         return errNone;
 166 }
 167
 168 int prSymbolIsMetaClassName(struct VMGlobals *g, int numArgsPushed);
 169 int prSymbolIsMetaClassName(struct VMGlobals *g, int numArgsPushed)
 170 {
 171         PyrSlot *a;
 172
 173         a = g->sp;
 174         if (slotRawSymbol(a)->flags & sym_MetaClass) {
 175                 SetTrue(a);
 176         } else {
 177                 SetFalse(a);
 178         }
 179         return errNone;
 180 }
 181
 182 int prSymbol_AsInteger(struct VMGlobals *g, int numArgsPushed);
 183 int prSymbol_AsInteger(struct VMGlobals *g, int numArgsPushed)
 184 {
 185         PyrSlot *a = g->sp;
 186
 187         char *str = slotRawSymbol(a)->name;
 188         SetInt(a, atoi(str));
 189
 190         return errNone;
 191 }
 192
 193 int prSymbol_PrimitiveIndex(struct VMGlobals *g, int numArgsPushed);
 194 int prSymbol_PrimitiveIndex(struct VMGlobals *g, int numArgsPushed)
 195 {
 196         PyrSlot *a = g->sp;
 197
 198         SetInt(a, slotRawSymbol(a)->u.index);
 199
 200         return errNone;
 201 }
 202
 203 int prSymbol_SpecialIndex(struct VMGlobals *g, int numArgsPushed);
 204 int prSymbol_SpecialIndex(struct VMGlobals *g, int numArgsPushed)
 205 {
 206         PyrSlot *a = g->sp;
 207
 208         SetInt(a, slotRawSymbol(a)->specialIndex);
 209
 210         return errNone;
 211 }
 212
 213
 214 int prSymbol_AsFloat(struct VMGlobals *g, int numArgsPushed);
 215 int prSymbol_AsFloat(struct VMGlobals *g, int numArgsPushed)
 216 {
 217         PyrSlot *a = g->sp;
 218
 219         char *str = slotRawSymbol(a)->name;
 220         SetFloat(a, atof(str));
 221
 222         return errNone;
 223 }
 224
 225 int prSymbol_matchOSCPattern(struct VMGlobals *g, int numArgsPushed);
 226 int prSymbol_matchOSCPattern(struct VMGlobals *g, int numArgsPushed)
 227 {
 228         PyrSlot *a, *b;
 229         int length;
 230
 231         a = g->sp - 1;
 232         b = g->sp;
 233         if (!IsSym(a) || !IsSym(b)) return errWrongType;
 234 //      int32 alen = slotRawSymbol(a)->length;
 235 //      int32 blen = slotRawSymbol(b)->length;
 236 //      length = sc_min(alen, blen);
 237         if (lo_pattern_match(slotRawSymbol(a)->name, slotRawSymbol(b)->name)) {
 238                 SetTrue(a);
 239         } else {
 240                 SetFalse(a);
 241         }
 242         return errNone;
 243 }
 244
 245
 246
 247
 248 void initSymbolPrimitives();
 249 void initSymbolPrimitives()
 250 {
 251         int base, index = 0;
 252
 253         base = nextPrimitiveIndex();
 254
 255         definePrimitive(base, index++, "_SymbolIsPrefix", prSymbolIsPrefix, 2, 0);
 256         //definePrimitive(base, index++, "_SymbolString", prSymbolString, 1, 0);
 257         definePrimitive(base, index++, "_SymbolClass", prSymbolClass, 1, 0);
 258         definePrimitive(base, index++, "_SymbolIsClassName", prSymbolIsClassName, 1, 0);
 259         definePrimitive(base, index++, "_SymbolIsMetaClassName", prSymbolIsMetaClassName, 1, 0);
 260         definePrimitive(base, index++, "_SymbolIsSetter", prSymbolIsSetter, 1, 0);
 261         definePrimitive(base, index++, "_SymbolAsSetter", prSymbolAsSetter, 1, 0);
 262         definePrimitive(base, index++, "_SymbolAsGetter", prSymbolAsGetter, 1, 0);
 263         definePrimitive(base, index++, "_Symbol_AsInteger", prSymbol_AsInteger, 1, 0);
 264         definePrimitive(base, index++, "_Symbol_PrimitiveIndex", prSymbol_PrimitiveIndex, 1, 0);
 265         definePrimitive(base, index++, "_Symbol_SpecialIndex", prSymbol_SpecialIndex, 1, 0);
 266         definePrimitive(base, index++, "_Symbol_AsFloat", prSymbol_AsFloat, 1, 0);
 267         definePrimitive(base, index++, "_Symbol_matchOSCPattern", prSymbol_matchOSCPattern, 2, 0);
 268
 269 }
 270
 271
 272 #if _SC_PLUGINS_
 273
 274 #include "SCPlugin.h"
 275
 276 // export the function that SC will call to load the plug in.
 277 #pragma export on
 278 extern "C" { SCPlugIn* loadPlugIn(void); }
 279 #pragma export off
 280
 281
 282 // define plug in object
 283 class APlugIn : public SCPlugIn
 284 {
 285 public:
 286         APlugIn();
 287         virtual ~APlugIn();
 288
 289         virtual void AboutToCompile();
 290 };
 291
 292 APlugIn::APlugIn()
 293 {
 294         // constructor for plug in
 295 }
 296
 297 APlugIn::~APlugIn()
 298 {
 299         // destructor for plug in
 300 }
 301
 302 void APlugIn::AboutToCompile()
 303 {
 304         // this is called each time the class library is compiled.
 305         initSymbolPrimitives();
 306 }
 307
 308 // This function is called when the plug in is loaded into SC.
 309 // It returns an instance of APlugIn.
 310 SCPlugIn* loadPlugIn()
 311 {
 312         return new APlugIn();
 313 }
 314
 315 #endif
 316