tests/xsltmark/dbonerow.cd


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 -> print_xml(dbonerow x)
  | _ -> raise "Ma che c%$#^# di file mi hai passato?";;


1
2	type Table = <table>[Row*] ;;
3	type Row = <row> [
4	<id>[PCDATA]
5	<firstname>[PCDATA]
6	<lastname>[PCDATA]
7	<street>[PCDATA]
8	<city>[PCDATA]
9	<state>[PCDATA]
10	<zip>[PCDATA]
11	] ;;
12
13	include "../../web/xhtml-strict.cd" ;;
14
15
16	let fun dbonerow (<table> x : Table) : Xhtml =
17	<html>[
18	<head>[<title>"Dbonerow test"]
19	<body>
20	(transform x with
21	<row>[<_>("0432"&id) <_>fn <_>ln <_>st <_>city <_>state <_>zip ] ->
22	[<table border="0";style="background-color:#888888">[
23	<tr>[
24	<td colspan="2";style="background-color:#000000; color:white">
25	(<font color="#ffffff"> deprecated in Xhtml strict)
26	("personel record #" @ (id))
27	]
28	<tr>[
29	<td style="background-color:#888888"> "First Name:"
30	<td style="background-color:#dddddd"> fn
31	]
32	<tr>[
33	<td style="background-color:#888888"> "Last Name: "
34	<td style="background-color:#dddddd"> ln
35	]
36	<tr>[
37	<td style="background-color:#888888"> "Street: "
38	<td style="background-color:#dddddd"> st
39	]
40	<tr>[
41	<td style="background-color:#888888"> "City: "
42	<td style="background-color:#dddddd"> city
43	]
44	<tr>[
45	<td style="background-color:#888888"> "State: "
46	<td style="background-color:#dddddd"> state
47	]
48	<tr>[
49	<td style="background-color:#888888"> "Zip: "
50	<td style="background-color:#dddddd"> zip
51	]
52	]
53	]
54	)
55	]
56	;;
57
58
59
60
61	match load_xml "testcases/db10000.xml" with
62	\| x & Table -> print_xml(dbonerow x)
63	\| _ -> raise "Ma che c%$#^# di file mi hai passato?";;
64
65
66
67