module Behav: sig endtype autorization_response =
| |
Continue |
(* | ok | *) |
| |
Skip |
(* | Skip this file | *) |
| |
Stop |
(* | Stop the command | *) |
class type ['a] data =object end
class type ct_cvs = object endclass type ['a] list_behaviour =object end
class type ['a] tree_behaviour =object end
class ['a] cvs :'a data -> object end