📄 perltokenmarker.java
字号:
token = Token.NULL;
lastOffset = lastKeyword = i1;
}
break;
case Token.LITERAL2:
if(backslash)
backslash = false;
/* else if(c == '$')
backslash = true; */
else if(c == '\'')
{
addToken(i1 - lastOffset,Token.LITERAL1);
token = Token.NULL;
lastOffset = lastKeyword = i1;
}
break;
case Token.OPERATOR:
if(backslash)
backslash = false;
else if(c == '`')
{
addToken(i1 - lastOffset,token);
token = Token.NULL;
lastOffset = lastKeyword = i1;
}
break;
default:
throw new InternalError("Invalid state: "
+ token);
}
}
if(token == Token.NULL)
doKeyword(line,length,'\0');
switch(token)
{
case Token.KEYWORD2:
addToken(length - lastOffset,token);
token = Token.NULL;
break;
case Token.LITERAL2:
addToken(length - lastOffset,Token.LITERAL1);
break;
case S_END:
addToken(length - lastOffset,Token.LITERAL2);
token = Token.NULL;
break;
case S_ONE: case S_TWO:
addToken(length - lastOffset,Token.INVALID); // XXX
token = Token.NULL;
break;
default:
addToken(length - lastOffset,token);
break;
}
return token;
}
// private members
private KeywordMap keywords;
private byte token;
private int lastOffset;
private int lastKeyword;
private char matchChar;
private boolean matchCharBracket;
private boolean matchSpacesAllowed;
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;
}
// Converts < EOF >, < 'EOF' >, etc to <EOF>
private String createReadinString(char[] array, int start, int len)
{
int idx1 = start;
int idx2 = start + len - 1;
while((idx1 <= idx2) && (!Character.isLetterOrDigit(array[idx1])))
idx1++;
while((idx1 <= idx2) && (!Character.isLetterOrDigit(array[idx2])))
idx2--;
return new String(array, idx1, idx2 - idx1 + 1);
}
private static KeywordMap perlKeywords;
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;
}
}
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -