with P_Util_Biblio;
use  P_Util_Biblio;

with P_ESiut;
use  P_ESiut;

package body P_Biblio is
   procedure AfficherBiblio (Bib: in TR_Biblio) is
   begin
      A_La_Ligne;
      Ecrire_Ligne ("Auteur: " & Bib.Auteur);
      Ecrire_Ligne ("Année: " & Integer'Image (Bib.Annee));
      Ecrire_Ligne ("Titre: " & Bib.Titre);
   end AfficherBiblio;

   function LireNomAnnee return TR_Biblio is
      Bib: TR_Biblio;
   begin
      Ecrire ("Auteur ? ");
      Lire   (Bib.Auteur);

      Ecrire ("Année ? ");
      Lire   (Bib.Annee);

      Bib.Titre := (others => ' ');

      return Bib;
   end LireNomAnnee;

   function "=" (Bib1, Bib2: in TR_Biblio) return Boolean is
   begin
      return Bib1.Auteur = Bib2.Auteur and Bib1.Annee = Bib2.Annee;
   end "=";

   function "<" (Bib1, Bib2: in TR_Biblio) return Boolean is
   begin
      if Bib1.Annee = Bib2.Annee then
         return Bib1.Auteur < Bib2.Auteur;
      else
         return Bib1.Annee < Bib2.Annee;
      end if;
   end "<";
end P_Biblio;