|
>
|
file := FileTools[TemporaryFilename](cat(FileTools[TemporaryDirectory](),kernelopts(dirsep),"GZtest-"));
|
| (1) |
>
|
data := LinearAlgebra[RandomVector](100, datatype=float[8]);
|
| (2) |
>
|
FileTools[Compressed][WriteFile](file, data);
|
| (3) |
>
|
fd := FileTools[Compressed][Open](file);
|
| (4) |
>
|
FileTools[Compressed][Read](fd, float[8], 1)[1];
|
| (5) |
>
|
FileTools[Compressed][Read](file, float[8], 99);
|
| (6) |
>
|
FileTools[Compressed][Close](fd);
|
| (7) |
>
|
FileTools[Remove](file);
|
|