~ubuntu-branches/ubuntu/oneiric/ocsigen/oneiric

« back to all changes in this revision

Viewing changes to xmlp4/oldocaml/exemple/essai2.ml

  • Committer: Bazaar Package Importer
  • Author(s): Stephane Glondu
  • Date: 2009-07-02 10:02:08 UTC
  • mfrom: (1.1.9 upstream) (4.1.3 squeeze)
  • Revision ID: james.westby@ubuntu.com-20090702100208-n158b1sqwzn0asil
Tags: 1.2.0-2
Fix build on non-native architectures

Show diffs side-by-side

added added

removed removed

Lines of Context:
1
 
 
2
 
 
3
 
 
4
 
 
5
 
 
6
 
 
7
 
 
8
 
 
9
 
 
10
 
 
11
 
 
12
 
 
13
 
 
14
 
 
15
 
 
16
 
 
17
 
 
18
 
 
19
 
 
20
 
 
21
 
 
22
 
 
23
 
 
24
 
 
25
 
 
26
 
 
27
 
let a = <:xmllist< <em></em>
28
 
 
29
 
 
30
 
                 >>;;
31
 
 
32
 
 
33
 
let sa = <<
34
 
 
35
 
 
36
 
 
37
 
 
38
 
 
39
 
<html>   <head>
40
 
           <title>Essai2</title>
41
 
         </head>
42
 
        <body>
43
 
          <div>
44
 
            je suis   dans <b><i>div</i></b> avec div en gras
45
 
          </div>
46
 
          <h1>  <!-- commentaire --> a$$ je suis dans h1
47
 
 $list:
48
 
                  (*  fgd
49
 
                       fddf   *)
50
 
 
51
 
 
52
 
                  a
53
 
 
54
 
 
55
 
 
56
 
 
57
 
 
58
 
              $ </h1> </body> </html>  >>
59
 
 
60
 
let arbre = <<
61
 
 
62
 
 
63
 
 
64
 
<html>   <head>
65
 
           <title>Essai2</title>
66
 
         </head>
67
 
        <body>
68
 
          <div>
69
 
            je suis   dans <b><i>div</i></b> avec div en gras
70
 
          </div>
71
 
          <h1>  <!-- commentaire --> a$$ je suis dans h1
72
 
              $list:
73
 
                  (*  fgd
74
 
                       fddf   *)
75
 
 
76
 
 
77
 
                  a
78
 
 
79
 
 
80
 
              $
81
 
          </h1>
82
 
 
83
 
 
84
 
        </body>
85
 
 
86
 
                        <!-- qq < <!-- commentaires -- <!- imbriqu�s -> --> ss -->
87
 
</html> >>;;
88
 
 
89
 
 
90
 
 
91
 
 
92
 
 
93
 
(*
94
 
open Xhtmlpp
95
 
 
96
 
 
97
 
 print_string (xh_print arbre);;
98
 
 
99
 
 
100
 
let a = << <html id="lkj"><head/><body>
101
 
<p id="lkj"> <em id="lkj"> ml</em> </p> </body></html> >> in
102
 
 
103
 
print_string (xh_print a);;
104
 
*)