aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

29
Task/XML-Output/Objeck/xml-output.objeck Normal file
View file

@ -0,0 +1,29 @@
use Data.XML;
use Collection.Generic;
class Test {
function : Main(args : String[]) ~ Nil {
# list of name
names := Vector->New()<String>;
names->AddBack("April");
names->AddBack("Tam O'Shanter");
names->AddBack("Emily");
# list of comments
comments := Vector->New()<String>;
comments->AddBack("Bubbly: I'm > Tam and <= Emily");
comments->AddBack("Burns: \"When chapman billies leave the street ...\"");
comments->AddBack(XmlElement->EncodeString("Short & shrift");
# build XML document
builder := XmlBuilder->New("CharacterRemarks");
root := builder->GetRoot();
if(names->Size() = comments->Size()) {
each(i : names) {
element := XmlElement->New(XmlElement->Type->ELEMENT, "Character");
element->AddAttribute(XmlAttribute->New("name", names->Get(i)));
element->SetContent(XmlElement->EncodeString(comments->Get(i)));
root->AddChild(element);
};
};
builder->ToString()->PrintLine();
}
}