Plugins mit Free-Pascal erstellen Einstellungen

[meybohm]

QUELLTEXT

{

delete_html_tags.pas



Dieses Plugin löscht alle HTML-Tags innerhalb des geöffneten

Proton-Dokuments bzw. innerhalb des markierten Textes.



Beispielplugin

Proton Plugins mit dem Free Pascal Compiler erstellen.

Zum kompilieren folgenden Befehl aufrufen:

c:ppbinwin32ppc386 -Sd delete_html_tags.pas



Hinweis:

Um Proton als Free-Pascal IDE zu nutzen, einfach

folgenden Shortcut in den Programmeinstellungen

definieren:

command.com /k c:ppbinwin32ppc386 -Sd %A%

}



library delete_html_tags;



uses

 regexpr;



const KEINE_RUECKGABE=0;

     RUECKGABE_ERSETZT_MARKIERUNG = 1;

     RUECKGABE_ERSETZT_EDITORTEXT = 2;



var RUECKGABETYP:integer;



function pluginStart(text:pchar; selstart,sellength:integer) : pchar;  export;stdcall;

var

  r : tregexprengine;

  i,len : longint;

  s:string;

begin

r:=GenerateRegExprEngine('<[^>]+>',[]);

SetString(s,text,strlen(text));

if (sellength=0) then

 RUECKGABETYP:=RUECKGABE_ERSETZT_EDITORTEXT

else

    begin

 s:=copy(s,selstart+1,sellength);

 RUECKGABETYP:=RUECKGABE_ERSETZT_MARKIERUNG;

    end;

while RegExprPos(r,pchar(s),i,len) do

    begin

 delete(s,i+1,len);

    end;

DestroyregExprEngine(r);

pluginStart := pchar(s);

end;



function pluginRueckgabetyp:Integer;export;stdcall;

begin

 pluginRueckgabetyp :=RUECKGABETYP;

end;



function pluginInterfaceVersion: integer; export;stdcall;

begin

 pluginInterfaceVersion := 1;

end;



exports

pluginRueckgabetyp,

pluginStart,

pluginInterfaceVersion;



end.

[/code]