class produit : string -> | |||
object | |||
val nom : string | |||
method nom : string | |||
end |
class magasin : int -> | |||
object | |||
val mutable buffer : produit array | |||
val c : Condition.t | |||
val mutable ic : int | |||
val mutable ip : int | |||
val m : Mutex.t | |||
val mutable np : int | |||
val taille : int | |||
method deposer : produit -> unit | |||
method prendre : unit -> produit | |||
end |