Gen2Impl.mesa
Copyright Ó 1987 by Xerox Corporation. All rights reserved.
Jean Gastinel August 7, 1987 5:49:53 pm PDT
Oracle Generation number 2
DIRECTORY
FS, IO, Rope, OracleGen;
Gen2Impl: CEDAR PROGRAM
IMPORTS FS, IO, OracleGen
~
BEGIN
OPEN OracleGen;
outf: IO.STREAM;
k : INT;
s,r,t: Rope.ROPE;
Create or Append the file
r ← "Gen.oracle";
outf ← FS.StreamOpen[r, $create];
outf.PutF["-- Begining of the text : \n"];
FOR k
IN [0..128)
DO
s ← BinExt[k,7];
s ← Expand[s,1];
t ← BinExt[127-k,7];
t ← Expand[t,1];
outf.PutF["%g | %g \n",IO.rope[s],IO.rope[t]];
ENDLOOP;
outf.Close[];
END.