type Table = [Row*] ;; type Row = [ [PCDATA] [PCDATA] [PCDATA] [PCDATA] [PCDATA] [PCDATA] [PCDATA] ] ;; include "../../web/xhtml-strict.cd" ;; let fun dbonerow (
x : Table) : Xhtml = [ ["Dbonerow test"] <body> (transform x with <row>[<_>("0432"&id) <_>fn <_>ln <_>st <_>city <_>state <_>zip ] -> [<table border="0";style="background-color:#888888">[ <tr>[ <td colspan="2";style="background-color:#000000; color:white"> (*<font color="#ffffff"> deprecated in Xhtml strict*) ("personel record #" @ (id)) ] <tr>[ <td style="background-color:#888888"> "First Name:" <td style="background-color:#dddddd"> fn ] <tr>[ <td style="background-color:#888888"> "Last Name: " <td style="background-color:#dddddd"> ln ] <tr>[ <td style="background-color:#888888"> "Street: " <td style="background-color:#dddddd"> st ] <tr>[ <td style="background-color:#888888"> "City: " <td style="background-color:#dddddd"> city ] <tr>[ <td style="background-color:#888888"> "State: " <td style="background-color:#dddddd"> state ] <tr>[ <td style="background-color:#888888"> "Zip: " <td style="background-color:#dddddd"> zip ] ] ] ) ] ;; match load_xml "testcases/db10000.xml" with | x & Table -> print_xml(dbonerow x) | _ -> raise "Ma che c%$#^# di file mi hai passato?";;