mirror of
https://github.com/AdaCore/PolyORB.git
synced 2026-02-12 13:01:15 -08:00
17 lines
340 B
Ada
17 lines
340 B
Ada
package Types is
|
|
|
|
pragma Pure;
|
|
|
|
N_Customer_IDs : constant := 20;
|
|
|
|
type Customer_ID is range 0 .. N_Customer_IDs;
|
|
subtype Customer_Type is String;
|
|
subtype Password_Type is String;
|
|
|
|
Wrong_Password : exception;
|
|
Wrong_Customer : exception;
|
|
Wrong_Donator : exception;
|
|
No_More_IDs : exception;
|
|
|
|
end Types;
|