| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101 |
- Listing:
- 1 IMPLEMENTATION MODULE NumTypes;
- 2 (*
- 3 * REPERTOIRE
- 4 * Release 1.6
- 5 * By Charles Bradford and Cole Brecheen
- 6 * (c) Copyright 1985-1990 PMI
- 7 * Portland, Oregon
- 8 * All rights reserved
- 9 * (503) 236-1788
- 10 *
- 11 * $Header: D:/logfiles/masters/numtmod.jpv 1.1 03 Dec 1990 22:49:30 coleb $
- 12 *
- 13 *)
- 14
- 15 VAR
- 16 Initialized : BOOLEAN;
- 17
- 18 PROCEDURE Init();
- 19 BEGIN
- 20 IF Initialized THEN
- 21 RETURN;
- 22 ELSE
- 23 Initialized := TRUE;
- 24 END;
- 25 L0 := VAL( LONGINT, 0 );
- ***** ^ undeclared identifier
- ***** ^ undeclared identifier
- ***** ^ not supported yet
- 26 L1 := VAL( LONGINT, 1 );
- ***** ^ undeclared identifier
- ***** ^ undeclared identifier
- ***** ^ not supported yet
- 27 L2 := VAL( LONGINT, 2 );
- ***** ^ undeclared identifier
- ***** ^ undeclared identifier
- ***** ^ not supported yet
- 28 L65535 := VAL( LONGINT, 65535 );
- ***** ^ undeclared identifier
- ***** ^ undeclared identifier
- ***** ^ not supported yet
- 29 R8TenPowers[0] := 10.0;
- ***** ^ undeclared identifier
- ***** ^ not supported yet
- 30 R8TenPowers[1] := 100.0;
- ***** ^ undeclared identifier
- ***** ^ not supported yet
- 31 R8TenPowers[2] := 10000.0;
- ***** ^ undeclared identifier
- ***** ^ not supported yet
- 32 R8TenPowers[3] := 1.0E8;
- ***** ^ undeclared identifier
- ***** ^ not supported yet
- 33 R8TenPowers[4] := 1.0E16;
- ***** ^ undeclared identifier
- ***** ^ not supported yet
- 34 R8TenPowers[5] := 1.0E32;
- ***** ^ undeclared identifier
- ***** ^ not supported yet
- 35 R8TenPowers[6] := 1.0E64;
- ***** ^ undeclared identifier
- ***** ^ not supported yet
- 36 R8TenPowers[7] := 1.0E128;
- ***** ^ undeclared identifier
- ***** ^ not supported yet
- 37 R8TenPowers[8] := 1.0E256;
- ***** ^ undeclared identifier
- ***** ^ not supported yet
- 38 END Init;
- ***** ^ not supported yet
- 39
- 40 (* JPI version *)
- 41
- 42 PROCEDURE REALToReal8( TheReal: REAL ): Real8;
- ***** ^ undeclared identifier
- 43 BEGIN
- 44 RETURN VAL( Real8, TheReal );
- ***** ^ undeclared identifier
- ***** ^ undeclared identifier
- ***** ^ not supported yet
- 45 END REALToReal8;
- ***** ^ not supported yet
- 46
- 47 PROCEDURE Real8ToREAL( TheReal8: Real8 ): REAL;
- ***** ^ undeclared identifier
- 48 BEGIN
- 49 RETURN VAL( REAL, TheReal8 );
- ***** ^ undeclared identifier
- ***** ^ not supported yet
- 50 END Real8ToREAL;
- ***** ^ not supported yet
- 51
- 52 BEGIN
- 53 Initialized := FALSE;
- 54 END NumTypes.
- ***** ^ not supported yet
- 41 errors
|
