Commit 8c2d3f50 authored by Pietro Abate's avatar Pietro Abate
Browse files

[r2003-11-25 12:30:18 by cmiachon] Empty log message

Original author: cmiachon
Date: 2003-11-25 12:30:18+00:00
parent d03a6b6b
(*********function *********)
let fun count([Any*]->Int)
[] -> 0
| [h;t] -> 1+count(t);;
(***************************)
let q6x=
<bib>
select
<book>
([b]/<title>_ @
(match ([b]/<author>_) with
| [a b _+ ] ->[a b] @ [<et-al>[]]
| a ->a ) )
from b in [doc]/<book>_
where count([b]/<author>_)>=1;;
let q6p=
<bib>
select <book>[t !a1 !(if el=[] then [] else [<et-al>[]])]
from <bib>[b::Book*] in [doc],
<book>[t&Title (a1&Author | a1::(Author Author) el::_*) Publisher _*
] in b;;
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