Initial data commit
This commit is contained in:
parent
72d218235f
commit
f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
21
Task/XML-Input/Slate/xml-input.slate
Normal file
21
Task/XML-Input/Slate/xml-input.slate
Normal file
|
|
@ -0,0 +1,21 @@
|
|||
slate[1]> [ |tree|
|
||||
|
||||
tree: (Xml SimpleParser newOn: '<Students>
|
||||
<Student Name="April" Gender="F" DateOfBirth="1989-01-02" />
|
||||
<Student Name="Bob" Gender="M" DateOfBirth="1990-03-04" />
|
||||
<Student Name="Chad" Gender="M" DateOfBirth="1991-05-06" />
|
||||
<Student Name="Dave" Gender="M" DateOfBirth="1992-07-08">
|
||||
<Pet Type="dog" Name="Rover" />
|
||||
</Student>
|
||||
<Student DateOfBirth="1993-09-10" Gender="F" Name="Émily" />
|
||||
</Students>') parse.
|
||||
tree name = 'Students' ifTrue: [(tree children select: #is: `er <- Xml Element)
|
||||
do: [|:child| child name = 'Student' ifTrue: [inform: (child attributes at: 'Name' ifAbsent: ['Noname'])]]].
|
||||
|
||||
] do.
|
||||
April
|
||||
Bob
|
||||
Chad
|
||||
Dave
|
||||
Émily
|
||||
Nil
|
||||
Loading…
Add table
Add a link
Reference in a new issue