Example #1
0
  private boolean doKeyword(Segment line, int i, char c) {
    int i1 = i + 1;

    if (token == S_END) {
      addToken(i - lastOffset, Token.LITERAL2);
      token = Token.NULL;
      lastOffset = i;
      lastKeyword = i1;
      return false;
    }

    int len = i - lastKeyword;
    byte id = keywords.lookup(line, lastKeyword, len);
    if (id == S_ONE || id == S_TWO) {
      if (lastKeyword != lastOffset) addToken(lastKeyword - lastOffset, Token.NULL);
      addToken(len, Token.LITERAL2);
      lastOffset = i;
      lastKeyword = i1;
      if (Character.isWhitespace(c)) matchChar = '\0';
      else matchChar = c;
      matchSpacesAllowed = true;
      token = id;
      return true;
    } else if (id != Token.NULL) {
      if (lastKeyword != lastOffset) addToken(lastKeyword - lastOffset, Token.NULL);
      addToken(len, id);
      lastOffset = i;
    }
    lastKeyword = i1;
    return false;
  }
Example #2
0
  private static KeywordMap getKeywords() {
    if (perlKeywords == null) {
      perlKeywords = new KeywordMap(false);
      perlKeywords.add("my", Token.KEYWORD1);
      perlKeywords.add("local", Token.KEYWORD1);
      perlKeywords.add("new", Token.KEYWORD1);
      perlKeywords.add("if", Token.KEYWORD1);
      perlKeywords.add("until", Token.KEYWORD1);
      perlKeywords.add("while", Token.KEYWORD1);
      perlKeywords.add("elsif", Token.KEYWORD1);
      perlKeywords.add("else", Token.KEYWORD1);
      perlKeywords.add("eval", Token.KEYWORD1);
      perlKeywords.add("unless", Token.KEYWORD1);
      perlKeywords.add("foreach", Token.KEYWORD1);
      perlKeywords.add("continue", Token.KEYWORD1);
      perlKeywords.add("exit", Token.KEYWORD1);
      perlKeywords.add("die", Token.KEYWORD1);
      perlKeywords.add("last", Token.KEYWORD1);
      perlKeywords.add("goto", Token.KEYWORD1);
      perlKeywords.add("next", Token.KEYWORD1);
      perlKeywords.add("redo", Token.KEYWORD1);
      perlKeywords.add("goto", Token.KEYWORD1);
      perlKeywords.add("return", Token.KEYWORD1);
      perlKeywords.add("do", Token.KEYWORD1);
      perlKeywords.add("sub", Token.KEYWORD1);
      perlKeywords.add("use", Token.KEYWORD1);
      perlKeywords.add("require", Token.KEYWORD1);
      perlKeywords.add("package", Token.KEYWORD1);
      perlKeywords.add("BEGIN", Token.KEYWORD1);
      perlKeywords.add("END", Token.KEYWORD1);
      perlKeywords.add("eq", Token.OPERATOR);
      perlKeywords.add("ne", Token.OPERATOR);
      perlKeywords.add("not", Token.OPERATOR);
      perlKeywords.add("and", Token.OPERATOR);
      perlKeywords.add("or", Token.OPERATOR);

      perlKeywords.add("abs", Token.KEYWORD3);
      perlKeywords.add("accept", Token.KEYWORD3);
      perlKeywords.add("alarm", Token.KEYWORD3);
      perlKeywords.add("atan2", Token.KEYWORD3);
      perlKeywords.add("bind", Token.KEYWORD3);
      perlKeywords.add("binmode", Token.KEYWORD3);
      perlKeywords.add("bless", Token.KEYWORD3);
      perlKeywords.add("caller", Token.KEYWORD3);
      perlKeywords.add("chdir", Token.KEYWORD3);
      perlKeywords.add("chmod", Token.KEYWORD3);
      perlKeywords.add("chomp", Token.KEYWORD3);
      perlKeywords.add("chr", Token.KEYWORD3);
      perlKeywords.add("chroot", Token.KEYWORD3);
      perlKeywords.add("chown", Token.KEYWORD3);
      perlKeywords.add("closedir", Token.KEYWORD3);
      perlKeywords.add("close", Token.KEYWORD3);
      perlKeywords.add("connect", Token.KEYWORD3);
      perlKeywords.add("cos", Token.KEYWORD3);
      perlKeywords.add("crypt", Token.KEYWORD3);
      perlKeywords.add("dbmclose", Token.KEYWORD3);
      perlKeywords.add("dbmopen", Token.KEYWORD3);
      perlKeywords.add("defined", Token.KEYWORD3);
      perlKeywords.add("delete", Token.KEYWORD3);
      perlKeywords.add("die", Token.KEYWORD3);
      perlKeywords.add("dump", Token.KEYWORD3);
      perlKeywords.add("each", Token.KEYWORD3);
      perlKeywords.add("endgrent", Token.KEYWORD3);
      perlKeywords.add("endhostent", Token.KEYWORD3);
      perlKeywords.add("endnetent", Token.KEYWORD3);
      perlKeywords.add("endprotoent", Token.KEYWORD3);
      perlKeywords.add("endpwent", Token.KEYWORD3);
      perlKeywords.add("endservent", Token.KEYWORD3);
      perlKeywords.add("eof", Token.KEYWORD3);
      perlKeywords.add("exec", Token.KEYWORD3);
      perlKeywords.add("exists", Token.KEYWORD3);
      perlKeywords.add("exp", Token.KEYWORD3);
      perlKeywords.add("fctnl", Token.KEYWORD3);
      perlKeywords.add("fileno", Token.KEYWORD3);
      perlKeywords.add("flock", Token.KEYWORD3);
      perlKeywords.add("fork", Token.KEYWORD3);
      perlKeywords.add("format", Token.KEYWORD3);
      perlKeywords.add("formline", Token.KEYWORD3);
      perlKeywords.add("getc", Token.KEYWORD3);
      perlKeywords.add("getgrent", Token.KEYWORD3);
      perlKeywords.add("getgrgid", Token.KEYWORD3);
      perlKeywords.add("getgrnam", Token.KEYWORD3);
      perlKeywords.add("gethostbyaddr", Token.KEYWORD3);
      perlKeywords.add("gethostbyname", Token.KEYWORD3);
      perlKeywords.add("gethostent", Token.KEYWORD3);
      perlKeywords.add("getlogin", Token.KEYWORD3);
      perlKeywords.add("getnetbyaddr", Token.KEYWORD3);
      perlKeywords.add("getnetbyname", Token.KEYWORD3);
      perlKeywords.add("getnetent", Token.KEYWORD3);
      perlKeywords.add("getpeername", Token.KEYWORD3);
      perlKeywords.add("getpgrp", Token.KEYWORD3);
      perlKeywords.add("getppid", Token.KEYWORD3);
      perlKeywords.add("getpriority", Token.KEYWORD3);
      perlKeywords.add("getprotobyname", Token.KEYWORD3);
      perlKeywords.add("getprotobynumber", Token.KEYWORD3);
      perlKeywords.add("getprotoent", Token.KEYWORD3);
      perlKeywords.add("getpwent", Token.KEYWORD3);
      perlKeywords.add("getpwnam", Token.KEYWORD3);
      perlKeywords.add("getpwuid", Token.KEYWORD3);
      perlKeywords.add("getservbyname", Token.KEYWORD3);
      perlKeywords.add("getservbyport", Token.KEYWORD3);
      perlKeywords.add("getservent", Token.KEYWORD3);
      perlKeywords.add("getsockname", Token.KEYWORD3);
      perlKeywords.add("getsockopt", Token.KEYWORD3);
      perlKeywords.add("glob", Token.KEYWORD3);
      perlKeywords.add("gmtime", Token.KEYWORD3);
      perlKeywords.add("grep", Token.KEYWORD3);
      perlKeywords.add("hex", Token.KEYWORD3);
      perlKeywords.add("import", Token.KEYWORD3);
      perlKeywords.add("index", Token.KEYWORD3);
      perlKeywords.add("int", Token.KEYWORD3);
      perlKeywords.add("ioctl", Token.KEYWORD3);
      perlKeywords.add("join", Token.KEYWORD3);
      perlKeywords.add("keys", Token.KEYWORD3);
      perlKeywords.add("kill", Token.KEYWORD3);
      perlKeywords.add("lcfirst", Token.KEYWORD3);
      perlKeywords.add("lc", Token.KEYWORD3);
      perlKeywords.add("length", Token.KEYWORD3);
      perlKeywords.add("link", Token.KEYWORD3);
      perlKeywords.add("listen", Token.KEYWORD3);
      perlKeywords.add("log", Token.KEYWORD3);
      perlKeywords.add("localtime", Token.KEYWORD3);
      perlKeywords.add("lstat", Token.KEYWORD3);
      perlKeywords.add("map", Token.KEYWORD3);
      perlKeywords.add("mkdir", Token.KEYWORD3);
      perlKeywords.add("msgctl", Token.KEYWORD3);
      perlKeywords.add("msgget", Token.KEYWORD3);
      perlKeywords.add("msgrcv", Token.KEYWORD3);
      perlKeywords.add("no", Token.KEYWORD3);
      perlKeywords.add("oct", Token.KEYWORD3);
      perlKeywords.add("opendir", Token.KEYWORD3);
      perlKeywords.add("open", Token.KEYWORD3);
      perlKeywords.add("ord", Token.KEYWORD3);
      perlKeywords.add("pack", Token.KEYWORD3);
      perlKeywords.add("pipe", Token.KEYWORD3);
      perlKeywords.add("pop", Token.KEYWORD3);
      perlKeywords.add("pos", Token.KEYWORD3);
      perlKeywords.add("printf", Token.KEYWORD3);
      perlKeywords.add("print", Token.KEYWORD3);
      perlKeywords.add("push", Token.KEYWORD3);
      perlKeywords.add("quotemeta", Token.KEYWORD3);
      perlKeywords.add("rand", Token.KEYWORD3);
      perlKeywords.add("readdir", Token.KEYWORD3);
      perlKeywords.add("read", Token.KEYWORD3);
      perlKeywords.add("readlink", Token.KEYWORD3);
      perlKeywords.add("recv", Token.KEYWORD3);
      perlKeywords.add("ref", Token.KEYWORD3);
      perlKeywords.add("rename", Token.KEYWORD3);
      perlKeywords.add("reset", Token.KEYWORD3);
      perlKeywords.add("reverse", Token.KEYWORD3);
      perlKeywords.add("rewinddir", Token.KEYWORD3);
      perlKeywords.add("rindex", Token.KEYWORD3);
      perlKeywords.add("rmdir", Token.KEYWORD3);
      perlKeywords.add("scalar", Token.KEYWORD3);
      perlKeywords.add("seekdir", Token.KEYWORD3);
      perlKeywords.add("seek", Token.KEYWORD3);
      perlKeywords.add("select", Token.KEYWORD3);
      perlKeywords.add("semctl", Token.KEYWORD3);
      perlKeywords.add("semget", Token.KEYWORD3);
      perlKeywords.add("semop", Token.KEYWORD3);
      perlKeywords.add("send", Token.KEYWORD3);
      perlKeywords.add("setgrent", Token.KEYWORD3);
      perlKeywords.add("sethostent", Token.KEYWORD3);
      perlKeywords.add("setnetent", Token.KEYWORD3);
      perlKeywords.add("setpgrp", Token.KEYWORD3);
      perlKeywords.add("setpriority", Token.KEYWORD3);
      perlKeywords.add("setprotoent", Token.KEYWORD3);
      perlKeywords.add("setpwent", Token.KEYWORD3);
      perlKeywords.add("setsockopt", Token.KEYWORD3);
      perlKeywords.add("shift", Token.KEYWORD3);
      perlKeywords.add("shmctl", Token.KEYWORD3);
      perlKeywords.add("shmget", Token.KEYWORD3);
      perlKeywords.add("shmread", Token.KEYWORD3);
      perlKeywords.add("shmwrite", Token.KEYWORD3);
      perlKeywords.add("shutdown", Token.KEYWORD3);
      perlKeywords.add("sin", Token.KEYWORD3);
      perlKeywords.add("sleep", Token.KEYWORD3);
      perlKeywords.add("socket", Token.KEYWORD3);
      perlKeywords.add("socketpair", Token.KEYWORD3);
      perlKeywords.add("sort", Token.KEYWORD3);
      perlKeywords.add("splice", Token.KEYWORD3);
      perlKeywords.add("split", Token.KEYWORD3);
      perlKeywords.add("sprintf", Token.KEYWORD3);
      perlKeywords.add("sqrt", Token.KEYWORD3);
      perlKeywords.add("srand", Token.KEYWORD3);
      perlKeywords.add("stat", Token.KEYWORD3);
      perlKeywords.add("study", Token.KEYWORD3);
      perlKeywords.add("substr", Token.KEYWORD3);
      perlKeywords.add("symlink", Token.KEYWORD3);
      perlKeywords.add("syscall", Token.KEYWORD3);
      perlKeywords.add("sysopen", Token.KEYWORD3);
      perlKeywords.add("sysread", Token.KEYWORD3);
      perlKeywords.add("syswrite", Token.KEYWORD3);
      perlKeywords.add("telldir", Token.KEYWORD3);
      perlKeywords.add("tell", Token.KEYWORD3);
      perlKeywords.add("tie", Token.KEYWORD3);
      perlKeywords.add("tied", Token.KEYWORD3);
      perlKeywords.add("time", Token.KEYWORD3);
      perlKeywords.add("times", Token.KEYWORD3);
      perlKeywords.add("truncate", Token.KEYWORD3);
      perlKeywords.add("uc", Token.KEYWORD3);
      perlKeywords.add("ucfirst", Token.KEYWORD3);
      perlKeywords.add("umask", Token.KEYWORD3);
      perlKeywords.add("undef", Token.KEYWORD3);
      perlKeywords.add("unlink", Token.KEYWORD3);
      perlKeywords.add("unpack", Token.KEYWORD3);
      perlKeywords.add("unshift", Token.KEYWORD3);
      perlKeywords.add("untie", Token.KEYWORD3);
      perlKeywords.add("utime", Token.KEYWORD3);
      perlKeywords.add("values", Token.KEYWORD3);
      perlKeywords.add("vec", Token.KEYWORD3);
      perlKeywords.add("wait", Token.KEYWORD3);
      perlKeywords.add("waitpid", Token.KEYWORD3);
      perlKeywords.add("wantarray", Token.KEYWORD3);
      perlKeywords.add("warn", Token.KEYWORD3);
      perlKeywords.add("write", Token.KEYWORD3);

      perlKeywords.add("m", S_ONE);
      perlKeywords.add("q", S_ONE);
      perlKeywords.add("qq", S_ONE);
      perlKeywords.add("qw", S_ONE);
      perlKeywords.add("qx", S_ONE);
      perlKeywords.add("s", S_TWO);
      perlKeywords.add("tr", S_TWO);
      perlKeywords.add("y", S_TWO);
    }
    return perlKeywords;
  }