synhighlighterjscript.pas

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

            if KeyComp('float') then Result := tkKey else
              if KeyComp('Float') then Result := tkNonReservedKey else
                if KeyComp('pageY') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func55: TtkTokenKind;
begin
  if KeyComp('reload') then Result := tkNonReservedKey else
    if KeyComp('Object') then Result := tkNonReservedKey else
      if KeyComp('watch') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func56: TtkTokenKind;
begin
  if KeyComp('this') then Result := tkKey else
    if KeyComp('alert') then Result := tkNonReservedKey else
      if KeyComp('sup') then Result := tkNonReservedKey else
        if KeyComp('domain') then Result := tkNonReservedKey else
          if KeyComp('index') then Result := tkNonReservedKey else
            if KeyComp('concat') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func57: TtkTokenKind;
begin
  if KeyComp('isNaN') then Result := tkNonReservedKey else
    if KeyComp('small') then Result := tkNonReservedKey else
      if KeyComp('while') then Result := tkKey else
        if KeyComp('height') then Result := tkNonReservedKey else
          if KeyComp('goto') then Result := tkKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func58: TtkTokenKind;
begin
  if KeyComp('cookie') then Result := tkNonReservedKey else
    if KeyComp('closed') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func59: TtkTokenKind;
begin
  if KeyComp('parse') then Result := tkNonReservedKey else
    if KeyComp('Anchor') then Result := tkNonReservedKey else
      if KeyComp('anchor') then Result := tkNonReservedKey else
        if KeyComp('double') then Result := tkKey else
          if KeyComp('Null') then Result := tkNonReservedKey else
            if KeyComp('null') then Result := tkKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func60: TtkTokenKind;
begin
  if KeyComp('with') then Result := tkKey else
    if KeyComp('replace') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func61: TtkTokenKind;
begin
  if KeyComp('onLoad') then Result := tkEvent else
    if KeyComp('value') then Result := tkNonReservedKey else
        if KeyComp('Layer') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func62: TtkTokenKind;
begin
  if KeyComp('action') then Result := tkNonReservedKey else
    if KeyComp('getDate') then Result := tkNonReservedKey else
      if KeyComp('getDay') then Result := tkNonReservedKey else
        if KeyComp('border') then Result := tkNonReservedKey else
          if KeyComp('host') then Result := tkNonReservedKey else
            if KeyComp('frames') then Result := tkNonReservedKey else
              if KeyComp('right') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func63: TtkTokenKind;
begin
  if KeyComp('Array') then Result := tkNonReservedKey else
    if KeyComp('next') then Result := tkNonReservedKey else
      if KeyComp('try') then Result := tkKey else
        if KeyComp('public') then Result := tkKey else
          if KeyComp('Packages') then Result := tkNonReservedKey else
            if KeyComp('logon') then Result := tkNonReservedKey else
              if KeyComp('color') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func64: TtkTokenKind;
begin
  if KeyComp('Boolean') then Result := tkNonReservedKey else
    if KeyComp('Select') then Result := tkNonReservedKey else
      if KeyComp('select') then Result := tkNonReservedKey else
        if KeyComp('taint') then Result := tkNonReservedKey else
          if KeyComp('focus') then Result := tkNonReservedKey else
            if KeyComp('boolean') then Result := tkKey else
              if KeyComp('width') then Result := tkNonReservedKey else
                if KeyComp('true') then Result := tkKey else
                  if KeyComp('screen') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func65: TtkTokenKind;
begin
  if KeyComp('filename') then Result := tkNonReservedKey else
    if KeyComp('links') then Result := tkNonReservedKey else
      if KeyComp('method') then Result := tkNonReservedKey else
        if KeyComp('random') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func66: TtkTokenKind;
begin
  if KeyComp('vspace') then Result := tkNonReservedKey else
    if KeyComp('length') then Result := tkNonReservedKey else
      if KeyComp('title') then Result := tkNonReservedKey else
        if KeyComp('type') then Result := tkNonReservedKey else
          if KeyComp('appName') then Result := tkNonReservedKey else
            if KeyComp('floor') then Result := tkNonReservedKey else
              if KeyComp('event') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func67: TtkTokenKind;
begin
  if KeyComp('onClick') then Result := tkEvent else
    if KeyComp('onChange') then Result := tkEvent else
      if KeyComp('reset') then Result := tkNonReservedKey else
        if KeyComp('Reset') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func69: TtkTokenKind;
begin
  if KeyComp('port') then Result := tkNonReservedKey else
    if KeyComp('Text') then Result := tkNonReservedKey else
      if KeyComp('text') then Result := tkNonReservedKey else
        if KeyComp('default') then Result := tkKey else
          if KeyComp('debugger') then Result := tkKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func70: TtkTokenKind;
begin
  if KeyComp('Applet') then Result := tkNonReservedKey else
    if KeyComp('stop') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func71: TtkTokenKind;
begin
  if KeyComp('target') then Result := tkNonReservedKey else
    if KeyComp('Checkbox') then Result := tkNonReservedKey else
      if KeyComp('encoding') then Result := tkNonReservedKey else
        if KeyComp('forms') then Result := tkNonReservedKey else
          if KeyComp('const') then Result := tkKey else
            if KeyComp('native') then Result := tkKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func72: TtkTokenKind;
begin
  if KeyComp('round') then Result := tkNonReservedKey else
    if KeyComp('sort') then Result := tkNonReservedKey else
      if KeyComp('bgColor') then Result := tkNonReservedKey else
        if KeyComp('static') then Result := tkKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func73: TtkTokenKind;
begin
  if KeyComp('italics') then Result := tkNonReservedKey else
    if KeyComp('Number') then Result := tkNonReservedKey else
      if KeyComp('opener') then Result := tkNonReservedKey else
        if KeyComp('selected') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func74: TtkTokenKind;
begin
  if KeyComp('sqrt') then Result := tkNonReservedKey else
    if KeyComp('SQRT2') then Result := tkNonReservedKey else
      if KeyComp('parent') then Result := tkNonReservedKey else
        if KeyComp('setDate') then Result := tkNonReservedKey else
          if KeyComp('menubar') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func75: TtkTokenKind;
begin
  if KeyComp('write') then Result := tkNonReservedKey else
    if KeyComp('RegExp') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func76: TtkTokenKind;
begin
  if KeyComp('fgColor') then Result := tkNonReservedKey else
    if KeyComp('split') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func77: TtkTokenKind;
begin
  if KeyComp('javaEnabled') then Result := tkNonReservedKey else
    if KeyComp('indexOf') then Result := tkNonReservedKey else
      if KeyComp('print') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func78: TtkTokenKind;
begin
  if KeyComp('anchors') then Result := tkNonReservedKey else
    if KeyComp('confirm') then Result := tkNonReservedKey else
      if KeyComp('pathname') then Result := tkNonReservedKey else
        if KeyComp('start') then Result := tkKey else
          if KeyComp('charCodeAt') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func79: TtkTokenKind;
begin
  if KeyComp('Plugin') then Result := tkNonReservedKey else
    if KeyComp('getTime') then Result := tkNonReservedKey else
      if KeyComp('refresh') then Result := tkNonReservedKey else
        if KeyComp('scroll') then Result := tkNonReservedKey else
          if KeyComp('finally') then Result := tkKey else
            if KeyComp('super') then Result := tkKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func80: TtkTokenKind;
begin
  if KeyComp('short') then Result := tkKey else
    if KeyComp('layers') then Result := tkNonReservedKey else
      if KeyComp('input') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func81: TtkTokenKind;
begin
  if KeyComp('getYear') then Result := tkNonReservedKey else
    if KeyComp('interface') then Result := tkKey else
      if KeyComp('style') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func82: TtkTokenKind;
begin
  if KeyComp('onBlur') then Result := tkEvent else
    if KeyComp('strike') then Result := tkNonReservedKey else
      if KeyComp('valueOf') then Result := tkNonReservedKey else
        if KeyComp('moveBy') then Result := tkNonReservedKey else
          if KeyComp('switch') then Result := tkKey else
            if KeyComp('zIndex') then Result := tkNonReservedKey else
              if KeyComp('Undefined') then Result := tkNonReservedKey else
                if KeyComp('undefined') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func83: TtkTokenKind;
begin
  if KeyComp('netscape') then Result := tkNonReservedKey else
    if KeyComp('toolbar') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func84: TtkTokenKind;
begin
  if KeyComp('Submit') then Result := tkNonReservedKey else
    if KeyComp('submit') then Result := tkNonReservedKey else
      if KeyComp('unescape') then Result := tkNonReservedKey else
        if KeyComp('throw') then Result := tkKey else
          if KeyComp('abstract') then Result := tkKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func85: TtkTokenKind;
begin
  if KeyComp('onAbort') then Result := tkEvent else
    if KeyComp('forward') then Result := tkNonReservedKey else
      if KeyComp('onDblClick') then Result := tkEvent else
        if KeyComp('bottom') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

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

function TSynJScriptSyn.Func87: TtkTokenKind;
begin
  if KeyComp('String') then Result := tkNonReservedKey else
    if KeyComp('typeof') then Result := tkKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func88: TtkTokenKind;
begin
  if KeyComp('Window') then Result := tkNonReservedKey else
    if KeyComp('window') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func89: TtkTokenKind;
begin
  if KeyComp('Location') then Result := tkNonReservedKey else
    if KeyComp('location') then Result := tkNonReservedKey else
      if KeyComp('complete') then Result := tkNonReservedKey else
        if KeyComp('applets') then Result := tkNonReservedKey else
          if KeyComp('Option') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func90: TtkTokenKind;
begin
  if KeyComp('lowsrc') then Result := tkNonReservedKey else
    if KeyComp('moveTo') then Result := tkNonReservedKey else
      if KeyComp('unwatch') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func91: TtkTokenKind;
begin
  if KeyComp('setTime') then Result := tkNonReservedKey else
    if KeyComp('import') then Result := tkKey else
      if KeyComp('extends') then Result := tkKey else
        if KeyComp('private') then Result := tkKey else
          if KeyComp('isFinite') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func92: TtkTokenKind;
begin
  if KeyComp('Button') then Result := tkNonReservedKey else
    if KeyComp('reverse') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func93: TtkTokenKind;
begin
  if KeyComp('appCodeName') then Result := tkNonReservedKey else
    if KeyComp('setYear') then Result := tkNonReservedKey else
      if KeyComp('referrer') then Result := tkNonReservedKey else
          if KeyComp('elements') then Result := tkNonReservedKey else
            if KeyComp('onFocus') then Result := tkEvent else
              if KeyComp('onSelect') then Result := tkEvent else Result := tkIdentifier;
end;

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

function TSynJScriptSyn.Func95: TtkTokenKind;
begin
  if KeyComp('hostname') then Result := tkNonReservedKey else
    if KeyComp('document') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func96: TtkTokenKind;
begin
  if KeyComp('onUnload') then Result := tkEvent else
    if KeyComp('return') then Result := tkKey else
      if KeyComp('onReset') then Result := tkEvent else
        if KeyComp('background') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func98: TtkTokenKind;
begin
  if KeyComp('prompt') then Result := tkNonReservedKey else
    if KeyComp('plugins') then Result := tkNonReservedKey else
      if KeyComp('export') then Result := tkKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func99: TtkTokenKind;
begin
  if KeyComp('current') then Result := tkNonReservedKey else
    if KeyComp('untaint') then Result := tkNonReservedKey else
      if KeyComp('substr') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

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

function TSynJScriptSyn.Func101: TtkTokenKind;
begin
  if KeyComp('FileUpload') then Result := tkNonReservedKey else
    if KeyComp('writeln') then Result := tkNonReservedKey else
      if KeyComp('continue') then Result := tkKey else
        if KeyComp('platform') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func102: TtkTokenKind;
begin
  if KeyComp('getMonth') then Result := tkNonReservedKey else
    if KeyComp('Function') then Result := tkNonReservedKey else
      if KeyComp('function') then Result := tkKey else
        if KeyComp('parseInt') then Result := tkNonReservedKey else Result := tkIdentifier;
end;

function TSynJScriptSyn.Func103: TtkTokenKind;