caml2html_test.mli

   1: type 'a weird = E10
   2: module Zéro'04 :
   3:   sig val characters : char list val n : int val the_Truth : bool end
   4: val hel'Lo : string
   5: val ( |* ) : int -> int -> int

caml2html_test.ml

   1: 
   2: (* Test file for caml2html (the first line is empty) *)
   3: 
   4: (* -hc option: link to caml2html_test.mli (same page, colorized)
   5:  *             link to caml2html_test.ml (source) *)
   6: 
   7: # 123 (* line directives are not parsed, sorry... *)
   8: 
   9: (* This is a multi-line "*)"
  10:    comment *)
  11: 
  12: open Printf
  13: 
  14: type 'aa' weird = E10
  15: 
  16: (* nested (* comments *) *)
  17: 
  18: module Zéro'04 = 
  19: struct
  20:   let characters = [ 'a'; '\000'; '\x12'; '
  21: '; '\t'; 'z' ]
  22:   let n = 0X12 + truncate 1.2E-1_2
  23:   let the_Truth =
  24:     let ignore4 a b c d = false in
  25:     not (ignore4 1._0_None 1.0E10E10)
  26: end
  27: 
  28: let hel'Lo = "\"Hello \
  29:                 World!\""
  30: 
  31: let ( |* ) a b =
  32:   match a, b with
  33:       1, 0 | 0, 1 -> 1
  34:     | _ -> 0
  35: 
  36: let _ =
  37:   assert true;
  38:   if 0 mod 1 < 1 && `Abc <> `def then
  39:     print_endline hel'Lo

This document was generated using caml2html