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

Original author: cmiachon
Date: 2003-11-25 12:30:18+00:00

tests/cql/q6.cd

+(*********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;;
+     
+