[r2002-11-25 13:58:05 by cvscast] Empty log message

Original author: cvscast
Date: 2002-11-25 14:02:50+00:00

tests/examples.xml

@@ -310,6 +310,62 @@ let bib : Biblio =
  ];;
 
 do_biblio bib;;
+]]>
+</code>
+</example>
+<!-- **************************************************************** -->
+<example code="projection">
+<title>Projection</title>
+<abstract>
+Syntactic sugar for projection.
+</abstract>
+<code>
+<![CDATA[
+(* The projection  e/t   is translated to:
+   transform e with [ (x::t|_)* ]  -> x *)
+
+type Biblio  = <bibliography>[Heading Paper*];;
+type Heading = <heading>[ PCDATA ];;
+type Paper   = <paper>[ Author+ Title Conference File ];;
+type Author  = <author>[ PCDATA ];;
+type Title   = <title>[ PCDATA ];;
+type Conference = <conference>[ PCDATA ];;
+type File    = <file>[ PCDATA ];;
+
+let bib : Biblio = 
+  <bibliography>[
+    <heading>"Alain Frisch's bibliography"
+    <paper>[
+      <author>"Alain Frisch"
+      <author>"Giuseppe Castagna"
+      <author>"Vronique Benzaken"
+      <title>"Semantic subtyping"
+      <conference>"LICS 02"
+      <file>"semsub.ps.gz"
+    ]
+    <paper>[
+      <author>"Mariangiola Dezani-Ciancaglini"
+      <author>"Alain Frisch"
+      <author>"Elio Giovannetti"
+      <author>"Yoko Motohama"
+      <title>"The Relevance of Semantic Subtyping"
+      <conference>"ITRS'02"
+      <file>"itrs02.ps.gz"
+    ]
+    <paper>[
+      <author>"Vronique Benzaken"
+      <author>"Giuseppe Castagna"
+      <author>"Alain Frisch"
+      <title>"CDuce: a white-paper"
+      <conference>"PLANX-02"
+      <file>"planx.ps.gz"
+    ]
+ ];;
+
+let titles = [bib]/<paper>_/<title>_;;
+let authors = [bib]/<paper>_/<author>_;;
+let titles_concat = [bib]/<paper>_/<title>_/Char;;
+
 ]]>
 </code>
 </example>