Subversion Repositories Kolibri OS

Rev

Rev 6613 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6613 Rev 6647
Line 113... Line 113...
113 
BEGIN
 113 
BEGIN
114 
  Char(0DX);
 114 
  Char(0DX);
115 
  Char(0AX)
 115 
  Char(0AX)
116 
END Ln;
 116 
END Ln;
Line 117... Line 117...
117 
 
 117 
 
118 
PROCEDURE FixReal*(x: LONGREAL; width, p: INTEGER);
 118 
PROCEDURE _FixReal(x: LONGREAL; width, p: INTEGER);
119 
VAR e, len, i: INTEGER; y: LONGREAL; minus: BOOLEAN;
 119 
VAR e, len, i: INTEGER; y: LONGREAL; minus: BOOLEAN;
120 
BEGIN
 120 
BEGIN
121 
  IF IsNan(x) OR IsInf(x) THEN
 121 
  IF IsNan(x) OR IsInf(x) THEN
122 
    OutInf(x, width)
 122 
    OutInf(x, width)
Line 193... Line 193...
193 
	x := (x - LONG(FLT(FLOOR(x)))) * 10.0D0
 193 
	x := (x - LONG(FLT(FLOOR(x)))) * 10.0D0
194 
      END;
 194 
      END;
195 
      DEC(p)
 195 
      DEC(p)
196 
    END
 196 
    END
197 
  END
 197 
  END
198 
END FixReal;
 198 
END _FixReal;
Line 199... Line 199...
199 
 
 199 
 
200 
PROCEDURE Real*(x: LONGREAL; width: INTEGER);
 200 
PROCEDURE Real*(x: LONGREAL; width: INTEGER);
201 
VAR e, n, i: INTEGER; minus: BOOLEAN;
 201 
VAR e, n, i: INTEGER; minus: BOOLEAN;
202 
BEGIN
 202 
BEGIN
Line 234... Line 234...
234 
      Char(" ")
 234 
      Char(" ")
235 
    END;
 235 
    END;
236 
    IF minus THEN
 236 
    IF minus THEN
237 
      x := -x
 237 
      x := -x
238 
    END;
 238 
    END;
- 
 
 239 
    Realp := Real;
239 
    FixReal(x, width, width - 3);
 240 
    _FixReal(x, width, width - 3);
240 
    Char("E");
 241 
    Char("E");
241 
    IF e >= 0 THEN
 242 
    IF e >= 0 THEN
242 
      Char("+")
 243 
      Char("+")
243 
    ELSE
 244 
    ELSE
244 
      Char("-");
 245 
      Char("-");
Line 252... Line 253...
252 
    END;
 253 
    END;
253 
    Int(e, 0)
 254 
    Int(e, 0)
254 
  END
 255 
  END
255 
END Real;
 256 
END Real;
Line -... Line 257...
- 
 
 257 
 
- 
 
 258 
PROCEDURE FixReal*(x: LONGREAL; width, p: INTEGER);
- 
 
 259 
BEGIN
- 
 
 260 
  Realp := Real;
- 
 
 261 
  _FixReal(x, width, p)
- 
 
 262 
END FixReal;
256 
 
 263 
 
257 
PROCEDURE Open*;
 264 
PROCEDURE Open*;
Line 258... Line -...
258 
END Open;
 - 
 
259 
 
 - 
 
260 
BEGIN
 265 
END Open;
261 
  Realp := Real
 266