26 lines
612 B
Plaintext
26 lines
612 B
Plaintext
#use "topfind"
|
|
#require "tyxml"
|
|
|
|
module X = Xhtml.M_01_01 (* XHTML 1.1 *)
|
|
module P = Xhtml.P_01_01
|
|
|
|
let make_table () =
|
|
let td1 = X.td [X.pcdata "1"] in
|
|
let td2 = X.td [X.pcdata "2"] in
|
|
let td3 = X.td [X.pcdata "3"] in
|
|
let my_tr = X.tr td1 [td2; td3] in
|
|
let my_table = X.table my_tr [] in
|
|
(my_table)
|
|
|
|
let () =
|
|
let my_title = X.title (X.pcdata "My Page") in
|
|
let my_head = X.head my_title [] in
|
|
let my_h1 = X.h1 [X.pcdata "My Table"] in
|
|
|
|
let my_table = make_table () in
|
|
|
|
let my_body = X.body [my_h1; my_table] in
|
|
let my_html = X.html my_head my_body in
|
|
P.print print_endline my_html;
|
|
;;
|