Squeak-dev February 2011

squeak-dev@lists.squeakfoundation.org

87 participants
295 discussions

The Trunk: Network-fbs.108.mcz
by commits＠source.squeak.org 28 Feb '11

28 Feb '11

Levente Uzonyi uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-fbs.108.mcz ==================== Summary ==================== Name: Network-fbs.108 Author: fbs Time: 18 February 2011, 11:00:05.486 am UUID: 228bf8a5-3dd5-be4f-a34b-2223842e5bab Ancestors: Network-nice.107 Provide a (TCP) data send with explicit timeout. The existing method (Socket>>sendSomeData:startIndex:count:) calls the new method with a default timeout of 20s. =============== Diff against Network-nice.107 =============== Item was changed: ----- Method: Socket>>sendSomeData:startIndex:count: (in category 'sending') ----- sendSomeData: aStringOrByteArray startIndex: startIndex count: count + ^ self sendSomeData: aStringOrByteArray startIndex: startIndex count: count for: 20.! - "Send up to count bytes of the given data starting at the given index. Answer the number of bytes actually sent." - "Note: This operation may have to be repeated multiple times to send a large amount of data." - - | bytesSent | - (self waitForSendDoneFor: 20) - ifTrue: [ - bytesSent := self primSocket: socketHandle - sendData: aStringOrByteArray - startIndex: startIndex - count: count] - ifFalse: [ConnectionTimedOut signal: 'send data timeout; data not sent']. - ^ bytesSent - ! Item was added: + ----- Method: Socket>>sendSomeData:startIndex:count:for: (in category 'sending') ----- + sendSomeData: aStringOrByteArray startIndex: startIndex count: count for: aTimeoutInSeconds + "Send up to count bytes of the given data starting at the given index. Answer the number of bytes actually sent." + "Note: This operation may have to be repeated multiple times to send a large amount of data." + + | bytesSent | + (self waitForSendDoneFor: aTimeoutInSeconds) + ifTrue: [ + bytesSent := self primSocket: socketHandle + sendData: aStringOrByteArray + startIndex: startIndex + count: count] + ifFalse: [ConnectionTimedOut signal: 'send data timeout; data not sent']. + ^ bytesSent + !

1 0

The Trunk: SMLoader-ul.74.mcz
by commits＠source.squeak.org 28 Feb '11

28 Feb '11

Levente Uzonyi uploaded a new version of SMLoader to project The Trunk: http://source.squeak.org/trunk/SMLoader-ul.74.mcz ==================== Summary ==================== Name: SMLoader-ul.74 Author: ul Time: 28 February 2011, 8:08:20.614 am UUID: 4d7a5c58-81e1-f54a-8944-abd295b857ab Ancestors: SMLoader-cmm.73 Don't reference WebUtils directly from SMClient >> #uploadFile:. =============== Diff against SMLoader-cmm.73 =============== Item was changed: ----- Method: SMClient>>uploadFile: (in category 'api') ----- uploadFile: aDirectoryEntryFile "Upload aDirectoryEntryFile to the uploads area of SqueakMap for my userId." | boundary fieldMap fileStream doc | fileStream := aDirectoryEntryFile readStream binary. [ doc := MIMEDocument contentType: (MIMEDocument guessTypeFromName: aDirectoryEntryFile name) content: fileStream contents url: fileStream asUrl ] ensure: [ fileStream ifNotNil: [ fileStream close ] ]. + boundary := (Smalltalk at: #WebUtils) multipartBoundary. - boundary := WebUtils multipartBoundary. fieldMap := {'upload' -> doc}. ^ (self client httpPost: self smUrl , '/account/upload' content: + ((Smalltalk at: #WebUtils) - (WebUtils encodeMultipartForm: fieldMap boundary: boundary) type: MIMEDocument contentTypeMultipart , '; boundary=' , boundary do: [ : req | req headerAt: 'Connection' put: 'keep-alive' ]) content ; yourself!

1 0

The Trunk: Collections-ul.429.mcz
by commits＠source.squeak.org 28 Feb '11

28 Feb '11

Levente Uzonyi uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ul.429.mcz ==================== Summary ==================== Name: Collections-ul.429 Author: ul Time: 28 February 2011, 7:46:37.501 am UUID: d06ca77f-a95d-134b-9474-847ce5c808b7 Ancestors: Collections-laza.428 String's #getInteger32: and #putInteger32:at: were moved to Nebraska. =============== Diff against Collections-laza.428 =============== Item was removed: - ----- Method: String>>getInteger32: (in category 'encoding') ----- - getInteger32: location - | integer | - <primitive: 'getInteger' module: 'IntegerPokerPlugin'> - "^IntegerPokerPlugin doPrimitive: #getInteger" - - "the following is about 7x faster than interpreting the plugin if not compiled" - - integer := - ((self at: location) asInteger bitShift: 24) + - ((self at: location+1) asInteger bitShift: 16) + - ((self at: location+2) asInteger bitShift: 8) + - (self at: location+3) asInteger. - - integer > 1073741824 ifTrue: [^1073741824 - integer ]. - ^integer - ! Item was removed: - ----- Method: String>>putInteger32:at: (in category 'encoding') ----- - putInteger32: anInteger at: location - | integer | - <primitive: 'putInteger' module: 'IntegerPokerPlugin'> - "IntegerPokerPlugin doPrimitive: #putInteger" - - "the following is close to 20x faster than the above if the primitive is not compiled" - "PUTCOUNTER := PUTCOUNTER + 1." - integer := anInteger. - integer < 0 ifTrue: [integer := 1073741824 - integer. ]. - self at: location+3 put: (Character value: (integer \\ 256)). - self at: location+2 put: (Character value: (integer bitShift: -8) \\ 256). - self at: location+1 put: (Character value: (integer bitShift: -16) \\ 256). - self at: location put: (Character value: (integer bitShift: -24) \\ 256). - - "Smalltalk at: #PUTCOUNTER put: 0"!

1 0

The Trunk: Nebraska-ul.32.mcz
by commits＠source.squeak.org 28 Feb '11

28 Feb '11

Levente Uzonyi uploaded a new version of Nebraska to project The Trunk: http://source.squeak.org/trunk/Nebraska-ul.32.mcz ==================== Summary ==================== Name: Nebraska-ul.32 Author: ul Time: 28 February 2011, 7:42:18.721 am UUID: ee0e143b-7c07-0c49-9505-edac998570ca Ancestors: Nebraska-nice.31 Moved String's #getInteger32: and #putInteger32:at: to this package. The methods only make sense for ByteStrings. Both methods are rewritten to - avoid creation of LargeIntegers - use fast integer and string manipulation methods - use the stack optimally if possible The new methods are 2-15x faster than the previous implementations. Combining this with the speedup of Cog, the use of IntegerPokerPlugin is probably unnecessary (it's not present in current VMs). =============== Diff against Nebraska-nice.31 =============== Item was added: + ----- Method: ByteString>>getInteger32: (in category '*Nebraska') ----- + getInteger32: location + "Read a SmallInteger stored in the receiver using big-endian one's complement representation. Avoid creation of LargeIntegers." + + | firstByte | + (firstByte := self byteAt: location) < 64 ifTrue: [ + ^((((( + firstByte bitShift: 8) bitOr: + (self byteAt: location + 1)) bitShift: 8) bitOr: + (self byteAt: location + 2)) bitShift: 8) bitOr: + (self byteAt: location + 3) ]. + ^(64 - firstByte bitShift: 24) - ((((( + (self byteAt: location + 1)) bitShift: 8) bitOr: + (self byteAt: location + 2)) bitShift: 8) bitOr: + (self byteAt: location + 3)) + ! Item was added: + ----- Method: ByteString>>putInteger32:at: (in category '*Nebraska') ----- + putInteger32: anInteger at: location + "Store a SmallInteger in the receiver using big-endian one's complement representation. Avoid creation of LargeIntegers." + + | integer firstByte | + (integer := anInteger) >= 0 + ifTrue: [ firstByte := (anInteger bitShift: -24) bitAnd: 255 ] + ifFalse: [ + integer := 0 - integer. + firstByte := (integer bitShift: -24) + 64 bitAnd: 255 ]. + self + byteAt: location put: firstByte; + byteAt: location + 1 put: ((integer bitShift: -16) bitAnd: 255); + byteAt: location + 2 put: ((integer bitShift: -8) bitAnd: 255); + byteAt: location + 3 put: (integer bitAnd: 255) + !

1 0

The Trunk: Compiler-ul.193.mcz
by commits＠source.squeak.org 28 Feb '11

28 Feb '11

Levente Uzonyi uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-ul.193.mcz ==================== Summary ==================== Name: Compiler-ul.193 Author: ul Time: 28 February 2011, 7:27:29.293 am UUID: 2676a6c5-2140-814f-b508-e35126bd2c85 Ancestors: Compiler-nice.192 - removed guarding clauses from MessageNode's #checkBlock:as:from:maxArgs: and #transformCase: - removed all implementations of #canBeSpecialArgument =============== Diff against Compiler-nice.192 =============== Item was removed: - ----- Method: BlockNode>>canBeSpecialArgument (in category 'testing') ----- - canBeSpecialArgument - "Can I be an argument of (e.g.) ifTrue:?" - - ^arguments size = 0! Item was changed: ----- Method: MessageNode>>checkBlock:as:from:maxArgs: (in category 'private') ----- checkBlock: node as: nodeName from: encoder maxArgs: maxArgs "Answer true if node is a BlockNode with at most maxArgs arguments. This check is required in order to inline some special messages. Notify some undue usage of these special messages." + node isBlockNode ifFalse: [ ^false ]. + node numberOfArguments <= maxArgs ifTrue: [ ^true ]. + ^encoder notify: '<- ', nodeName , ' of ' , (MacroSelectors at: special) , ' has too many arguments'! - node isBlockNode - ifTrue: - [node numberOfArguments <= maxArgs - ifTrue: [^true] - ifFalse: [encoder notify: '<- ', nodeName , ' of ' , - (MacroSelectors at: special) , ' has too many arguments']]. - ^false! Item was changed: ----- Method: MessageNode>>transformCase: (in category 'macro transformations') ----- transformCase: encoder | caseNode | caseNode := arguments first. + (caseNode isMemberOf: BraceNode) ifFalse: [ ^false ]. + (caseNode blockAssociationCheck: encoder) ifFalse: [ ^false ]. + (arguments size = 1 or: [ + self checkBlock: arguments last as: 'otherwise arg' from: encoder ]) ifFalse: [ + ^false ]. + caseNode elements do: [ :messageNode | + messageNode receiver noteOptimizedIn: self. + messageNode arguments first noteOptimizedIn: self ]. + arguments size = 2 ifTrue: [ arguments last noteOptimizedIn: self ]. + ^true! - (caseNode isMemberOf: BraceNode) ifTrue: - [((caseNode blockAssociationCheck: encoder) - and: [arguments size = 1 - or: [self checkBlock: arguments last as: 'otherwise arg' from: encoder]]) ifFalse: - [^false]. - caseNode elements do: - [:messageNode| - messageNode receiver noteOptimizedIn: self. - messageNode arguments first noteOptimizedIn: self]. - arguments size = 2 ifTrue: - [arguments last noteOptimizedIn: self]. - ^true]. - ^false! Item was removed: - ----- Method: ParseNode>>canBeSpecialArgument (in category 'testing') ----- - canBeSpecialArgument - "Can I be an argument of (e.g.) ifTrue:?" - - ^false! Item was removed: - ----- Method: VariableNode>>canBeSpecialArgument (in category 'testing') ----- - canBeSpecialArgument - "Can I be an argument of (e.g.) ifTrue:?" - - ^code < LdNil!

1 0

The Trunk: Kernel-dtl.548.mcz
by commits＠source.squeak.org 28 Feb '11

28 Feb '11

David T. Lewis uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-dtl.548.mcz ==================== Summary ==================== Name: Kernel-dtl.548 Author: dtl Time: 27 February 2011, 9:51:00.787 pm UUID: 3640676f-cde9-42ac-924b-f585949efb60 Ancestors: Kernel-cmm.547 Fix bug in Float>>printPaddedWith:To: by treating the format specifier as a string value, not as a float subject to numeric precision issues. =============== Diff against Kernel-cmm.547 =============== Item was changed: ----- Method: Float>>printPaddedWith:to: (in category 'printing') ----- printPaddedWith: aCharacter to: aNumber "Answer the string containing the ASCII representation of the receiver padded on the left with aCharacter to be at least on aNumber integerPart characters and padded the right with aCharacter to be at least anInteger fractionPart characters." | aStream digits fPadding fLen iPadding iLen curLen periodIndex | #Numeric. "2000/03/04 Harmon R. Added Date and Time support" aStream := WriteStream on: (String new: 10). self printOn: aStream. digits := aStream contents. periodIndex := digits indexOf: $.. curLen := periodIndex - 1. iLen := aNumber integerPart. curLen < iLen ifTrue: [iPadding := (String new: (iLen - curLen) asInteger) atAllPut: aCharacter; yourself] ifFalse: [iPadding := '']. curLen := digits size - periodIndex. + "n.b. Treat aNumber as a string format specifier rather than as a number, because + floating point truncation can produce incorrect results for the fraction part." + fLen := (aNumber asString copyAfterLast: $. ) + ifNotEmpty: [:s | s asInteger] + ifEmpty: [ 0 ]. - fLen := aNumber fractionPart. - [fLen fractionPart > 1e-6] whileTrue: - [fLen := fLen * 10.0]. - fLen := fLen asInteger. curLen < fLen ifTrue: [fPadding := (String new: fLen - curLen) atAllPut: aCharacter; yourself] ifFalse: [fPadding := '']. ^ iPadding , digits , fPadding!

1 0

The Trunk: KernelTests-dtl.175.mcz
by commits＠source.squeak.org 28 Feb '11

28 Feb '11

David T. Lewis uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-dtl.175.mcz ==================== Summary ==================== Name: KernelTests-dtl.175 Author: dtl Time: 27 February 2011, 9:48:28.704 pm UUID: 8b527a84-abff-42c1-96d6-845975beff75 Ancestors: KernelTests-ul.174 Add test to document Float>>printPaddedWith:To: bug reported on http://lists.gforge.inria.fr/pipermail/pharo-users/2011-February/001569.html. =============== Diff against KernelTests-ul.174 =============== Item was added: + ----- Method: FloatTest>>testPrintPaddedWithTo (in category 'printing') ----- + testPrintPaddedWithTo + "This bug was reported in http://lists.gforge.inria.fr/pipermail/pharo-users/2011-February/001569.html. + The problem was caused by treating the format specifier as a number rather than + as a string, such the the number may be a Float subject to floating point rounding + errors. The solution to treat the format specifier as a string, and extract the integer + fields before and after the decimal point in the string." + + self assert: [(1.0 printPaddedWith: $0 to: 2.2) = '01.00']. + self assert: [(1.0 printPaddedWith: $X to: 2.2) = 'X1.0X']. + self assert: [(1.0 printPaddedWith: $0 to: 2) = '01.0']. + self assert: [(12345.6789 printPaddedWith: $0 to: 2) = '12345.6789']. + self assert: [(12345.6789 printPaddedWith: $0 to: 2.2) = '12345.6789']. + self assert: [(12.34 printPaddedWith: $0 to: 2.2) = '12.34']. + self assert: [(12345.6789 printPaddedWith: $0 to: 2.2) = '12345.6789']. + self assert: [(123.456 printPaddedWith: $X to: 4.4) = 'X123.456X']. + self assert: [(1.0 printPaddedWith: $0 to: 2.1) = '01.0']. + self assert: [(1.0 printPaddedWith: $0 to: 2.2) = '01.00']. + self assert: [(1.0 printPaddedWith: $0 to: 2.3) = '01.000']. "previously failed due to float usage" + self assert: [(1.0 printPaddedWith: $0 to: 2.4) = '01.0000']. "previously failed due to float usage" + self assert: [(1.0 printPaddedWith: $0 to: 2.5) = '01.00000'] + + !

1 0

The Trunk: Monticello-cmm.419.mcz
by commits＠source.squeak.org 28 Feb '11

28 Feb '11

Chris Muller uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-cmm.419.mcz ==================== Summary ==================== Name: Monticello-cmm.419 Author: cmm Time: 27 February 2011, 7:59:17.83 pm UUID: 50cc4cd0-e1ac-469a-beef-e9c89fe9f9c3 Ancestors: Monticello-cmm.418 - Assigned categories. - Not all MCRepositories require implementation of #allVersionNames, only MCFileBasedRepositories do things that way. =============== Diff against Monticello-cmm.418 =============== Item was changed: + ----- Method: MCFileBasedRepository>>allFileNames (in category 'files') ----- - ----- Method: MCFileBasedRepository>>allFileNames (in category 'as yet unclassified') ----- allFileNames self subclassResponsibility! Item was changed: + ----- Method: MCFileBasedRepository>>allFileNamesForVersionNamed: (in category 'files') ----- - ----- Method: MCFileBasedRepository>>allFileNamesForVersionNamed: (in category 'as yet unclassified') ----- allFileNamesForVersionNamed: aString ^ self filterFileNames: self readableFileNames forVersionNamed: aString! Item was changed: + ----- Method: MCFileBasedRepository>>allFileNamesOrCache (in category 'files') ----- - ----- Method: MCFileBasedRepository>>allFileNamesOrCache (in category 'as yet unclassified') ----- allFileNamesOrCache ^ allFileNames ifNil: [self allFileNames]! Item was changed: + ----- Method: MCFileBasedRepository>>allVersionNames (in category 'versions') ----- - ----- Method: MCFileBasedRepository>>allVersionNames (in category 'as yet unclassified') ----- allVersionNames ^ self readableFileNames collect: [:ea | self versionNameFromFileName: ea]! Item was changed: + ----- Method: MCFileBasedRepository>>basicStoreVersion: (in category 'overriding') ----- - ----- Method: MCFileBasedRepository>>basicStoreVersion: (in category 'as yet unclassified') ----- basicStoreVersion: aVersion self writeStreamForFileNamed: aVersion fileName do: [:s | aVersion fileOutOn: s]. aVersion isCacheable ifTrue: [ cache ifNil: [cache := Dictionary new]. cache at: aVersion fileName put: aVersion]. ! Item was changed: + ----- Method: MCFileBasedRepository>>cache (in category 'private') ----- - ----- Method: MCFileBasedRepository>>cache (in category 'as yet unclassified') ----- cache ^ cache ifNil: [cache := Dictionary new]! Item was changed: + ----- Method: MCFileBasedRepository>>cacheAllFileNamesDuring: (in category 'private') ----- - ----- Method: MCFileBasedRepository>>cacheAllFileNamesDuring: (in category 'as yet unclassified') ----- cacheAllFileNamesDuring: aBlock allFileNames ifNotNil:[^aBlock value]. allFileNames := self allFileNames. ^ aBlock ensure: [allFileNames := nil]! Item was changed: + ----- Method: MCFileBasedRepository>>cachedFileNames (in category 'private') ----- - ----- Method: MCFileBasedRepository>>cachedFileNames (in category 'as yet unclassified') ----- cachedFileNames ^cache == nil ifTrue: [#()] ifFalse: [cache keys]! Item was changed: + ----- Method: MCFileBasedRepository>>canReadFileNamed: (in category 'private') ----- - ----- Method: MCFileBasedRepository>>canReadFileNamed: (in category 'as yet unclassified') ----- canReadFileNamed: aString | reader | reader := MCVersionReader readerClassForFileNamed: aString. ^ reader notNil! Item was changed: + ----- Method: MCFileBasedRepository>>closestAncestorVersionFor:ifNone: (in category 'overriding') ----- - ----- Method: MCFileBasedRepository>>closestAncestorVersionFor:ifNone: (in category 'as yet unclassified') ----- closestAncestorVersionFor: anAncestry ifNone: errorBlock ^ self cacheAllFileNamesDuring: [super closestAncestorVersionFor: anAncestry ifNone: errorBlock]! Item was changed: + ----- Method: MCFileBasedRepository>>filterFileNames:forVersionNamed: (in category 'files') ----- - ----- Method: MCFileBasedRepository>>filterFileNames:forVersionNamed: (in category 'as yet unclassified') ----- filterFileNames: aCollection forVersionNamed: aString ^ aCollection select: [:ea | (self versionNameFromFileName: ea) = aString] ! Item was changed: + ----- Method: MCFileBasedRepository>>flushCache (in category 'private') ----- - ----- Method: MCFileBasedRepository>>flushCache (in category 'as yet unclassified') ----- flushCache cache := nil! Item was changed: + ----- Method: MCFileBasedRepository>>includesVersionNamed: (in category 'versions') ----- - ----- Method: MCFileBasedRepository>>includesVersionNamed: (in category 'as yet unclassified') ----- includesVersionNamed: aString ^ self allVersionNames includes: aString! Item was changed: + ----- Method: MCFileBasedRepository>>loadVersionFromFileNamed: (in category 'versions') ----- - ----- Method: MCFileBasedRepository>>loadVersionFromFileNamed: (in category 'as yet unclassified') ----- loadVersionFromFileNamed: aString ^ self versionReaderForFileNamed: aString do: [:r | r version]! Item was changed: + ----- Method: MCFileBasedRepository>>loadVersionInfoFromFileNamed: (in category 'versions') ----- - ----- Method: MCFileBasedRepository>>loadVersionInfoFromFileNamed: (in category 'as yet unclassified') ----- loadVersionInfoFromFileNamed: aString ^ self versionReaderForFileNamed: aString do: [:r | r info] ! Item was changed: + ----- Method: MCFileBasedRepository>>maxCacheSize (in category 'private') ----- - ----- Method: MCFileBasedRepository>>maxCacheSize (in category 'as yet unclassified') ----- maxCacheSize ^ 8! Item was changed: + ----- Method: MCFileBasedRepository>>morphicOpen: (in category 'overriding') ----- - ----- Method: MCFileBasedRepository>>morphicOpen: (in category 'as yet unclassified') ----- morphicOpen: aWorkingCopy (MCFileRepositoryInspector repository: self workingCopy: aWorkingCopy) show! Item was changed: + ----- Method: MCFileBasedRepository>>notifyList (in category 'overriding') ----- - ----- Method: MCFileBasedRepository>>notifyList (in category 'as yet unclassified') ----- notifyList (self allFileNames includes: 'notify') ifFalse: [^ #()]. ^ self readStreamForFileNamed: 'notify' do: [:s | s upToEnd lines]! Item was changed: + ----- Method: MCFileBasedRepository>>possiblyNewerVersionsOfAnyOf: (in category 'versions') ----- - ----- Method: MCFileBasedRepository>>possiblyNewerVersionsOfAnyOf: (in category 'as yet unclassified') ----- possiblyNewerVersionsOfAnyOf: someVersions | pkgs | pkgs := Dictionary new. someVersions do: [:aVersionInfo | pkgs at: (aVersionInfo name copyUpToLast: $-) put: (aVersionInfo name copyAfterLast: $.) asNumber]. ^[self allVersionNames select: [:each | (pkgs at: (each copyUpToLast: $-) ifPresent: [:verNumber | verNumber < (each copyAfterLast: $.) asNumber or: [verNumber = (each copyAfterLast: $.) asNumber and: [someVersions noneSatisfy: [:v | v name = each]]]]) == true] ] on: Error do: [:ex | ex return: #()]! Item was changed: + ----- Method: MCFileBasedRepository>>readableFileNames (in category 'files') ----- - ----- Method: MCFileBasedRepository>>readableFileNames (in category 'as yet unclassified') ----- readableFileNames | all cached new | all := self allFileNamesOrCache. "from repository" cached := self cachedFileNames. "in memory" new := all difference: cached. ^ (cached asArray, new) select: [:ea | self canReadFileNamed: ea]! Item was changed: + ----- Method: MCFileBasedRepository>>resizeCache: (in category 'private') ----- - ----- Method: MCFileBasedRepository>>resizeCache: (in category 'as yet unclassified') ----- resizeCache: aDictionary [aDictionary size <= self maxCacheSize] whileFalse: [aDictionary removeKey: aDictionary keys atRandom]! Item was changed: + ----- Method: MCFileBasedRepository>>versionFromFileNamed: (in category 'versions') ----- - ----- Method: MCFileBasedRepository>>versionFromFileNamed: (in category 'as yet unclassified') ----- versionFromFileNamed: aString | v | v := self cache at: aString ifAbsent: [self loadVersionFromFileNamed: aString]. self resizeCache: cache. (v notNil and: [v isCacheable]) ifTrue: [cache at: aString put: v]. ^ v! Item was changed: + ----- Method: MCFileBasedRepository>>versionInfoFromFileNamed: (in category 'versions') ----- - ----- Method: MCFileBasedRepository>>versionInfoFromFileNamed: (in category 'as yet unclassified') ----- versionInfoFromFileNamed: aString self cache at: aString ifPresent: [:v | ^ v info]. ^ self loadVersionInfoFromFileNamed: aString! Item was changed: + ----- Method: MCFileBasedRepository>>versionNameFromFileName: (in category 'versions') ----- - ----- Method: MCFileBasedRepository>>versionNameFromFileName: (in category 'as yet unclassified') ----- versionNameFromFileName: aString ^ (aString copyUpToLast: $.) copyUpTo: $(! Item was changed: + ----- Method: MCFileBasedRepository>>versionReaderForFileNamed:do: (in category 'versions') ----- - ----- Method: MCFileBasedRepository>>versionReaderForFileNamed:do: (in category 'as yet unclassified') ----- versionReaderForFileNamed: aString do: aBlock ^ self readStreamForFileNamed: aString do: [:s | (MCVersionReader readerClassForFileNamed: aString) ifNotNil: [:class | aBlock value: (class on: s fileName: aString)]] ! Item was changed: + ----- Method: MCFileBasedRepository>>versionWithInfo:ifAbsent: (in category 'versions') ----- - ----- Method: MCFileBasedRepository>>versionWithInfo:ifAbsent: (in category 'as yet unclassified') ----- versionWithInfo: aVersionInfo ifAbsent: errorBlock (self allFileNamesForVersionNamed: aVersionInfo name) do: [:fileName | | version | version := self versionFromFileNamed: fileName. version info = aVersionInfo ifTrue: [^ version]]. ^ errorBlock value! Item was changed: + ----- Method: MCFileBasedRepository>>writeStreamForFileNamed:do: (in category 'private') ----- - ----- Method: MCFileBasedRepository>>writeStreamForFileNamed:do: (in category 'as yet unclassified') ----- writeStreamForFileNamed: aString do: aBlock ^ self writeStreamForFileNamed: aString replace: false do: aBlock! Item was removed: - ----- Method: MCRepository>>allVersionNames (in category 'versions') ----- - allVersionNames - "Answer all the version names in this repository" - - ^self subclassResponsibility! Item was changed: ----- Method: MCVersion>>initializeWithPackage:info:snapshot:dependencies: (in category 'initialize-release') ----- + initializeWithPackage: aPackage info: aVersionInfo snapshot: aSnapshot dependencies: aCollection + self + setPackage: aPackage + info: aVersionInfo + snapshot: aSnapshot + dependencies: aCollection. + self addToCache! - initializeWithPackage: aPackage info: aVersionInfo snapshot: aSnapshot dependencies: aCollection - package := aPackage. - info := aVersionInfo. - snapshot := aSnapshot. - dependencies := aCollection. - self addToCache.!

1 0

Low Memory Warning although enough memory is available
by r2ruyu-nana＠yahoo.de 27 Feb '11

27 Feb '11

Hiya! We encounter problems with low memory warnings ("Space is low", "Warning! Squeak is almost out of memory!"). Setup here: * Squeak 3.9 (tested also with 4.2) * Win32 * 2GB of memory We can reproduce the problem here with: bmp1 := Form fromFileNamed: 'hauptabschnitt_lang.bmp'. bmp2 := Form fromFileNamed: 'hauptabschnitt1.bmp'. 'hauptabschnitt_lang.bmp' is 24 bit, 273,8MB file. 'hauptabschnitt1.bmp' is 24 bit, 95,8MB file. 'Doing" the first line works, doing the second popups the low memory warning. With the task manager we see Squeak using about 412MB after the first line. There should be enough memory left for Squeak. How to make both lines work? As stated in the wiki [1], the "-memory: N" argument is out of date. Indeed, Squeak behaves equal with different N (we tried 512, 768, 1024, 2048; but it's interesting that this parameter is still accepted by Squeak 3.9). I tried Squeak 4.2 but it's the same (although it needs overall 398MB after the first line). (By the way, executing the first line above is quite fast - but doing the same with equivalent png-file is about 5x slower - how come?) Any hints on this? Best regards, r2ruyu-nana ;) [1] http://wiki.squeak.org/squeak/981

3 3

Squeak download stats?
by Thomas A Petersen 27 Feb '11

27 Feb '11

Greetings, FWIW, I download beta/gamma versions about once a month to test. Those that prove stable get my influx of current work for day to day use. I download the official version and move to it if it proves stable for my uses until about the middle of the next beta cycle. I also have a couple of friends that I pass the stable specialized images on to about once a year. A couple of other people I know pull the distribution for Windows and/or Linux when I let them know there is an official upgrade. Thanks again for a great place to think and learn, tap

6 5

← Newer
1
2
3
4
5
6
7
...
30
Older →

Jump to page: