pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

chelper: revising c preprocess handling. added new routines to prepare and collection preprocessing information

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3989 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2015-03-04 18:15:02 +00:00
parent 7e52faa49f
commit d51ddefe7d
3 changed files with 259 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

64
components/chelper/textparsingutils.pas
View File

@ -39,7 +39,9 @@ const
AlphaNumChars = AlphabetChars+NumericChars;
function ScanWhile(const s: AnsiString; var index: Integer; const ch: TCharSet): AnsiString;
function ScanBackWhile(const s: AnsiString; var index: Integer; const ch: TCharSet): AnsiString;
function ScanTo(const s: AnsiString; var index: Integer; const ch: TCharSet): AnsiString;
function ScanBackTo(const s: AnsiString; var index: Integer; const ch: TCharSet): AnsiString;
function SkipToEoln(const s: AnsiString; var index: Integer): AnsiString;
// returns #10, #13, #10#13 or #13#10, if s[index] is end-of-line sequence
@ -84,6 +86,22 @@ type
property Count: Integer read GetCount;
end;
type
TFileOfsInfo = record
origOfs : Integer; // original 1-based index in the file
delta : Integer; // the new delta that should be used starting this file
end;
{ TFileOffsets }
TFileOffsets = class(TObject)
public
Ofs : array of TFileOfsInfo;
Count : Integer;
procedure AddOffset(origOfs, delta: integer);
function OrigOffset(tempOfs: integer): Integer;
end;
implementation
function ScanWhile(const s: AnsiString; var index: Integer; const ch: TCharSet): AnsiString;
@ -103,6 +121,28 @@ begin
index := length(s) + 1;
end;
function ScanBackWhile(const s: AnsiString; var index: Integer; const ch: TCharSet): AnsiString;
var
j : integer;
begin
Result:='';
if (index <= 0) or (index > length(s)) then Exit;
j:=index;
while (index>0) and (s[index] in ch) do dec(index);
Result:=Copy(s, index+1, j-index);
end;
function ScanBackTo(const s: AnsiString; var index: Integer; const ch: TCharSet): AnsiString;
var
j : integer;
begin
Result:='';
if (index <= 0) or (index > length(s)) then Exit;
j:=index;
while (index>0) and not (s[index] in ch) do dec(index);
Result:=Copy(s, index+1, j-index);
end;
function ScanTo(const s: AnsiString; var index: Integer; const ch: TCharSet): AnsiString;
var
i : Integer;
@ -230,5 +270,29 @@ begin
Tag:=ATag;
end;
procedure TFileOffsets.AddOffset(origOfs, delta: integer);
begin
if Count=length(Ofs) then begin
if Count=0 then SetLength(Ofs, 4)
else SetLength(Ofs, Count*2);
end;
Ofs[Count].origOfs:=origOfs;
Ofs[Count].delta:=delta;
inc(Count);
end;
function TFileOffsets.OrigOffset(tempOfs: integer): Integer;
var
i : Integer;
begin
Result:=tempOfs;
for i:=0 to Count-1 do begin
if (Ofs[i].origOfs <= tempOfs) then
inc(Result, Ofs[i].delta);
end;
end;
end.