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 118... Line 118...
118 
BEGIN
 118 
BEGIN
119 
  Char(0DX);
 119 
  Char(0DX);
120 
  Char(0AX)
 120 
  Char(0AX)
121 
END Ln;
 121 
END Ln;
Line 122... Line 122...
122 
 
 122 
 
123 
PROCEDURE FixReal*(x: LONGREAL; width, p: INTEGER);
 123 
PROCEDURE _FixReal(x: LONGREAL; width, p: INTEGER);
124 
VAR e, len, i: INTEGER; y: LONGREAL; minus: BOOLEAN;
 124 
VAR e, len, i: INTEGER; y: LONGREAL; minus: BOOLEAN;
125 
BEGIN
 125 
BEGIN
126 
  IF IsNan(x) OR IsInf(x) THEN
 126 
  IF IsNan(x) OR IsInf(x) THEN
127 
    OutInf(x, width)
 127 
    OutInf(x, width)
Line 198... Line 198...
198 
	x := (x - LONG(FLT(FLOOR(x)))) * 10.0D0
 198 
	x := (x - LONG(FLT(FLOOR(x)))) * 10.0D0
199 
      END;
 199 
      END;
200 
      DEC(p)
 200 
      DEC(p)
201 
    END
 201 
    END
202 
  END
 202 
  END
203 
END FixReal;
 203 
END _FixReal;
Line 204... Line 204...
204 
 
 204 
 
205 
PROCEDURE Real*(x: LONGREAL; width: INTEGER);
 205 
PROCEDURE Real*(x: LONGREAL; width: INTEGER);
206 
VAR e, n, i: INTEGER; minus: BOOLEAN;
 206 
VAR e, n, i: INTEGER; minus: BOOLEAN;
207 
BEGIN
 207 
BEGIN
Line 239... Line 239...
239 
      Char(" ")
 239 
      Char(" ")
240 
    END;
 240 
    END;
241 
    IF minus THEN
 241 
    IF minus THEN
242 
      x := -x
 242 
      x := -x
243 
    END;
 243 
    END;
- 
 
 244 
    Realp := Real;
244 
    FixReal(x, width, width - 3);
 245 
    _FixReal(x, width, width - 3);
245 
    Char("E");
 246 
    Char("E");
246 
    IF e >= 0 THEN
 247 
    IF e >= 0 THEN
247 
      Char("+")
 248 
      Char("+")
248 
    ELSE
 249 
    ELSE
249 
      Char("-");
 250 
      Char("-");
Line 257... Line 258...
257 
    END;
 258 
    END;
258 
    Int(e, 0)
 259 
    Int(e, 0)
259 
  END
 260 
  END
260 
END Real;
 261 
END Real;
Line -... Line 262...
- 
 
 262 
 
- 
 
 263 
PROCEDURE FixReal*(x: LONGREAL; width, p: INTEGER);
- 
 
 264 
BEGIN
- 
 
 265 
  Realp := Real;
- 
 
 266 
  _FixReal(x, width, p)
- 
 
 267 
END FixReal;
261 
 
 268 
 
262 
PROCEDURE Open*;
 269 
PROCEDURE Open*;
Line 263... Line 270...
263 
TYPE
 270 
TYPE
264 
 
 271 
 
Line 280... Line 287...
280 
  info.rsrvd2 := 0;
 287 
  info.rsrvd2 := 0;
281 
  info.fname := "/rd/1/develop/board";
 288 
  info.fname := "/rd/1/develop/board";
282 
  res := KOSAPI.sysfunc2(70, sys.ADR(info))
 289 
  res := KOSAPI.sysfunc2(70, sys.ADR(info))
283 
END Open;
 290 
END Open;
Line 284... Line -...
284 
 
 - 
 
285 
BEGIN
 - 
 
286 
  Realp := Real
 291