coboltokenmarker.java

来自「java写的多功能文件编辑器」· Java 代码 · 共 835 行 · 第 1/3 页

      cobolKeywords.add("QUEUE", Token.KEYWORD1);
      cobolKeywords.add("QUOTE", Token.KEYWORD1);
      cobolKeywords.add("QUOTES", Token.KEYWORD1);

      cobolKeywords.add("RANDOM", Token.KEYWORD1);
      cobolKeywords.add("RANGE", Token.KEYWORD1);
      cobolKeywords.add("RD", Token.KEYWORD1);
      cobolKeywords.add("READ", Token.KEYWORD1);
      cobolKeywords.add("READY", Token.KEYWORD1);
      cobolKeywords.add("RECEIVE", Token.KEYWORD1);
      cobolKeywords.add("RECORD", Token.KEYWORD1);
      cobolKeywords.add("RECORD-OVERFLOW", Token.KEYWORD1);
      cobolKeywords.add("RECORDING", Token.KEYWORD1);
      cobolKeywords.add("RECORDS", Token.KEYWORD1);
      cobolKeywords.add("REDEFINES", Token.KEYWORD1);
      cobolKeywords.add("REEL", Token.KEYWORD1);
      cobolKeywords.add("REFERENCE", Token.KEYWORD1);
      cobolKeywords.add("REFERENCES", Token.KEYWORD1);
      cobolKeywords.add("RELATIVE", Token.KEYWORD1);
      cobolKeywords.add("RELEASE", Token.KEYWORD1);
      cobolKeywords.add("RELOAD", Token.KEYWORD1);
      cobolKeywords.add("REMAINDER", Token.KEYWORD1);
      cobolKeywords.add("REMARKS", Token.KEYWORD1);
      cobolKeywords.add("REMOVAL", Token.KEYWORD1);
      cobolKeywords.add("RENAMES", Token.KEYWORD1);
      cobolKeywords.add("REORG-CRITERIA", Token.KEYWORD1);
      cobolKeywords.add("REPLACE", Token.KEYWORD1);
      cobolKeywords.add("REPLACING", Token.KEYWORD1);
      cobolKeywords.add("REPORT", Token.KEYWORD1);
      cobolKeywords.add("REPORTING", Token.KEYWORD1);
      cobolKeywords.add("REPORTS", Token.KEYWORD1);
      cobolKeywords.add("REQUIRED", Token.KEYWORD1);
      cobolKeywords.add("REREAD", Token.KEYWORD1);
      cobolKeywords.add("RERUN", Token.KEYWORD1);
      cobolKeywords.add("RESERVE", Token.KEYWORD1);
      cobolKeywords.add("RESET", Token.KEYWORD1);
      cobolKeywords.add("RETURN", Token.KEYWORD1);
      cobolKeywords.add("RETURN-CODE", Token.KEYWORD1);
      cobolKeywords.add("RETURNING", Token.KEYWORD1);
      cobolKeywords.add("REVERSE", Token.KEYWORD1);
      cobolKeywords.add("REVERSE-VIDEO", Token.KEYWORD1);
      cobolKeywords.add("REVERSED", Token.KEYWORD1);
      cobolKeywords.add("REWIND", Token.KEYWORD1);
      cobolKeywords.add("REWRITE", Token.KEYWORD1);
      cobolKeywords.add("RF", Token.KEYWORD1);
      cobolKeywords.add("RH", Token.KEYWORD1);
      cobolKeywords.add("RIGHT", Token.KEYWORD1);
      cobolKeywords.add("RIGHT-JUSTIFY", Token.KEYWORD1);
      cobolKeywords.add("ROLLBACK", Token.KEYWORD1);
      cobolKeywords.add("ROUNDED", Token.KEYWORD1);
      cobolKeywords.add("RUN", Token.KEYWORD1);

      cobolKeywords.add("S01", Token.KEYWORD1);
      cobolKeywords.add("S02", Token.KEYWORD1);
      cobolKeywords.add("S03", Token.KEYWORD1);
      cobolKeywords.add("S04", Token.KEYWORD1);
      cobolKeywords.add("S05", Token.KEYWORD1);
      cobolKeywords.add("SAME", Token.KEYWORD1);
      cobolKeywords.add("SCREEN", Token.KEYWORD1);
      cobolKeywords.add("SD", Token.KEYWORD1);
      cobolKeywords.add("SEARCH", Token.KEYWORD1);
      cobolKeywords.add("SECTION", Token.KEYWORD1);
      cobolKeywords.add("SECURE", Token.KEYWORD1);
      cobolKeywords.add("SECURITY", Token.KEYWORD1);
      cobolKeywords.add("SEEK", Token.KEYWORD1);
      cobolKeywords.add("SEGMENT", Token.KEYWORD1);
      cobolKeywords.add("SEGMENT-LIMIT", Token.KEYWORD1);
      cobolKeywords.add("SELECT", Token.KEYWORD1);
      cobolKeywords.add("SELECTIVE", Token.KEYWORD1);
      cobolKeywords.add("SEND", Token.KEYWORD1);
      cobolKeywords.add("SENTENCE", Token.KEYWORD1);
      cobolKeywords.add("SEPARATE", Token.KEYWORD1);
      cobolKeywords.add("SEQUENCE", Token.KEYWORD1);
      cobolKeywords.add("SEQUENTIAL", Token.KEYWORD1);
      cobolKeywords.add("SERVICE", Token.KEYWORD1);
      cobolKeywords.add("SET", Token.KEYWORD1);
      cobolKeywords.add("SHIFT-IN", Token.KEYWORD1);
      cobolKeywords.add("SHIFT-OUT", Token.KEYWORD1);
      cobolKeywords.add("SIGN", Token.KEYWORD1);
      cobolKeywords.add("SIZE", Token.KEYWORD1);
      cobolKeywords.add("SKIP1", Token.KEYWORD1);
      cobolKeywords.add("SKIP2", Token.KEYWORD1);
      cobolKeywords.add("SKIP3", Token.KEYWORD1);
      cobolKeywords.add("SORT", Token.KEYWORD1);
      cobolKeywords.add("SORT-CONTROL", Token.KEYWORD1);
      cobolKeywords.add("SORT-CORE-SIZE", Token.KEYWORD1);
      cobolKeywords.add("SORT-FILE-SIZE", Token.KEYWORD1);
      cobolKeywords.add("SORT-MERGE", Token.KEYWORD1);
      cobolKeywords.add("SORT-MESSAGE", Token.KEYWORD1);
      cobolKeywords.add("SORT-MODE-SIZE", Token.KEYWORD1);
      cobolKeywords.add("SORT-OPTION", Token.KEYWORD1);
      cobolKeywords.add("SORT-RETURN", Token.KEYWORD1);
      cobolKeywords.add("SOURCE", Token.KEYWORD1);
      cobolKeywords.add("SOURCE-COMPUTER", Token.KEYWORD1);
      cobolKeywords.add("SPACE", Token.KEYWORD1);
      cobolKeywords.add("SPACE-FILL", Token.KEYWORD1);
      cobolKeywords.add("SPACES", Token.KEYWORD1);
      cobolKeywords.add("SPECIAL-NAMES", Token.KEYWORD1);
      cobolKeywords.add("STANDARD", Token.KEYWORD1);
      cobolKeywords.add("STANDARD-1", Token.KEYWORD1);
      cobolKeywords.add("STANDARD-2", Token.KEYWORD1);
      cobolKeywords.add("START", Token.KEYWORD1);
      cobolKeywords.add("STATUS", Token.KEYWORD1);
      cobolKeywords.add("STOP", Token.KEYWORD1);
      cobolKeywords.add("STORE", Token.KEYWORD1);
      cobolKeywords.add("STRING", Token.KEYWORD1);
      cobolKeywords.add("SUB-QUEUE-1", Token.KEYWORD1);
      cobolKeywords.add("SUB-QUEUE-2", Token.KEYWORD1);
      cobolKeywords.add("SUB-QUEUE-3", Token.KEYWORD1);
      cobolKeywords.add("SUBTRACT", Token.KEYWORD1);
      cobolKeywords.add("SUM", Token.KEYWORD1);
      cobolKeywords.add("SUPER", Token.KEYWORD1);
      cobolKeywords.add("SUPPRESS", Token.KEYWORD1);
      cobolKeywords.add("SYMBOLIC", Token.KEYWORD1);
      cobolKeywords.add("SYNC", Token.KEYWORD1);
      cobolKeywords.add("SYNCHRONIZED", Token.KEYWORD1);
      cobolKeywords.add("SYSIN", Token.KEYWORD1);
      cobolKeywords.add("SYSIPT", Token.KEYWORD1);
      cobolKeywords.add("SYSLST", Token.KEYWORD1);
      cobolKeywords.add("SYSOUT", Token.KEYWORD1);
      cobolKeywords.add("SYSPCH", Token.KEYWORD1);
      cobolKeywords.add("SYSPUNCH", Token.KEYWORD1);

      cobolKeywords.add("TAB", Token.KEYWORD1);
      cobolKeywords.add("TABLE", Token.KEYWORD1);
      cobolKeywords.add("TALLY", Token.KEYWORD1);
      cobolKeywords.add("TALLYING", Token.KEYWORD1);
      cobolKeywords.add("TAPE", Token.KEYWORD1);
      cobolKeywords.add("TERMINAL", Token.KEYWORD1);
      cobolKeywords.add("TERMINATE", Token.KEYWORD1);
      cobolKeywords.add("TEST", Token.KEYWORD1);
      cobolKeywords.add("TEXT", Token.KEYWORD1);
      cobolKeywords.add("THAN", Token.KEYWORD1);
      cobolKeywords.add("THEN", Token.KEYWORD1);
      cobolKeywords.add("THROUGH", Token.KEYWORD1);
      cobolKeywords.add("THRU", Token.KEYWORD1);
      cobolKeywords.add("TIME", Token.KEYWORD1);
      cobolKeywords.add("TIME-OF-DAY", Token.KEYWORD1);
      cobolKeywords.add("TIME-OUT", Token.KEYWORD1);
      cobolKeywords.add("TIMEOUT", Token.KEYWORD1);
      cobolKeywords.add("TIMES", Token.KEYWORD1);
      cobolKeywords.add("TITLE", Token.KEYWORD1);
      cobolKeywords.add("TO", Token.KEYWORD1);
      cobolKeywords.add("TOP", Token.KEYWORD1);
      cobolKeywords.add("TOTALED", Token.KEYWORD1);
      cobolKeywords.add("TOTALING", Token.KEYWORD1);
      cobolKeywords.add("TRACE", Token.KEYWORD1);
      cobolKeywords.add("TRACK-AREA", Token.KEYWORD1);
      cobolKeywords.add("TRACK-LIMIT", Token.KEYWORD1);
      cobolKeywords.add("TRACKS", Token.KEYWORD1);
      cobolKeywords.add("TRAILING", Token.KEYWORD1);
      cobolKeywords.add("TRAILING-SIGN", Token.KEYWORD1);
      cobolKeywords.add("TRANSFORM", Token.KEYWORD1);
      cobolKeywords.add("TRUE", Token.KEYWORD1);
      cobolKeywords.add("TYPE", Token.KEYWORD1);
      cobolKeywords.add("TYPEDEF", Token.KEYWORD1);

      cobolKeywords.add("UNDERLINE", Token.KEYWORD1);
      cobolKeywords.add("UNEQUAL", Token.KEYWORD1);
      cobolKeywords.add("UNIT", Token.KEYWORD1);
      cobolKeywords.add("UNLOCK", Token.KEYWORD1);
      cobolKeywords.add("UNSTRING", Token.KEYWORD1);
      cobolKeywords.add("UNTIL", Token.KEYWORD1);
      cobolKeywords.add("UP", Token.KEYWORD1);
      cobolKeywords.add("UPDATE", Token.KEYWORD1);
      cobolKeywords.add("UPON", Token.KEYWORD1);
      cobolKeywords.add("UPPER", Token.KEYWORD1);
      cobolKeywords.add("UPSI-0", Token.KEYWORD1);
      cobolKeywords.add("UPSI-1", Token.KEYWORD1);
      cobolKeywords.add("UPSI-2", Token.KEYWORD1);
      cobolKeywords.add("UPSI-3", Token.KEYWORD1);
      cobolKeywords.add("UPSI-4", Token.KEYWORD1);
      cobolKeywords.add("UPSI-5", Token.KEYWORD1);
      cobolKeywords.add("UPSI-6", Token.KEYWORD1);
      cobolKeywords.add("UPSI-7", Token.KEYWORD1);
      cobolKeywords.add("USAGE", Token.KEYWORD1);
      cobolKeywords.add("USE", Token.KEYWORD1);
      cobolKeywords.add("USER", Token.KEYWORD1);
      cobolKeywords.add("USING", Token.KEYWORD1);

      cobolKeywords.add("VALUE", Token.KEYWORD1);
      cobolKeywords.add("VALUES", Token.KEYWORD1);
      cobolKeywords.add("VARIABLE", Token.KEYWORD1);
      cobolKeywords.add("VARYING", Token.KEYWORD1);

      cobolKeywords.add("WAIT", Token.KEYWORD1);
      cobolKeywords.add("WHEN", Token.KEYWORD1);
      cobolKeywords.add("WHEN-COMPILED", Token.KEYWORD1);
      cobolKeywords.add("WITH", Token.KEYWORD1);
      cobolKeywords.add("WORDS", Token.KEYWORD1);
      cobolKeywords.add("WORKING-STORAGE", Token.KEYWORD1);
      cobolKeywords.add("WRITE", Token.KEYWORD1);
      cobolKeywords.add("WRITE-ONLY", Token.KEYWORD1);
      cobolKeywords.add("WRITE-VERIFY", Token.KEYWORD1);

      cobolKeywords.add("ZERO", Token.KEYWORD1);
      cobolKeywords.add("ZERO-FILL", Token.KEYWORD1);
      cobolKeywords.add("ZEROES", Token.KEYWORD1);
      cobolKeywords.add("ZEROS", Token.KEYWORD1);

      cobolKeywords.add("ACOS", Token.KEYWORD2);
      cobolKeywords.add("ANNUITY", Token.KEYWORD2);
      cobolKeywords.add("ASIN", Token.KEYWORD2);
      cobolKeywords.add("ATAN", Token.KEYWORD2);
      cobolKeywords.add("CHAR", Token.KEYWORD2);
      cobolKeywords.add("COS", Token.KEYWORD2);
      cobolKeywords.add("CURRENT-DATE", Token.KEYWORD2);
      cobolKeywords.add("DATE-OF-INTEGER", Token.KEYWORD2);
      cobolKeywords.add("DAY-OF-INTEGER", Token.KEYWORD2);
      cobolKeywords.add("FACTORIAL", Token.KEYWORD2);
      cobolKeywords.add("INTEGER", Token.KEYWORD2);
      cobolKeywords.add("INTEGER-OF-DATE", Token.KEYWORD2);
      cobolKeywords.add("INTEGER-OF-DAY", Token.KEYWORD2);
      cobolKeywords.add("INTEGER-PART", Token.KEYWORD2);
      cobolKeywords.add("LOG", Token.KEYWORD2);
      cobolKeywords.add("LOG10", Token.KEYWORD2);
      cobolKeywords.add("LOWER-CASE", Token.KEYWORD2);
      cobolKeywords.add("MAX", Token.KEYWORD2);
      cobolKeywords.add("MEAN", Token.KEYWORD2);
      cobolKeywords.add("MEDIAN", Token.KEYWORD2);
      cobolKeywords.add("MIDRANGE", Token.KEYWORD2);
      cobolKeywords.add("MIN", Token.KEYWORD2);
      cobolKeywords.add("MOD", Token.KEYWORD2);
      cobolKeywords.add("NUMVAL", Token.KEYWORD2);
      cobolKeywords.add("NUMVAL-C", Token.KEYWORD2);
      cobolKeywords.add("ORD", Token.KEYWORD2);
      cobolKeywords.add("ORD-MAX", Token.KEYWORD2);
      cobolKeywords.add("ORD-MIN", Token.KEYWORD2);
      cobolKeywords.add("PRESENT-VALUE", Token.KEYWORD2);
      cobolKeywords.add("RANDOM", Token.KEYWORD2);
      cobolKeywords.add("RANGE", Token.KEYWORD2);
      cobolKeywords.add("REM", Token.KEYWORD2);
      cobolKeywords.add("REVERSE", Token.KEYWORD2);
      cobolKeywords.add("SIN", Token.KEYWORD2);
      cobolKeywords.add("SQRT", Token.KEYWORD2);
      cobolKeywords.add("STANDARD-DEVIATION", Token.KEYWORD2);
      cobolKeywords.add("SUM", Token.KEYWORD2);
      cobolKeywords.add("TAN", Token.KEYWORD2);
      cobolKeywords.add("UPPER-CASE", Token.KEYWORD2);
      cobolKeywords.add("VARIANCE", Token.KEYWORD2);
      cobolKeywords.add("WHEN-COMPILED", Token.KEYWORD2);

      cobolKeywords.add("[COPY-PREFIX]", Token.LITERAL2);
      cobolKeywords.add("[COUNT]", Token.LITERAL2);
      cobolKeywords.add("[DISPLAY]", Token.LITERAL2);
      cobolKeywords.add("[EXECUTE]", Token.LITERAL2);
      cobolKeywords.add("[PG]", Token.LITERAL2);
      cobolKeywords.add("[PREFIX]", Token.LITERAL2);
      cobolKeywords.add("[PROGRAM]", Token.LITERAL2);
      cobolKeywords.add("[SPECIAL-PREFIX]", Token.LITERAL2);
      cobolKeywords.add("[TESTCASE]", Token.LITERAL2);
    }

    return cobolKeywords;
  }

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

    int len = i - lastKeyword;
    byte id = keywords.lookup(line, lastKeyword, len);
    if (id != Token.NULL)
    {
      if(lastKeyword != lastOffset)
        addToken(lastKeyword - lastOffset, Token.NULL);
      addToken(len, id);
      lastOffset = i;
    }
    lastKeyword = i1;
    return false;
  }
}

// End of CobolTokenMarker.java