Otreelib (u.957699c011c5a817c2e79af5b29a0703.diffast-misc.0.1.1.doc.diffast-misc.Diffast

val sprintf : ('a, unit, string) format -> 'a

exception Distance_too_far

val find_trivial : 
  < root : 
    < children : 'a array
    ; data : < equals : 'b -> bool.. >
    ; index : Otree.index.. >
    ; scan_subtree : 'a -> ('c -> unit) -> unit.. > ->
  < root : < children : 'd array ; data : 'b ; index : Otree.index.. >
    ; scan_subtree : 'd -> ('e -> unit) -> unit.. > ->
  Edit.seq * Mapping.t * 'f list

val to_dot : 
  string ->
  < get : Otree.index -> < uid : UID.t.. >
    ; to_dot : 
      ?mklab:
        (< data : < digest_string : string.. >
           ; index : int
           ; preorder_index : int
           ; to_qualified_string : string
           ; uid : UID.t.. > ->
          string) ->
      Otree.index list ->
      Buffer.t.. > ->
  < get : Otree.index -> < uid : UID.t.. >
    ; to_dot : 
      ?mklab:
        (< data : < digest_string : string.. >
           ; index : int
           ; preorder_index : int
           ; to_qualified_string : string
           ; uid : UID.t.. > ->
          string) ->
      Otree.index list ->
      Buffer.t.. > ->
  Edit.t list ->
  (Otree.index * Otree.index) list ->
  (Otree.index * Otree.index) list ->
  unit