psvjscript.pas

PIC 单片机 PAS SOURCE CODE SAMPLES

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

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

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

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

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

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

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

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

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

function TpsvJScriptRTF.Func133: TtkTokenKind;
begin
  if KeyComp('property') then Result := tkKey else
    if KeyComp('getMinutes') then Result := tkKey else
      if KeyComp('property') then Result := tkKey else Result := tkIdentifier;
end;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

function TpsvJScriptRTF.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 TpsvJScriptRTF.MakeMethodTables;
var
  I: Char;
begin
  for I := #0 to #255 do
    case I of
      '&': fProcTable[I] := AndSymbolProc;
      '#': fProcTable[I] := AsciiCharProc;
      #13: fProcTable[I] := CRProc;
      'A'..'Z', 'a'..'z', '_': fProcTable[I] := IdentProc;
      '$': fProcTable[I] := IntegerProc;
      #10: fProcTable[I] := LFProc;
      '-': fProcTable[I] := MinusProc;
      '%': fProcTable[I] := ModSymbolProc;
      #0: fProcTable[I] := NullProc;
      '0'..'9': fProcTable[I] := NumberProc;
      '|': fProcTable[I] := OrSymbolProc;
      '+': fProcTable[I] := PlusProc;
      '.': fProcTable[I] := PointProc;
      '/': fProcTable[I] := SlashProc;
      #1..#9, #11, #12, #14..#32: fProcTable[I] := SpaceProc;
      '*': fProcTable[I] := StarProc;
      '"', #39: fProcTable[I] := StringProc;
//      '~', '{', '}', ',', '(', ')':
      '~', '{', '}', ',', '(', ')', '[', ']', '<', '>', ':', ';', '!', '=':     //satya 2000-07-15
        fProcTable[I] := SymbolProc;
    else
      fProcTable[I] := UnknownProc;
    end;
end;

constructor TpsvJScriptRTF.Create;
begin
  inherited Create;
  InitIdent;
  MakeMethodTables;
  fRange := rsUnknown;
  CreateColorTable([clGreen, //comment
                    clBlack, //identifier
                    clNavy,  //key
                    clBlue,  //number
                    clBlack,
                    clBlack,
                    clBlack,
                    clBlack]);
end;

procedure TpsvJScriptRTF.SetLine(NewValue: String; LineNumber: Integer);
begin
  fLine := PChar(NewValue);
  Run := 0;
  fLineNumber := LineNumber;
  Next;
end;

procedure TpsvJScriptRTF.AndSymbolProc;
begin
  fTokenID := tkSymbol;
  inc(Run);
  if fLine[Run] in ['=', '&'] then inc(Run);
end;

procedure TpsvJScriptRTF.AsciiCharProc;
begin
  fTokenID := tkString;
  inc(Run);
  while FLine[Run] in ['0'..'9'] do inc(Run);
end;

{begin}                                                                         //mh 2000-07-14
// copied from CSS highlighter
procedure TpsvJScriptRTF.CommentProc;
begin
  if fLine[Run] = #0 then
    fTokenID := tkNull
  else begin
    fTokenID := tkComment;
    repeat
      if (fLine[Run] = '*') and (fLine[Run + 1] = '/') then begin
        fRange := rsUnKnown;
        inc(Run, 2);
        break;
      end;
      inc(Run);
    until fLine[Run] in [#0, #10, #13];
  end;
end;
{end}                                                                           //mh 2000-07-14

procedure TpsvJScriptRTF.CRProc;
begin
  fTokenID := tkSpace;
  inc(Run);
  if fLine[Run] = #10 then inc(Run);
end;

procedure TpsvJScriptRTF.IdentProc;
begin
  fTokenID := IdentKind((fLine + Run));
  inc(Run, fStringLen);
  while Identifiers[fLine[Run]] do inc(Run);
end;

procedure TpsvJScriptRTF.IntegerProc;
begin
  inc(Run);
  fTokenID := tkNumber;
  while FLine[Run] in ['0'..'9', 'A'..'F', 'a'..'f'] do inc(Run);
end;

procedure TpsvJScriptRTF.LFProc;
begin
  fTokenID := tkSpace;
  inc(Run);
end;

procedure TpsvJScriptRTF.MinusProc;
begin
  fTokenID := tkSymbol;
  inc(Run);
  if fLine[Run] in ['=', '-', '>'] then inc(Run);
end;

procedure TpsvJScriptRTF.ModSymbolProc;
begin
  fTokenID := tkSpace;
  inc(Run);
  if fLine[Run] = '=' then inc(Run);
end;

procedure TpsvJScriptRTF.NullProc;
begin
  fTokenID := tkNull;
end;

procedure TpsvJScriptRTF.NumberProc;
begin
  inc(Run);
  fTokenID := tkNumber;
  while FLine[Run] in ['0'..'9', '.', 'e', 'E'] do
  begin
    case FLine[Run] of
      '.':
        if FLine[Run + 1] = '.' then break;
    end;
    inc(Run);
  end;
end;

procedure TpsvJScriptRTF.OrSymbolProc;
begin
  fTokenID := tkSymbol;
  inc(Run);
  if fLine[Run] in ['=', '|'] then inc(Run);
end;

procedure TpsvJScriptRTF.PlusProc;
begin
  fTokenID := tkSymbol;
  inc(Run);
  if fLine[Run] in ['=', '+'] then inc(Run);
end;

procedure TpsvJScriptRTF.PointProc;
begin
  fTokenID := tkSymbol;
  inc(Run);
  if (fLine[Run] = '.') and (fLine[Run + 1] = '.') then inc(Run, 2);
end;

procedure TpsvJScriptRTF.SlashProc;
begin
{begin}                                                                         //mh 2000-07-14
  Inc(Run);
  case fLine[Run] of
    '/': begin
           fTokenID := tkComment;
           repeat
             Inc(Run);
           until fLine[Run] in [#0, #10, #13];
         end;
    '*': begin
           fTokenID := tkComment;
           fRange := rsAnsi;
           repeat
             Inc(Run);
             if (fLine[Run] = '*') and (fLine[Run + 1] = '/') then begin
               fRange := rsUnKnown;
               Inc(Run, 2);
               break;
             end;
           until fLine[Run] in [#0, #10, #13];
         end;
    '=': begin
           Inc(Run);
           fTokenID := tkSymbol;
         end;
    else
      fTokenID := tkSymbol;
  end;
{end}                                                                           //mh 2000-07-14
end;

procedure TpsvJScriptRTF.SpaceProc;
begin
  inc(Run);
  fTokenID := tkSpace;
  while FLine[Run] in [#1..#9, #11, #12, #14..#32] do inc(Run);
end;

procedure TpsvJScriptRTF.StarProc;
begin
  fTokenID := tkSpace;
  inc(Run);
  if fLine[Run] = '=' then inc(Run);
end;

procedure TpsvJScriptRTF.StringProc;
var
  l_strChar : String;
begin
  fTokenID := tkString;
  l_strChar := FLine[Run];   // We could have '"' or #39
  if (FLine[Run + 1] = l_strChar) and (FLine[Run + 2] = l_strChar) then inc(Run, 2);
  repeat
    case FLine[Run] of
      #0, #10, #13: break;
    end;
    inc(Run);
  until (FLine[Run] = l_strChar);
  if FLine[Run] <> #0 then inc(Run);
end;

procedure TpsvJScriptRTF.SymbolProc;
begin
  inc(Run);
  fTokenId := tkSymbol;
end;

procedure TpsvJScriptRTF.UnknownProc;
begin
  inc(Run);
  fTokenID := tkUnknown;
end;

procedure TpsvJScriptRTF.Next;
begin
  fTokenPos := Run;
{begin}                                                                         //mh 2000-07-14
  if fRange = rsANSI then
    CommentProc
  else
{end}                                                                           //mh 2000-07-14
    fProcTable[fLine[Run]];
end;


function TpsvJScriptRTF.GetEOL: Boolean;
begin
  Result := fTokenID = tkNull;
end;

function TpsvJScriptRTF.GetRange: Pointer;
begin
  Result := Pointer(fRange);
end;

function TpsvJScriptRTF.GetToken: String;
var
  Len: LongInt;
begin
  Len := Run - fTokenPos;
  SetString(Result, (FLine + fTokenPos), Len);
end;

function TpsvJScriptRTF.GetTokenID: TtkTokenKind;
begin
  Result := fTokenId;
end;

function TpsvJScriptRTF.GetTokenAttribute: integer;
begin
  case GetTokenID of
    tkComment: Result := 1;
    tkIdentifier: Result := 2;
    tkKey: Result := 3;
    tkNumber: Result := 4;
    tkSpace: Result := 5;
    tkString: Result := 6;
    tkSymbol: Result := 7;
    tkUnknown: Result := 8;
    else Result := 8;
  end;

end;

function TpsvJScriptRTF.GetTokenKind: integer;
begin
  Result := Ord(fTokenId);
end;

function TpsvJScriptRTF.GetTokenPos: Integer;
begin
  Result := fTokenPos;
end;

procedure TpsvJScriptRTF.ReSetRange;
begin
  fRange := rsUnknown;
end;

procedure TpsvJScriptRTF.SetRange(Value: Pointer);
begin
  fRange := TRangeState(Value);
end;

procedure TpsvJScriptRTF.PrepareToken(var AToken : string);
var St : string;
begin
  St := AToken;
  St := StringReplace(St,'\','\\',[rfReplaceAll]);
  St := StringReplace(St,'{','\{',[rfReplaceAll]);
  St := StringReplace(St,'}','\}',[rfReplaceAll]);
  AToken := St;
end;

procedure TpsvJScriptRTF.SetupDefaultColors;
begin
  CreateColorTable([clGreen, //comment
                    clBlack, //identifier
                    clNavy,  //key
                    clBlue,  //number
                    clBlack,
                    clBlack,
                    clBlack,
                    clBlack]);
end;

initialization
  MakeIdentTable;
end.