Thanks. I will try to add that to MC because this would be a good way to publish sar

On 2 févr. 05, at 22:39, Ned Konz wrote:

Yes:

sar := ZipArchive new. preamble := WriteStream on: String new. fileDir := FileDirectory default directoryNamed: 'package-cache'.

{ 'Package1'. 'Package2' } do: [ :packName | fileName := fileDir lastNameFor: packName extension: 'mcz'. sar addFile: (fileDir fullNameFor: fileName) as: fileName. preamble nextPutAll: 'self fileInMonticelloZipVersionNamed: '''; nextPutAll: fileName; nextPutAll: '''.'; cr ].

zip addMember: (ZipArchiveMember newFromString: preamble contents named: 'install/preamble').

"then write it" zip writeTo: (FileDirectory default newFileNamed: 'test.sar').

-- Ned Konz http://bike-nomad.com/squeak/