File : reps.ads

package Reps is

  pragma Pure;

  type Rep is new Long_Long_Float;

  Zero:    constant Rep := Rep(0);
  One:     constant Rep := Rep(1);
  Two:     constant Rep := Rep(2);
  Half:    constant Rep := One/Two;
  Three:   constant Rep := Rep(3);
  Third:   constant Rep := One/Three;
  Four:    constant Rep := Rep(4);
  Quarter: constant Rep := One/Four;
  Six:     constant Rep := Rep(6);
  Sixth:   constant Rep := One/Six;

  function RMin(R,S: Rep) return Rep renames Rep'Min;
  function RMax(R,S: Rep) return Rep renames Rep'Max;

  pragma Inline (RMin,RMax);

end Reps;