| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869 |
- Listing:
- 1 (* Release 3.10 *)
- 2 (*-------------------------------------------------------------------------*
- 3 * *
- 4 * REALINOU.MOD - Real input/output (core library) *
- 5 * *
- 6 * COPYRIGHT (C) 1987..1992 Clarion Software Corporation. *
- 7 * All Rights Reserved *
- 8 * *
- 9 *--------------------------------------------------------------------------*)
- 10
- 11 (*$V-*)
- 12 IMPLEMENTATION MODULE RealInOut ;
- 13
- 14 IMPORT IO,Str,InOut ;
- 15
- 16
- 17
- 18 PROCEDURE ReadReal ( VAR v : REAL ) ;
- 19 VAR s : ARRAY[0..80] OF CHAR;
- ***** ^ not supported yet
- ***** ^ not supported yet
- 20 r,a : LONGREAL;
- 21 BEGIN
- 22 InOut.ReadString( s );
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 23 r := Str.StrToReal( s,Done );
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ undeclared identifier
- 24 a := ABS( r );
- ***** ^ undeclared identifier
- ***** ^ not supported yet
- 25 Done := Done AND (a >= 1.2E-38 ) AND (a <= 3.4E38 );
- ***** ^ undeclared identifier
- ***** ^ undeclared identifier
- 26 v := REAL(r) ;
- ***** ^ not supported yet
- 27 END ReadReal;
- ***** ^ not supported yet
- 28
- 29 PROCEDURE WriteReal ( v : REAL ; w : CARDINAL ) ;
- 30 BEGIN
- 31 IO.WrReal(v,MAX(CARDINAL),INTEGER(w)) ;
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ undeclared identifier
- ***** ^ not supported yet
- ***** ^ not supported yet
- 32 Done := IO.OK ;
- ***** ^ undeclared identifier
- ***** ^ not supported yet
- ***** ^ not supported yet
- 33 END WriteReal ;
- ***** ^ not supported yet
- 34
- 35 BEGIN
- 36 Done := TRUE ;
- ***** ^ undeclared identifier
- 37 END RealInOut.
- ***** ^ not supported yet
- 26 errors
|
