|
| 1 | +package rprocessing.mode; |
| 2 | + |
| 3 | +import javax.swing.text.Segment; |
| 4 | + |
| 5 | +import processing.app.syntax.Token; |
| 6 | +import processing.app.syntax.TokenMarker; |
| 7 | + |
| 8 | +public class RLangTokenMarker extends TokenMarker { |
| 9 | + |
| 10 | + private static final byte TRIPLEQUOTE1 = Token.INTERNAL_FIRST; |
| 11 | + private static final byte TRIPLEQUOTE2 = Token.INTERNAL_LAST; |
| 12 | + |
| 13 | + private static RLangKeywordMap rLangKeywordMap; |
| 14 | + |
| 15 | + private final RLangKeywordMap keywords; |
| 16 | + private int lastOffset; |
| 17 | + private int lastKeyword; |
| 18 | + |
| 19 | + public RLangTokenMarker() { |
| 20 | + this.keywords = getKeywords(); |
| 21 | + } |
| 22 | + |
| 23 | + @Override |
| 24 | + public void addColoring(final String keyword, final String coloring) { |
| 25 | + // KEYWORD1 -> 0, KEYWORD2 -> 1, etc |
| 26 | + final int num = coloring.charAt(coloring.length() - 1) - '1'; |
| 27 | + int id = 0; |
| 28 | + boolean paren = false; |
| 29 | + switch (coloring.charAt(0)) { |
| 30 | + case 'K': |
| 31 | + id = Token.KEYWORD1 + num; |
| 32 | + break; |
| 33 | + case 'L': |
| 34 | + id = Token.LITERAL1 + num; |
| 35 | + break; |
| 36 | + case 'F': |
| 37 | + id = Token.FUNCTION1 + num; |
| 38 | + paren = true; |
| 39 | + break; |
| 40 | + } |
| 41 | + keywords.add(keyword, (byte) id); |
| 42 | + } |
| 43 | + |
| 44 | + @Override |
| 45 | + public byte markTokensImpl(byte token, final Segment line, final int lineIndex) { |
| 46 | + final char[] array = line.array; |
| 47 | + final int offset = line.offset; |
| 48 | + lastOffset = offset; |
| 49 | + lastKeyword = offset; |
| 50 | + final int length = line.count + offset; |
| 51 | + boolean backslash = false; |
| 52 | + |
| 53 | + loop: for (int i = offset; i < length; i++) { |
| 54 | + final int i1 = (i + 1); |
| 55 | + |
| 56 | + final char c = array[i]; |
| 57 | + if (c == '\\') { |
| 58 | + backslash = !backslash; |
| 59 | + continue; |
| 60 | + } |
| 61 | + |
| 62 | + switch (token) { |
| 63 | + case Token.NULL: |
| 64 | + switch (c) { |
| 65 | + case '#': |
| 66 | + if (backslash) { |
| 67 | + backslash = false; |
| 68 | + } else { |
| 69 | + doKeyword(line, i, c); |
| 70 | + addToken(i - lastOffset, token); |
| 71 | + addToken(length - i, Token.COMMENT1); |
| 72 | + lastOffset = lastKeyword = length; |
| 73 | + break loop; |
| 74 | + } |
| 75 | + break; |
| 76 | + case '"': |
| 77 | + doKeyword(line, i, c); |
| 78 | + if (backslash) { |
| 79 | + backslash = false; |
| 80 | + } else { |
| 81 | + addToken(i - lastOffset, token); |
| 82 | + if (SyntaxUtilities.regionMatches(line, i1, "\"\"")) { |
| 83 | + token = TRIPLEQUOTE1; |
| 84 | + } else { |
| 85 | + token = Token.LITERAL1; |
| 86 | + } |
| 87 | + lastOffset = lastKeyword = i; |
| 88 | + } |
| 89 | + break; |
| 90 | + case '\'': |
| 91 | + doKeyword(line, i, c); |
| 92 | + if (backslash) { |
| 93 | + backslash = false; |
| 94 | + } else { |
| 95 | + addToken(i - lastOffset, token); |
| 96 | + if (SyntaxUtilities.regionMatches(line, i1, "''")) { |
| 97 | + token = TRIPLEQUOTE2; |
| 98 | + } else { |
| 99 | + token = Token.LITERAL2; |
| 100 | + } |
| 101 | + lastOffset = lastKeyword = i; |
| 102 | + } |
| 103 | + break; |
| 104 | + default: |
| 105 | + backslash = false; |
| 106 | + if (!Character.isLetterOrDigit(c) && c != '_') { |
| 107 | + doKeyword(line, i, c); |
| 108 | + } |
| 109 | + break; |
| 110 | + } |
| 111 | + break; |
| 112 | + case Token.LITERAL1: |
| 113 | + if (backslash) { |
| 114 | + backslash = false; |
| 115 | + } else if (c == '"') { |
| 116 | + addToken(i1 - lastOffset, token); |
| 117 | + token = Token.NULL; |
| 118 | + lastOffset = lastKeyword = i1; |
| 119 | + } |
| 120 | + break; |
| 121 | + case Token.LITERAL2: |
| 122 | + if (backslash) { |
| 123 | + backslash = false; |
| 124 | + } else if (c == '\'') { |
| 125 | + addToken(i1 - lastOffset, Token.LITERAL1); |
| 126 | + token = Token.NULL; |
| 127 | + lastOffset = lastKeyword = i1; |
| 128 | + } |
| 129 | + break; |
| 130 | + case TRIPLEQUOTE1: |
| 131 | + if (backslash) { |
| 132 | + backslash = false; |
| 133 | + } else if (SyntaxUtilities.regionMatches(line, i, "\"\"\"")) { |
| 134 | + addToken((i += 3) - lastOffset, Token.LITERAL1); |
| 135 | + token = Token.NULL; |
| 136 | + lastOffset = lastKeyword = i; |
| 137 | + } |
| 138 | + break; |
| 139 | + case TRIPLEQUOTE2: |
| 140 | + if (backslash) { |
| 141 | + backslash = false; |
| 142 | + } else if (SyntaxUtilities.regionMatches(line, i, "'''")) { |
| 143 | + addToken((i += 3) - lastOffset, Token.LITERAL1); |
| 144 | + token = Token.NULL; |
| 145 | + lastOffset = lastKeyword = i; |
| 146 | + } |
| 147 | + break; |
| 148 | + default: |
| 149 | + throw new InternalError("Invalid state: " + token); |
| 150 | + } |
| 151 | + } |
| 152 | + |
| 153 | + switch (token) { |
| 154 | + case TRIPLEQUOTE1: |
| 155 | + case TRIPLEQUOTE2: |
| 156 | + addToken(length - lastOffset, Token.LITERAL1); |
| 157 | + break; |
| 158 | + case Token.NULL: |
| 159 | + doKeyword(line, length, '\0'); |
| 160 | + //$FALL-THROUGH$ |
| 161 | + default: |
| 162 | + addToken(length - lastOffset, token); |
| 163 | + break; |
| 164 | + } |
| 165 | + |
| 166 | + return token; |
| 167 | + } |
| 168 | + |
| 169 | + public static RLangKeywordMap getKeywords() { |
| 170 | + if (rLangKeywordMap == null) { |
| 171 | + rLangKeywordMap = new RLangKeywordMap(); |
| 172 | + |
| 173 | + } |
| 174 | + return rLangKeywordMap; |
| 175 | + } |
| 176 | + |
| 177 | + private boolean doKeyword(final Segment line, final int i, final char c) { |
| 178 | + final int i1 = i + 1; |
| 179 | + |
| 180 | + final int len = i - lastKeyword; |
| 181 | + final byte id = keywords.lookup(line, lastKeyword, len); |
| 182 | + if (id != Token.NULL) { |
| 183 | + if (lastKeyword != lastOffset) { |
| 184 | + addToken(lastKeyword - lastOffset, Token.NULL); |
| 185 | + } |
| 186 | + addToken(len, id); |
| 187 | + lastOffset = i; |
| 188 | + } |
| 189 | + lastKeyword = i1; |
| 190 | + return false; |
| 191 | + } |
| 192 | +} |
0 commit comments