type Table = [Row*] type Row = [ [PCDATA] [PCDATA] [PCDATA] [PCDATA] [PCDATA] [PCDATA] [PCDATA] ] (* include "../../web/xhtml-strict.cd" *) type Xhtml = Any 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 (argv []) with (f,_) -> (*load_xml f*) (match load_xml f with | x & Table -> print_xml(dbonerow x) | _ -> raise "Ma che c%$#^# di file mi hai passato?") | _ -> raise "Please specify input file on command line"