static LS pineTok(S s) {

  new ArrayList<S> tok;

  int l = s == null ? 0 : s.length();

  int i = 0;

  while (i < l) {

    int j = i;

    char c, d;

        // scan for whitespace

        while (j < l) {

          c = s.charAt(j);

          d = j+1 >= l ? '\0' : s.charAt(j+1);

          if (c == ' ' || c == '\t' || c == '\r' || c == '\n')

            ++j;

          else if (c == '/' && d == '*') {

            do ++j; while (j < l && !regionMatches(s, j, "*/"));

            j = Math.min(j+2, l);

          } else if (c == '/' && d == '/') {

            do ++j; while (j < l && "\r\n".indexOf(s.charAt(j)) < 0);

          } else

            break;

        }

        tok.add(javaTok_substringN(s, i, j));

        i = j;

        if (i >= l) break;

        c = s.charAt(i);

        d = i+1 >= l ? '\0' : s.charAt(i+1);

        // scan for non-whitespace

        if (c == '\'' || c == '"') {

          char opener = c;

          ++j;

          while (j < l) {

            int c2 = s.charAt(j);

            if (c2 == opener || c2 == '\n' && opener == '\'') { // allow multi-line strings, but not for '

              ++j;

              break;

            } else if (c2 == '\\' && j+1 < l)

              j += 2;

            else

              ++j;

          }

        } else if (Character.isJavaIdentifierStart(c))

          do ++j; while (j < l && (Character.isJavaIdentifierPart(s.charAt(j)) || s.charAt(j) == '\'')); // for stuff like "don't"

        else if (Character.isDigit(c)) {

          do ++j; while (j < l && Character.isDigit(s.charAt(j)));

          if (j < l && s.charAt(j) == 'L') ++j; // Long constants like 1L

        } else

          ++j;

    tok.add(s.substring(i, j));

    i = j;

  }

  if ((tok.size() % 2) == 0) tok.add("");

  ret tok;

}