mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 17:47:56 +02:00
[PATCH 038/188] adding parse utils
From 6bfcf3e102dc6e2727b16ba84f8e4cc4f8d345bb Mon Sep 17 00:00:00 2001 From: Dmitry Boyarintsev <skalogryz.lists@gmail.com> Date: Wed, 20 Nov 2019 00:33:16 -0500 git-svn-id: branches/wasm@46034 -
This commit is contained in:
nickysn
parent
03657fa9a7
commit
1a6b0c521d
1
.gitattributes
vendored
1
.gitattributes
vendored
@ -18977,6 +18977,7 @@ utils/unicode/weight_derivation.inc svneol=native#text/pascal
|
||||
utils/usubst.pp svneol=native#text/plain
|
||||
utils/wasmbin/README.md svneol=native#text/plain
|
||||
utils/wasmbin/lebutils.pas svneol=native#text/plain
|
||||
utils/wasmbin/parseutils.pas svneol=native#text/plain
|
||||
utils/wasmbin/wasmbin.pas svneol=native#text/plain
|
||||
utils/wasmbin/wasmbincode.pas svneol=native#text/plain
|
||||
utils/wasmbin/wasmbindebug.pas svneol=native#text/plain
|
||||
|
||||
231
utils/wasmbin/parseutils.pas
Normal file
231
utils/wasmbin/parseutils.pas
Normal file
@ -0,0 +1,231 @@
|
||||
unit parseutils;
|
||||
|
||||
{$ifdef fpc}{$mode delphi}{$h+}{$endif}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils;
|
||||
|
||||
type
|
||||
TCharSet = set of Char;
|
||||
|
||||
const
|
||||
EoLnChars = [#10,#13];
|
||||
SpaceChars = [#32,#9];
|
||||
InvsChars = [#0..#32];
|
||||
WhiteSpaceChars = SpaceChars;
|
||||
SpaceEolnChars = EoLnChars+SpaceChars;
|
||||
NumericChars = ['0'..'9'];
|
||||
AlphabetChars = ['a'..'z','A'..'Z'];
|
||||
AlphaNumChars = AlphabetChars+NumericChars;
|
||||
|
||||
function ScanWhile(const s: AnsiString; var index: Integer; const ch: TCharSet): AnsiString;
|
||||
function ScanTo(const s: AnsiString; var index: Integer; const ch: TCharSet): AnsiString;
|
||||
function SkipToEoln(const s: AnsiString; var index: Integer): AnsiString;
|
||||
function ScanToSubstr(const s: AnsiString; var index: Integer; const substr: string): AnsiString;
|
||||
|
||||
// returns #10, #13, #10#13 or #13#10, if s[index] is end-of-line sequence
|
||||
// otherwise returns empty string
|
||||
function EolnStr(const s: AnsiString; index: Integer): String;
|
||||
|
||||
function IsSubStr(const sbs, s: AnsiString; index: Integer): Boolean;
|
||||
|
||||
// todo: not used?
|
||||
function SkipCommentBlock(const s: AnsiString; var index: Integer; const closecmt: AnsiString): AnsiString;
|
||||
|
||||
function SkipLine(const s: AnsiString; var index: Integer): AnsiString;
|
||||
|
||||
procedure OffsetToLinePos(const t: AnsiString; Offset: Integer; var P: TPoint);
|
||||
|
||||
procedure ParseCSSValues(const s: String; css: TStrings);
|
||||
procedure GetCssAbsBoundsRect(Css: TStrings; var r: TRect);
|
||||
function CssValInt(const s: String; Def: integer): Integer;
|
||||
|
||||
implementation
|
||||
|
||||
function CssValInt(const s: String; Def: integer): Integer;
|
||||
var
|
||||
i : integer;
|
||||
n : String;
|
||||
err : Integer;
|
||||
begin
|
||||
i:=1;
|
||||
n:=ScanWhile(s, i, ['+','-']+NumericChars);
|
||||
Val(n, Result, err);
|
||||
if err<>0 then Result:=Def;
|
||||
end;
|
||||
|
||||
procedure GetCssAbsBoundsRect(Css: TStrings; var r: TRect);
|
||||
begin
|
||||
r.Left:=CssValInt(Css.Values['LEFT'], 0);
|
||||
r.Top:=CssValInt(Css.Values['top'], 0);
|
||||
r.Right:=r.Left+CssValInt(Css.Values['width'], 0);
|
||||
r.Bottom:=r.Top+CssValInt(Css.Values['height'], 0);
|
||||
end;
|
||||
|
||||
procedure ParseCSSValues(const s: String; css: TStrings);
|
||||
var
|
||||
i : integer;
|
||||
n : String;
|
||||
v : String;
|
||||
begin
|
||||
i:=1;
|
||||
if (s='') or not Assigned(css) then Exit;
|
||||
while (i<=length(s)) do begin
|
||||
ScanTo(s, i, AlphaNumChars);
|
||||
n:=ScanWhile(s, i, AlphaNumChars+['_']);
|
||||
ScanTo(s, i, [':']);
|
||||
inc(i);
|
||||
ScanWhile(s, i, SpaceEolnChars);
|
||||
v:=ScanTo(s, i, [';']);
|
||||
css.Values[n]:=v;
|
||||
end;
|
||||
end;
|
||||
|
||||
function ScanWhile(const s: AnsiString; var index: Integer; const ch: TCharSet): AnsiString;
|
||||
var
|
||||
i : Integer;
|
||||
begin
|
||||
Result := '';
|
||||
if (index <= 0) or (index > length(s)) then Exit;
|
||||
for i := index to length(s) do
|
||||
if not (s[i] in ch) then begin
|
||||
if i = index then Result := ''
|
||||
else Result := Copy(s, index, i - index);
|
||||
index := i;
|
||||
Exit;
|
||||
end;
|
||||
Result := Copy(s, index, length(s) - index + 1);
|
||||
index := length(s) + 1;
|
||||
end;
|
||||
|
||||
function ScanTo(const s: AnsiString; var index: Integer; const ch: TCharSet): AnsiString;
|
||||
var
|
||||
i : Integer;
|
||||
begin
|
||||
Result := '';
|
||||
if (index <= 0) or (index > length(s)) then Exit;
|
||||
for i := index to length(s) do
|
||||
if (s[i] in ch) then begin
|
||||
if i = index then Result := ''
|
||||
else Result := Copy(s, index, i - index);
|
||||
index := i;
|
||||
Exit;
|
||||
end;
|
||||
Result := Copy(s, index, length(s) - index + 1);
|
||||
index := length(s) + 1;
|
||||
end;
|
||||
|
||||
function EolnStr(const s: AnsiString; index: Integer): String;
|
||||
begin
|
||||
if (index<=0) or (index>length(s)) or (not (s[index] in EoLnChars)) then
|
||||
Result:=''
|
||||
else begin
|
||||
if (index<length(s)) and (s[index+1] in EolnChars) and (s[index]<>s[index+1]) then
|
||||
Result:=Copy(s, index, 2)
|
||||
else
|
||||
Result:=s[index];
|
||||
end;
|
||||
end;
|
||||
|
||||
function SkipToEoln(const s: AnsiString; var index: Integer): AnsiString;
|
||||
begin
|
||||
Result := ScanTo(s, index, EoLnChars);
|
||||
end;
|
||||
|
||||
function IsSubStr(const sbs, s: AnsiString; index: Integer): Boolean;
|
||||
var
|
||||
i : Integer;
|
||||
j : Integer;
|
||||
begin
|
||||
Result := false;
|
||||
if (sbs = '') or (length(sbs) > length(s) - index) then Exit;
|
||||
j := index;
|
||||
for i := 1 to length(sbs) do begin
|
||||
if sbs[i] <> s[j] then Exit;
|
||||
inc(j);
|
||||
end;
|
||||
Result := true;
|
||||
end;
|
||||
|
||||
function SkipCommentBlock(const s: AnsiString; var index: Integer; const closecmt: AnsiString): AnsiString;
|
||||
begin
|
||||
Result := '';
|
||||
if closecmt = '' then begin
|
||||
index := length(s) + 1;
|
||||
Exit;
|
||||
end;
|
||||
while index <= length(s) do begin
|
||||
Result := Result + ScanTo(s, index, [closecmt[1]]+EoLnChars);
|
||||
//if (index<=length(s)) and (s in EoLnChars(
|
||||
|
||||
if IsSubStr(closecmt, s, index) then begin
|
||||
inc(index, length(closecmt));
|
||||
Exit;
|
||||
end else begin
|
||||
Result := Result + s[index];
|
||||
inc(index);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
function SkipLine(const s: AnsiString; var index: Integer): AnsiString;
|
||||
begin
|
||||
Result:=ScanTo(s, index, EoLnChars);
|
||||
if (index<length(s)) and (s[index+1] in EoLnChars) and (s[index]<>s[index+1]) then
|
||||
inc(index);
|
||||
inc(index);
|
||||
end;
|
||||
|
||||
procedure OffsetToLinePos(const t: AnsiString; Offset: Integer; var P: TPoint);
|
||||
var
|
||||
i, le : Integer;
|
||||
begin
|
||||
i := 1;
|
||||
le := 0;
|
||||
P.X := 0;
|
||||
P.Y := 0;
|
||||
while i < Offset do begin
|
||||
Inc(P.Y);
|
||||
le := i;
|
||||
SkipLine(t, i);
|
||||
end;
|
||||
P.X := Offset - le + 1;
|
||||
end;
|
||||
|
||||
function isSubStrMatch(const s: AnsiString; index: integer; const substr: string): Boolean;
|
||||
var
|
||||
i : integer;
|
||||
j : integer;
|
||||
begin
|
||||
j:=index;
|
||||
Result:=false;
|
||||
for i:=1 to length(substr) do begin
|
||||
if s[j]<>substr[i] then Exit;
|
||||
inc(j);
|
||||
end;
|
||||
Result:=true;
|
||||
end;
|
||||
|
||||
function ScanToSubstr(const s: AnsiString; var index: Integer; const substr: string): AnsiString;
|
||||
var
|
||||
i: integer;
|
||||
begin
|
||||
if substr='' then begin
|
||||
Result:='';
|
||||
Exit;
|
||||
end;
|
||||
i:=index;
|
||||
while (index<=length(s)) do begin
|
||||
ScanTo(s, index, [substr[1]]);
|
||||
if isSubStrMatch(s, index, substr) then begin
|
||||
inc(index, length(substr));
|
||||
Break;
|
||||
end;
|
||||
end;
|
||||
Result:=Copy(s, i, index-i);
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
Loading…
Reference in New Issue
Block a user