Mercurial > urweb
annotate tests/xcomments.ur @ 1620:43f22a8f76cc
Allow sources to be returned by RPCs
author | Adam Chlipala <adam@chlipala.net> |
---|---|
date | Sat, 03 Dec 2011 10:00:10 -0500 |
parents | 43ca083678f8 |
children |
rev | line source |
---|---|
adam@1283 | 1 fun foo () = <xml>Hi!</xml> |
adam@1283 | 2 |
adam@1283 | 3 (* fun bar () = return (* No *)<xml>Yes!</xml> *) |
adam@1283 | 4 |
adam@1283 | 5 fun main () = return <xml><body> |
adam@1283 | 6 A (* B *) C (* D (* E *) F *) D<br/> |
adam@1284 | 7 <b>A</b> <i>(* B *) C <b>D (* E <!-- 7 --> *) F {foo ()}</b></i> |
adam@1284 | 8 A <!-- B --> C <!-- D (* E *) F --> D<br/> |
adam@1284 | 9 <b>A</b> <i><!-- B --> C <b>D <!-- E --> F {foo ()}</b></i> |
adam@1283 | 10 </body></xml> |