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

codetools: default indentation

Browse Source 
git-svn-id: trunk@20483 -
This commit is contained in:
mattias 2009-06-06 17:18:31 +00:00
parent 5a6d80b45a
commit d4ba91160a
1 changed files with 24 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
components/codetools/codebeautifier.pas
View File

@ -914,8 +914,8 @@ begin
ParseSource(Source,1,CleanPos,NewNestedComments,Stack,Policies);
if Stack.Top<0 then begin
// no context
DebugLn(['TFullyAutomaticBeautifier.GetIndent parsed code in front: no context']);
GetDefaultIndent(Source,CleanPos,NewNestedComments,Indent);
exit;
end;
@ -949,16 +949,30 @@ begin
// go to start of line
while (CleanPos>1) and (not (Source[CleanPos-1] in [#10,#13])) do
dec(CleanPos);
if CleanPos=1 then begin
// only empty lines in front
exit;
end;
// skip line end
dec(CleanPos);
if (CleanPos>1) and (Source[CleanPos-1] in [#10,#13])
and (Source[CleanPos]<>Source[CleanPos-1]) then
while CleanPos>1 do begin
// skip line end
dec(CleanPos);
if (CleanPos>1) and (Source[CleanPos-1] in [#10,#13])
and (Source[CleanPos]<>Source[CleanPos-1]) then
dec(CleanPos);
// read line
while (CleanPos>1) do begin
case Source[CleanPos-1] of
' ',#9: dec(CleanPos);
#10,#13:
begin
// empty line
break;
end;
else
Indent.Indent:=GetLineIndentWithTabs(Source,CleanPos,DefaultTabWidth);
Indent.IndentValid:=true;
exit;
end;
dec(CleanPos);
end;
end;
// only empty lines in front
end;
{ TFABPolicies }