PasteRack.org
Paste # 3107
2019-01-20 17:49:05

Fork as a new paste.

Paste viewed 269 times.


Embed:

permissive-xexprs

  1. #lang racket/base
  2. (require xml)
  3. (define xml-string #<<here-string
  4. <?xml version="1.0" encoding="UTF-8"?>
  5. <note>
  6.   <to>Tove</to>
  7.   <from>Jani</from>
  8.   <heading>Reminder</heading>
  9.   <body>Don't forget me this weekend!</body>
  10. </note>
  11. here-string
  12.   )
  13.  
  14. (permissive-xexprs #t)
  15. (displayln (xml->xexpr xml-string ))

=>

<?xml version="1.0" encoding="UTF-8"?>

<note>

  <to>Tove</to>

  <from>Jani</from>

  <heading>Reminder</heading>

  <body>Don't forget me this weekend!</body>

</note>