Commit 153b614f authored by Pietro Abate's avatar Pietro Abate

[r2003-05-29 22:00:25 by cvscast] Empty log message

Original author: cvscast
Date: 2003-05-29 22:00:25+00:00
parent ef3c8902
type Table = <table>[Row*] ;;
type Row = <row> [
<id>[PCDATA]
<firstname>[PCDATA]
<lastname>[PCDATA]
<street>[PCDATA]
<city>[PCDATA]
<state>[PCDATA]
<zip>[PCDATA]
] ;;
include "../../web/xhtml-strict.cd" ;;
let fun dbonerow (<table> x : Table) : Xhtml =
<html>[
<head>[<title>"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 -> dump_to_file "dbonerow.htm" (print_xml(dbonerow x))
| _ -> raise "Ma che c%$#^# di file mi hai passato?";;
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment