IMPLEMENTATION MODULE LongStr;
(* LongStr layers on RealStr since V3's LONGREAL is REAL. *)

IMPORT ConvTypes, RealStr;

PROCEDURE StrToReal (str : ARRAY OF CHAR; VAR real : LONGREAL;
                     VAR res : ConvResults);
BEGIN
  RealStr.StrToReal(str, real, res)
END StrToReal;

PROCEDURE RealToFloat (real : LONGREAL; sigFigs : CARDINAL;
                       VAR str : ARRAY OF CHAR);
BEGIN
  RealStr.RealToFloat(real, sigFigs, str)
END RealToFloat;

PROCEDURE RealToEng (real : LONGREAL; sigFigs : CARDINAL;
                     VAR str : ARRAY OF CHAR);
BEGIN
  RealStr.RealToEng(real, sigFigs, str)
END RealToEng;

PROCEDURE RealToFixed (real : LONGREAL; place : INTEGER;
                       VAR str : ARRAY OF CHAR);
BEGIN
  RealStr.RealToFixed(real, place, str)
END RealToFixed;

PROCEDURE RealToStr (real : LONGREAL; VAR str : ARRAY OF CHAR);
BEGIN
  RealStr.RealToStr(real, str)
END RealToStr;

END LongStr.