Ocaml_Tretja_build1

class clovek (ime, priimek, spol) =
    object (self)
        val ime = (ime :string)
        val mutable priimek = (priimek :string)
        val mutable spol = (spol :char)

        method izpisiimePriimek = ime, priimek
        method izpisiime = ime
        method izpisipriimek = priimek
        method izpisispol = spol
        method popraviPriimek x = priimek <- x
end;;


let god = new clovek ("Morgan","Freeman",'m');;

god#izpisiimePriimek;;

class moski (ime, priimek, spol) =
    object (self)
    inherit clovek (ime, priimek, 'm')
    val mutable spol = 'm'
end;;

class zenska (ime, priimek, spol) =
    object (self)
    inherit clovek (ime, priimek, 'z')
    val mutable spol= 'z'
end;;

let ivan = new moski ("Ivan","Bedajncov",'m')
let ivanka = new zenska ("Ivanka","Krumpirovic",'z')


class otrok (ime, priimek, spol)=
    object
        inherit moski (ime, priimek, spol) as oce
end;;

(*let druzina = (moski*zenska)*otrok;;*)


class druzina imeDruzine moz zena =
    object (self)
        val ime = (imeDruzine: string)
        val zena = (zena#ime, moz#priimek, 'z')
    (*  method dodajOtroka = new otrok (ime, moz#priimek,spol)*)
end;;

let fafkovi = new druzina "Fafkovi" ivan ivanka;;