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

codetools: added ReadRawPascal

Browse Source
This commit is contained in:
mattias 2025-01-29 13:07:32 +01:00
parent 37bb0cb225
commit e6c486a8e7
1 changed files with 48 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
components/codetools/basiccodetools.pas
View File

@ -394,6 +394,8 @@ procedure ReadRawNextPascalAtom(const Source: string;
procedure ReadRawNextPascalAtom(var Position: PChar; out AtomStart: PChar;
const SrcEnd: PChar = nil; NestedComments: boolean = false;
SkipDirectives: boolean = false);
function ReadRawPascal(StartP: PChar; SrcEnd: PChar = nil; NestedComments: boolean = false;
SkipDirectives: boolean = true): string;
procedure ReadPriorPascalAtom(const Source: string;
var Position: integer; out AtomEnd: integer; NestedComments: boolean = false);
function ReadTilPascalBracketClose(const Source: string;
@ -2298,6 +2300,52 @@ begin
Position:=Src;
end;
function ReadRawPascal(StartP: PChar; SrcEnd: PChar; NestedComments: boolean;
SkipDirectives: boolean): string;
var
l, Count, ResultLen, NewCount: integer;
NeedSpace: Boolean;
p, AtomStart: PChar;
begin
Result:='';
Count:=0;
ResultLen:=0;
p:=StartP;
repeat
ReadRawNextPascalAtom(p,AtomStart,SrcEnd,NestedComments,SkipDirectives);
l:=p-AtomStart;
if l=0 then begin
Setlength(Result,Count);
exit;
end;
NewCount:=Count+l;
NeedSpace:=(Count>0) and IsIdentChar[Result[Count]] and IsIdentStartChar[AtomStart^];
if NeedSpace then
inc(NewCount);
if NewCount>ResultLen then begin
// grow
if ResultLen=0 then begin
ResultLen:=NewCount;
end else begin
ResultLen:=ResultLen*2;
if ResultLen<NewCount then
ResultLen:=NewCount;
end;
SetLength(Result,ResultLen);
end;
if NeedSpace then begin
inc(Count);
Result[Count]:=' ';
end;
Move(AtomStart^,Result[Count+1],l);
inc(Count,l);
until false;
end;
procedure ReadPriorPascalAtom(const Source: string; var Position: integer; out
AtomEnd: integer; NestedComments: boolean);
var