lang/LangPrimSource/PyrCharPrim.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 Char.
  23
  24 */
  25
  26 #include <ctype.h>
  27 #include "PyrPrimitive.h"
  28 #include "VMGlobals.h"
  29
  30
  31 int prToLower(struct VMGlobals *g, int numArgsPushed);
  32 int prToLower(struct VMGlobals *g, int numArgsPushed)
  33 {
  34         PyrSlot *a;
  35
  36         a = g->sp;
  37
  38         SetRawChar(a, tolower(slotRawChar(a)));
  39
  40         return errNone;
  41 }
  42
  43 int prToUpper(struct VMGlobals *g, int numArgsPushed);
  44 int prToUpper(struct VMGlobals *g, int numArgsPushed)
  45 {
  46         PyrSlot *a;
  47
  48         a = g->sp;
  49
  50         SetRawChar(a, toupper(slotRawChar(a)));
  51
  52         return errNone;
  53 }
  54
  55 int prIsAlpha(struct VMGlobals *g, int numArgsPushed);
  56 int prIsAlpha(struct VMGlobals *g, int numArgsPushed)
  57 {
  58         PyrSlot *a;
  59
  60         a = g->sp;
  61
  62         if (isalpha(slotRawChar(a))) { SetTrue(a); }
  63         else { SetFalse(a); }
  64
  65         return errNone;
  66 }
  67
  68 int prIsAlphaNum(struct VMGlobals *g, int numArgsPushed);
  69 int prIsAlphaNum(struct VMGlobals *g, int numArgsPushed)
  70 {
  71         PyrSlot *a;
  72
  73         a = g->sp;
  74
  75         if (isalnum(slotRawChar(a))) { SetTrue(a); }
  76         else { SetFalse(a); }
  77
  78         return errNone;
  79 }
  80
  81 int prIsControl(struct VMGlobals *g, int numArgsPushed);
  82 int prIsControl(struct VMGlobals *g, int numArgsPushed)
  83 {
  84         PyrSlot *a;
  85
  86         a = g->sp;
  87
  88         if (iscntrl(slotRawChar(a))) { SetTrue(a); }
  89         else { SetFalse(a); }
  90
  91         return errNone;
  92 }
  93
  94 int prIsDigit(struct VMGlobals *g, int numArgsPushed);
  95 int prIsDigit(struct VMGlobals *g, int numArgsPushed)
  96 {
  97         PyrSlot *a;
  98
  99         a = g->sp;
 100
 101         if (isdigit(slotRawChar(a))) { SetTrue(a); }
 102         else { SetFalse(a); }
 103
 104         return errNone;
 105 }
 106
 107 int prIsPrint(struct VMGlobals *g, int numArgsPushed);
 108 int prIsPrint(struct VMGlobals *g, int numArgsPushed)
 109 {
 110         PyrSlot *a;
 111
 112         a = g->sp;
 113
 114         if (isprint(slotRawChar(a))) { SetTrue(a); }
 115         else { SetFalse(a); }
 116
 117         return errNone;
 118 }
 119
 120 int prIsPunct(struct VMGlobals *g, int numArgsPushed);
 121 int prIsPunct(struct VMGlobals *g, int numArgsPushed)
 122 {
 123         PyrSlot *a;
 124
 125         a = g->sp;
 126
 127         if (ispunct(slotRawChar(a))) { SetTrue(a); }
 128         else { SetFalse(a); }
 129
 130         return errNone;
 131 }
 132
 133 int prIsSpace(struct VMGlobals *g, int numArgsPushed);
 134 int prIsSpace(struct VMGlobals *g, int numArgsPushed)
 135 {
 136         PyrSlot *a;
 137
 138         a = g->sp;
 139
 140         if (isspace(slotRawChar(a))) { SetTrue(a); }
 141         else { SetFalse(a); }
 142
 143         return errNone;
 144 }
 145
 146 int prAsciiValue(struct VMGlobals *g, int numArgsPushed);
 147 int prAsciiValue(struct VMGlobals *g, int numArgsPushed)
 148 {
 149         PyrSlot *a;
 150
 151         a = g->sp;
 152
 153         SetTagRaw(a, tagInt);
 154
 155         return errNone;
 156 }
 157
 158 int prDigitValue(struct VMGlobals *g, int numArgsPushed);
 159 int prDigitValue(struct VMGlobals *g, int numArgsPushed)
 160 {
 161         PyrSlot *a;
 162         char c;
 163
 164         a = g->sp;
 165
 166         c = slotRawChar(a);
 167         if (c >= '0' && c <= '9') {
 168         SetInt(a, c - '0');
 169         } else if (c >= 'a' && c <= 'z') {
 170         SetInt(a, c - 'a' + 10);
 171         } else if (c >= 'A' && c <= 'Z') {
 172         SetInt(a, c - 'A' + 10);
 173         } else {
 174                 return errFailed;
 175         }
 176
 177         return errNone;
 178 }
 179
 180
 181 int prAsAscii(struct VMGlobals *g, int numArgsPushed);
 182 int prAsAscii(struct VMGlobals *g, int numArgsPushed)
 183 {
 184         PyrSlot *a;
 185
 186         a = g->sp;
 187     SetChar(a, slotRawInt(a) & 255);
 188
 189         return errNone;
 190 }
 191
 192 int prAsDigit(struct VMGlobals *g, int numArgsPushed);
 193 int prAsDigit(struct VMGlobals *g, int numArgsPushed)
 194 {
 195         PyrSlot *a;
 196         int c;
 197
 198         a = g->sp;
 199
 200         c = slotRawInt(a);
 201         if (c >= 0 && c <= 9) {
 202         SetChar(a, slotRawInt(a) + '0');
 203         } else if (c >= 10 && c <= 35) {
 204         SetChar(a, slotRawInt(a) + 'A' - 10);
 205         } else {
 206                 return errFailed;
 207         }
 208
 209         return errNone;
 210 }
 211
 212 void initCharPrimitives();
 213 void initCharPrimitives()
 214 {
 215         int base, index = 0;
 216
 217         base = nextPrimitiveIndex();
 218
 219         definePrimitive(base, index++, "_AsciiValue", prAsciiValue, 1, 0);
 220         definePrimitive(base, index++, "_DigitValue", prDigitValue, 1, 0);
 221         definePrimitive(base, index++, "_AsAscii", prAsAscii, 1, 0);
 222         definePrimitive(base, index++, "_AsDigit", prAsDigit, 1, 0);
 223         definePrimitive(base, index++, "_ToLower", prToLower, 1, 0);
 224         definePrimitive(base, index++, "_ToUpper", prToUpper, 1, 0);
 225         definePrimitive(base, index++, "_IsAlpha", prIsAlpha, 1, 0);
 226         definePrimitive(base, index++, "_IsAlphaNum", prIsAlphaNum, 1, 0);
 227         definePrimitive(base, index++, "_IsPrint", prIsPrint, 1, 0);
 228         definePrimitive(base, index++, "_IsPunct", prIsPunct, 1, 0);
 229         definePrimitive(base, index++, "_IsControl", prIsControl, 1, 0);
 230         definePrimitive(base, index++, "_IsSpace", prIsSpace, 1, 0);
 231         definePrimitive(base, index++, "_IsDecDigit", prIsDigit, 1, 0);
 232
 233 }
 234
 235
 236
 237 #if _SC_PLUGINS_
 238
 239
 240 #include "SCPlugin.h"
 241
 242 // export the function that SC will call to load the plug in.
 243 #pragma export on
 244 extern "C" { SCPlugIn* loadPlugIn(void); }
 245 #pragma export off
 246
 247
 248 // define plug in object
 249 class APlugIn : public SCPlugIn
 250 {
 251 public:
 252         APlugIn();
 253         virtual ~APlugIn();
 254
 255         virtual void AboutToCompile();
 256 };
 257
 258 APlugIn::APlugIn()
 259 {
 260         // constructor for plug in
 261 }
 262
 263 APlugIn::~APlugIn()
 264 {
 265         // destructor for plug in
 266 }
 267
 268 void APlugIn::AboutToCompile()
 269 {
 270         // this is called each time the class library is compiled.
 271         initCharPrimitives();
 272 }
 273
 274 // This function is called when the plug in is loaded into SC.
 275 // It returns an instance of APlugIn.
 276 SCPlugIn* loadPlugIn()
 277 {
 278         return new APlugIn();
 279 }
 280
 281 #endif