paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-07 06:27:51 +02:00
Code Issues Packages Projects Releases Wiki Activity

XML interface extensions: Node, NamedNodeMap, CharacterData

Browse Source
This commit is contained in:
Ondrej Pokorny 2024-03-09 08:50:09 +01:00
parent fc8cf68e66
commit c442924bf6
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
packages/rtl/src/web.pas
View File

@ -213,7 +213,9 @@ Type
Public
Const
ELEMENT_NODE =1;
ATTRIBUTE_NODE = 2;
TEXT_NODE =3;
CDATA_SECTION_NODE = 4;
PROCESSING_INSTRUCTION_NODE = 7;
COMMENT_NODE =8;
DOCUMENT_NODE =9;
@ -288,9 +290,19 @@ Type
TJSNamedNodeMap = class external name 'NamedNodeMap' (TJSObject)
private
FLength : NativeInt; external name 'length';
Public
function getNamedItem(aName : string) : TJSAttr;
function setNamedItem(aAttr : TJSAttr) : TJSAttr;
function removeNamedItem(aName : string) : TJSAttr;
function item(aIndex : NativeInt) : TJSAttr;
function getNamedItemNS(aNamespaceURI, aLocalName : string) : TJSAttr;
function setNamedItemNS(aAttr : TJSAttr) : TJSAttr;
function removeNamedItem(aNamespaceURI, aLocalName : string) : TJSAttr;
Property Attrs[aIndex : String] : TJSattr Read getNamedItem; default;
// Property Attrs[aIndex : NativeInt] : TJSattr Read item; default; // ToDo: JS supports default property overloads
Property length : NativeInt Read FLength;
end;
TJSHTMLCollection = class external name 'HTMLCollection' (TJSObject)
@ -590,9 +602,12 @@ Type
TJSCharacterData = class external name 'CharacterData' (TJSNode)
private
FLength: NativeInt; external name 'length';
FnextElementSibling: TJSElement; external name 'nextElementSibling';
FpreviousElementSibling: TJSElement; external name 'previousElementSibling';
public
data: JSValue;
property length : NativeInt read FLength;
property nextElementSibling : TJSElement read FnextElementSibling;
property previousElementSibling : TJSElement read FpreviousElementSibling;
end;