synhighlightercobol.pas

SynEditStudio delphi 代码编辑器

        if KeyComp('ALTERNATE') then Result := tkKey else
          if KeyComp('REVERSED') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func97: TtkTokenKind;
begin
  if KeyComp('THROUGH') then Result := tkKey else
    if KeyComp('REQUIRED') then Result := tkKey else
      if KeyComp('CONTROL') then Result := tkPreprocessor else
        if KeyComp('RETAINING') then Result := tkKey else
          if KeyComp('POINTER') then Result := tkKey else
            if KeyComp('PRESENT') then Result := tkKey else
              if KeyComp('QUOTES') then Result := tkString else
                if KeyComp('RECONNECT') then Result := tkKey else
                  if KeyComp('END-COMPUTE') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func98: TtkTokenKind;
begin
  if KeyComp('DB-EXCEPTION') then Result := tkKey else
    if KeyComp('REFERENCES') then Result := tkKey else
      if KeyComp('REWRITE') then Result := tkKey else
        if KeyComp('SPECIAL-NAMES') then Result := tkKey else
          if KeyComp('SYMBOLIC') then Result := tkKey else
            if KeyComp('PROMPT') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func99: TtkTokenKind;
begin
  if KeyComp('CURRENT') then Result := tkKey else
    if KeyComp('SHIFT-OUT') then Result := tkKey else
      if KeyComp('EXTERNAL') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func100: TtkTokenKind;
begin
  if KeyComp('TALLYING') then Result := tkKey else
    if KeyComp('STATUS') then Result := tkKey else
      if KeyComp('PRINTER') then Result := tkKey else
        if KeyComp('END-RETURN') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func101: TtkTokenKind;
begin
  if KeyComp('DIVISION') then Result := tkKey else
    if KeyComp('CONTINUE') then Result := tkKey else
      if KeyComp('SORT-MERGE') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func102: TtkTokenKind;
begin
  if KeyComp('END-REWRITE') then Result := tkKey else
    if KeyComp('FUNCTION') then Result := tkKey else
      if KeyComp('OPTIONAL') then Result := tkKey else
        if KeyComp('DECIMAL-POINT') then Result := tkKey else
          if KeyComp('UNDERLINE') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func103: TtkTokenKind;
begin
  if KeyComp('CONTROL-AREA') then Result := tkKey else
    if KeyComp('JUSTIFIED') then Result := tkKey else
      if KeyComp('TIMEOUT') then Result := tkKey else
        if KeyComp('AUTOMATIC') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func104: TtkTokenKind;
begin
  if KeyComp('SUBTRACT') then Result := tkKey else
    if KeyComp('RETURN-CODE') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func105: TtkTokenKind;
begin
  if KeyComp('TERMINATE') then Result := tkKey else
    if KeyComp('PROCEDURE') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func106: TtkTokenKind;
begin
  if KeyComp('PAGE-COUNTER') then Result := tkKey else
    if KeyComp('ARITHMETIC') then Result := tkKey else
      if KeyComp('DISCONNECT') then Result := tkKey else
        if KeyComp('PROTECTED') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func107: TtkTokenKind;
begin
  if KeyComp('PRINTING') then Result := tkKey else
    if KeyComp('CURRENCY') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func108: TtkTokenKind;
begin
  if KeyComp('END-SUBTRACT') then Result := tkKey else
    if KeyComp('CLOCK-UNITS') then Result := tkKey else
      if KeyComp('STARTING') then Result := tkKey else
        if KeyComp('MULTIPLE') then Result := tkKey else
          if KeyComp('WHEN-COMPILED') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func110: TtkTokenKind;
begin
  if KeyComp('DUPLICATES') then Result := tkKey else
    if KeyComp('RETRIEVAL') then Result := tkKey else
      if KeyComp('FILE-CONTROL') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func111: TtkTokenKind;
begin
  if KeyComp('LOW-VALUES') then Result := tkString else
    if KeyComp('EXCEPTION') then Result := tkKey else
      if KeyComp('REPORTS') then Result := tkKey else
        if KeyComp('NUMERIC-EDITED') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func112: TtkTokenKind;
begin
  if KeyComp('INDICATORS') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func113: TtkTokenKind;
begin
  if KeyComp('OUTPUT') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func114: TtkTokenKind;
begin
  if KeyComp('INITIALIZE') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func115: TtkTokenKind;
begin
  if KeyComp('PASSWORD') then Result := tkKey else
    if KeyComp('POSITIVE') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func116: TtkTokenKind;
begin
  if KeyComp('CONTROLS') then Result := tkKey else
    if KeyComp('TRANSCEIVE') then Result := tkKey else
      if KeyComp('OVERFLOW') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func117: TtkTokenKind;
begin
  if KeyComp('POSITION') then Result := tkKey else
    if KeyComp('LINE-COUNTER') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func119: TtkTokenKind;
begin
  if KeyComp('DECLARATIVES') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func120: TtkTokenKind;
begin
  if KeyComp('DATE-WRITTEN') then Result := tkKey else
    if KeyComp('SECURITY') then Result := tkKey else
      if KeyComp('END-TRANSCEIVE') then Result := tkKey else
        if KeyComp('TRAILING-SIGN') then Result := tkKey else
          if KeyComp('EXCLUSIVE') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func121: TtkTokenKind;
begin
  if KeyComp('ALPHANUMERIC') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func122: TtkTokenKind;
begin
  if KeyComp('WRITE-ONLY') then Result := tkKey else
    if KeyComp('REPORTING') then Result := tkKey else
      if KeyComp('SORT-MESSAGE') then Result := tkKey else
        if KeyComp('UNSTRING') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func123: TtkTokenKind;
begin
  if KeyComp('SEQUENTIAL') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func124: TtkTokenKind;
begin
  if KeyComp('PROCEDURES') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func125: TtkTokenKind;
begin
  if KeyComp('PREVIOUS') then Result := tkKey else
    if KeyComp('PROCESSING') then Result := tkKey else
      if KeyComp('LINAGE-COUNTER') then Result := tkKey else
        if KeyComp('COMMITMENT') then Result := tkKey else
          if KeyComp('SORT-FILE-SIZE') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func126: TtkTokenKind;
begin
  if KeyComp('END-UNSTRING') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func127: TtkTokenKind;
begin
  if KeyComp('SEGMENT-LIMIT') then Result := tkKey else
    if KeyComp('CONVERTING') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func128: TtkTokenKind;
begin
  if KeyComp('REVERSE-VIDEO') then Result := tkKey else
    if KeyComp('MULTIPLY') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func130: TtkTokenKind;
begin
  if KeyComp('SUBPROGRAM') then Result := tkKey else
    if KeyComp('SORT-MODE-SIZE') then Result := tkKey else
      if KeyComp('DEBUG-CONTENTS') then Result := tkKey else
        if KeyComp('DESTINATION') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func131: TtkTokenKind;
begin
  if KeyComp('ALPHABETIC-LOWER') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func132: TtkTokenKind;
begin
  if KeyComp('END-MULTIPLY') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func133: TtkTokenKind;
begin
  if KeyComp('SUPPRESS') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func134: TtkTokenKind;
begin
  if KeyComp('TRANSACTION') then Result := tkKey else
    if KeyComp('SORT-CORE-SIZE') then Result := tkKey else
      if KeyComp('LEFT-JUSTIFY') then Result := tkKey else
        if KeyComp('ALPHABETIC-UPPER') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func137: TtkTokenKind;
begin
  if KeyComp('DB-ACCESS-CONTROL-KEY') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func138: TtkTokenKind;
begin
  if KeyComp('IDENTIFICATION') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func140: TtkTokenKind;
begin
  if KeyComp('PRINT-SWITCH') then Result := tkKey else
    if KeyComp('BACKGROUND-COLOR') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func141: TtkTokenKind;
begin
  if KeyComp('COMPUTATIONAL-5') then Result := tkKey else
    if KeyComp('COMPUTATIONAL-8') then Result := tkKey else
      if KeyComp('COMPUTATIONAL-0') then Result := tkKey else
        if KeyComp('COMPUTATIONAL-2') then Result := tkKey else
          if KeyComp('COMPUTATIONAL-3') then Result := tkKey else
            if KeyComp('COMPUTATIONAL-6') then Result := tkKey else
              if KeyComp('COMPUTATIONAL-7') then Result := tkKey else
                if KeyComp('COMPUTATIONAL-9') then Result := tkKey else
                  if KeyComp('COMPUTATIONAL-4') then Result := tkKey else
                    if KeyComp('COMPUTATIONAL-1') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func146: TtkTokenKind;
begin
  if KeyComp('INSTALLATION') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func147: TtkTokenKind;
begin
  if KeyComp('OBJECT-COMPUTER') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func149: TtkTokenKind;
begin
  if KeyComp('ALPHANUMERIC-EDITED') then Result := tkKey else
    if KeyComp('ENVIRONMENT') then Result := tkKey else
      if KeyComp('ORGANIZATION') then Result := tkKey else
        if KeyComp('SORT-RETURN') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func150: TtkTokenKind;
begin
  if KeyComp('COMMUNICATION') then Result := tkKey else
    if KeyComp('SORT-CONTROL') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func152: TtkTokenKind;
begin
  if KeyComp('CONFIGURATION') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func153: TtkTokenKind;
begin
  if KeyComp('RIGHT-JUSTIFY') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func157: TtkTokenKind;
begin
  if KeyComp('CORRESPONDING') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func160: TtkTokenKind;
begin
  if KeyComp('SYNCHRONIZED') then Result := tkKey else
    if KeyComp('COMPUTATIONAL') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func161: TtkTokenKind;
begin
  if KeyComp('BACKGROUND-COLOUR') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func163: TtkTokenKind;
begin
  if KeyComp('WORKING-STORAGE') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func165: TtkTokenKind;
begin
  if KeyComp('COMPUTATIONAL-X') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func167: TtkTokenKind;
begin
  if KeyComp('FOREGROUND-COLOR') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func173: TtkTokenKind;
begin
  if KeyComp('SOURCE-COMPUTER') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func174: TtkTokenKind;
begin
  if KeyComp('INPUT-OUTPUT') then Result := tkKey else Result := tkIdentifi