Erstellen einer IDE mit Pascal Script und SynEdit

Question

Ich erstelle eine integrierte Skript-Engine mit PascalScript von RemObjects (ausgezeichnet) und dem SynEdit-Editor. Es ist fast fertig mit dem IDE-Beispiel, das mit PascalScript geliefert wurde und dem IDE-Beispiel in SynEdit - aber - ich kann nicht sehen, wie man PascalScript fragt, ob eine nummerierte Quellzeile "ausführbar" ist oder nicht. (Ich kann das verwenden, um den SynEdit-Kanal mit dem blauen Delphi-Punkt zu markieren). Ich denke, ich muss vielleicht die ROPS-Ausgabe demontieren?

Alle PascalScript-Experten hier? Vielen Dank. Brian.

Answer 1

Werfen Sie einen Blick auf den Quellcode Inno Setup. Es zeigt einen kleinen Punkt im SynEdit-Rinnenbereich für Linien mit ausführbarem Code, graue für Linien, die ausführbar sind, aber nicht ausgeführt wurden, grüne für Linien, die mindestens einmal getroffen wurden.

Der Code dafür finden Sie in CompForm.pas, suchen Sie nach dem TLineState Typ. Die Information wird in dem iscbNotifySuccess-Status des Compiler-Rückrufs eingerichtet, Sie könnten dasselbe in Ihrer IDE vornehmen. Möglicherweise müssen Sie den Code an mehrere Quelldateien anpassen, da der Inno Setup-Compiler nur Code-Snippets in der einzelnen Quelldatei verarbeitet.

In den Pascal Script-Quellen sollten Sie sich die TPSCustomDebugExec.TranslatePositionEx()-Methode ansehen - sie gibt auch den Namen der Quelldatei zurück.

Answer 2

Ich weiß nicht genau, wie es das tut, aber das IDE-Projekt im PascalScript-Paket (gefunden unter \ samples \ debug) bietet Step-In und Step-Over (F7 und F8) Funktionalität, also logisch muss eine Möglichkeit haben, PS-Bytecode mit Zeilen des Skriptcodes zu verknüpfen. Versuchen Sie, dieses Projekt zu untersuchen, um zu sehen, wie es funktioniert. Als Bonus nutzt es auch SynEdit, so dass die Ideen einfach an Ihr eigenes System angepasst werden können.

Answer 3

Ich weiß, das ist eine alte Frage, aber ich habe das selbe selbst gemacht und die obigen Vorschläge helfen nicht wirklich. Das Inno-Setup verwendet zum Beispiel keine Synedit, sondern einen Scintilla-Editor.

Auch das TPSCustomDebugExec.TranslatePositionEx() führt das Gegenteil von dem, was gewünscht wird, es gibt eine Quellzeilennummer aus einer Laufzeitcodeposition an.

Nach einiger Zeit kam ich zu dem Schluss, dass es am einfachsten ist, dem PascalScript-Code eine Funktion hinzuzufügen.

Die neue Methode wird der TPSCustomDebugExec-Klasse in der Einheit uPSdebugger hinzugefügt.

function TPSCustomDebugExec.HasCode(Filename:string; LineNo:integer):boolean; 
var i,j:integer; fi:PFunctionInfo; pt:TIfList; r:PPositionData; 
begin 
    result:=false; 
    for i := 0 to FDebugDataForProcs.Count -1 do 
    begin 
    fi := FDebugDataForProcs[i]; 
    pt := fi^.FPositionTable; 
    for j := 0 to pt.Count -1 do 
    begin 
     r:=pt[j]; 
     result:= SameText(r^.FileName,Filename) and (r^.Row=LineNo); 
     if result then exit 
    end; 
    end; 
end; 

und die Farbe Gosse Rückruf in der Hauptform Editor ist als unten

procedure Teditor.PaintGutterGlyphs(ACanvas:TCanvas; AClip:TRect; 
    FirstLine, LastLine: integer); 
var a,b:boolean; LH,LH2,X,Y,ImgIndex:integer; 
begin 
    begin 
    FirstLine := Ed.RowToLine(FirstLine); 
    LastLine := Ed.RowToLine(LastLine); 
    X := 14; 
    LH := Ed.LineHeight; 
    LH2:=(LH-imglGutterGlyphs.Height) div 2; 
    while FirstLine <= LastLine do 
    begin 
     Y := LH2+LH*(Ed.LineToRow(FirstLine)-Ed.TopLine); 
     a:= ce.HasBreakPoint(ce.MainFileName,FirstLine); 
     b:= ce.Exec.HasCode(ce.MainFileName,FirstLine); 
     if Factiveline=FirstLine then 
     begin 
     if a then 
      ImgIndex := 2 //Blue arrow+red dot (breakpoint and execution point) 
     else 
      ImgIndex := 1; //Blue arrow (current line execution point) 
     end 
     else 
     if b then 
     begin 
      if a then 
      ImgIndex := 3 //Valid Breakpoint marker 
      else 
      ImgIndex := 0; //blue dot (has code) 
     end 
     else 
     begin 
      if a then 
      ImgIndex := 4 //Invalid breakpoint (No code on this line) 
      else 
      ImgIndex := -1; //Empty (No code for line) 
     end; 
     if ImgIndex >= 0 then 
     imglGutterGlyphs.Draw(ACanvas, X,Y,ImgIndex); 
     Inc(FirstLine); 
    end; 
    end; 
end; 

Die SynEdit mit Zeilennummern, Codepunkten, Haltepunkten, Lesezeichen und Ausführungspunkt Blick, wie im Bild unten