set sqlbl on


-- EXERCICE CAO


-- SCHEMA avec heritage

-- vider le compte oracle pour tjrs repartir du meme etat initial 
@vider

-- Définition des types de données

-- Matiere

create type T_Matiere as object (
	nom varchar2(30),
	prix_au_kilo number,
	masse_volumique number
);
-- compiler chaque définition de type
@compile


-- un type utilisé avant d'être défini doit être pré-déclaré
create type T_Piece;
@compile

create type T_Piece_Composite;
@compile



-- L'association ENTRE_DANS : une piece (de base ou composite) ENTRE_DANS la fabrication d'une ou plusieurs pieces composites,
-- en précisant la quantité de composants nécessaire pour fabriquer la pièce composite.

create type T_entre_dans as object (
	quoi      ref T_Piece_Composite,
	quantite  number
);
@compile

-- cardinalité de l'association : 1-N
create type T_entre_dans_plusieurs as table of T_entre_dans;
@compile


-- L'association contient : une piece composite CONTIENT des pieces (de base ou composite),
-- en précisant la quantité contenue.

create type T_contient as object (
	quoi      ref T_Piece,
	quantite  number
);
@compile

-- cardinalité de l'association : 1-N
create type T_contient_plusieurs as table of T_Contient;
@compile


-- PIECE 
-- est une sur-classe de Piece_base et Piece_Composite

prompt T_Piece

create type T_Piece as object (
	nom         varchar2(30),
        entre_dans  T_entre_dans_plusieurs
) not final;
@compile


-- PIECE de BASE
prompt T_Piece_base

create type T_Piece_base under T_Piece (
	est_en ref   T_Matiere
) not final;
@compile

-- Les pièces de base réelles : cube, sphere et cylindre

prompt T_Cube

create type T_Cube under T_Piece_base (
	cote        number
);
@compile

prompt T_Sphere

create type T_Sphere under T_Piece_base (
	rayon        number
);
@compile

prompt T_Cylindre

create type T_Cylindre under T_Piece_base (
	diametre        number,
        hauteur         number
);
@compile

-- un parallélépipède rectangle
prompt T_Paral
create type T_Paral under T_Piece_base (
	hauteur        number,
        largeur        number,
        profondeur     number
);
@compile


-- PIECE COMPOSITE
prompt T_Piece_Composite 

create type T_Piece_composite under T_Piece(
 	cout_assemblage  number,
 	contient_pieces  T_contient_plusieurs
);
@compile