synhighlightereiffel.pas

用delphi写的delphi源代码 用delphi写的delphi源代码 用delphi写的delphi源代码 用delphi写的delphi源代码

begin
  if KeyComp('%U') then
    Result := tkPredefined
  else
    Result := tkIdentifier;
end;

function TSynEiffelSyn.Func23 :TtkTokenKind;
begin
  if KeyComp('end') then
    Result := tkKey
  else
    Result := tkIdentifier;
end;

function TSynEiffelSyn.Func25 :TtkTokenKind;
begin
  if KeyComp('all') then
    Result := tkKey
  else
    Result := tkIdentifier;
end;

function TSynEiffelSyn.Func28 :TtkTokenKind;
begin
  if KeyComp('is') then
    Result := tkKey
  else
    Result := tkIdentifier;
end;

function TSynEiffelSyn.Func29 :TtkTokenKind;
begin
  if KeyComp('no') then
    Result := tkLace
  else
    Result := tkIdentifier;
end;

function TSynEiffelSyn.Func30 :TtkTokenKind;
begin
  if KeyComp('check') then
    Result := tkKey
  else
    if KeyComp('make') then
      Result := tkLace
    else
      Result := tkIdentifier;
end;

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

function TSynEiffelSyn.Func33 :TtkTokenKind;
begin
  if KeyComp('or') then
    Result := tkKey
  else
    Result := tkIdentifier;
end;

function TSynEiffelSyn.Func36 :TtkTokenKind;
begin
  if KeyComp('real') then
    Result := tkBasicTypes
  else
    Result := tkIdentifier;
end;

function TSynEiffelSyn.Func37 :TtkTokenKind;
begin
  if KeyComp('like') then
    Result := tkKey
  else
    if KeyComp('once') then
      Result := tkKey
    else
      Result := tkIdentifier;
end;

function TSynEiffelSyn.Func39 :TtkTokenKind;
begin
  if KeyComp('debug') then
    Result := tkKey
  else
    Result := tkIdentifier;
end;

function TSynEiffelSyn.Func41 :TtkTokenKind;
begin
  if KeyComp('else') then
    Result := tkKey
  else
    Result := tkIdentifier;
end;

function TSynEiffelSyn.Func42 :TtkTokenKind;
begin
  if KeyComp('alias') then
    Result := tkKey
  else
    if KeyComp('adapt') then
      Result := tkLace
    else
      Result := tkIdentifier;
end;

function TSynEiffelSyn.Func43 :TtkTokenKind;
begin
  if KeyComp('local') then
    Result := tkKey
  else
    if KeyComp('false') then
      Result := tkPredefined
    else
      Result := tkIdentifier;
end;

function TSynEiffelSyn.Func45 :TtkTokenKind;
begin
  if KeyComp('comma') then
    Result := tkLace
  else
    if KeyComp('use') then
      Result := tkLace
    else
      Result := tkIdentifier;
end;

function TSynEiffelSyn.Func47 :TtkTokenKind;
begin
  if KeyComp('trace') then
    Result := tkLace
  else
    if KeyComp('then') then
      Result := tkKey
    else
      Result := tkIdentifier;
end;

function TSynEiffelSyn.Func49 :TtkTokenKind;
begin
  if KeyComp('yes') then
    Result := tkLace
  else
    if KeyComp('not') then
      Result := tkKey
    else
      Result := tkIdentifier;
end;

function TSynEiffelSyn.Func50 :TtkTokenKind;
begin
  if KeyComp('void') then
    Result := tkPredefined
  else
    if KeyComp('when') then
      Result := tkKey
    else
      Result := tkIdentifier;
end;

function TSynEiffelSyn.Func52 :TtkTokenKind;
begin
  if KeyComp('from') then
    Result := tkKey
  else
    Result := tkIdentifier;
end;

function TSynEiffelSyn.Func54 :TtkTokenKind;
begin
  if KeyComp('class') then
    Result := tkKey
  else
    Result := tkIdentifier;
end;

function TSynEiffelSyn.Func55 :TtkTokenKind;
begin
  if KeyComp('object') then
    Result := tkLace
  else
    Result := tkIdentifier;
end;

function TSynEiffelSyn.Func56 :TtkTokenKind;
begin
  if KeyComp('rename') then
    Result := tkKey
  else
    if KeyComp('elseif') then
      Result := tkKey
    else
      Result := tkIdentifier;
end;

function TSynEiffelSyn.Func57 :TtkTokenKind;
begin
  if KeyComp('xor') then
    Result := tkKey
  else
    Result := tkIdentifier;
end;

function TSynEiffelSyn.Func58 :TtkTokenKind;
begin
  if KeyComp('loop') then
    Result := tkKey
  else
    Result := tkIdentifier;
end;

function TSynEiffelSyn.Func59 :TtkTokenKind;
begin
  if KeyComp('double') then
    Result := tkBasicTypes
  else
    if KeyComp('colon') then
      Result := tkLace
    else
      Result := tkIdentifier;
end;

function TSynEiffelSyn.Func62 :TtkTokenKind;
begin
  if KeyComp('infix') then
    Result := tkKey
  else
    Result := tkIdentifier;
end;

function TSynEiffelSyn.Func63 :TtkTokenKind;
begin
  if KeyComp('Array') then
    Result := tkBasicTypes
  else
    Result := tkIdentifier;
end;

function TSynEiffelSyn.Func64 :TtkTokenKind;
begin
  if KeyComp('boolean') then
    Result := tkBasicTypes
  else
    if KeyComp('true') then
      Result := tkPredefined
    else
      if KeyComp('select') then
        Result := tkKey
      else
        Result := tkIdentifier;
end;

function TSynEiffelSyn.Func65 :TtkTokenKind;
begin
  if KeyComp('deferred') then
    Result := tkKey
  else
    Result := tkIdentifier;
end;

function TSynEiffelSyn.Func66 :TtkTokenKind;
begin
  if KeyComp('redefine') then
    Result := tkKey
  else
    Result := tkIdentifier;
end;

function TSynEiffelSyn.Func68 :TtkTokenKind;
begin
  if KeyComp('include') then
    Result := tkLace
  else
    if KeyComp('root') then
      Result := tkLace
    else
      if KeyComp('ignore') then
        Result := tkLace
      else
        Result := tkIdentifier;
end;

function TSynEiffelSyn.Func69 :TtkTokenKind;
begin
  if KeyComp('default') then
    Result := tkLace
  else
    Result := tkIdentifier;
end;

function TSynEiffelSyn.Func71 :TtkTokenKind;
begin
  if KeyComp('rescue') then
    Result := tkKey
  else
    Result := tkIdentifier;
end;

function TSynEiffelSyn.Func73 :TtkTokenKind;
begin
  if KeyComp('expanded') then
    Result := tkKey
  else
    Result := tkIdentifier;
end;

function TSynEiffelSyn.Func74 :TtkTokenKind;
begin
  if KeyComp('exclude') then
    Result := tkLace
  else
    Result := tkIdentifier;
end;

function TSynEiffelSyn.Func75 :TtkTokenKind;
begin
  if KeyComp('generate') then
    Result := tkLace
  else
    Result := tkIdentifier;
end;

function TSynEiffelSyn.Func76 :TtkTokenKind;
begin
  if KeyComp('until') then
    Result := tkKey
  else
    if KeyComp('feature') then
      Result := tkKey
    else
      Result := tkIdentifier;
end;

function TSynEiffelSyn.Func77 :TtkTokenKind;
begin
  if KeyComp('character') then
    Result := tkBasicTypes
  else
    Result := tkIdentifier;
end;

function TSynEiffelSyn.Func78 :TtkTokenKind;
begin
  if KeyComp('undefine') then
    Result := tkKey
  else
    if KeyComp('prefix') then
      Result := tkKey
    else
      if KeyComp('integer') then
        Result := tkBasicTypes
      else
        if KeyComp('visible') then
          Result := tkLace
        else
          Result := tkIdentifier;
end;

function TSynEiffelSyn.Func82 :TtkTokenKind;
begin
  if KeyComp('ensure') then
    Result := tkKey
  else
    if KeyComp('strip') then
      Result := tkPredefined
    else
      Result := tkIdentifier;
end;

function TSynEiffelSyn.Func83 :TtkTokenKind;
begin
  if KeyComp('inherit') then
    Result := tkKey
  else
    if KeyComp('implies') then
      Result := tkKey
    else
      Result := tkIdentifier;
end;

function TSynEiffelSyn.Func84 :TtkTokenKind;
begin
  if KeyComp('frozen') then
    Result := tkKey
  else
    Result := tkIdentifier;
end;

function TSynEiffelSyn.Func85 :TtkTokenKind;
begin
  if KeyComp('variant') then
    Result := tkKey
  else
    if KeyComp('creation') then
      Result := tkKey
    else
      if KeyComp('separate') then
        Result := tkKey
      else
        Result := tkIdentifier;
end;

function TSynEiffelSyn.Func86 :TtkTokenKind;
begin
  if KeyComp('retry') then
    Result := tkKey
  else
    if KeyComp('inspect') then
      Result := tkKey
    else
      if KeyComp('indexing') then
        Result := tkKey
      else
        Result := tkIdentifier;
end;

function TSynEiffelSyn.Func87 :TtkTokenKind;
begin
  if KeyComp('string') then
    Result := tkBasicTypes
  else
    if KeyComp('unique') then
      Result := tkPredefined
    else
      Result := tkIdentifier;
end;

function TSynEiffelSyn.Func89 :TtkTokenKind;
begin
  if KeyComp('option') then
    Result := tkLace
  else
    Result := tkIdentifier;
end;

function TSynEiffelSyn.Func93 :TtkTokenKind;
begin
  if KeyComp('require') then
    Result := tkKey
  else
    if KeyComp('obsolete') then
      Result := tkKey
    else
      Result := tkIdentifier;
end;

function TSynEiffelSyn.Func95 :TtkTokenKind;
begin
  if KeyComp('result') then
    Result := tkResultValue
  else
    Result := tkIdentifier;
end;

function TSynEiffelSyn.Func97 :TtkTokenKind;
begin
  if KeyComp('pointer') then
    Result := tkBasicTypes
  else
    Result := tkIdentifier;
end;

function TSynEiffelSyn.Func98 :TtkTokenKind;
begin
  if KeyComp('cluster') then
    Result := tkLace
  else
    if KeyComp('executable') then