GENERIC INTERFACE ComplexFmtLex(RF, C);

Arithmetic for Modula-3, see doc for details

IMPORT Rd, Thread;
IMPORT Lex AS L;
IMPORT FloatMode;

FROM Arithmetic IMPORT Error;

FROM FmtLexSupport IMPORT Precedence;

TYPE T = C.T;

TYPE FmtStyle = RECORD elemStyle := RF.FmtStyle{};  END;

PROCEDURE Fmt (READONLY x: T; READONLY style := FmtStyle{}; ): TEXT;

outputs as COMPLEX{re:=<r>; im:=<r>} Uses simple F.Real if x.im=0.0.

TYPE TexStyle = RECORD elemStyle := RF.TexStyle{};  END;

PROCEDURE Tex (READONLY x     : T;
               READONLY style       := TexStyle{};
                        within      := Precedence.Sum; ): TEXT;

TYPE
  LexStyle = RECORD
               sep       := '+';
               elemStyle := RF.LexStyle{};
             END;

PROCEDURE Lex (rd: Rd.T; READONLY style := LexStyle{}; ): T
  RAISES {L.Error, FloatMode.Trap, Rd.Failure, Thread.Alerted};

END ComplexFmtLex.