GDI

CREATE OR REPLACE TYPE tp_diretor AS OBJECT (
    id_imdb VARCHAR2(20),
    nome VARCHAR2(20),
    data_de_nascimento DATE,

    ORDER MEMBER FUNCTION comparar_diretor(outro tp_diretor) RETURN INTEGER
);
/

CREATE OR REPLACE TYPE BODY tp_diretor AS
    ORDER MEMBER FUNCTION comparar_diretor(outro tp_diretor) RETURN INTEGER IS
    BEGIN
        RETURN STRCMP(nome, outro.nome);
    END;
END;
/

CREATE TABLE tb_diretor OF tp_diretor (
    id_imdb PRIMARY KEY
);
/

CREATE OR REPLACE TYPE tp_produtora AS OBJECT (
    cnpj VARCHAR2(20),
    nome VARCHAR2(40),
    nome_fantasia VARCHAR2(40),
    data_de_criacao DATE,
    produz_filme INTEGER,
    produz_serie INTEGER,

    ORDER MEMBER FUNCTION comparar_produtora(outro tp_produtora) RETURN INTEGER
);
/

CREATE OR REPLACE TYPE BODY tp_produtora AS
    ORDER MEMBER FUNCTION comparar_produtora(outro tp_produtora) RETURN INTEGER IS
    BEGIN
        RETURN STRCMP(nome_fantasia, outro.nome_fantasia);
    END;
END;
/

CREATE TABLE tb_produtora OF tp_produtora (
    cnpj PRIMARY KEY
);
/

CREATE OR REPLACE TYPE tp_plano AS OBJECT (
    id_plano INTEGER,
    preco INTEGER,
    numero_de_telas INTEGER,
    qualidade_de_video VARCHAR(5),

    MAP MEMBER FUNCTION mapear_plano RETURN INTEGER
);
/

ALTER TYPE tp_plano MODIFY ATTRIBUTE preco NUMBER;
/

CREATE OR REPLACE TYPE BODY tp_plano AS
    MAP MEMBER FUNCTION mapear_plano RETURN INTEGER IS
    BEGIN
        RETURN id_plano;
    END;
END;
/

CREATE TABLE tb_plano OF tp_plano (
    id_plano PRIMARY KEY
);
/

CREATE OR REPLACE TYPE tp_nomes AS VARRAY(10) OF VARCHAR2(40);
/

CREATE OR REPLACE TYPE tp_categorias AS VARRAY(10) OF VARCHAR2(20);
/

CREATE OR REPLACE TYPE tp_idiomas AS VARRAY(10) OF VARCHAR2(20);
/

CREATE OR REPLACE TYPE tp_legendas AS VARRAY(10) OF VARCHAR2(20);
/

CREATE OR REPLACE TYPE tp_midia AS OBJECT (
    id_imdb VARCHAR2(20),
    data_de_lancamento DATE,
    nomes tp_nomes,
    categorias tp_categorias,
    idiomas tp_idiomas,
    legendas tp_legendas,

    FINAL MEMBER PROCEDURE inserir_nome(nome VARCHAR2),
    FINAL MEMBER PROCEDURE inserir_categoria(categoria VARCHAR2),
    FINAL MEMBER PROCEDURE inserir_idioma(idioma VARCHAR2),
    FINAL MEMBER PROCEDURE inserir_legenda(legenda VARCHAR2),
    NOT INSTANTIABLE MEMBER FUNCTION get_duracao RETURN INTEGER
) NOT FINAL NOT INSTANTIABLE;
/

CREATE OR REPLACE TYPE BODY tp_midia AS
    FINAL MEMBER PROCEDURE inserir_nome(nome VARCHAR2) IS
    BEGIN
        nomes.EXTEND(1);
        nomes(nomes.COUNT) := nome;
    END;

    FINAL MEMBER PROCEDURE inserir_categoria(categoria VARCHAR2) IS
    BEGIN
        categorias.EXTEND(1);
        categorias(categorias.COUNT) := categoria;
    END;

    FINAL MEMBER PROCEDURE inserir_idioma(idioma VARCHAR2) IS
    BEGIN
        idiomas.EXTEND(1);
        idiomas(idiomas.COUNT) := idioma;
    END;

    FINAL MEMBER PROCEDURE inserir_legenda(legenda VARCHAR2) IS
    BEGIN
        legendas.EXTEND(1);
        legendas(legendas.COUNT) := legenda;
    END;
END;
/

CREATE OR REPLACE TYPE tp_filme UNDER tp_midia (
    duracao INTEGER,
    prequel REF tp_filme,

    CONSTRUCTOR FUNCTION tp_filme(SELF IN OUT NOCOPY tp_filme,
        id_imdb VARCHAR2, data_de_lancamento DATE, nome VARCHAR2, categoria VARCHAR2,
        idioma VARCHAR2, legenda VARCHAR2, duracao INTEGER, prequel REF tp_filme
    ) RETURN SELF AS RESULT,

    OVERRIDING MEMBER FUNCTION get_duracao RETURN INTEGER
);
/

CREATE OR REPLACE TYPE BODY tp_filme AS
    CONSTRUCTOR FUNCTION tp_filme(SELF IN OUT NOCOPY tp_filme,
        id_imdb VARCHAR2, data_de_lancamento DATE, nome VARCHAR2, categoria VARCHAR2,
        idioma VARCHAR2, legenda VARCHAR2, duracao INTEGER, prequel REF tp_filme
    ) RETURN SELF AS RESULT IS
    BEGIN
        SELF.id_imdb := id_imdb;
        SELF.data_de_lancamento := data_de_lancamento;
        SELF.nomes := tp_nomes(nome);
        SELF.categorias := tp_categorias(categoria);
        SELF.idiomas := tp_idiomas(idioma);
        SELF.legendas := tp_legendas(legenda);
        SELF.duracao := duracao;
        SELF.prequel := prequel;
        RETURN;
    END;

    OVERRIDING MEMBER FUNCTION get_duracao RETURN INTEGER IS
    BEGIN
        RETURN duracao;
    END;
END;
/

CREATE TABLE tb_filme OF tp_filme (
    id_imdb PRIMARY KEY,
    prequel WITH ROWID REFERENCES tb_filme
);
/

CREATE OR REPLACE TYPE tp_serie UNDER tp_midia (
    episodios INTEGER,

    CONSTRUCTOR FUNCTION tp_serie(SELF IN OUT NOCOPY tp_serie,
        id_imdb VARCHAR2, data_de_lancamento DATE, nome VARCHAR2, categoria VARCHAR2,
        idioma VARCHAR2, legenda VARCHAR2, episodios INTEGER
    ) RETURN SELF AS RESULT,

    OVERRIDING MEMBER FUNCTION get_duracao RETURN INTEGER
);
/

CREATE OR REPLACE TYPE BODY tp_serie AS
    CONSTRUCTOR FUNCTION tp_serie(SELF IN OUT NOCOPY tp_serie,
        id_imdb VARCHAR2, data_de_lancamento DATE, nome VARCHAR2, categoria VARCHAR2,
        idioma VARCHAR2, legenda VARCHAR2, episodios INTEGER
    ) RETURN SELF AS RESULT IS
    BEGIN
        SELF.id_imdb := id_imdb;
        SELF.data_de_lancamento := data_de_lancamento;
        SELF.nomes := tp_nomes(nome);
        SELF.categorias := tp_categorias(categoria);
        SELF.idiomas := tp_idiomas(idioma);
        SELF.legendas := tp_legendas(legenda);
        SELF.episodios := episodios;
        RETURN;
    END;

    OVERRIDING MEMBER FUNCTION get_duracao RETURN INTEGER IS
    BEGIN
        RETURN episodios * 40;
    END;
END;
/

CREATE TABLE tb_serie OF tp_serie (
    id_imdb PRIMARY KEY
);
/

CREATE OR REPLACE TYPE tp_perfil AS OBJECT (
    nome VARCHAR2(40),
    pode_assistir_conteudo_adulto INTEGER
);
/

CREATE OR REPLACE TYPE tp_perfis AS TABLE OF tp_perfil;
/

CREATE OR REPLACE TYPE tp_usuario AS OBJECT (
    email VARCHAR2(40),
    primeiro_nome VARCHAR2(20),
    ultimo_nome VARCHAR2(20),
    senha VARCHAR2(20),
    data_de_nascimento DATE,
    plano REF tp_plano,
    perfis tp_perfis,

    MEMBER FUNCTION get_perfil(nome VARCHAR2) RETURN tp_perfil
);
/

CREATE OR REPLACE TYPE BODY tp_usuario AS
    MEMBER FUNCTION get_perfil(nome VARCHAR2) RETURN tp_perfil IS
        perfil tp_perfil;
    BEGIN
        SELECT VALUE(P) INTO perfil FROM TABLE(perfis) P WHERE P.nome = nome;
        RETURN perfil;
    END;
END;
/

CREATE TABLE tb_usuario OF tp_usuario (
    email PRIMARY KEY,
    plano WITH ROWID REFERENCES tb_plano
) NESTED TABLE perfis STORE AS tb_perfis;
/

CREATE TABLE tb_tem (
    diretor REF tp_diretor SCOPE IS tb_diretor,
    produtora REF tp_produtora SCOPE IS tb_produtora,
    midia REF tp_midia
);
/

CREATE OR REPLACE TYPE tp_clipe AS OBJECT (
    data_criacao DATE,
    duracao INTEGER
);
/

CREATE OR REPLACE TYPE tp_clipes AS TABLE OF tp_clipe;
/

CREATE OR REPLACE TYPE tp_perfil_midia AS OBJECT (
    id_perfil_midia INTEGER,
    data_inicio DATE,
    usuario REF tp_usuario,
    nome_perfil VARCHAR2(40),
    midia REF tp_midia,
    tempo_decorrido INTEGER,
    segundo_atual INTEGER,
    clipes tp_clipes
);
/

CREATE TABLE tb_perfil_midia OF tp_perfil_midia (
    id_perfil_midia PRIMARY KEY,
    usuario WITH ROWID REFERENCES tb_usuario
) NESTED TABLE clipes STORE AS tb_clipes;
/

INSERT INTO tb_diretor VALUES (tp_diretor('nm1218281', 'Jon Watts', TO_DATE('28/06/1981', 'DD/MM/YYYY')));
INSERT INTO tb_diretor VALUES (tp_diretor('nm0751577', 'Anthony Russo', TO_DATE('03/02/1970', 'DD/MM/YYYY')));
INSERT INTO tb_diretor VALUES (tp_diretor('nm0751648', 'Joe Russo', TO_DATE('08/07/1971', 'DD/MM/YYYY')));

INSERT INTO tb_produtora VALUES (tp_produtora('12345678912345', 'Marvel', 'Marvel Cinematic Universe', TO_DATE('30/04/2008', 'DD/MM/YYYY'), 1, 1));
INSERT INTO tb_produtora VALUES (tp_produtora('98765432198765', 'Disney', 'The Walt Disney Company', TO_DATE('01/01/1923', 'DD/MM/YYYY'), 1, 1));

INSERT INTO tb_plano VALUES (tp_plano(1, 27.90, 1, 'SD'));
INSERT INTO tb_plano VALUES (tp_plano(2, 36.90, 2, 'HD'));
INSERT INTO tb_plano VALUES (tp_plano(3, 45.90, 4, '4K'));

INSERT INTO tb_filme VALUES (tp_filme('tt4154756', TO_DATE('26/04/2018', 'DD/MM/YYYY'), 'Vingadores: Guerra Infinita',
    'Fantasia', 'Português', 'Português', 8940, NULL));

INSERT INTO tb_filme VALUES (tp_filme('tt4154796', TO_DATE('25/04/2019', 'DD/MM/YYYY'), 'Vingadores: Ultimato',
    'Ação', 'Português', 'Português', 10860, (SELECT REF(F) FROM tb_filme F WHERE F.id_imdb = 'tt4154756')));

INSERT INTO tb_filme VALUES (tp_filme('tt2250912', TO_DATE('06/07/2017', 'DD/MM/YYYY'), 'Homem-Aranha: De Volta para a Casa',
    'Fantasia', 'Português', 'Português', 7980, NULL));

INSERT INTO tb_filme VALUES (tp_filme('tt6320628', TO_DATE('04/07/2019', 'DD/MM/YYYY'), 'Homem-Aranha: Longe de Casa',
    'Ação', 'Português', 'Português', 7740, (SELECT REF(F) FROM tb_filme F WHERE F.id_imdb = 'tt2250912')));

INSERT INTO tb_filme VALUES (tp_filme('tt10872600', TO_DATE('16/12/2021', 'DD/MM/YYYY'), 'Homem-Aranha: Sem Volta para a Casa',
    'Fantasia', 'Português', 'Português', 8880, (SELECT REF(F) FROM tb_filme F WHERE F.id_imdb = 'tt6320628')));

INSERT INTO tb_serie VALUES('tt2442560', TO_DATE('12/09/2013','dd/mm/yyyy'), tp_nomes('Peaky Blinders'),
    tp_categorias('Drama'), tp_idiomas('Inglês'), tp_legendas('Português'), 90);

INSERT INTO tb_serie VALUES('tt2306299', TO_DATE('03/03/2013','dd/mm/yyyy'), tp_nomes('Vikings'),
    tp_categorias('Ação'), tp_idiomas('Português'), tp_legendas('Inglês'), 100);

INSERT INTO tb_serie VALUES('tt0903747', TO_DATE('20/01/2008','dd/mm/yyyy'), tp_nomes('Breaking Bad'),
    tp_categorias('Drama'), tp_idiomas('Inglês'), tp_legendas('Espanhol'), 90);

INSERT INTO tb_serie VALUES('tt0944947', TO_DATE('17/04/2011','dd/mm/yyyy'), tp_nomes('Game Of Thrones'),
    tp_categorias('Aventura'), tp_idiomas('Espanhol'), tp_legendas('Português'), 101);

INSERT INTO tb_serie VALUES('tt9561862', TO_DATE('15/03/2019','dd/mm/yyyy'), tp_nomes('Love, Death and Robots'),
    tp_categorias('Animação'), tp_idiomas('Russo'), tp_legendas('Inglês'), 50);

INSERT INTO tb_usuario VALUES('lucasmelo1997@gmail.com', 'Lucas', 'Melo', 'AJHDG5', TO_DATE('03/07/1997', 'DD/MM/YYYY'),
    (SELECT REF(P) FROM tb_plano P WHERE P.id_plano = 1), tp_perfis(tp_perfil('Gigi', 1), tp_perfil('Lucas', 1), tp_perfil('Ana', 1 )));

INSERT INTO tb_usuario VALUES('gisele-beez@gmail.com', 'Gisele', 'Beez', 'AJHDASKHDG666', TO_DATE('07/07/1995', 'DD/MM/YYYY'),
    (SELECT REF(P) FROM tb_plano P WHERE P.id_plano = 1), tp_perfis(tp_perfil('Gisele', 1), tp_perfil('Luquinhas', 0)));

INSERT INTO tb_usuario VALUES('titikretz@gmail.com', 'Tifany', 'Melo', 'HASGKKDG', TO_DATE('12/10/1997', 'DD/MM/YYYY'),
    (SELECT REF(P) FROM tb_plano P WHERE P.id_plano = 2), tp_perfis(tp_perfil('Lily', 0), tp_perfil('Jujuba', 0)));

INSERT INTO tb_usuario VALUES('lumajuliacyra@gmail.com', 'Luisa', 'Maranha', 'IOASO1000', TO_DATE('09/02/1990', 'DD/MM/YYYY'),
    (SELECT REF(P) FROM tb_plano P WHERE P.id_plano = 1), tp_perfis(tp_perfil('Luma', 1)));

INSERT INTO tb_usuario VALUES('fernanda-kitz-88@gmail.com', 'Fernanda', 'Kitz', 'KAIJSAIX90', TO_DATE('18/05/1988', 'DD/MM/YYYY'),
    (SELECT REF(P) FROM tb_plano P WHERE P.id_plano = 3), tp_perfis(tp_perfil('Nanda', 1), tp_perfil('Higor', 1), tp_perfil('Pedro', 1), tp_perfil('Ana', 1)));

INSERT INTO tb_usuario VALUES('bililalindsay@gmail.com', 'Lindsay', 'Nentuck', '90887ADSUG', TO_DATE('22/09/1988', 'DD/MM/YYYY'),
    (SELECT REF(P) FROM tb_plano P WHERE P.id_plano = 2), tp_perfis(tp_perfil('Dada', 0), tp_perfil('Higor', 1), tp_perfil('Lindsay', 1)));

INSERT INTO tb_tem VALUES ((SELECT REF(D) FROM tb_diretor D WHERE D.id_imdb = 'nm0751577'),
    (SELECT REF(P) FROM tb_produtora P WHERE P.cnpj = '12345678912345'), (SELECT REF(F) FROM tb_filme F WHERE F.id_imdb = 'tt4154756'));

INSERT INTO tb_tem VALUES ((SELECT REF(D) FROM tb_diretor D WHERE D.id_imdb = 'nm0751648'),
    (SELECT REF(P) FROM tb_produtora P WHERE P.cnpj = '12345678912345'), (SELECT REF(F) FROM tb_filme F WHERE F.id_imdb = 'tt4154756'));

INSERT INTO tb_tem VALUES ((SELECT REF(D) FROM tb_diretor D WHERE D.id_imdb = 'nm0751577'),
    (SELECT REF(P) FROM tb_produtora P WHERE P.cnpj = '12345678912345'), (SELECT REF(F) FROM tb_filme F WHERE F.id_imdb = 'tt4154796'));

INSERT INTO tb_tem VALUES ((SELECT REF(D) FROM tb_diretor D WHERE D.id_imdb = 'nm0751648'),
    (SELECT REF(P) FROM tb_produtora P WHERE P.cnpj = '12345678912345'), (SELECT REF(F) FROM tb_filme F WHERE F.id_imdb = 'tt4154796'));

INSERT INTO tb_tem VALUES ((SELECT REF(D) FROM tb_diretor D WHERE D.id_imdb = 'nm1218281'),
    (SELECT REF(P) FROM tb_produtora P WHERE P.cnpj = '12345678912345'), (SELECT REF(F) FROM tb_filme F WHERE F.id_imdb = 'tt2250912'));

INSERT INTO tb_tem VALUES ((SELECT REF(D) FROM tb_diretor D WHERE D.id_imdb = 'nm1218281'),
    (SELECT REF(P) FROM tb_produtora P WHERE P.cnpj = '12345678912345'), (SELECT REF(F) FROM tb_filme F WHERE F.id_imdb = 'tt6320628'));

INSERT INTO tb_tem VALUES ((SELECT REF(D) FROM tb_diretor D WHERE D.id_imdb = 'nm1218281'),
    (SELECT REF(P) FROM tb_produtora P WHERE P.cnpj = '12345678912345'), (SELECT REF(F) FROM tb_filme F WHERE F.id_imdb = 'tt10872600'));

INSERT INTO tb_perfil_midia VALUES (1, TO_DATE('20/05/2010 12:50:42', 'DD/MM/YYYY HH24:MI:SS'),
    (SELECT REF(U) FROM tb_usuario U WHERE U.email = 'fernanda-kitz-88@gmail.com'),
    'Nanda', (SELECT REF(F) FROM tb_filme F WHERE F.id_imdb = 'tt4154756'), 3000, 50,
    tp_clipes(tp_clipe(TO_DATE('20/05/2010 13:23:15', 'DD/MM/YYYY HH24:MI:SS'), 20)));

INSERT INTO tb_perfil_midia VALUES (2, TO_DATE('10/11/2021 23:15:12', 'DD/MM/YYYY HH24:MI:SS'),
    (SELECT REF(U) FROM tb_usuario U WHERE U.email = 'bililalindsay@gmail.com'),
    'Dada', (SELECT REF(F) FROM tb_filme F WHERE F.id_imdb = 'tt2250912'), 152, 152,
    tp_clipes(tp_clipe(TO_DATE('11/11/2021 01:10:05', 'DD/MM/YYYY HH24:MI:SS'), 8)));