-- EfidI1 WS02/03 
-- Blatt 7 Aufgabe 2
-- Autor: Jörgen Bertele

with Ada.Strings.Unbounded;
package Gzahl is
   type Grosse_Zahl is private;
   
   -- liest eine beliebig grosse Ganzzahl vom Benutzer ein.
   procedure Get(X: out Grosse_Zahl);

   -- gibt eine beliebig grosse Ganzzahl auf dem Bildschirm aus.
   procedure Put(X: in Grosse_Zahl);
   
   -- die vier Grundrechenarten mit den Ganzzahlen.
   function "+"(Left, Right: Grosse_Zahl) return Grosse_Zahl;
   function "-"(Left, Right: Grosse_Zahl) return Grosse_Zahl;
   function "*"(Left, Right: Grosse_Zahl) return Grosse_Zahl;
   function "/"(Left, Right: Grosse_Zahl) return Grosse_Zahl;
   
   -- zusätzliche Erweiterungen
   function "abs"(Right: Grosse_Zahl) return Grosse_Zahl;
   function "rem"(Left, Right: Grosse_Zahl) return Grosse_Zahl;
   function "mod"(Left, Right: Grosse_Zahl) return Grosse_Zahl;
   function "="(Left, Right: Grosse_Zahl) return boolean;
   function "<"(Left, Right: Grosse_Zahl) return Boolean;
   function ">"(Left, Right: Grosse_Zahl) return Boolean;
   function "<="(Left, Right: Grosse_Zahl) return Boolean;
   function ">="(Left, Right: Grosse_Zahl) return Boolean;
   
   function Gz(Wert: Integer) return Grosse_Zahl;
   function Gz(Wert: String) return Grosse_Zahl;
   

private
   type Grosse_Zahl is new Ada.Strings.Unbounded.Unbounded_String; 
end Gzahl;