[r2003-05-15 12:31:22 by cvscast] two-columns

Original author: cvscast
Date: 2003-05-15 12:31:23+00:00

web/site.cd

@@ -40,6 +40,7 @@ type Content =
      | <pages-toc>[]
      | <site-toc>[]
      | <local-links href=String>[]
+     | <two-columns>[ <left>Content <right>Content ]
      | InlineText
      )* ];;
 
@@ -211,6 +212,11 @@ match page with
            | [] -> []
            | l -> let l = map l with x -> <li>[ (local_link(sitemap,x,"")) ]
                   in [ <ul>l ])
+   | <two-columns>[ <left>x <right>y ] ->
+	[ <table width="100%">[ 
+            <tr>[ 
+              <td valign="top">(content x) 
+              <td valign="top">(content y) ] ] ]
    | t -> text [ t ]
  in
 

web/tutorial1.xml

@@ -8,7 +8,6 @@
 <boxes-toc/>
 </left>
 
-
 <box title="XML documents" link="t0">
 <p>
 CDuce uses its own notation to denote XML documents. In the next table we
@@ -16,7 +15,9 @@ present an XML document on the left and the same document in CDuce notation on
 the right
 </p>
 
+<two-columns>
 
+<left>
 
 <sample><![CDATA[
 <?xml version="1.0"?>
@@ -55,6 +56,10 @@ the right
 </parentbook>
 ]]></sample>
 
+</left>
+
+<right>
+
 <sample><![CDATA[
 let parents : ParentBook =
 <parentbook>[
@@ -92,6 +97,9 @@ let parents : ParentBook =
 ] 
 ]]></sample>
 
+</right>
+</two-columns>
+
 </box>
 
 <box title="Type declarations" link="t1">