synhighlightercache.pas

一个mwEdit控件原码,比mwCuuEdit0.92a功能先进.

  fIdentFuncTable[88] := Func88;
  fIdentFuncTable[89] := Func89;
  fIdentFuncTable[90] := Func90;
  fIdentFuncTable[91] := Func91;
  fIdentFuncTable[92] := Func92;
  fIdentFuncTable[93] := Func93;
  fIdentFuncTable[94] := Func94;
  fIdentFuncTable[95] := Func95;
  fIdentFuncTable[98] := Func98;
  fIdentFuncTable[100] := Func100;
  fIdentFuncTable[101] := Func101;
  fIdentFuncTable[102] := Func102;
  fIdentFuncTable[103] := Func103;
  fIdentFuncTable[104] := Func104;
  fIdentFuncTable[105] := Func105;
  fIdentFuncTable[106] := Func106;
  fIdentFuncTable[107] := Func107;
  fIdentFuncTable[108] := Func108;
  fIdentFuncTable[110] := Func110;
  fIdentFuncTable[111] := Func111;
  fIdentFuncTable[114] := Func114;
  fIdentFuncTable[115] := Func115;
  fIdentFuncTable[116] := Func116;
  fIdentFuncTable[117] := Func117;
  fIdentFuncTable[123] := Func123;
  fIdentFuncTable[126] := Func126;
  fIdentFuncTable[127] := Func127;
  fIdentFuncTable[128] := Func128;
  fIdentFuncTable[130] := Func130;
  fIdentFuncTable[142] := Func142;
  fIdentFuncTable[143] := Func143;
  fIdentFuncTable[144] := Func144;
  fIdentFuncTable[151] := Func151;
end;

//------------------------------------------------------------------------------
function TSynCacheSyn.KeyHash(ToHash: PChar): Integer;
begin
  Result := 0;
  while ToHash^ in ['0'..'9', 'a'..'z', 'A'..'Z', '^', '$', '&'{, '(', '<'}] do
  begin
    inc(Result, mHashTable[ToHash^]);
    inc(ToHash);
  end;
  fStringLen := ToHash - fToIdent;
end;

//------------------------------------------------------------------------------
function TSynCacheSyn.KeyComp(const aKey: String): Boolean;
var
  I: Integer;
  Temp: PChar;
begin
  Temp := fToIdent;
  if Length(aKey) = fStringLen then begin
    Result := True;
    for i := 1 to fStringLen do begin
      if mHashTable[Temp^] <> mHashTable[aKey[i]] then begin
        Result := False;
        break;
      end;
      inc(Temp);
    end;
  end else Result := False;
end;

//------------------------------------------------------------------------------
function TSynCacheSyn.Func1: TtkTokenKind;
begin
  if KeyComp('$a') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func2: TtkTokenKind;
begin
  if KeyComp('b') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func3: TtkTokenKind;
begin
  if KeyComp('$c') then Result := tkKey else
    if KeyComp('c') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func4: TtkTokenKind;
begin
  if KeyComp('d') then Result := tkKey else
    if KeyComp('$d') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func5: TtkTokenKind;
begin
  if KeyComp('$e') then Result := tkKey else
    if KeyComp('e') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func6: TtkTokenKind;
begin
  if KeyComp('$f') then Result := tkKey else
    if KeyComp('f') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func7: TtkTokenKind;
begin
  if KeyComp('$g') then Result := tkKey else
    if KeyComp('^$g') then Result := tkKey else
      if KeyComp('g') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func8: TtkTokenKind;
begin
  if KeyComp('$ec') then Result := tkKey else
    if KeyComp('h') then Result := tkKey else
      if KeyComp('$h') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func9: TtkTokenKind;
begin
  if KeyComp('$i') then Result := tkKey else
    if KeyComp('$i') then Result := tkKey else
      if KeyComp('i') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func10: TtkTokenKind;
begin
  if KeyComp('^$j') then Result := tkKey else
      if KeyComp('$j') then Result := tkKey else
        if KeyComp('j') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func11: TtkTokenKind;
begin
  if KeyComp('k') then Result := tkKey else
    if KeyComp('$k') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func12: TtkTokenKind;
begin
  if KeyComp('^$l') then Result := tkKey else
    if KeyComp('l') then Result := tkKey else
      if KeyComp('$l') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func13: TtkTokenKind;
begin
  if KeyComp('m') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func14: TtkTokenKind;
begin
  if KeyComp('$lb') then Result := tkKey else
    if KeyComp('$n') then Result := tkKey else
      if KeyComp('n') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func15: TtkTokenKind;
begin
  if KeyComp('$na') then Result := tkKey else
    if KeyComp('if') then Result := tkKey else
      if KeyComp('$o') then Result := tkKey else
        if KeyComp('o') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func16: TtkTokenKind;
begin
  if KeyComp('$p') then Result := tkKey else
      if KeyComp('p') then Result := tkKey else
        if KeyComp('$ld') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func17: TtkTokenKind;
begin
  if KeyComp('$q') then Result := tkKey else
      if KeyComp('q') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func18: TtkTokenKind;
begin
  if KeyComp('r') then Result := tkKey else
    if KeyComp('^$r') then Result := tkKey else
      if KeyComp('$r') then Result := tkKey else
        if KeyComp('$lf') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func19: TtkTokenKind;
begin
  if KeyComp('$lg') then Result := tkKey else
    if KeyComp('$s') then Result := tkKey else
      if KeyComp('s') then Result := tkKey else
        if KeyComp('do') then Result := tkKey else
          if KeyComp('$s') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func20: TtkTokenKind;
begin
  if KeyComp('$fn') then Result := tkKey else
      if KeyComp('$t') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func21: TtkTokenKind;
begin
  if KeyComp('$li') then Result := tkKey else
    if KeyComp('u') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func23: TtkTokenKind;
begin
  if KeyComp('w') then Result := tkKey else
    if KeyComp('tc') then Result := tkKey else
      if KeyComp('$in') then Result := tkKey else
        if KeyComp('$re') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func24: TtkTokenKind;
begin
  if KeyComp('$es') then Result := tkKey else
    if KeyComp('$ll') then Result := tkKey else
      if KeyComp('$io') then Result := tkKey else
        if KeyComp('x') then Result := tkKey else
          if KeyComp('$x') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func25: TtkTokenKind;
begin
  if KeyComp('$et') then Result := tkKey else
    if KeyComp('$y') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func26: TtkTokenKind;
begin
  if KeyComp('$data') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func27: TtkTokenKind;
begin
  if KeyComp('job') then Result := tkKey else
    if KeyComp('$za') then Result := tkKey else
      if KeyComp('$job') then Result := tkKey else
        if KeyComp('^$job') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func28: TtkTokenKind;
begin
  if KeyComp('$zb') then Result := tkKey else
    if KeyComp('zb') then Result := tkKey else
      if KeyComp('read') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func29: TtkTokenKind;
begin
  if KeyComp('$ql') then Result := tkKey else
    if KeyComp('$zc') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func30: TtkTokenKind;
begin
  if KeyComp('hang') then Result := tkKey else
    if KeyComp('$char') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func31: TtkTokenKind;
begin
  if KeyComp('$vi') then Result := tkKey else
    if KeyComp('$ze') then Result := tkKey else
      if KeyComp('vi') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func32: TtkTokenKind;
begin
  if KeyComp('$get') then Result := tkKey else
    if KeyComp('$tl') then Result := tkKey else
      if KeyComp('$ecode') then Result := tkKey else
        if KeyComp('$zf') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func33: TtkTokenKind;
begin
  if KeyComp('$find') then Result := tkKey else
    if KeyComp('$name') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func34: TtkTokenKind;
begin
    if KeyComp('$zh') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func35: TtkTokenKind;
begin
  if KeyComp('$zi') then Result := tkKey else
    if KeyComp('zi') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func36: TtkTokenKind;
begin
  if KeyComp('$qs') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func37: TtkTokenKind;
begin
  if KeyComp('zk') then Result := tkKey else
    if KeyComp('break') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func38: TtkTokenKind;
begin
  if KeyComp('$piece') then Result := tkKey else
    if KeyComp('zl') then Result := tkKey else
      if KeyComp('$tr') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func39: TtkTokenKind;
begin
  if KeyComp('$st') then Result := tkKey else
    if KeyComp('$st') then Result := tkKey else
      if KeyComp('$zla') then Result := tkKey else
        if KeyComp('for') then Result := tkKey else
          if KeyComp('ts') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func40: TtkTokenKind;
begin
  if KeyComp('zn') then Result := tkKey else
    if KeyComp('$zn') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func41: TtkTokenKind;
begin
  if KeyComp('$key') then Result := tkKey else
    if KeyComp('else') then Result := tkKey else
      if KeyComp('halt') then Result := tkKey else
        if KeyComp('$zo') then Result := tkKey else
          if KeyComp('^$lock') then Result := tkKey else
            if KeyComp('lock') then Result := tkKey else
              if KeyComp('$zlc') then Result := tkKey else
                if KeyComp('$ascii') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func42: TtkTokenKind;
begin
  if KeyComp('zp') then Result := tkKey else
        if KeyComp('$zp') then Result := tkKey else
          if KeyComp('new') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func43: TtkTokenKind;
begin
  if KeyComp('zq') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func44: TtkTokenKind;
begin
  if KeyComp('$zr') then Result := tkKey else
    if KeyComp('kill') then Result := tkKey else
      if KeyComp('set') then Result := tkKey else
        if KeyComp('zr') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func45: TtkTokenKind;
begin
  if KeyComp('zs') then Result := tkKey else
    if KeyComp('use') then Result := tkKey else
      if KeyComp('$zs') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func46: TtkTokenKind;
begin
  if KeyComp('$zt') then Result := tkKey else
    if KeyComp('$zt') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func47: TtkTokenKind;
begin
  if KeyComp('$zu') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func48: TtkTokenKind;
begin
  if KeyComp('$zabs') then Result := tkKey else
    if KeyComp('merge') then Result := tkKey else
      if KeyComp('$zv') then Result := tkKey else
        if KeyComp('&sql') then begin
          Result := tkEmbedSQL;
          fRange := rsSQL;
        end else
          if KeyComp('$device') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func49: TtkTokenKind;
begin
  if KeyComp('^$global') then Result := tkKey else
    if KeyComp('$zw') then Result := tkKey else
      if KeyComp('zw') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func50: TtkTokenKind;
begin
  if KeyComp('$zcrc') then Result := tkKey else
    if KeyComp('$zio') then Result := tkKey else
      if KeyComp('$zwa') then Result := tkKey else
        if KeyComp('$zse') then Result := tkKey else
          if KeyComp('open') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func51: TtkTokenKind;
begin
  if KeyComp('$zcsc') then Result := tkKey else
    if KeyComp('$zpi') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func52: TtkTokenKind;
begin
  if KeyComp('$zz') then Result := tkKey else
    if KeyComp('$zeof') then Result := tkKey else
      if KeyComp('$zwc') then Result := tkKey else
        if KeyComp('$zln') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func53: TtkTokenKind;
begin
  if KeyComp('$zjob') then Result := tkKey else
    if KeyComp('tro') then Result := tkKey else
      if KeyComp('&html') then begin
        Result := tkEmbedSQL;
        fRange := rsHTML;
      end else
        if KeyComp('$zsec') then Result := tkKey else Result := tkIdentifier;
end;