synhighlighterjscript.pas

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

begin
  if KeyComp('onError') then Result := tkEvent else
    if KeyComp('throws') then Result := tkKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func105: TtkTokenKind;
begin
  if KeyComp('SQRT1_2') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func106: TtkTokenKind;
begin
  if KeyComp('MimeType') then Result := tkNonReservedKey else
    if KeyComp('instanceof') then Result := tkKey else
      if KeyComp('protected') then Result := tkKey else
        if KeyComp('Infinity') then Result := tkNonReservedKey else
          if KeyComp('scrollBy') then Result := tkNonReservedKey else
            if KeyComp('getUTCDate') then Result := tkNonReservedKey else
              if KeyComp('getUTCDay') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func107: TtkTokenKind;
begin
  if KeyComp('taintEnabled') then Result := tkNonReservedKey else
    if KeyComp('Navigator') then Result := tkNonReservedKey else
      if KeyComp('navigator') then Result := tkNonReservedKey else
        if KeyComp('onKeyUp') then Result := tkEvent else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func108: TtkTokenKind;
begin
  if KeyComp('defaultChecked') then Result := tkNonReservedKey else
    if KeyComp('options') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func109: TtkTokenKind;
begin
  if KeyComp('suffixes') then Result := tkNonReservedKey else
    if KeyComp('linkColor') then Result := tkNonReservedKey else
      if KeyComp('resizeBy') then Result := tkNonReservedKey else
        if KeyComp('fromCharCode') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func110: TtkTokenKind;
begin
  if KeyComp('userAgent') then Result := tkNonReservedKey else
    if KeyComp('alinkColor') then Result := tkNonReservedKey else
      if KeyComp('locationbar') then Result := tkNonReservedKey else
        if KeyComp('handleEvent') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func111: TtkTokenKind;
begin
  if KeyComp('getSeconds') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func113: TtkTokenKind;
begin
  if KeyComp('onSubmit') then Result := tkEvent else
    if KeyComp('parseFloat') then Result := tkNonReservedKey else
      if KeyComp('getHours') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func114: TtkTokenKind;
begin
  if KeyComp('fontsize') then Result := tkNonReservedKey else
    if KeyComp('History') then Result := tkNonReservedKey else
      if KeyComp('history') then Result := tkNonReservedKey else
        if KeyComp('setMonth') then Result := tkNonReservedKey else
          if KeyComp('protocol') then Result := tkNonReservedKey else
            if KeyComp('scrollTo') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func115: TtkTokenKind;
begin
  if KeyComp('Password') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func116: TtkTokenKind;
begin
  if KeyComp('toSource') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func117: TtkTokenKind;
begin
  if KeyComp('lastModified') then Result := tkNonReservedKey else
    if KeyComp('resizeTo') then Result := tkNonReservedKey else
      if KeyComp('innerHeight') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func118: TtkTokenKind;
begin
  if KeyComp('fontcolor') then Result := tkNonReservedKey else
    if KeyComp('Arguments') then Result := tkNonReservedKey else
      if KeyComp('arguments') then Result := tkNonReservedKey else
        if KeyComp('setUTCDate') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func119: TtkTokenKind;
begin
  if KeyComp('scrollbars') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func120: TtkTokenKind;
begin
  if KeyComp('transient') then Result := tkKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func121: TtkTokenKind;
begin
  if KeyComp('personalbar') then Result := tkNonReservedKey else
    if KeyComp('statusbar') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func122: TtkTokenKind;
begin
  if KeyComp('toString') then Result := tkNonReservedKey else
    if KeyComp('enabledPlugin') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func123: TtkTokenKind;
begin
  if KeyComp('setSeconds') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func124: TtkTokenKind;
begin
  if KeyComp('innerWidth') then Result := tkNonReservedKey else
    if KeyComp('pageXOffset') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func125: TtkTokenKind;
begin
  if KeyComp('previous') then Result := tkNonReservedKey else
    if KeyComp('setHours') then Result := tkNonReservedKey else
      if KeyComp('mimeTypes') then Result := tkNonReservedKey else
        if KeyComp('pageYOffset') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func126: TtkTokenKind;
begin
  if KeyComp('implements') then Result := tkKey else
    if KeyComp('onKeyDown') then Result := tkEvent else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func128: TtkTokenKind;
begin
  if KeyComp('MIN_VALUE') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func129: TtkTokenKind;
begin
  if KeyComp('lastIndexOf') then Result := tkNonReservedKey else
    if KeyComp('substring') then Result := tkNonReservedKey else
      if KeyComp('selectedIndex') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func130: TtkTokenKind;
begin
  if KeyComp('defaultValue') then Result := tkNonReservedKey else
    if KeyComp('MAX_VALUE') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func131: TtkTokenKind;
begin
  if KeyComp('vlinkColor') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func132: TtkTokenKind;
begin
  if KeyComp('description') then Result := tkNonReservedKey else
    if KeyComp('getFullYear') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func133: TtkTokenKind;
begin
  if KeyComp('getMinutes') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func135: TtkTokenKind;
begin
  if KeyComp('appVersion') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func136: TtkTokenKind;
begin
  if KeyComp('toLowerCase') then Result := tkNonReservedKey else
    if KeyComp('outerHeight') then Result := tkNonReservedKey else
      if KeyComp('visibility') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func139: TtkTokenKind;
begin
  if KeyComp('toUpperCase') then Result := tkNonReservedKey else
    if KeyComp('onMouseUp') then Result := tkEvent else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func140: TtkTokenKind;
begin
  if KeyComp('clearInterval') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func142: TtkTokenKind;
begin
  if KeyComp('defaultSelected') then Result := tkNonReservedKey else
    if KeyComp('clearTimeout') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func143: TtkTokenKind;
begin
  if KeyComp('outerWidth') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func144: TtkTokenKind;
begin
  if KeyComp('setFullYear') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func145: TtkTokenKind;
begin
  if KeyComp('setMinutes') then Result := tkNonReservedKey else
    if KeyComp('setInterval') then Result := tkNonReservedKey else
      if KeyComp('routeEvent') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func146: TtkTokenKind;
begin
  if KeyComp('getUTCMonth') then Result := tkNonReservedKey else
    if KeyComp('getElementById') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func147: TtkTokenKind;
begin
  if KeyComp('setTimeout') then Result := tkNonReservedKey else
    if KeyComp('onKeyPress') then Result := tkEvent else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func150: TtkTokenKind;
begin
  if KeyComp('prototype') then Result := tkKey else
    if KeyComp('releaseEvents') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func155: TtkTokenKind;
begin
  if KeyComp('getUTCSeconds') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func157: TtkTokenKind;
begin
  if KeyComp('onMouseMove') then Result := tkEvent else
    if KeyComp('getUTCHours') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func158: TtkTokenKind;
begin
  if KeyComp('onMouseOut') then Result := tkEvent else
    if KeyComp('onMouseDown') then Result := tkEvent else
      if KeyComp('setUTCMonth') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func160: TtkTokenKind;
begin
  if KeyComp('synchronized') then Result := tkKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func162: TtkTokenKind;
begin
  if KeyComp('toGMTString') then Result := tkNonReservedKey else
    if KeyComp('onMouseOver') then Result := tkEvent else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func166: TtkTokenKind;
begin
  if KeyComp('constructor') then Result := tkKey else
    if KeyComp('getMilliseconds') then Result := tkNonReservedKey else
      if KeyComp('toUTCString') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func167: TtkTokenKind;
begin
  if KeyComp('setUTCSeconds') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func169: TtkTokenKind;
begin
  if KeyComp('defaultStatus') then Result := tkNonReservedKey else
     if KeyComp('captureEvents') then Result := tkNonReservedKey else
       if KeyComp('setUTCHours') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func170: TtkTokenKind;
begin
  if KeyComp('toLocaleString') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func176: TtkTokenKind;
begin
  if KeyComp('getUTCFullYear') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func177: TtkTokenKind;
begin
  if KeyComp('getUTCMinutes') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func178: TtkTokenKind;
begin
  if KeyComp('setMilliseconds') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func188: TtkTokenKind;
begin
  if KeyComp('setUTCFullYear') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func189: TtkTokenKind;
begin
  if KeyComp('setUTCMinutes') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func210: TtkTokenKind;
begin
  if KeyComp('getTimezoneOffset') then Result := tkNonReservedKey else
    if KeyComp('getUTCMilliseconds') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func220: TtkTokenKind;
begin
  if KeyComp('NEGATIVE_INFINITY') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func222: TtkTokenKind;
begin
  if KeyComp('setUTCMilliseconds') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func252: TtkTokenKind;
begin
  if KeyComp('POSITIVE_INFINITY') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.AltFunc: TtkTokenKind;
begin
  Result := tkIdentifier;
end;

function TSynJScriptSyn.IdentKind(MayBe: PChar): TtkTokenKind;
var
  HashKey: Integer;
begin
  fToIdent := MayBe;
  HashKey := KeyHash(MayBe);
  if HashKey < 253 then
    Result := fIdentFuncTable[HashKey]
  else
    Result := tkIdentifier;
end;

procedure TSynJScriptSyn.MakeMethodTables;
var
  I: Char;
begin
  for I := #0 to #255 do
    case I of
      '&': fProcTable[I] := AndSymbolProc;
      #13: fProcTable[I] := CRProc;
      'A'..'Z', 'a'..'z', '_': fProcTable[I] := IdentProc;
      #10: fProcTable[I] := LFProc;
      '-': fProcTable[I] := MinusProc;
      '%': fProcTable[I] := ModSymbolProc;
      #0: fProcTable[I] := NullProc;