Re: [Gm2] ISO IO and gm2 build

[Gaius Mulley]

Gaius Mulley <address@hidden> writes:

Hi Steve,

to followup - I've made some more skip line changes which now allow the
pim/iso libraries to cooperate (on input).  The output looks as if the
library is missing a flush (still under investigation)

regards,
Gaius


MODULE io10;

IMPORT StrIO;
IMPORT FpuIO;
IMPORT SLongIO;
IMPORT SRealIO;
IMPORT STextIO;

VAR
   templ: LONGREAL;
   temp : REAL; 
BEGIN

   StrIO.WriteLn; FpuIO.ReadLongReal(templ); StrIO.WriteLn;
   StrIO.WriteString('LongReal Fpu is '); StrIO.WriteLn;
   FpuIO.WriteLongReal(templ,25,19);StrIO.WriteLn;

   StrIO.WriteLn; FpuIO.ReadReal(temp); StrIO.WriteLn;
   StrIO.WriteString('Real Fpu is ');StrIO.WriteLn;
   FpuIO.WriteReal(temp,25,19);StrIO.WriteLn;

   StrIO.WriteLn;
   SLongIO.ReadReal(templ);
   STextIO.SkipLine ;

   StrIO.WriteString('LongReal SL is ');StrIO.WriteLn;
   SLongIO.WriteReal(templ,25);StrIO.WriteLn;
   StrIO.WriteLn;

   SRealIO.ReadReal(temp);
   STextIO.SkipLine ;

   StrIO.WriteLn;
   StrIO.WriteString('Real SR is ');
   StrIO.WriteLn;
   SRealIO.WriteReal(temp,25);
   StrIO.WriteLn;

END io10.


$ gm2 -g -fiso io10.mod
$ ./a.out

1.0

LongReal Fpu is
    1.0000000000000000000

2.0
3.0

Real Fpu is
    2.0000000000000000000

LongReal SL is
3.000000000000000000000004.0



Real SR is
4.00000000000000000000000