Re: Handling transactions?

[Jacob Sparre Andersen <sparre@nbi.dk>]

EGarrulo <egarrulo@gmail.com> writes:

> What is the Ada idiom to handle transactions in procedures?

To copy the data into the transaction procedure on start and out on
successful completion:

   procedure Transaction (Data: in out Some_Type) is
      Local : Some_Type := Data;
   begin
      Local.Obj_1.A;
      Local.Obj_2.B;
      Local.Obj_3.C;
      Local.Obj_4.D;

      Data := Local; --  commit
   end Transaction;

Greetings,

Jacob
-- 
"... but it was, on the other hand, very good at being a slow
 and dim-witted pupil."
"I had no idea they were supposed to be in short supply"