`sig
type pm_obj =
[ `File of string
| `Posix_sem of string
| `Posix_shm of string
| `Sem_cont of string ]
class type pmanage =
object
method register : Netsys_pmanage.pm_obj list -> unit
method register_file : string -> unit
method register_posix_sem : string -> unit
method register_posix_shm : string -> unit
method register_sem_cont : string -> unit
method registered : Netsys_pmanage.pm_obj list
method unlink : unit -> unit
method unregister_file : string -> unit
method unregister_posix_sem : string -> unit
method unregister_posix_shm : string -> unit
method unregister_sem_cont : string -> unit
end
val pmanage : string -> Netsys_pmanage.pmanage
val fake_pmanage : unit -> Netsys_pmanage.pmanage
val unlink_this : Netsys_pmanage.pm_obj -> unit
end`