File: cloud.ml

package info (click to toggle)
ocaml-visitors 20180513-1
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 1,640 kB
  • sloc: ml: 4,063; makefile: 120; sh: 13
file content (18 lines) | stat: -rw-r--r-- 448 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
class ['self] base = object (_ : 'self)
  method visit_real _env x = x
end

type cloud =
  | Point of (float[@name "real"]) * (float[@name "real"])
  | Clouds of cloud list
  [@@name "nuage"]
  [@@deriving visitors { variety = "map"; ancestors = ["base"] }]

module List = struct

  type 'a mylist = 'a list =
    | []                     [@name "nil"]
    | (::) of 'a * 'a mylist [@name "cons"]
    [@@deriving visitors { variety = "map" }]

end