This commit was generated by cvs2svn to compensate for changes in r4,

which included commits to RCS files with non-trunk default branches.


git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@5 b08c6af1-5177-4d33-ba66-4b1c6b8b522a

LGPL/pillow/examples/html_demo.pl

@@ -0,0 +1,45 @@
+:- use_package(pillow).
+:- use_module(library(streams)).
+
+main :- 
+  icon_address(dot,Dot),
+  open_output('html_demo.html', IO),
+  output_html([
+    start,
+    comment("This document was generated from Prolog"),
+    title('Sample HTML document generated from Prolog'),
+    h1('Sample HTML document'),
+    --,
+    h2('Miscellaneous'),
+    "This is a ",ref('#label',it(reference))," to ",
+    bf(["another ",it(point)])," in this document.",$,
+    'Let''s be ',
+    image('http://localhost/images/smile.happy.gif',[alt=':-)']),
+    '!',
+    preformatted(['These lines',
+      ['are ',b(preformatted),'.'],
+      'See?']),
+    'We have left here a ',strong(free),' variable:',X,$,
+    'This is in verbatim: ',
+    samp(verbatim('<NOTE> write "&amp;" to insert an &')),\\,
+    'But this is not:',
+    samp('<NOTE> write "&amp;" to insert an &'),$,
+    label(label,['This is the point referenced ',it('above.')]),
+    h2("Lists"),
+    h3(tt(itemize)),
+    itemize([one,two,['and ','3']]),
+    h3(tt(enumerate)),
+    enumerate([b(red),i(green),tt(blue)]),
+    h3(tt(description)),
+    description([
+      (one,b(two),'Description of one and two'),
+      (three,'Idem of three'),
+      ['This ',b(also)]]),
+    h3('Nice itemize'),
+    nice_itemize(Dot,['Pretty',bf('Fancy'),'Nice']),
+    --,
+    ref('mailto:clip@dia.fi.upm.es',address('clip@dia.fi.upm.es')),
+    end
+  ]),
+  close_output(IO).
+