paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 18:09:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

* added new function to xmlxsd library

Browse Source 
git-svn-id: trunk@12804 -
This commit is contained in:
ivost 2009-02-26 23:27:51 +00:00
parent eb40758e9c
commit 58bbbf1656
1 changed files with 9 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
packages/libxml/src/xmlxsd.pas
View File

@ -172,6 +172,7 @@ const
function xsdTestNode(node: xmlNodePtr; name, nameSpace: xmlCharPtr): Boolean;
function xsdTryGetChild(node: xmlNodePtr; name, nameSpace: xmlCharPtr; Index: Integer = 0): xmlNodePtr;
function xsdTryGetChild(node: xmlNodePtr; name, nameSpace: xmlCharPtr; var child: xmlNodePtr; Index: Integer = 0): Boolean;
function xsdTryGetChildChars(node: xmlNodePtr; name, nameSpace: xmlCharPtr; Index: Integer = 0): xmlCharPtr;
function xsdTryGetChildString(node: xmlNodePtr; name, nameSpace: xmlCharPtr; var Value: String; Index: Integer = 0): Boolean;
function xsdTryGetChildBoolean(node: xmlNodePtr; name, nameSpace: xmlCharPtr; var Value: Boolean; Index: Integer = 0): Boolean;
@ -1373,6 +1374,12 @@ begin
Result := nil;
end;
function xsdTryGetChild(node: xmlNodePtr; name, nameSpace: xmlCharPtr; var child: xmlNodePtr; Index: Integer): Boolean;
begin
child := xsdTryGetChild(node, name, nameSpace, Index);
Result := Assigned(child);
end;
function xsdTryGetChildChars(node: xmlNodePtr; name, nameSpace: xmlCharPtr; Index: Integer): xmlCharPtr;
begin
Result := xmlNodeGetContent(xsdTryGetChild(node, name, nameSpace, Index));
@ -1595,16 +1602,8 @@ end;
function xsdTryNext(var node: xmlNodePtr; name, nameSpace: xmlCharPtr; var last: xmlNodePtr): Boolean;
begin
while Assigned(node) and (node^._type = XML_TEXT_NODE) do
node := node^.next;
if xsdTestNode(node, name, nameSpace) then
begin
last := node;
node := node^.next;
Result := True;
end else
Result := False;
last := xsdTryNext(node, name, nameSpace);
Result := Assigned(last);
end;
function xsdTryNextChars(var node: xmlNodePtr; name, nameSpace: xmlCharPtr): xmlCharPtr;