Commit 01d26c82 authored by Pietro Abate's avatar Pietro Abate
Browse files

[r2002-11-08 22:24:40 by cvscast] Empty log message

Original author: cvscast
Date: 2002-11-08 22:24:40+00:00
parent ce879edf
......@@ -18,14 +18,14 @@ type Mix = <h1>[Mix*]
let fun do_authors ([Author+] -> [Mix*])
| [ <author>a ] -> a
| [ <author>a <author>b ] -> a @ " and, " @ b
| [ <author>a; x] -> a @ ", " @ do_authors x
| [ <author>a <author>b ] -> a " and, " b
| [ <author>a; x] -> a ", " (do_authors x)
in
let fun do_paper (Paper -> <li>[Mix*])
<paper>[ x::(_* ) <title>t <conference>c <file>f ] ->
(* Here, type inference says: x : [Author+] ... *)
let authors = do_authors x in
<li>([ <a href=f>t ] @ authors @ "; in " @ [ <em>c ] @ "." )
<li>([ <a href=f>t ] authors "; in " [ <em>c ] "." )
in
let fun do_biblio (Biblio -> Html)
<bibliography>[ <heading>h; p ] ->
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment