DIRECTORY
Atom,
Basics,
BasicTime,
IO,
Rope,
UXIO;


UXIOTestImpl: CEDAR PROGRAM
IMPORTS Atom, IO, UXIO
~ BEGIN

DoStream: PROC [s: IO.STREAM] ~ {
IO.PutRope[s, "Hello world; Cedar is alive on a Sun\L"];
IO.PutF1[s, "a rope: %g\L", [rope["rope"]]];
IO.PutF1[s, "an int: %g\L", [integer[LAST[INT]]]];
IO.PutF1[s, "an int: %g\L", [integer[FIRST[INT]]]];
IO.PutF1[s, "a char: %g\L", [character['c]]];
IO.PutF1[s, "an atom: %g\L", [atom[Atom.MakeAtom["atom"]]]];
IO.PutF1[s, "a bool: %g\L", [boolean[TRUE]]];
IO.PutF1[s, "a card: %g\L", [cardinal[LAST[CARD]]]];
IO.PutF1[s, "a card: %g\L", [cardinal[FIRST[CARD]]]];
IO.PutF1[s, "a real: %g\L", [real[1.0]]];
};

DoStandard: PROC [] ~ {
s: IO.STREAM м UXIO.CreateStandardStream[output];
DoStream[s];
};

DoFile: PROC [] ~ {
s: IO.STREAM м UXIO.CreateFileStream["myfile", write];
DoStream[s];
};

DoInput: PROC [] ~ {
i: IO.STREAM м UXIO.CreateStandardStream[input];
o: IO.STREAM м UXIO.CreateStandardStream[output]; 
o.PutRope["Type a string: "];
o.PutF1["The line you just typed was: %g\L", [rope[i.GetLineRope[]]]];
o.PutRope["Type an int: "];
o.PutF1["\LYou just typed: %g\L", [integer[i.GetInt[]]]];
{ 
ENABLE  {
IO.EndOfStream => {o.PutRope["\LCaught one. \L"]; GOTO out };
UNCAUGHT => GOTO out;
};
DO
o.PutRope["Type an end-of-file or an int: "];
o.PutF1["\LYou just typed: %g\L", [integer[i.GetInt[]]]];
ENDLOOP;
EXITS out => NULL;
};
};

DoCopy: PROC [] ~ {
i: IO.STREAM м UXIO.CreateStandardStream[input];
o: IO.STREAM м UXIO.CreateStandardStream[output]; 
infile, outfile: Rope.ROPE;
o.PutRope["Type input filename: "];
infile м i.GetLineRope[];
o.PutRope["Type output filename: "];
outfile м i.GetLineRope[];
{
source: IO.STREAM м UXIO.CreateFileStream[name: infile, access: read];
dest: IO.STREAM м UXIO.CreateFileStream[name: outfile, access: write];
buffer: PACKED ARRAY[0..512) OF CHAR;
bufferblock: Basics.UnsafeBlock м [base: NIL, startIndex: 0, count: 512];
TRUSTED {
bufferblock.base м LOOPHOLE[@buffer];
{
bytesread: INT м source.UnsafeGetBlock[bufferblock];
WHILE bytesread > 0 DO
bufferblock.count м bytesread;
[] м dest.UnsafePutBlock[bufferblock];
bytesread м source.UnsafeGetBlock[bufferblock];
ENDLOOP;
};
};
};
};

DoIndex: PROC [] ~ {
i: IO.STREAM м UXIO.CreateStandardStream[input];
o: IO.STREAM м UXIO.CreateStandardStream[output]; 
s: IO.STREAM м NIL;
outfile: Rope.ROPE;
o.PutRope["Type output filename: "];
outfile м i.GetLineRope[];
s м UXIO.CreateFileStream[outfile, write];
IO.PutRope[s, "000000000000000000000000\n"];
IO.SetIndex[s, 8];
IO.PutRope[s, "11111111"];
IO.PutF1[o, "final index = %g\n", [integer[IO.GetIndex[s]]]];
IO.Close[s];
};

DoLength: PROC [] ~ {
i: IO.STREAM м UXIO.CreateStandardStream[input];
o: IO.STREAM м UXIO.CreateStandardStream[output]; 
s: IO.STREAM м NIL;
infile: Rope.ROPE;
o.PutRope["Type input filename: "];
infile м i.GetLineRope[];
s м UXIO.CreateFileStream[infile, read];
IO.PutF[o, "Length of %g is %g\n", [rope[infile]], [integer[IO.GetLength[s]]]];
IO.Close[s];
};

DoInput[];

END.
     
UXIOTestImpl.mesa
Copyright ╙ 1988, 1991 by Xerox Corporation.  All rights reserved.
Carl Hauser, September 29, 1988 3:31:06 pm PDT
Doug Wyatt, March 7, 1988 2:43:36 pm PST
Michael Plass, November 22, 1991 4:22 pm PST

IO.PutF1[s, "a time: %g\L", [time[BasicTime.nullGMT]]];
Э╩Ц  Ц(cedarcode) styleХNewlineDelimiter
Щ ЪЬЩIcodeЪЬ
╧eЬ7ЩBKЩ.KЩ(KЩ,JЩ ЧЪ╧k	Ш	KШKШKШ
KЪЮЬШKШKЪЮЬШKШ ЧKШ Ъ╧nЬЮЬЮШKЪЮЬЮЬЮШKЪЬЮШKШ ЧЪЯЬЮЬЮЬЮЬШ!KЪЮЬ6Ш8KЪЮЬ*Ш,KЪЮЬ0Ш2KЪЮЬ1Ш3KЪЮЬ+Ш-KЪЮЬ:Ш<KЪЮЬ+Ш-KЪЮЬ2Ш4KЪЮЬ3Ш5KЪЮЬ5Щ7KЪЮЬ'Ш)KШKШ ЧЪЯ
ЬЮЬШKЪЬЮЬЮЬЮЬШ1KЪЬШKШKШ ЧЪЯЬЮЬШKЪЬЮЬЮЬЮЬ#Ш6KЪЬШKШKШ ЧЪЯЬЮЬШKЪЬЮЬЮЬЮЬШ0KЪЬЮЬЮЬЮЬШ2KЪЬШKЪЬFШFKЪЬШKШ9ЪЬШЪЮЬШ	KЪЮЬ0ЮЬШ=KЪЮЬЮЬШKШЧЪЮШKЪЬ-Ш-KШ9KЪЮЬШЧKЪЮЬЮЬШKШЧKШKШ ЧЪЯЬЮЬШKЪЬЮЬЮЬЮЬШ0KЪЬЮЬЮЬЮЬШ2KЪЬЮЬШKЪЬ#Ш#KЪЬШKЪЬ$Ш$KЪЬШЪЬШKЪЬЮЬЮЬЮЬ.ШFKЪЬЮЬЮЬЮЬ0ШFKЪ	ЬЮЬЮЬ	ЮЬЮЬШ%KЪЬ)ЮЬШIЪЮЬШ	KЪЬЮЬ
Ш%ЪЬШKЪЬЮЬ&Ш4ЪЮЬЮШKЪЬШKЪЬ&Ш&KЪЬ/Ш/KЪЮЬШЧKЪЬШЧKЪЬШЧKЪЬШЧKШKШ ЧЪЯЬЮЬШKЪЬЮЬЮЬЮЬШ0KЪЬЮЬЮЬЮЬШ2KЪЬЮЬЮЬЮЬШKЪЬЮЬШKЪЬ$Ш$KЪЬШKЪЬЮЬ"Ш*KЪЮЬ*Ш,KЪЮЬШKЪЮЬШKЪЮЬ)ЮЬШ=KЪЮЬ
ШKШKШ ЧЪЯЬЮЬШKЪЬЮЬЮЬЮЬШ0KЪЬЮЬЮЬЮЬШ2KЪЬЮЬЮЬЮЬШKЪЬЮЬШKЪЬ#Ш#KЪЬШKЪЬЮЬ Ш(KЪЮЬ:ЮЬШOKЪЮЬ
ШKШKШ ЧKШ
KШ KЪЮЬШЧ ЕЧ    ╝  l  