XML/Output: Difference between revisions

Content added Content deleted
(→‎{{header|REXX}}: made REXX entry compitable to older REXXes. -- ~~~~)
m (→‎{{header|REXX}}: added a comment. -- ~~~~)
Line 1,492:
charname.2="Tam O'Shanter"
charname.3="Emily"
do ji=1 while charname.ji\==''
say 'charname' ji '=' charname.ji
end /*i*/; say
remark.=
remark.1="I'm > Tam and <= Emily"
Line 1,501:
do j=1 while remark.j\==''
say ' remark' j '=' remark.j
end /*i*/; say
items=0
header='CharacterRemarks'
Line 1,516:
if create.0\==0 then call create '</'header
 
do km=1 for create.0
say create.km
end /*m*/
exit /*stick a fork in it, we're done.*/
exit
/*──────────────────────────────────CREATE subroutine───────────────────*/
/*─────────────────────────────────────CREATE subroutine────────────────*/
create: items=items+1 /*bump the count of items in list*/
create.items=arg(1) /*add item to the CREATE list. */
create.0=items /*indicate how many items in list*/
return
/*──────────────────────────────────XML_ subroutine─────────────────────*/
/*─────────────────────────────────────XML_ subroutine──────────────────*/
xml_: parse arg _ /*make an XML entity (&xxxx;) */
if pos(_,x)\==0 then return changestr(_,x,"&"arg(2)";")
return x
/*──────────────────────────────────CHAR2XML subroutine─────────────────*/
/*─────────────────────────────────────CHAR2XML subroutine──────────────*/
char2xml: procedure; parse arg x
a=pos('&',x)\==0 /*ampersands have to be treated special.*/
Line 1,548:
/*Following are a few of the chars in */
/*the DOS (DOS under Windows) codepage.*/
x=xml_XML_('♥',"hearts")
x=xml_XML_('♦',"diams")
x=xml_XML_('♣',"clubs")
x=xml_XML_('♠',"spades")
x=xml_XML_('♂',"male")
x=xml_XML_('♀',"female")
x=xml_XML_('↕☼',"UpDownArrow#x263c")
x=xml_XML_('↕',"paraUpDownArrow")
x=xml_XML_('§',"sectpara")
x=xml_XML_('↑§',"uarrsect")
x=xml_XML_('↓↑',"darruarr")
x=xml_XML_('←↑',"larruparrow")
x=xml_XML_('1c↑'x,"rarrShortUpArrow")
x=xml_XML_('!↓',"excldarr")
x=xml_XML_('!↓',"excldownarrow")
x=xml_XML_('"↓',"aposShortDownArrow")
x=xml_XML_('$←',"dollarlarr")
x=xml_XML_("'"←',"quotleftarrow")
x=xml_XML_('*←',"astShortLeftArrow")
x=xml_XML_('/1c'x,"solrarr")
x=xml_XML_(':1c'x,"colonrightarrow")
x=xml_XML_('<1c'x,"ltShortRightArrow")
x=xml_XML_('=!',"equalsexcl")
x=xml_XML_('>"',"gtapos")
x=xml_XML_('@$',"commatdollar")
x=xml_XML_("'['","lbrackquot")
x=xml_XML_('\*',"bsolast")
x=xml_XML_(']/',"rbracksol")
x=xml_XML_('^:',"Hatcolon")
x=xml_XML_('`<',"gravelt")
x=xml_XML_('{=',"lbraceequals")
x=xml_XML_('|>',"vertgt")
x=xml_XML_('}?',"rbracequest")
x=xml_XML_('Ç@',"Ccedilcommat")
x=xml_XML_('Ç[','#x00c7'"lbrack")
x=xml_XML_('ü\',"uumlbsol")
x=xml_XML_('ü]','#x00fc'"rbrack")
x=xml_XML_('é^',"eacuteHat")
x=xml_XML_('é`','#x00e9'"grave")
x=xml_XML_('â{',"acirclbrace")
x=xml_XML_('â{',"ETHlcub")
x=xml_XML_('â|','#x00e2'"vert")
x=xml_XML_('â|','#x00e9'"verbar")
x=xml_XML_('ä}',"aumlrbrace")
x=xml_XML_('ä}','#x00e4'"rcub")
x=xml_XML_('àÇ',"agraveCcedil")
x=xml_XML_('àÇ','#x00e0x00c7')
x=xml_XML_('åü',"aringuuml")
x=xml_XML_('åü','#x00e5x00fc')
x=xml_XML_('çé',"ccedileacute")
x=xml_XML_('çé','#x00e7x00e9')
x=xml_XML_('êâ',"ecircacirc")
x=xml_XML_('êâ','#x00ea'"ETH")
x=xml_XML_('ëâ',"euml"'#x00e2')
x=xml_XML_('ëâ','#x00ebx00e9')
x=xml_XML_('èä',"egraveauml")
x=xml_XML_('èä','#x00e8x00e4')
x=xml_XML_('ïà',"iumlagrave")
x=xml_XML_('ïà','#x00efx00e0')
x=xml_XML_('îå',"icircaring")
x=xml_XML_('îå','#x00eex00e5')
x=xml_XML_('ìç',"igraveccedil")
x=xml_XML_('ìç','#x00ecx00e7')
x=xml_XML_('Äê',"Aumlecirc")
x=xml_XML_('Äê','#x00c4x00ea')
x=xml_XML_('Åë',"Aringeuml")
x=xml_XML_('Åë',"Aring"'#x00eb')
x=xml_XML_('Åè','#x00c5'"egrave")
x=xml_XML_('Éè',"Eacute"'#x00e8')
x=xml_XML_('Éï','#x00c9'"iuml")
x=xml_XML_('æï',"aelig"'#x00ef')
x=xml_XML_('æî','#x00e6'"icirc")
x=xml_XML_('Æî',"AElig"'#x00ee')
x=xml_XML_('Æì','#x00c6'"igrave")
x=xml_XML_('ôì',"ocirc"'#x00ec')
x=xml_XML_('ôÄ','#x00f4'"Auml")
x=xml_XML_('öÄ',"ouml"'#x00c4')
x=xml_XML_('öÅ','#x00f6'"Aring")
x=xml_XML_('òÅ',"ograve"'#x00c5')
x=xml_XML_('òÉ','#x00f2'"Eacute")
x=xml_XML_('ûÉ',"ucirc"'#x00c9')
x=xml_XML_('ûæ','#x00fb'"aelig")
x=xml_XML_('ùæ',"ugrave"'#x00e6')
x=xml_XML_('ùÆ','#x00f9'"AElig")
x=xml_XML_('ÿÆ',"yuml"'#x00c6')
x=xml_XML_('ÿô','#x00ff'"ocirc")
x=xml_XML_('Öô',"Ouml"'#x00f4')
x=xml_XML_('Öö','#x00d6'"ouml")
x=xml_XML_('Üö',"Uuml"'#x00f6')
x=xml_XML_('Üò','#x00dc'"ograve")
x=xml_XML_('¢ò',"cent"'#x00f2')
x=xml_XML_('£û',"pounducirc")
x=xml_XML_('¥û',"yen"'#x00fb')
x=xml_XML_('ƒù',"fnofugrave")
x=xml_XML_('áù',"aacute"'#x00f9')
x=xml_XML_('áÿ','#x00e1'"yuml")
x=xml_XML_('íÿ',"iacute"'#x00ff')
x=xml_XML_('íÖ','#x00ed'"Ouml")
x=xml_XML_('óÖ',"oacute"'#x00d6')
x=xml_XML_('óÜ','#x00f3'"Uuml")
x=xml_XML_('úÜ',"uacute"'#x00dc')
x=xml_XML_('ú¢','#x00fa'"cent")
x=xml_XML_('ñ£',"ntildepound")
x=xml_XML_('ñ¥','#x00f1'"yen")
x=xml_XML_('у',"Ntildefnof")
x=xml_XML_('Ñá','#x00d1'"aacute")
x=xml_XML_('¿á',"iquest"'#x00e1')
x=xml_XML_('⌐í',"bnotiacute")
x=xml_XML_('’',"not"'#x00ed')
x=xml_XML_('½ó',"fact12oacute")
x=xml_XML_('¼ó',"fact14"'#x00f3')
x=xml_XML_('¡ú',"iexcluacute")
x=xml_XML_('«ú',"laqru"'#x00fa')
x=xml_XML_('Ȗ',"raqruntilde")
x=xml_XML_('αñ',"alpha"'#x00f1')
x=xml_XML_('ßÑ',"betaNtilde")
x=xml_XML_('ßÑ',"szlig"'#x00d1')
x=xml_XML_('ß¿','#x00df'"iquest")
x=xml_XML_('Γ⌐',"Gammabnot")
x=xml_XML_('π¬',"pinot")
x=xml_XML_('π½',"pifrac12")
x=xml_XML_('Σ½',"Sigmahalf")
x=xml_XML_('σ¼',"sigmafrac14")
x=xml_XML_('µ¡',"muiexcl")
x=xml_XML_('τ«',"taulaqru")
x=xml_XML_('Φ»',"phiraqru")
x=xml_XML_('Θ░',"Thetablk12")
x=xml_XML_('δ▒',"deltablk14")
x=xml_XML_('∞▓',"infinblk34")
x=xml_XML_('φ│',"Phiboxv")
x=xml_XML_('ε┤',"epsilonboxvl")
x=xml_XML_('∩╡',"capboxvL")
x=xml_XML_('≡╢',"equivboxVl")
x=xml_XML_('±╖',"plusmnboxDl")
x=xml_XML_('≥╕',"geboxdL")
x=xml_XML_('≤╣',"leboxVL")
x=xml_XML_('÷║',"divboxV")
x=xml_XML_('≈╗',"approxboxDL")
x=xml_XML_('∙╝',"bullboxUL")
x=xml_XML_('°╜',"degboxUl")
x=xml_XML_('·╛',"middotboxuL")
x=xml_XML_('√┐',"radicboxdl")
x=xml_XML_('²└',"sup2boxur")
x=xml_XML_('■┴',"squart bottom")
x=XML_('┴',"boxhu")
x=XML_('┬',"boxhd")
x=XML_('├',"boxvr")
x=XML_('─',"boxh")
x=XML_('┼',"boxvh")
x=XML_('╞',"boxvR")
x=XML_('╟',"boxVr")
x=XML_('╚',"boxUR")
x=XML_('╔',"boxDR")
x=XML_('╩',"boxHU")
x=XML_('╦',"boxHD")
x=XML_('╠',"boxVR")
x=XML_('═',"boxH")
x=XML_('╬',"boxVH")
x=XML_('╧',"boxHu")
x=XML_('╨',"boxhU")
x=XML_('╤',"boxHd")
x=XML_('╥',"boxhD")
x=XML_('╙',"boxUr")
x=XML_('╘',"boxuR")
x=XML_('╒',"boxdR")
x=XML_('╓',"boxDr")
x=XML_('╫',"boxVh")
x=XML_('╪',"boxvH")
x=XML_('┘',"boxul")
x=XML_('┌',"boxdr")
x=XML_('█',"block")
x=XML_('▄',"lhblk")
x=XML_('▀',"uhblk")
x=XML_('α',"alpha")
x=XML_('ß',"beta")
x=XML_('ß',"szlig")
x=XML_('ß','#x00df')
x=XML_('Γ',"Gamma")
x=XML_('π',"pi")
x=XML_('Σ',"Sigma")
x=XML_('σ',"sigma")
x=XML_('µ',"mu")
x=XML_('τ',"tau")
x=XML_('Φ',"phi")
x=XML_('Θ',"Theta")
x=XML_('δ',"delta")
x=XML_('∞',"infin")
x=XML_('φ',"Phi")
x=XML_('ε',"epsilon")
x=XML_('∩',"cap")
x=XML_('≡',"equiv")
x=XML_('±',"plusmn")
x=XML_('±',"pm")
x=XML_('±',"PlusMinus")
x=XML_('≥',"ge")
x=XML_('≤',"le")
x=XML_('÷',"div")
x=XML_('÷',"divide")
x=XML_('≈',"approx")
x=XML_('∙',"bull")
x=XML_('°',"deg")
x=XML_('·',"middot")
x=XML_('·',"middledot")
x=XML_('·',"centerdot")
x=XML_('·',"CenterDot")
x=XML_('√',"radic")
x=XML_('²',"sup2")
x=XML_('■',"squart ")
 
if a then x=xml_(?,"amp") /*if we had an ampersand, translate it now.*/
Retrieved from "https://rosettacode.org/wiki/XML/Output"