synhighlightercobol.pas

SynEditStudio delphi 代码编辑器

                        if KeyComp('CALL') then Result := tkKey else
                          if KeyComp('READ') then Result := tkKey else
                            if KeyComp('COMP-4') then Result := tkKey else
                              if KeyComp('COMP-3') then Result := tkKey else
                                if KeyComp('IS') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func29: TtkTokenKind;
begin
  if KeyComp('PAGE') then Result := tkKey else
    if KeyComp('NO') then Result := tkKey else
      if KeyComp('ON') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func30: TtkTokenKind;
begin
  if KeyComp('COL') then Result := tkKey else
    if KeyComp('DATE') then Result := tkKey else
      if KeyComp('DAY') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func31: TtkTokenKind;
begin
  if KeyComp('BELL') then Result := tkKey else
    if KeyComp('BIT') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func32: TtkTokenKind;
var
  I: Integer;
begin
  if KeyComp('END-READ') then Result := tkKey else
    if KeyComp('B-NOT') then Result := tkKey else
      if KeyComp('FILE') then Result := tkKey else
        if KeyComp('GET') then Result := tkKey else
          if KeyComp('END-CALL') then Result := tkKey else
            if KeyComp('LABEL') then
            begin
              I := Run + Length('LABEL');
              while fLine[I] = ' ' do
                Inc(I);
              if (StrLIComp( PChar(@fLine[I]), 'RECORD', Length('RECORD')) = 0)
                and (I + Length('RECORD') - 1 <= fCodeEndPos) then
                  Result := tkKey
                else
                  Result := tkPreprocessor;
            end
            else
              Result := tkIdentifier;
end;

function TSynCobolSyn.Func33: TtkTokenKind;
begin
  if KeyComp('FIND') then Result := tkKey else
    if KeyComp('OR') then Result := tkKey else
      if KeyComp('NAME') then Result := tkKey else
        if KeyComp('ESI') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func34: TtkTokenKind;
begin
  if KeyComp('EGCS') then Result := tkKey else
    if KeyComp('FREE') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func35: TtkTokenKind;
begin
  if KeyComp('TO') then Result := tkKey else
    if KeyComp('CHAIN') then Result := tkKey else
      if KeyComp('END-OF-PAGE') then Result := tkKey else Result := tkIdentifier;
end;

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

function TSynCobolSyn.Func37: TtkTokenKind;
begin
  if KeyComp('INDEX-5') then Result := tkKey else
    if KeyComp('UP') then Result := tkKey else
      if KeyComp('EXEC') then Result := tkKey else
        if KeyComp('INDEX-4') then Result := tkKey else
          if KeyComp('INDEX-3') then Result := tkKey else
            if KeyComp('INDEX-6') then Result := tkKey else
              if KeyComp('INDEX-9') then Result := tkKey else
                if KeyComp('INDEX-8') then Result := tkKey else
                  if KeyComp('INDEX-7') then Result := tkKey else
                    if KeyComp('INDEX-1') then Result := tkKey else
                      if KeyComp('KEEP') then Result := tkKey else
                        if KeyComp('MODE') then Result := tkKey else
                          if KeyComp('INDEX-2') then Result := tkKey else
                            if KeyComp('LIKE') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func38: TtkTokenKind;
begin
  if KeyComp('CANCEL') then Result := tkKey else
    if KeyComp('SAME') then Result := tkKey else
      if KeyComp('B-LESS') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func39: TtkTokenKind;
begin
  if KeyComp('ENABLE') then Result := tkKey else
    if KeyComp('FOR') then Result := tkKey else
      if KeyComp('INDIC') then Result := tkKey else
        if KeyComp('GOBACK') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func40: TtkTokenKind;
begin
  if KeyComp('ANY') then Result := tkKey else
    if KeyComp('LINE') then Result := tkKey else
      if KeyComp('BLANK') then Result := tkKey else
        if KeyComp('TABLE') then Result := tkKey else
          if KeyComp('REEL') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func41: TtkTokenKind;
begin
  if KeyComp('ELSE') then Result := tkKey else
    if KeyComp('LOCK') then Result := tkKey else
      if KeyComp('KEY') then Result := tkKey else
        if KeyComp('NO-ECHO') then Result := tkKey else
          if KeyComp('CRT') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func42: TtkTokenKind;
begin
  if KeyComp('TAPE') then Result := tkKey else
    if KeyComp('SEND') then Result := tkKey else
      if KeyComp('FINAL') then Result := tkKey else
        if KeyComp('COM-REG') then Result := tkKey else
          if KeyComp('FETCH') then Result := tkKey else
            if KeyComp('CHANGED') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func43: TtkTokenKind;
begin
  if KeyComp('EJECT') then Result := tkPreprocessor else
    if KeyComp('BLOCK') then Result := tkKey else
      if KeyComp('DEBUG-SUB-3') then Result := tkKey else
        if KeyComp('FALSE') then Result := tkBoolean else
          if KeyComp('LEFT') then Result := tkKey else
            if KeyComp('DISK') then Result := tkKey else
              if KeyComp('DEBUG-SUB-2') then Result := tkKey else
                if KeyComp('DEBUG-SUB-1') then Result := tkKey else
                  if KeyComp('THAN') then Result := tkKey else
                    if KeyComp('END-ENABLE') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func44: TtkTokenKind;
begin
  if KeyComp('AREAS') then Result := tkKey else
    if KeyComp('SPACE') then Result := tkString else
      if KeyComp('SET') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func45: TtkTokenKind;
begin
  if KeyComp('RANGE') then Result := tkKey else
    if KeyComp('DB-SET-NAME') then Result := tkKey else
      if KeyComp('USE') then Result := tkPreprocessor else
        if KeyComp('KANJI') then Result := tkKey else
          if KeyComp('COMMA') then Result := tkKey else
            if KeyComp('B-EXOR') then Result := tkKey else Result := tkIdentifier;
end;

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

function TSynCobolSyn.Func47: TtkTokenKind;
begin
  if KeyComp('THEN') then Result := tkKey else
    if KeyComp('ALSO') then Result := tkKey else
      if KeyComp('COMP') then Result := tkKey else
        if KeyComp('TIME') then Result := tkKey else
          if KeyComp('COBOL') then Result := tkKey else
            if KeyComp('TRACE') then Result := tkPreprocessor else Result := tkIdentifier;
end;

function TSynCobolSyn.Func48: TtkTokenKind;
begin
  if KeyComp('HEADING') then Result := tkKey else
    if KeyComp('LINAGE') then Result := tkKey else
      if KeyComp('VALID') then Result := tkKey else
        if KeyComp('BLINK') then Result := tkKey else
          if KeyComp('MERGE') then Result := tkKey else
            if KeyComp('FIXED') then Result := tkKey else
              if KeyComp('NONE') then Result := tkKey else
                if KeyComp('ACCEPT') then Result := tkKey else
                  if KeyComp('ERASE') then Result := tkKey else
                    if KeyComp('CYCLE') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func49: TtkTokenKind;
begin
  if KeyComp('GLOBAL') then Result := tkKey else
    if KeyComp('NOT') then Result := tkKey else
      if KeyComp('SIGN') then Result := tkKey else
        if KeyComp('ESCAPE') then Result := tkKey else
          if KeyComp('REALM') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func50: TtkTokenKind;
begin
  if KeyComp('AFTER') then Result := tkKey else
    if KeyComp('WHEN') then Result := tkKey else
      if KeyComp('BASIS') then Result := tkPreprocessor else
        if KeyComp('OPEN') then Result := tkKey else
          if KeyComp('BITS') then Result := tkKey else
            if KeyComp('ACCESS') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func51: TtkTokenKind;
begin
  if KeyComp('DETAIL') then Result := tkKey else
    if KeyComp('TOP') then Result := tkKey else
      if KeyComp('BEFORE') then Result := tkKey else
        if KeyComp('DELETE') then Result := tkPreprocessor else
          if KeyComp('FULL') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func52: TtkTokenKind;
begin
  if KeyComp('LAST') then Result := tkKey else
    if KeyComp('KEPT') then Result := tkKey else
      if KeyComp('FORM') then Result := tkKey else
        if KeyComp('COMP-X') then Result := tkKey else
          if KeyComp('FROM') then Result := tkKey else
            if KeyComp('END-ACCEPT') then Result := tkKey else
              if KeyComp('DISABLE') then Result := tkKey else
                if KeyComp('CODE-SET') then Result := tkKey else
                  if KeyComp('LEADING') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func53: TtkTokenKind;
begin
  if KeyComp('EXACT') then Result := tkKey else
    if KeyComp('WAIT') then Result := tkKey else
      if KeyComp('SUM') then Result := tkKey else
        if KeyComp('USAGE') then Result := tkKey else
          if KeyComp('READY') then Result := tkPreprocessor else
            if KeyComp('DROP') then Result := tkKey else
              if KeyComp('ENDING') then Result := tkKey else
                if KeyComp('DEBUG-NAME') then Result := tkKey else
                  if KeyComp('RUN') then Result := tkKey else
                    if KeyComp('DIVIDE') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func54: TtkTokenKind;
begin
  if KeyComp('CORR') then Result := tkKey else
    if KeyComp('CLOSE') then Result := tkKey else
      if KeyComp('SEARCH') then Result := tkKey else
        if KeyComp('CLASS') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func55: TtkTokenKind;
begin
  if KeyComp('SKIP1') then Result := tkPreprocessor else
    if KeyComp('SKIP3') then Result := tkPreprocessor else
      if KeyComp('SKIP2') then Result := tkPreprocessor else
        if KeyComp('END-DELETE') then Result := tkKey else
          if KeyComp('SHARED') then Result := tkKey else
            if KeyComp('PADDING') then Result := tkKey else
              if KeyComp('MOVE') then Result := tkKey else
                if KeyComp('RELOAD') then Result := tkPreprocessor else
                  if KeyComp('LESS') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func56: TtkTokenKind;
begin
  if KeyComp('INDEX') then Result := tkKey else
    if KeyComp('EQUAL') then Result := tkKey else
      if KeyComp('MEMBER') then Result := tkKey else
        if KeyComp('ALTER') then Result := tkKey else
          if KeyComp('END-DISABLE') then Result := tkKey else
            if KeyComp('EXCESS-3') then Result := tkKey else
              if KeyComp('DOWN') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func57: TtkTokenKind;
begin
  if KeyComp('END-DIVIDE') then Result := tkKey else
    if KeyComp('DAY-OF-WEEK') then Result := tkKey else
      if KeyComp('AUTO') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func58: TtkTokenKind;
begin
  if KeyComp('EXIT') then Result := tkKey else
    if KeyComp('END-SEARCH') then Result := tkKey else
      if KeyComp('INTO') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func59: TtkTokenKind;
begin
  if KeyComp('LINES') then Result := tkKey else
    if KeyComp('LINKAGE') then Result := tkKey else
      if KeyComp('NULL') then Result := tkString else
        if KeyComp('SIZE') then Result := tkKey else
          if KeyComp('COPY') then Result := tkPreprocessor else Result := tkIdentifier;
end;

function TSynCobolSyn.Func60: TtkTokenKind;
begin
  if KeyComp('DEBUG-LINE') then Result := tkKey else
    if KeyComp('WITH') then Result := tkKey else
      if KeyComp('ORDER') then Result := tkKey else
        if KeyComp('REPLACE') then Result := tkPreprocessor else Result := tkIdentifier;
end;

function TSynCobolSyn.Func61: TtkTokenKind;
begin
  if KeyComp('VALUE') then Result := tkKey else
    if KeyComp('SYNC') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func62: TtkTokenKind;
begin
  if KeyComp('FILLER') then Result := tkKey else
    if KeyComp('MANUAL') then Result := tkKey else
      if KeyComp('STANDARD-1') then Result := tkKey else
        if KeyComp('RIGHT') then Result := tkKey else
          if KeyComp('STANDARD-4') then Result := tkKey else
            if KeyComp('STANDARD-2') then Result := tkKey else
              if KeyComp('STANDARD-3') then Result := tkKey else
                if KeyComp('ENTER') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func63: TtkTokenKind;
begin
  if KeyComp('SWITCH-4') then Result := tkKey else
    if KeyComp('SWITCH-5') then Result := tkKey else
      if KeyComp('SWITCH-2') then Result := tkKey else
        if KeyComp('SWITCH-8') then Result := tkKey else
          if KeyComp('SWITCH-1') then Result := tkKey else
            if KeyComp('LIMIT') then Result := tkKey else
              if KeyComp('RECORD') then Result := tkKey else
                if KeyComp('NEXT') then Result := tkKey else
                  if KeyComp('SPACES') then Result := tkString else
                    if KeyComp('COLOR') then Result := tkKey else
                      if KeyComp('SWITCH-6') then Result := tkKey else
                        if KeyComp('BACKWARD') then Result := tkKey else