richter 2003/02/14 14:02:59
Modified: . Changes.pod DOM.xs
Log:
setText
Revision Changes Path
1.199 +2 -1 embperl/Changes.pod
Index: Changes.pod
===================================================================
RCS file: /home/cvs/embperl/Changes.pod,v
retrieving revision 1.198
retrieving revision 1.199
diff -u -r1.198 -r1.199
--- Changes.pod 14 Feb 2003 21:04:08 -0000 1.198
+++ Changes.pod 14 Feb 2003 22:02:57 -0000 1.199
@@ -58,7 +58,8 @@
- Fixed problem with reseting $escmode, when using print OUT. Reported by
David Hull.
- Fixed compiling problem on FreeBSD.
-
+ - Added function XML::Embperl::DOM::iSetText to change name of Tag.
+ Requested by Yatin Chawathe.
=head1 2.0b8 (BETA) 25. Juni 2002
1.6 +19 -1 embperl/DOM.xs
Index: DOM.xs
===================================================================
RCS file: /home/cvs/embperl/DOM.xs,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- DOM.xs 20 Nov 2002 06:56:26 -0000 1.5
+++ DOM.xs 14 Feb 2003 22:02:57 -0000 1.6
@@ -224,6 +224,24 @@
StringFree (r -> pApp, &sText) ;
+void
+embperl_Node_iSetText (xDomTree, xNode, sText)
+ int xDomTree
+ int xNode
+ SV * sText
+PREINIT:
+ STRLEN nText ;
+ char * sT ;
+ tApp * a = CurrReq -> pApp ;
+ tNodeData * pNode = Node_self(DomTree_self(xDomTree), xNode) ;
+CODE:
+ sT = SV2String (sText, nText) ;
+ if (pNode -> nText)
+ NdxStringFree (a, pNode -> nText) ;
+ pNode -> nText = String2Ndx (a, sT, nText) ;
+
+
+
################################################################################
MODULE = XML::Embperl::DOM PACKAGE = XML::Embperl::DOM::Tree PREFIX =
embperl_DomTree_
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
