[V3dot10] Announcing new VersionsBrowser and source condensing

[Edgar J. De Cleene]

El 8/13/07 3:37 AM, "Maurice Rabb" <m3rabb at uiuc.edu> escribió:

>  #archiveSourcesPermanently
> This method empties the changes file and condense all of the current
> sources to a new source file, and moves all of the prior source
> versions to the permanent master archive.  Since we don't want random
> Squeakers to affect the master archive, this method actually only
> generate a new permanent archive locally.  Once generated locally, it
> can be copied manually to the actual FTP archive site by someone who
> has authorization.


Sorry tell still I can't produce a new sources.

Smalltalk archiveSourcesPermanently fails on Mac OS X 10.4.4.

Still I don't try on Windows or Ubuntu.

Edgar

-------------- next part --------------
Error: a primitive has failed
16 August 2007 7:40:17 am

VM: Mac OS - a SmalltalkImage
Image: Squeak3.10beta [latest update: #7137]

SecurityManager state:
Restricted: false
FileAccess: true
SocketAccess: true
Working Dir Discovery:Users:admin:Squeak3.10
Trusted Dir Discovery:Users:admin:Squeak3.10
Untrusted Dir Discovery:Users:admin:Library:Preferences:Squeak:Internet:My Squeak

MacHFSPlusFileDirectory(Object)>>error:
	Receiver: MacHFSPlusFileDirectory on ''
	Arguments and temporary variables: 
		aString: 	'a primitive has failed'
	Receiver's instance variables: 
		pathName: 	FilePath('')

MacHFSPlusFileDirectory(Object)>>primitiveFailed
	Receiver: MacHFSPlusFileDirectory on ''
	Arguments and temporary variables: 

	Receiver's instance variables: 
		pathName: 	FilePath('')

MacHFSPlusFileDirectory(FileDirectory)>>primCreateDirectory:
	Receiver: MacHFSPlusFileDirectory on ''
	Arguments and temporary variables: 
		fullPath: 	'B'
	Receiver's instance variables: 
		pathName: 	FilePath('')

MacHFSPlusFileDirectory(FileDirectory)>>createDirectory:
	Receiver: MacHFSPlusFileDirectory on ''
	Arguments and temporary variables: 
		localFileName: 	'B'
	Receiver's instance variables: 
		pathName: 	FilePath('')


--- The full stack ---
MacHFSPlusFileDirectory(Object)>>error:
MacHFSPlusFileDirectory(Object)>>primitiveFailed
MacHFSPlusFileDirectory(FileDirectory)>>primCreateDirectory:
MacHFSPlusFileDirectory(FileDirectory)>>createDirectory:
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
MacHFSPlusFileDirectory(FileDirectory)>>assureExistenceOfPath:
MacHFSPlusFileDirectory(FileDirectory)>>assureExistence
[] in SourceCodeStore>>assureExistenceOf: {[:each | containingDirectory := (containingDirectory directoryNamed: each) a...]}
OrderedCollection>>do:
SourceCodeStore>>assureExistenceOf:
SourceCodeStore>>newFileStreamFor:in:on:
SourceCodeStore>>newStreamFor:in:on:
SourceCodeStore>>newStreamFor:in:
SourceCodeStore>>newMasterArchiveStreamFor:
SourceCodeStore>>streamFromRemoteMasterArchive:ifError:
[] in SourceCodeStore>>streamFromMasterArchive:ifError: {[self streamFromRemoteMasterArchive: aLocation ifError: exceptionBlock]}
SourceCodeStore>>streamFrom:in:ifAbsent:ifError:
SourceCodeStore>>streamFromCachedMasterArchive:ifAbsent:
SourceCodeStore>>streamFromMasterArchive:ifError:
SourceCodeStore>>streamFromArchived:ifError:
SourceCodeStore>>streamFrom:ifError:
[] in SourceCodeStore>>from:safeStreamInto:ifError: {[sourceStream := self     streamFrom: aSourceCodeLocation     ifError: [^ ex...]}
BlockContext>>ensure:
SourceCodeStore>>from:safeStreamInto:ifError:
SourceCodeStore>>saveSourceCode:at:
[] in SourceCodeStore>>archiveFrom:while:using: {[:sourceCode |  saveLocation := sourceCode perform: asLocation.  self saveSo...]}
OrderedCollection>>do:
SourceCodeStore>>archiveFrom:while:using:
SourceCodeStore>>archivePermanentlyFrom:
SourceCodeStore>>saveMethod:from:using:doSync:
[] in SourceCodeStore>>saveMethodsFromBehavior:using:doSync: {[:compiledMethod | self   saveMethod: compiledMethod   from: aBehavior   usi...]}
[] in SourceCodeStore>>fromBehavior:neededCompiledMethodsDo: {[:selector |  compiledMethod := aBehavior compiledMethodAt: selector.  (comp...]}
[] in SourceCodeStore>>fromBehavior:selectorsDo: {[:selector | oneArgBlock value: selector]}
Array(SequenceableCollection)>>do:
[] in SourceCodeStore>>fromBehavior:selectorsDo: {[:methodCategory | (behaviorOrganization listAtCategoryNamed: methodCategory...]}
Array(SequenceableCollection)>>do:
SourceCodeStore>>fromBehavior:selectorsDo:
SourceCodeStore>>fromBehavior:neededCompiledMethodsDo:
SourceCodeStore>>saveMethodsFromBehavior:using:doSync:
SourceCodeStore>>saveBehavior:using:doSync:
[] in SourceCodeStore>>saveCondensedUsing:doSync: {[:behavior | self   saveBehavior: behavior   using: locationAction   doSync:...]}
[] in SourceCodeStore>>display:duringBehaviorsDo: {[:behavior |  oneArgBlock value: behavior.  displayBar value: (index := inde...]}
OrderedCollection>>do:
[] in SourceCodeStore>>display:duringBehaviorsDo: {[:displayBar | behaviors   do: [:behavior |     oneArgBlock value: behavior....]}
[] in ProgressInitiationException>>defaultMorphicAction {[result := workBlock value: progress]}
BlockContext>>ensure:
ProgressInitiationException>>defaultMorphicAction
ProgressInitiationException>>defaultAction
UndefinedObject>>handleSignal:
MethodContext(ContextPart)>>handleSignal:
...etc...