This repository has been archived on 2023-08-20. You can view files and clone it, but cannot push or open issues or pull requests.
yap-6.3/LGPL/pillow/examples/html_demo.pl
vsc e5f4633c39 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
2001-04-09 19:54:03 +00:00

46 lines
1.4 KiB
Prolog

:- 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).