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

September 2017 Update

Browse source
This commit is contained in:
Ingy döt Net 2017-09-23 10:01:46 +02:00
parent bba7bfd280
commit ba8067c3b7
14570 changed files with 153136 additions and 63871 deletions
Download patch file Download diff file Expand all files Collapse all files

34
Task/XML-Output/Euphoria/xml-output-1.euphoria
View file

@ -1,34 +0,0 @@
function xmlquote(sequence s)
sequence r
r = ""
for i = 1 to length(s) do
if s[i] = '<' then
r &= "&lt;"
elsif s[i] = '>' then
r &= "&gt;"
elsif s[i] = '&' then
r &= "&amp;"
elsif s[i] = '"' then
r &= "&quot;"
elsif s[i] = '\'' then
r &= "&apos;"
else
r &= s[i]
end if
end for
return r
end function
constant CharacterRemarks = {
{"April", "Bubbly: I'm > Tam and <= Emily"},
{"Tam O'Shanter", "Burns: \"When chapman billies leave the street ...\""},
{"Emily", "Short & shrift"}
}
puts(1,"<CharacterRemarks>\n")
for i = 1 to length(CharacterRemarks) do
printf(1," <CharacterName=\"%s\">",{xmlquote(CharacterRemarks[i][1])})
puts(1,xmlquote(CharacterRemarks[i][2]))
puts(1,"</Character>\n")
end for
puts(1,"</CharacterRemarks>\n")

5
Task/XML-Output/Euphoria/xml-output-2.euphoria
View file

@ -1,5 +0,0 @@
<CharacterRemarks>
<CharacterName="April">Bubbly: I&apos;m &gt; Tam and &lt;= Emily</Character>
<CharacterName="Tam O&apos;Shanter">Burns: &quot;When chapman billies leave the street ...&quot;</Character>
<CharacterName="Emily">Short &amp; shrift</Character>
</CharacterRemarks>