DEFINITION MODULE LongStr; (* LONGREAL/string conversion wrapper *) IMPORT ConvTypes, RealStr; TYPE ConvResults = ConvTypes.ConvResults; (* strAllRight, strOutOfRange, strWrongFormat, strEmpty *) (* * the string form of a signed fixed-point real number is * ["+" | "-"], decimal digit, {decimal digit}, [".", {decimal digit}] *) (* * the string form of a signed floating-point real number is * signed fixed-point real number, "E", ["+" | "-"], decimal digit, {decimal digit} *) (****************************************************************) (* *) (* GPM defines LONGREAL as a type alias of REAL so no *) (* seperate implementation is required. *) (* LongStr is implemented by RealStr *) (* *) (****************************************************************) CONST StrToReal = RealStr.StrToReal; RealToFloat = RealStr.RealToFloat; RealToEng = RealStr.RealToEng; RealToFixed = RealStr.RealToFixed; RealToStr = RealStr.RealToStr; END LongStr.