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

Converter: improve comments

Browse Source 
git-svn-id: trunk@38272 -
This commit is contained in:
juha 2012-08-18 12:33:35 +00:00
parent 0d694dafac
commit f6f3d00b54
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
converter/convcodetool.pas
View File

@ -205,8 +205,8 @@ begin
end; end;
function TConvDelphiCodeTool.Convert: TModalResult; function TConvDelphiCodeTool.Convert: TModalResult;
// add {$mode delphi} directive // Add {$mode delphi} directive
// remove {$R *.dfm} or {$R *.xfm} directive // Remove {$R *.dfm} or {$R *.xfm} directive
// Change {$R *.RES} to {$R *.res} if needed // Change {$R *.RES} to {$R *.res} if needed
// TODO: fix delphi ambiguouties like incomplete proc implementation headers // TODO: fix delphi ambiguouties like incomplete proc implementation headers
begin begin
@ -378,7 +378,8 @@ var
ReplacementParams: TObjectList; // Replacement parameters. ReplacementParams: TObjectList; // Replacement parameters.
function ParseReplacementParams(const aStr: string): integer; function ParseReplacementParams(const aStr: string): integer;
// Parse replacement params. They show which original params are copied where. // Parse replacement params which are defined in configuration.
// They show which original params are copied where.
// Returns the first position where comments can be searched from. // Returns the first position where comments can be searched from.
var var
i, xNum, xStart, xLen: Integer; i, xNum, xStart, xLen: Integer;
@ -505,7 +506,7 @@ begin
ReadNextAtom; // Read proc name. ReadNextAtom; // Read proc name.
ProcName:=GetAtom; ProcName:=GetAtom;
ReadNextAtom; ReadNextAtom;
if GetAtom<>'.' then // Don't save a method name (like TClass.Method). if GetAtom<>'.' then // Don't save a method name (like TMyClass.Method).
fDefinedProcNames.Add(ProcName); fDefinedProcNames.Add(ProcName);
end; end;
Result:=aNode.Next; Result:=aNode.Next;
@ -514,7 +515,7 @@ end;
function TConvDelphiCodeTool.ReplaceFuncCalls(aIsConsoleApp: boolean): boolean; function TConvDelphiCodeTool.ReplaceFuncCalls(aIsConsoleApp: boolean): boolean;
// Copied and modified from TFindDeclarationTool.FindReferences. // Copied and modified from TFindDeclarationTool.FindReferences.
// Search for calls to functions / procedures in a list from current unit's // Search for calls to functions / procedures in a list from current unit's
// implementation section. Replace found calls with a given replacement. // implementation section code. Replace found calls with a given replacement.
var var
xStart: Integer; xStart: Integer;