paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-08-16 01:49:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Add ExtractStrings

Browse Source
This commit is contained in:
michael 2021-03-22 20:09:55 +00:00
parent 8fb7a9ba3d
commit cebd916053
1 changed files with 68 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

68
packages/rtl/classes.pas
View File

@ -1424,6 +1424,7 @@ Function FindNestedComponent(Root : TComponent; APath : String; CStyle : Boolean
procedure RedirectFixupReferences(Root: TComponent; const OldRootName, NewRootName: string); procedure RedirectFixupReferences(Root: TComponent; const OldRootName, NewRootName: string);
procedure RemoveFixupReferences(Root: TComponent; const RootName: string); procedure RemoveFixupReferences(Root: TComponent; const RootName: string);
procedure RegisterIntegerConsts(IntegerType: Pointer; IdentToIntFn: TIdentToInt; IntToIdentFn: TIntToIdent); procedure RegisterIntegerConsts(IntegerType: Pointer; IdentToIntFn: TIdentToInt; IntToIdentFn: TIntToIdent);
function ExtractStrings(Separators, WhiteSpace: TSysCharSet; Content: String; Strings: TStrings; AddEmptyStrings : Boolean = False): Integer;
function IdentToInt(const Ident: string; out Int: Longint; const Map: array of TIdentMapEntry): Boolean; function IdentToInt(const Ident: string; out Int: Longint; const Map: array of TIdentMapEntry): Boolean;
function IntToIdent(Int: Longint; var Ident: string; const Map: array of TIdentMapEntry): Boolean; function IntToIdent(Int: Longint; var Ident: string; const Map: array of TIdentMapEntry): Boolean;
function FindIntToIdent(AIntegerType: Pointer): TIntToIdent; function FindIntToIdent(AIntegerType: Pointer): TIntToIdent;
@ -1587,6 +1588,73 @@ begin
IntConstList.Add(TIntConst.Create(IntegerType, IdentToIntFn, IntToIdentFn)); IntConstList.Add(TIntConst.Create(IntegerType, IdentToIntFn, IntToIdentFn));
end; end;
function ExtractStrings(Separators, WhiteSpace: TSysCharSet; Content: String; Strings: TStrings; AddEmptyStrings : Boolean = False): Integer;
var
b,c : integer;
procedure SkipWhitespace;
begin
while (Content[c] in Whitespace) do
inc (C);
end;
procedure AddString;
var
l : integer;
begin
l := c-b;
if (l > 0) or AddEmptyStrings then
begin
if assigned(Strings) then
begin
if l>0 then
Strings.Add (Copy(Content,B,L))
else
Strings.Add('');
end;
inc (result);
end;
end;
var
cc,quoted : char;
i,aLen : Integer;
begin
result := 0;
c := 1;
Quoted := #0;
Separators := Separators + [#13, #10] - ['''','"'];
SkipWhitespace;
b := c;
aLen:=Length(Content);
while C<=aLen do
begin
CC:=Content[c];
if (CC = Quoted) then
begin
if (C<aLen) and (Content[C+1] = Quoted) then
inc (c)
else
Quoted := #0
end
else if (Quoted = #0) and (CC in ['''','"']) then
Quoted := CC;
if (Quoted = #0) and (CC in Separators) then
begin
AddString;
inc (c);
SkipWhitespace;
b := c;
end
else
inc (c);
end;
if (c <> b) then
AddString;
end;
function FindIntToIdent(AIntegerType: Pointer): TIntToIdent; function FindIntToIdent(AIntegerType: Pointer): TIntToIdent;
var var