Hello all, 

 

|package folder|

 

"Name of the Monticello-package that should be archived"

package := 'SWAProject'.

"Name of the resources folder in Contents/Resources/"

folder := 'SWA-Resources'.

 

zip := ZipArchive new.

mczStream := RWBinaryOrTextStream on: (String new: 10000).

workingCopy := MCWorkingCopy forPackage: (MCPackage new name: package).

version := workingCopy newVersion fileOutOn: mczStream.

(zip addString: mczStream contents as: package, '.mcz')
desiredCompressionLevel: 0.

zip addTree: Smalltalk imagePath match: [:e | e fullName startsWith:

    Smalltalk imagePath , FileDirectory slash , folder].

zip addString:  'self fileInMonticelloZipVersionNamed: ''' , package,
'.mcz''.

(self membersMatching: ''' , folder , FileDirectory slash , '*.*'') do: [ :f
| self

    extractMember: f].' as: 'install/preamble'.

zip writeToFileNamed: package , '.sar'.

 

This code should create a SAR-Archive from a Monticello-Package including
all resources in the specified folder

However it throws the error "File not in Directory: SWA-Resources#" on a
Windows-System, while working fine on a Mac.

It seems like there is an issue with the handling of platform-dependent
directory seperators  (\ on Windows, / on UNIX). 

 

Best

-Tim

 

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20150122/2aa9e5f7/attachment.htm