nhasmsyn.pas

来自「本人买的<<VC++项目开发实例>>源代码配套光盘.」· PAS 代码 · 共 1,494 行 · 第 1/3 页

function TnhAsmSyn.Func92: TtkTokenKind;
begin
  if KeyComp('fxtract') then Result := tkKey else
    if KeyComp('movsw') then Result := tkKey else Result := tkIdentifier;
end;

function TnhAsmSyn.Func93: TtkTokenKind;
begin
  if KeyComp('pmulhw') then Result := tkKey else
    if KeyComp('pcmpeqw') then Result := tkKey else Result := tkIdentifier;
end;

function TnhAsmSyn.Func94: TtkTokenKind;
begin
  if KeyComp('packsswb') then Result := tkKey else
    if KeyComp('fcmovnu') then Result := tkKey else Result := tkIdentifier;
end;

function TnhAsmSyn.Func96: TtkTokenKind;
begin
  if KeyComp('packssdw') then Result := tkKey else
    if KeyComp('stosw') then Result := tkKey else
      if KeyComp('frstor') then Result := tkKey else
        if KeyComp('packuswb') then Result := tkKey else Result := tkIdentifier;
end;

function TnhAsmSyn.Func97: TtkTokenKind;
begin
  if KeyComp('pmullw') then Result := tkKey else Result := tkIdentifier;
end;

function TnhAsmSyn.Func98: TtkTokenKind;
begin
  if KeyComp('pcmpgtw') then Result := tkKey else
    if KeyComp('loopnz') then Result := tkKey else
      if KeyComp('outsw') then Result := tkKey else Result := tkIdentifier;
end;

function TnhAsmSyn.Func100: TtkTokenKind;
begin
  if KeyComp('psubsw') then Result := tkKey else
    if KeyComp('fnstenv') then Result := tkKey else
      if KeyComp('psubusb') then Result := tkKey else Result := tkIdentifier;
end;

function TnhAsmSyn.Func101: TtkTokenKind;
begin
  if KeyComp('fnstsw') then Result := tkKey else Result := tkIdentifier;
end;

function TnhAsmSyn.Func104: TtkTokenKind;
begin
  if KeyComp('prefetchw') then Result := tkKey else Result := tkIdentifier;
end;

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

function TnhAsmSyn.Func110: TtkTokenKind;
begin
  if KeyComp('punpckhdq') then Result := tkKey else Result := tkIdentifier;
end;

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

function TnhAsmSyn.Func114: TtkTokenKind;
begin
  if KeyComp('punpckhbw') then Result := tkKey else
    if KeyComp('punpckldq') then Result := tkKey else
      if KeyComp('pfrsqrt') then Result := tkKey else Result := tkIdentifier;
end;

function TnhAsmSyn.Func116: TtkTokenKind;
begin
  if KeyComp('punpckhwd') then Result := tkKey else Result := tkIdentifier;
end;

function TnhAsmSyn.Func118: TtkTokenKind;
begin
  if KeyComp('punpcklbw') then Result := tkKey else Result := tkIdentifier;
end;

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

function TnhAsmSyn.Func121: TtkTokenKind;
begin
  if KeyComp('psubusw') then Result := tkKey else Result := tkIdentifier;
end;

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

{-------------------------------------------------}

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

procedure TnhAsmSyn.MakeMethodTables;
var
  I: Char;
begin
  for I := #0 to #255 do
    case I of
      '&': fProcTable[I] := AmpersandProc;
      #39: fProcTable[I] := ApostropheProc;
      '}': fProcTable[I] := BraceCloseProc;
      '{': fProcTable[I] := BraceOpenProc;
      #13: fProcTable[I] := CRProc;
      ':': fProcTable[I] := ColonProc;
      ',': fProcTable[I] := CommaProc;
      '#': fProcTable[I] := DateProc;
      '=': fProcTable[I] := EqualProc;
      '^': fProcTable[I] := ExponentiationProc;
      '>': fProcTable[I] := GreaterProc;
      'A'..'Z', 'a'..'z', '_': fProcTable[I] := IdentProc;
      #10: fProcTable[I] := LFProc;
      '<': fProcTable[I] := LowerProc;
      '-': fProcTable[I] := MinusProc;
      #0: fProcTable[I] := NullProc;
      '0'..'9': fProcTable[I] := NumberProc;
      '+': fProcTable[I] := PlusProc;
      '.': fProcTable[I] := PointProc; 
      ')': fProcTable[I] := RoundCloseProc;
      '(': fProcTable[I] := RoundOpenProc;
      ';': fProcTable[I] := SemiColonProc;
      '/': fProcTable[I] := SlashProc;
      #1..#9, #11, #12, #14..#32: fProcTable[I] := SpaceProc;
      '*': fProcTable[I] := StarProc;
      #34: fProcTable[I] := StringProc;
    else fProcTable[I] := UnknownProc;
    end;
end;

constructor TnhAsmSyn.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);

  fCommentAttri       := TmwHighLightAttributes.Create(MWS_AttrComment);
  fCommentAttri.Style := [fsItalic];
  AddAttribute(fCommentAttri);
  fIdentifierAttri    := TmwHighLightAttributes.Create(MWS_AttrIdentifier);
  AddAttribute(fIdentifierAttri);
  fKeyAttri           := TmwHighLightAttributes.Create(MWS_AttrReservedWord);
  fKeyAttri.Style     := [fsBold];
  AddAttribute(fKeyAttri);
  fNumberAttri        := TmwHighLightAttributes.Create(MWS_AttrNumber);
  AddAttribute(fNumberAttri);
  fSpaceAttri         := TmwHighLightAttributes.Create(MWS_AttrSpace);
  AddAttribute(fSpaceAttri);
  fStringAttri        := TmwHighLightAttributes.Create(MWS_AttrString);
  AddAttribute(fStringAttri);
  fSymbolAttri        := TmwHighLightAttributes.Create(MWS_AttrSymbol);
  AddAttribute(fSymbolAttri);
  SetAttributesOnChange(DefHighlightChange);

  InitIdent;
  MakeMethodTables;
  fRange              := rsUnknown;
  fDefaultFilter      := MWS_FilterX86Asm;
end; { Create }

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

procedure TnhAsmSyn.AmpersandProc;
begin
  inc(Run);
  fTokenId := tkSymbol;
end;

procedure TnhAsmSyn.ApostropheProc;
begin
  inc(Run);
  fTokenId := tkSymbol;
end;

procedure TnhAsmSyn.BraceCloseProc;
begin
  inc(Run);
  fTokenId := tkSymbol;
end;

procedure TnhAsmSyn.BraceOpenProc;
begin
  inc(Run);
  fTokenID := tkSymbol;
end;

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

procedure TnhAsmSyn.ColonProc;
begin
  inc(Run);
  fTokenID := tkSymbol;
end;

procedure TnhAsmSyn.CommaProc;
begin
  inc(Run);
  fTokenID := tkSymbol;
end;

procedure TnhAsmSyn.DateProc;
begin
  fTokenID := tkComment;
  inc(Run);
  while FLine[Run] <> #0 do
    case FLine[Run] of
      #10: break;
      #13: break;
    else inc(Run);
    end;
end;

procedure TnhAsmSyn.EqualProc;
begin
  inc(Run);
  fTokenID := tkSymbol;
end;

procedure TnhAsmSyn.ExponentiationProc;
begin
  inc(Run);
  fTokenID := tkSymbol;
end;

procedure TnhAsmSyn.GreaterProc;
begin
  Case FLine[Run + 1] of
    '=':
      begin
        inc(Run, 2);
        fTokenID := tkSymbol;
      end;
  else
    begin
      inc(Run);
      fTokenID := tkSymbol;
    end;
  end;
end;

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

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

procedure TnhAsmSyn.LowerProc;
begin
  case FLine[Run + 1] of
    '=':
      begin
        inc(Run, 2);
        fTokenID := tkSymbol;
      end;
    '>':
      begin
        inc(Run, 2);
        fTokenID := tkSymbol;
      end
  else
    begin
      inc(Run);
      fTokenID := tkSymbol;
    end;
  end;
end;

procedure TnhAsmSyn.MinusProc;
begin
  inc(Run);
  fTokenID := tkSymbol;
end;

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

procedure TnhAsmSyn.NumberProc;
begin
  inc(Run);
  fTokenID := tkNumber;
  while FLine[Run] in ['0'..'9', '.', 'e', 'E'] do inc(Run);
end;

procedure TnhAsmSyn.PlusProc;
begin
  inc(Run);
  fTokenID := tkSymbol;
end;

procedure TnhAsmSyn.PointProc;
begin
  inc(Run);
  fTokenID := tkSymbol;
end;

procedure TnhAsmSyn.RoundCloseProc;
begin
  inc(Run);
  fTokenID := tkSymbol;
end;

procedure TnhAsmSyn.RoundOpenProc;
begin
  inc(Run);
  FTokenID := tkSymbol;
end;

procedure TnhAsmSyn.SemiColonProc;
begin
  fTokenID := tkComment;
  inc(Run);
  while FLine[Run] <> #0 do
    case FLine[Run] of
      #10: break;
      #13: break;
    else inc(Run);
    end;
end;

procedure TnhAsmSyn.SlashProc;
{added support for c++ sytle comments}
{which is supported by some assemblers}
begin
  case FLine[Run + 1] of
    '/':
      begin
        inc(Run, 2);
        fTokenID := tkComment;
        while FLine[Run] <> #0 do
        begin
          case FLine[Run] of
            #10, #13: break;
          end;
          inc(Run);
        end;
      end;
  else
    begin
      inc(Run);
      fTokenID := tkSymbol;
    end;
  end;
end;

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

procedure TnhAsmSyn.StarProc;
begin
  inc(Run);
  fTokenID := tkSymbol;
end;

procedure TnhAsmSyn.StringProc;
begin
  fTokenID := tkString;
  if (FLine[Run + 1] = #34) and (FLine[Run + 2] = #34) then inc(Run, 2);
  repeat
    case FLine[Run] of
      #0, #10, #13: break;
    end;
    inc(Run);
  until FLine[Run] = #34;
  if FLine[Run] <> #0 then inc(Run);
end;

procedure TnhAsmSyn.UnknownProc;
begin
  fTokenID := tkIdentifier;
  inc(Run);
end;

procedure TnhAsmSyn.Next;
begin
  fTokenPos := Run;
  fProcTable[fLine[Run]];
end;

function TnhAsmSyn.GetEol: Boolean;
begin
  Result := fTokenId = tkNull;
end;

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

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

function TnhAsmSyn.GetTokenAttribute: TmwHighLightAttributes;
begin
  case fTokenID of
    tkComment: Result := fCommentAttri;
    tkIdentifier: Result := fIdentifierAttri;
    tkKey: Result := fKeyAttri;
    tkNumber: Result := fNumberAttri;
    tkSpace: Result := fSpaceAttri;
    tkString: Result := fStringAttri;
    tkSymbol: Result := fSymbolAttri;
    tkUnknown: Result := fIdentifierAttri;
    else Result := nil;
  end;
end;

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

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

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

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

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

function TnhAsmSyn.GetCapability: THighlighterCapability;
begin
  Result := inherited GetCapability + [hcUserSettings];
end;

function TnhAsmSyn.GetIdentChars: TIdentChars;
begin
  Result := ['_', '0'..'9', 'a'..'z', 'A'..'Z'];
end;

function TnhAsmSyn.GetLanguageName: string;
begin
  Result := MWS_LangX86Asm;
end;

Initialization
  MakeIdentTable;
end.