TarTest.cm
Copyright Ó 1989 by Xerox Corporation. All rights reserved.
Bill Jackson (bj) July 7, 1989 9:59:17 pm PDT
Run TarPackage
tar tf Sample.tar
tar tfv Sample.tar
tar tf LinkTest.tar
tar tfv LinkTest.tar
TarToDF Sample.tar Private2.0 Silly Silly.df
← &df ← FS.StreamOpen[fileName: "Silly.df", accessOptions: create, extendFileProc: NIL]
← &tar ← FS.StreamOpen[fileName: "Sample.tar", extendFileProc: NIL]
← TarImpl.stdout ← &stdout[]
← TarImpl.Scan[&tar, TarImpl.PrintInfo]
← TarImpl.ToDF[&tar, "Private2.0", "Silly", &df]