psvjscript.pas

PIC 单片机 PAS SOURCE CODE SAMPLES

    if KeyComp('acos') then Result := tkKey else
      if KeyComp('max') then Result := tkKey else Result := tkIdentifier;
end;

function TpsvJScriptRTF.Func39: TtkTokenKind;
begin
  if KeyComp('LOG10E') then Result := tkKey else
    if KeyComp('LOG2E') then Result := tkKey else
      if KeyComp('for') then Result := tkKey else
        if KeyComp('checked') then Result := tkKey else
          if KeyComp('for') then Result := tkKey else Result := tkIdentifier;
end;

function TpsvJScriptRTF.Func40: TtkTokenKind;
begin
  if KeyComp('eval') then Result := tkKey else
    if KeyComp('src') then Result := tkKey else Result := tkIdentifier;
end;

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

function TpsvJScriptRTF.Func42: TtkTokenKind;
begin
  if KeyComp('Math') then Result := tkKey else
    if KeyComp('self') then Result := tkKey else
      if KeyComp('Math') then Result := tkKey else
        if KeyComp('sin') then Result := tkKey else
          if KeyComp('new') then Result := tkKey else
            if KeyComp('sub') then Result := tkKey else Result := tkIdentifier;
end;

function TpsvJScriptRTF.Func43: TtkTokenKind;
begin
  if KeyComp('asin') then Result := tkKey else
    if KeyComp('Frame') then Result := tkKey else Result := tkIdentifier;
end;

function TpsvJScriptRTF.Func44: TtkTokenKind;
begin
  if KeyComp('Hidden') then Result := tkKey else
    if KeyComp('UTC') then Result := tkKey else Result := tkIdentifier;
end;

function TpsvJScriptRTF.Func45: TtkTokenKind;
begin
  if KeyComp('exp') then Result := tkKey else Result := tkIdentifier;
end;

function TpsvJScriptRTF.Func46: TtkTokenKind;
begin
  if KeyComp('Link') then Result := tkKey else
    if KeyComp('link') then Result := tkKey else Result := tkIdentifier;
end;

function TpsvJScriptRTF.Func47: TtkTokenKind;
begin
  if KeyComp('Radio') then Result := tkKey else Result := tkIdentifier;
end;

function TpsvJScriptRTF.Func48: TtkTokenKind;
begin
  if KeyComp('join') then Result := tkKey else
    if KeyComp('embeds') then Result := tkKey else
      if KeyComp('blink') then Result := tkKey else
        if KeyComp('fixed') then Result := tkKey else Result := tkIdentifier;
end;

function TpsvJScriptRTF.Func49: TtkTokenKind;
begin
  if KeyComp('escape') then Result := tkKey else Result := tkIdentifier;
end;

function TpsvJScriptRTF.Func50: TtkTokenKind;
begin
  if KeyComp('open') then Result := tkKey else Result := tkIdentifier;
end;

function TpsvJScriptRTF.Func51: TtkTokenKind;
begin
  if KeyComp('charAt') then Result := tkKey else
    if KeyComp('top') then Result := tkKey else
      if KeyComp('URL') then Result := tkKey else
        if KeyComp('caller') then Result := tkKey else Result := tkIdentifier;
end;

function TpsvJScriptRTF.Func52: TtkTokenKind;
begin
  if KeyComp('Form') then Result := tkKey else
    if KeyComp('form') then Result := tkKey else
      if KeyComp('hspace') then Result := tkKey else Result := tkIdentifier;
end;

function TpsvJScriptRTF.Func53: TtkTokenKind;
begin
  if KeyComp('blur') then Result := tkKey else Result := tkIdentifier;
end;

function TpsvJScriptRTF.Func54: TtkTokenKind;
begin
  if KeyComp('pow') then Result := tkKey else
    if KeyComp('close') then Result := tkKey else
      if KeyComp('search') then Result := tkKey else
        if KeyComp('images') then Result := tkKey else Result := tkIdentifier;
end;

function TpsvJScriptRTF.Func55: TtkTokenKind;
begin
  if KeyComp('object') then Result := tkKey else
    if KeyComp('object') then Result := tkKey else
      if KeyComp('reload') then Result := tkKey else
        if KeyComp('object') then Result := tkKey else Result := tkIdentifier;
end;

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

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

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

function TpsvJScriptRTF.Func59: TtkTokenKind;
begin
  if KeyComp('parse') then Result := tkKey else
    if KeyComp('Anchor') then Result := tkKey else
      if KeyComp('anchor') then Result := tkKey else Result := tkIdentifier;
end;

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

function TpsvJScriptRTF.Func61: TtkTokenKind;
begin
  if KeyComp('onLoad') then Result := tkKey else
    if KeyComp('value') then Result := tkKey else Result := tkIdentifier;
end;

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

function TpsvJScriptRTF.Func63: TtkTokenKind;
begin
  if KeyComp('Array') then Result := tkKey else
    if KeyComp('array') then Result := tkKey else
      if KeyComp('array') then Result := tkKey else
        if KeyComp('Array') then Result := tkKey else
          if KeyComp('next') then Result := tkKey else Result := tkIdentifier;
end;

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

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

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

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

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

function TpsvJScriptRTF.Func70: TtkTokenKind;
begin
  if KeyComp('Applet') then Result := tkKey else Result := tkIdentifier;
end;

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

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

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

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

function TpsvJScriptRTF.Func75: TtkTokenKind;
begin
  if KeyComp('write') then Result := tkKey else Result := tkIdentifier;
end;

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

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

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

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

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

function TpsvJScriptRTF.Func82: TtkTokenKind;
begin
  if KeyComp('onBlur') then Result := tkKey else
    if KeyComp('strike') then Result := tkKey else
      if KeyComp('valueOf') then Result := tkKey else Result := tkIdentifier;
end;

function TpsvJScriptRTF.Func83: TtkTokenKind;
begin
  if KeyComp('comment') then Result := tkKey else Result := tkIdentifier;
end;

function TpsvJScriptRTF.Func84: TtkTokenKind;
begin
  if KeyComp('submit') then Result := tkKey else
    if KeyComp('unescape') then Result := tkKey else Result := tkIdentifier;
end;

function TpsvJScriptRTF.Func85: TtkTokenKind;
begin
  if KeyComp('onAbort') then Result := tkKey else
    if KeyComp('forward') then Result := tkKey else Result := tkIdentifier;
end;

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

function TpsvJScriptRTF.Func88: TtkTokenKind;
begin
  if KeyComp('window') then Result := tkKey else Result := tkIdentifier;
end;

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

function TpsvJScriptRTF.Func90: TtkTokenKind;
begin
  if KeyComp('lowsrc') then Result := tkKey else Result := tkIdentifier;
end;

function TpsvJScriptRTF.Func91: TtkTokenKind;
begin
  if KeyComp('setTime') then Result := tkKey else Result := tkIdentifier;
end;

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

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

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

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

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

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

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

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

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

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

function TpsvJScriptRTF.Func103: TtkTokenKind;
begin
  if KeyComp('onError') then Result := tkKey else Result := tkIdentifier;
end;

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

function TpsvJScriptRTF.Func106: TtkTokenKind;
begin
  if KeyComp('MimeType') then Result := tkKey else Result := tkIdentifier;
end;

function TpsvJScriptRTF.Func107: TtkTokenKind;
begin
  if KeyComp('taintEnabled') then Result := tkKey else
    if KeyComp('navigator') then Result := tkKey else Result := tkIdentifier;
end;

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

function TpsvJScriptRTF.Func109: TtkTokenKind;
begin
  if KeyComp('suffixes') then Result := tkKey else
    if KeyComp('linkColor') then Result := tkKey else Result := tkIdentifier;
end;

function TpsvJScriptRTF.Func110: TtkTokenKind;
begin
  if KeyComp('userAgent') then Result := tkKey else
    if KeyComp('alinkColor') then Result := tkKey else Result := tkIdentifier;
end;

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

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

function TpsvJScriptRTF.Func114: TtkTokenKind;
begin
  if KeyComp('fontsize') then Result := tkKey else
    if KeyComp('history') then Result := tkKey else
      if KeyComp('setMonth') then Result := tkKey else
        if KeyComp('protocol') then Result := tkKey else Result := tkIdentifier;
end;

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

function TpsvJScriptRTF.Func117: TtkTokenKind;
begin
  if KeyComp('lastModified') then Result := tkKey else Result := tkIdentifier;
end;

function TpsvJScriptRTF.Func118: TtkTokenKind;
begin
  if KeyComp('fontcolor') then Result := tkKey else