SYSTEM MODULE RTS;

TYPE

  NativeString* = POINTER TO RECORD
                  END;

  CharOpen* = POINTER TO ARRAY OF CHAR;

  NativeException* = POINTER TO EXTENSIBLE RECORD
                     END;

  NativeObject* = POINTER TO ABSTRACT RECORD
                  END;


VAR
  defaultTarget- : ARRAY 4 OF CHAR;


PROCEDURE StrToReal*(IN  p0 : ARRAY OF CHAR;
                     OUT p1 : REAL;
                     OUT p2 : BOOLEAN);

PROCEDURE StrToLong*(IN  p0 : ARRAY OF CHAR;
                     OUT p1 : LONGINT;
                     OUT p2 : BOOLEAN);

PROCEDURE longBitsToReal*(p0 : LONGINT) : REAL;

PROCEDURE ClassMarker*(p0 : ANYPTR);

PROCEDURE intBitsToShortReal*(p0 : INTEGER) : SHORTREAL;

PROCEDURE realToLongBits*(p0 : REAL) : LONGINT;

PROCEDURE RealToStr*(    p0 : REAL;
                     OUT p1 : ARRAY OF CHAR);

PROCEDURE LongToStr*(    p0 : LONGINT;
                     OUT p1 : ARRAY OF CHAR);

PROCEDURE shortRealToIntBits*(p0 : SHORTREAL) : INTEGER;

PROCEDURE getStr*(p0 : NativeException) : CharOpen;

PROCEDURE IntToStr*(    p0 : INTEGER;
                    OUT p1 : ARRAY OF CHAR);

PROCEDURE hiInt*(p0 : LONGINT) : INTEGER;

PROCEDURE Throw*(IN  p0 : ARRAY OF CHAR);

PROCEDURE GetDateString*(OUT p0 : ARRAY OF CHAR);

PROCEDURE loInt*(p0 : LONGINT) : INTEGER;

PROCEDURE GetMillis*() : LONGINT;

PROCEDURE StrToInt*(IN  p0 : ARRAY OF CHAR;
                    OUT p1 : INTEGER;
                    OUT p2 : BOOLEAN);


END RTS.