| 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 |