reservation_system-super_reservation_system.ads

来自「Ada 2005 Training Notes.」· ADS 代码 · 共 14 行

package Reservation_System.Super_Reservation_System is

   type Vintage is (French, Okuzgozu, Ankara, Kalecik);

   type Super_Reservation is new Reservation_System.Reservation with
      record
         Champagne: Vintage;
      end record;

   overriding
     procedure Make(SR: in out Super_Reservation);

end Reservation_System.Super_Reservation_System;