paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 06:09:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

jcf: adopt EditorConverter for lazarus

Browse Source 
git-svn-id: trunk@17891 -
This commit is contained in:
paul 2008-12-23 04:10:52 +00:00
parent d578cccfd2
commit 8c0ad52957
1 changed files with 68 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

70
components/jcf2/ReadWrite/EditorConverter.pas
View File

@ -35,8 +35,13 @@ interface
uses
Classes,
{ delphi design time }
ToolsAPI,
{$ifdef fpc}
{ lazarus design time }
SrcEditorIntf,
{$else}
{ delphi design time }
ToolsAPI,
{$endif}
{ local }
Converter, ConvertTypes;
@ -59,8 +64,13 @@ type
function GetOnStatusMessage: TStatusMessageProc;
procedure SetOnStatusMessage(const Value: TStatusMessageProc);
{$ifdef fpc}
function ReadFromIDE(const pcUnit: TSourceEditorInterface): string;
procedure WriteToIDE(const pcUnit: TSourceEditorInterface; const psText: string);
{$else}
function ReadFromIDE(const pcUnit: IOTASourceEditor): string;
procedure WriteToIDE(const pcUnit: IOTASourceEditor; const psText: string);
{$endif}
procedure FinalSummary;
function OriginalFileName: string;
@ -71,7 +81,11 @@ type
constructor Create;
destructor Destroy; override;
{$ifdef fpc}
procedure Convert(const pciUnit: TSourceEditorInterface);
{$else}
procedure Convert(const pciUnit: IOTASourceEditor);
{$endif}
procedure Clear;
@ -107,6 +121,56 @@ begin
inherited;
end;
{$ifdef fpc}
procedure TEditorConverter.Convert(const pciUnit: TSourceEditorInterface);
begin
Assert(pciUnit <> nil);
if not GetRegSettings.HasRead then
GetRegSettings.ReadAll;
{ check for read-only }
if pciUnit <> nil then
begin
if pciUnit.ReadOnly then
begin
SendStatusMessage(pciUnit.FileName, 'Unit is read only. Cannot format ',
mtInputError, -1, -1);
exit;
end;
end;
fsCurrentUnitName := pciUnit.FileName;
fcConverter.InputCode := ReadFromIDE(pciUnit);
// now convert
fcConverter.Convert;
fsCurrentUnitName := '';
if not ConvertError then
begin
WriteToIDE(pciUnit, fcConverter.OutputCode);
SendStatusMessage(pciUnit.FileName, 'Formatted unit', mtProgress, -1, -1);
Inc(fiConvertCount);
end;
end;
function TEditorConverter.ReadFromIDE(const pcUnit: TSourceEditorInterface): string;
begin
Result := pcUnit.Lines.Text;
end;
procedure TEditorConverter.WriteToIDE(const pcUnit: TSourceEditorInterface; const psText: string);
begin
if pcUnit = nil then
exit;
pcUnit.ReplaceLines(0, pcUnit.LineCount, psText);
end;
{$else}
procedure TEditorConverter.Convert(const pciUnit: IOTASourceEditor);
var
lcBuffer: IOTAEditBuffer;
@ -299,6 +363,8 @@ begin
end;
{$endif}
procedure TEditorConverter.AfterConvert;
begin
FinalSummary;