Commit eab25d89 authored by dcw's avatar dcw
Browse files

Print{Type} -> Write{Type}

parent 85fb2e80
......@@ -9,9 +9,9 @@ FROM BIO IMPORT PutString, PutLine, PutLn;
FROM FIO IMPORT StdOut;
FROM mx IMPORT
IntList, IntListNull, IntListCons, PrintIntList,
ILList, ILListNull, ILListCons, PrintILList,
IdTree, IdTreeLeaf, IdTreeNode, PrintIdTree;
IntList, IntListNull, IntListCons, WriteIntList,
ILList, ILListNull, ILListCons, WriteILList,
IdTree, IdTreeLeaf, IdTreeNode, WriteIdTree;
VAR
......@@ -27,9 +27,9 @@ BEGIN
PutLn( "intlists:" );
PutLine();
PutString( " int1: " ); PrintIntList( StdOut, int1 ); PutLine();
PutString( " int2: " ); PrintIntList( StdOut, int2 ); PutLine();
PutString( " int3: " ); PrintIntList( StdOut, int3 ); PutLine();
PutString( " int1: " ); WriteIntList( StdOut, int1 ); PutLine();
PutString( " int2: " ); WriteIntList( StdOut, int2 ); PutLine();
PutString( " int3: " ); WriteIntList( StdOut, int3 ); PutLine();
PutLine();
END testintlist;
......@@ -47,10 +47,10 @@ BEGIN
PutLn( "ILLists:" );
PutLine();
PutString( " il1: " ); PrintILList( StdOut, il1 ); PutLine();
PutString( " il2: " ); PrintILList( StdOut, il2 ); PutLine();
PutString( " il3: " ); PrintILList( StdOut, il3 ); PutLine();
PutString( " il4: " ); PrintILList( StdOut, il4 ); PutLine();
PutString( " il1: " ); WriteILList( StdOut, il1 ); PutLine();
PutString( " il2: " ); WriteILList( StdOut, il2 ); PutLine();
PutString( " il3: " ); WriteILList( StdOut, il3 ); PutLine();
PutString( " il4: " ); WriteILList( StdOut, il4 ); PutLine();
PutLine();
END testillist;
......@@ -69,12 +69,12 @@ BEGIN
id6 := IdTreeNode( id4, id5 );
PutLn( "idtrees:" ); PutLine();
PutString( " id1: " ); PrintIdTree( StdOut, id1 ); PutLine();
PutString( " id2: " ); PrintIdTree( StdOut, id2 ); PutLine();
PutString( " id3: " ); PrintIdTree( StdOut, id3 ); PutLine();
PutString( " id4: " ); PrintIdTree( StdOut, id4 ); PutLine();
PutString( " id5: " ); PrintIdTree( StdOut, id5 ); PutLine();
PutString( " id6: " ); PrintIdTree( StdOut, id6 ); PutLine();
PutString( " id1: " ); WriteIdTree( StdOut, id1 ); PutLine();
PutString( " id2: " ); WriteIdTree( StdOut, id2 ); PutLine();
PutString( " id3: " ); WriteIdTree( StdOut, id3 ); PutLine();
PutString( " id4: " ); WriteIdTree( StdOut, id4 ); PutLine();
PutString( " id5: " ); WriteIdTree( StdOut, id5 ); PutLine();
PutString( " id6: " ); WriteIdTree( StdOut, id6 ); PutLine();
PutLine();
END testidtree;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment