Pass test 95.

Implement nqp::isclass, nqp::findcclass, nqp::findnotcclass.

Author: pmurias

TODO

@@ -6,10 +6,8 @@ We need to write tests (if they don't already exist in t/nqp)
 
  -  curlexpad
  -  die_s
- -  findnotcclass - EASY
  -  getcodename
  -  getlexdyn
- -  iscclass - EASY
  -  nfafromstatelist
  -  nfarunalt
  -  nfarunproto - MEDIUM (Look at t/nqp/74-nfa.t)

src/vm/js/QAST/Compiler.nqp

@@ -967,6 +967,11 @@ class QAST::OperationsJS {
         }
     });
 
+
+    add_simple_op('findcclass', $T_INT, [$T_INT, $T_STR, $T_INT, $T_INT]);
+    add_simple_op('findnotcclass', $T_INT, [$T_INT, $T_STR, $T_INT, $T_INT]);
+    add_simple_op('iscclass', $T_INT, [$T_INT, $T_STR, $T_INT]);
+
     # TODO consider/handle if lexotic is not the topmost thing in a block
     # TODO implement returning from nested block
     add_op('lexotic', sub ($comp, $node, :$want) {

src/vm/js/bin/run_tests

@@ -1,3 +1,3 @@
 #!/bin/bash
 # 19 and 30 where moved out as they were parrot specific, 52,54 is missing, we can't pass 49 till we are bootstraped
-prove "$@" -e  './nqp-js' t/nqp/{01,02,03,04,05,06,07,08,09,10,11,12,13,14,15,16,17,18,20,21,22,23,25,26,27,28,33,35,36,37,38,39,40,41,42,46,47,48,51,53,55,56,57,58,59,63,64,65,68,69,70,71,75,76,79,81,83,88,89,90,91,92,93,94}* t/js/getcomp-js.t t/qast/02*
+prove "$@" -e  './nqp-js' t/nqp/{01,02,03,04,05,06,07,08,09,10,11,12,13,14,15,16,17,18,20,21,22,23,25,26,27,28,33,35,36,37,38,39,40,41,42,46,47,48,51,53,55,56,57,58,59,63,64,65,68,69,70,71,75,76,79,81,83,88,89,90,91,92,93,94,95}* t/js/getcomp-js.t t/qast/02*

src/vm/js/nqp-runtime/core.js

@@ -360,3 +360,72 @@ var sha1 = require('sha1');
 op.sha1 = function(text) {
   return sha1(text).toUpperCase();
 };
+
+function boolish(bool) {
+  return bool ? 1 : 0;
+}
+
+function iscclass(cclass, target, offset) {
+  if (offset < 0 || offset >= target.length) return 0;
+  switch (cclass) {
+    //ANY
+    case 65535: return 1;
+    //UPPERCASE
+    case 1: return boolish(!/^\d|_/.test(target[offset]) && /\w/.test(target[offset]) && target[offset] == target[offset].toUpperCase());
+    //LOWERCASE
+    case 2: return boolish(!/^\d|_/.test(target[offset]) && /\w/.test(target[offset]) && target[offset] == target[offset].toLowerCase());
+    //ALPHABETIC
+    case 4: return boolish(!/^\d|_/.test(target[offset]) && /\w/.test(target[offset]));
+    //NUMERIC
+    case 8: return boolish(/^\d/.test(target[offset]));
+    //HEXADECIMAL
+    case 16: return boolish(/^[0-9a-fA-F]/.test(target[offset]));
+    //WHITESPACE
+    case 32: return boolish('\n\u000b\f\r\u0085\u2028\u2029\t \u00a0\u1680\u180e\u2000\u2001\u2002\u2003\u2004\u2005\u2006\u2007\u2008\u2009\u200a\u202f\u205f\u3000'.indexOf(target[offset]) != -1);
+    //BLANK
+    case 256: return boolish(target[offset] == ' ' || target[offset] == '\t'); //HACK - not all such chars
+    //CONTROL
+    case 512: return boolish('\n\t\r'.indexOf(target[offset]) != -1); //HACK - not all such chars
+    //PUNCTUATION
+    case 1024: return boolish(/[.,;?!]/.test(target[offset])); //HACK
+    //ALPHANUMERIC
+    case 2048: return boolish(/^\w/.test(target[offset]) && target[offset] != '_');
+    //NEWLINE
+    case 4096: return boolish(target[offset] == '\n' || target[offset] == '\r' || target[offset] == '\u0085'); //HACK
+    //WORD
+    case 8192: return boolish(/^\w/.test(target[offset]));
+    default: throw 'cclass ' + cclass + ' not yet implemented';
+  }
+}
+
+op.iscclass = function(cclass, target, offset) {
+  return iscclass(cclass, target, offset);
+};
+
+op.findcclass = function(cclass, target, offset, count) {
+  var end = offset + count;
+  end = target.length < end ? target.length : end;
+
+  for (var pos = offset; pos < end; pos++) {
+    if (iscclass(cclass, target, pos) > 0) {
+      return pos;
+    }
+  }
+
+  return end;
+};
+
+op.findnotcclass = function(cclass, target, offset, count) {
+  var end = offset + count;
+  end = target.length < end ? target.length : end;
+
+  for (var pos = offset; pos < end; pos++) {
+    if (iscclass(cclass, target, pos) == 0) {
+      return pos;
+    }
+  }
+
+  return end;
+};
+
+