Squeak Smalltalk에서 디렉토리를 압축하는 방법은 무엇입니까?

Question

스퀵 스몰 토크에서 디렉토리를 압축하는 방법은 무엇입니까? StandardFileStream에서 compressFile 메서드를 찾았지만 여러 파일이나 디렉터리를 압축하는 방법을 알 수 없습니다. 나는 System-Compression 클래스를 실험했지만 많은 행운이 없었다. 미리 감사드립니다!

이것은 내가 지금 가지고있는 것입니다. 나는 파일 이름 끝에 타임 스탬프를 추가하고있다. 그래서 여기에 주어진 파일 이름으로 시작하는 모든 파일을 zip이나 gzip 파일에 넣고 싶다.

compressFile: aFileName in: aDirectory 

| zipped buffer unzipped zipFileName | 
zipFileName _ aFileName copyUpTo: $. . 
zipped _ aDirectory newFileNamed: (zipFileName, FileDirectory dot, 'zip'). 
zipped binary; setFileTypeToObject. 
zipped _ ZipWriteStream on: zipped. 
buffer _ ByteArray new: 50000. 
aDirectory fileNames do: [:f | 
    (f beginsWith: zipFileName) ifTrue: [ 
     unzipped _ aDirectory readOnlyFileNamed: (aDirectory fullNameFor: f). 
     unzipped binary. 
     [unzipped atEnd] whileFalse:[ 
      zipped nextPutAll: (unzipped nextInto: buffer)]. 
     unzipped close]]. 
zipped close. 

Answer 1

ZipWriteStream, 그것은 적절한 ZIP 파일이 당신은 ZipArchive 클래스를 사용하려는 등 모든 헤더와 디렉토리 정보와 함께 밖으로 누워있다 방법을 알고하지 않는 경우에만 압축에 사용되는 헬퍼 클래스입니다.

"first, construct archive layout in memory" 
zip := ZipArchive new. 
zip addFile: 'foo.txt'. 
zip addFile: 'bar.txt' as: 'xyz.txt'. 
zip addTree: dir match: [:entry | entry name beginswith: 'baz']. 
"then, write archive to disk, compressing each member" 
file := dest newFileNamed: 'test.zip'. 
zip writeTo: file. 
file close.