Squeak-dev April 2013

squeak-dev@lists.squeakfoundation.org

66 participants
225 discussions

ThinkPad club (was: [squeak-dev] Squeak laptop advice)
by Chris Muller 28 Apr '13

28 Apr '13

Hey Göran, just thought I'd drop you a note. Always a happy day, the day of ordering and, even better, taking delivery of, a new ThinkPad. Just wanted to share my excitement with you because -- you sort of opened my eyes! You were totally right about the x220/x230's -- like a dinky stick of dynamite! Although I think carbon fiber is a great material for a laptop as much as a mountain bike, I took a deeper look at the X1 and found only ULV processor options, no mSATA capability, no battery options, no upgradeability. Maybe good for e-reading in a coffee shop, maybe they should have called it ThinkMac instead? ha! No seriously there don't seem to be many high performance ultra-book sized laptops at all out there. I'm running big Magma apps, I want power! So with fast processor and 256GB mSATA for the OS I spare the HD bay for a 750GB hybrid SSD drive to handle big apps. Server power on the road! Ok, sorry for rambling but one more thing: I _really_ struggled with this choice but in the end I decided to get the heavier/bulkier multitouch tablet version (X230t). This is just ultra-cool tech and once I saw it mostly works in Ubuntu, now I've got to know if it can increase my input "connection" to Maui apps and other apps too. Cheers! Chris On Tue, Jan 8, 2013 at 2:04 AM, Göran Krampe <goran(a)krampe.se> wrote: > Hey! > > > On 01/07/2013 04:33 PM, Chris Muller wrote: >> >> My dream machine is: >> >> >> http://www.lenovo.com/products/us/laptop/thinkpad/x-series/x1-carbon-touch/ > > > Sliding a bit from Jecel's original request - because I think he was > shopping for something less expensive - but I have a Lenovo X220 since april > and I just love it. And it runs Linux perfectly, wrote a bit about it: > > http://goran.krampe.se/2012/04/14/going-lenovo/ > > ...now, since the X230 is out it seems the price of X220 has dropped a bit > too. > > regards, Göran > > PS. The IPS panel, the keyboard and the expansion options (memory, battery, > hdd etc) are probably the major points. >

3 3

Daily Commit Log
by commits＠source.squeak.org 28 Apr '13

28 Apr '13

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2013-April/005876.html Name: Collections-ul.515 Ancestors: Collections-fbs.514 - a slightly faster (~20%) and simpler (IMHO) implementation of String >> #numArgs ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-April/005877.html Name: Tests-ul.200 Ancestors: Tests-fbs.199 - avoid suboptimal string concatentation in ReleaseTest >> #testMethodsWithUnboundGlobals ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-April/005878.html Name: Kernel-ul.755 Ancestors: Kernel-fbs.754 Added two methods to access primitive 240 and 241, which can provide microsecond resolution timestamps on Cog VMs. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-April/005879.html Name: SystemReporter-ul.21 Ancestors: SystemReporter-dtl.20 - addedd SpaceTally to SystemReporter ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-April/005880.html Name: System-ul.525 Ancestors: System-fbs.524 Reshaped SpaceTally a bit. It's still messy, but simpler and faster than before. Also fixed the printing part. =============================================

1 0

The Trunk: System-ul.525.mcz
by commits＠source.squeak.org 28 Apr '13

28 Apr '13

Levente Uzonyi uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ul.525.mcz ==================== Summary ==================== Name: System-ul.525 Author: ul Time: 27 April 2013, 10:55:01.783 pm UUID: 53a81762-7921-4495-9fb1-2fae75e89b63 Ancestors: System-fbs.524 Reshaped SpaceTally a bit. It's still messy, but simpler and faster than before. Also fixed the printing part. =============== Diff against System-fbs.524 =============== Item was changed: ----- Method: SpaceTally>>computeSpaceUsage (in category 'class analysis') ----- computeSpaceUsage + results + do: [ :entry | + | class instanceSpaceAndCount | + class := self class environment at: entry analyzedClassName. + Smalltalk garbageCollectMost. + instanceSpaceAndCount := self spaceForInstancesOf: class. + entry + codeSize: class spaceUsed; + instanceCount: instanceSpaceAndCount second; + spaceForInstances: instanceSpaceAndCount first ] + displayingProgress: 'Taking statistics...'! - | entry c instanceCount | - 1 to: results size do: [:i | - entry := results at: i. - c := self class environment at: entry analyzedClassName. - instanceCount := c instanceCount. - entry codeSize: c spaceUsed. - entry instanceCount: instanceCount. - entry spaceForInstances: (self spaceForInstancesOf: c withInstanceCount: instanceCount). - Smalltalk garbageCollectMost]. - - ! Item was changed: ----- Method: SpaceTally>>printSpaceAnalysis:on: (in category 'fileOut') ----- printSpaceAnalysis: threshold on: fileName "SpaceTally new printSpaceAnalysis: 1000 on: 'STspace.text1'" "sd-This method should be rewrote to be more coherent within the rest of the class ie using preAllocate and spaceForInstanceOf:" "If threshold > 0, then only those classes with more than that number of instances will be shown, and they will be sorted by total instance space. If threshold = 0, then all classes will appear, sorted by name." + FileStream newFileNamed: fileName do: [ :file | + self printSpaceAnalysis: threshold onStream: file ]! - | f totalCodeSpace totalInstCount totalInstSpace n totalPercent | - Smalltalk garbageCollect. - totalCodeSpace := totalInstCount := totalInstSpace := n := 0. - results := OrderedCollection new: Smalltalk classNames size. - 'Taking statistics...' - displayProgressFrom: 0 - to: Smalltalk classNames size - during: [:bar | - Smalltalk allClassesDo: - [:cl | | instSpace eltSize instCount codeSpace | codeSpace := cl spaceUsed. - bar value: (n := n+1). - Smalltalk garbageCollectMost. - instCount := cl instanceCount. - instSpace := (cl indexIfCompact > 0 ifTrue: [4] ifFalse: [8])*instCount. "Object headers" - cl isVariable - ifTrue: [eltSize := cl isBytes ifTrue: [1] ifFalse: [4]. - cl allInstancesDo: [:x | instSpace := instSpace + (x basicSize*eltSize)]] - ifFalse: [instSpace := instSpace + (cl instSize*instCount*4)]. - results add: (SpaceTallyItem analyzedClassName: cl name codeSize: codeSpace instanceCount: instCount spaceForInstances: instSpace). - totalCodeSpace := totalCodeSpace + codeSpace. - totalInstCount := totalInstCount + instCount. - totalInstSpace := totalInstSpace + instSpace]]. - totalPercent := 0.0. - - f := FileStream newFileNamed: fileName. - f timeStamp. - f nextPutAll: ('Class' padded: #right to: 30 with: $ ); - nextPutAll: ('code space' padded: #left to: 12 with: $ ); - nextPutAll: ('# instances' padded: #left to: 12 with: $ ); - nextPutAll: ('inst space' padded: #left to: 12 with: $ ); - nextPutAll: ('percent' padded: #left to: 8 with: $ ); cr. - - threshold > 0 ifTrue: - ["If inst count threshold > 0, then sort by space" - results := (results select: [:s | s instanceCount >= threshold or: [s spaceForInstances > (totalInstSpace // 500)]]) - asSortedCollection: [:s :s2 | s spaceForInstances > s2 spaceForInstances]]. - - results do: - [:s | | percent | f nextPutAll: (s analyzedClassName padded: #right to: 30 with: $ ); - nextPutAll: (s codeSize printString padded: #left to: 12 with: $ ); - nextPutAll: (s instanceCount printString padded: #left to: 12 with: $ ); - nextPutAll: (s spaceForInstances printString padded: #left to: 14 with: $ ). - percent := s spaceForInstances*100.0/totalInstSpace roundTo: 0.1. - totalPercent := totalPercent + percent. - percent >= 0.1 ifTrue: - [f nextPutAll: (percent printString padded: #left to: 8 with: $ )]. - f cr]. - - f cr; nextPutAll: ('Total' padded: #right to: 30 with: $ ); - nextPutAll: (totalCodeSpace printString padded: #left to: 12 with: $ ); - nextPutAll: (totalInstCount printString padded: #left to: 12 with: $ ); - nextPutAll: (totalInstSpace printString padded: #left to: 14 with: $ ); - nextPutAll: ((totalPercent roundTo: 0.1) printString padded: #left to: 8 with: $ ). - f close! Item was added: + ----- Method: SpaceTally>>printSpaceAnalysis:onStream: (in category 'fileOut') ----- + printSpaceAnalysis: threshold onStream: stream + "If threshold > 0, then only those classes with more than that number + of instances will be shown, and they will be sorted by total instance space. + If threshold = 0, then all classes will appear, sorted by name." + + | totalCodeSpace totalInstCount totalInstSpace totalPercent classNameLength printRow | + self systemWideSpaceTally. + totalCodeSpace := totalInstCount := totalInstSpace := 0. + classNameLength := 1. + results do: [ :each | + classNameLength := classNameLength max: each analyzedClassName size. + totalCodeSpace := totalCodeSpace + each codeSize. + totalInstCount := totalInstCount + each instanceCount. + totalInstSpace := totalInstSpace + each spaceForInstances ]. + totalPercent := 0.0. + + printRow := [ :class :codeSpace :instanceCount :instanceSpace :percent | + stream + nextPutAll: (class padded: #right to: classNameLength + 1 with: $ ); + nextPutAll: (codeSpace padded: #left to: 12 with: $ ); + nextPutAll: (instanceCount padded: #left to: 12 with: $ ); + nextPutAll: (instanceSpace padded: #left to: 14 with: $ ); + nextPutAll: (percent padded: #left to: 8 with: $ ); + cr ]. + + stream timeStamp. + printRow valueWithArguments: { 'Class'. 'code space'. '# instances'. 'inst space'. 'percent' }. + + threshold > 0 ifTrue: [ + "If inst count threshold > 0, then sort by space" + results := results select: [ :s | + s instanceCount >= threshold or: [ + s spaceForInstances > (totalInstSpace // 500) ] ]. + results sort: [ :s :s2 | s spaceForInstances > s2 spaceForInstances ] ]. + + results do: [ :s | + | percent | + percent := s spaceForInstances * 100.0 / totalInstSpace. + totalPercent := totalPercent + percent. + printRow valueWithArguments: { + s analyzedClassName. + s codeSize printString. + s instanceCount printString. + s spaceForInstances printString. + percent printShowingDecimalPlaces: 1 } ]. + + stream cr. + printRow valueWithArguments: { + 'Total'. + totalCodeSpace printString. + totalInstCount printString. + totalInstSpace printString. + totalPercent printShowingDecimalPlaces: 1 }! Item was added: + ----- Method: SpaceTally>>spaceForInstancesOf: (in category 'instance size') ----- + spaceForInstancesOf: aClass + "Answer the number of bytes consumed by all instances of the given class, including their object headers and the number of instances." + + | smallHeaderSize instVarBytes isVariable bytesPerElement total lastInstance instance instanceCount | + instance := aClass someInstance ifNil: [ ^#(0 0) ]. + smallHeaderSize := aClass isCompact ifTrue: [ 4 ] ifFalse: [ 8 ]. + instVarBytes := aClass instSize * 4. + isVariable := aClass isVariable. + bytesPerElement := isVariable + ifFalse: [ 0 ] + ifTrue: [ aClass isBytes ifTrue: [ 1 ] ifFalse: [ 4 ] ]. + total := 0. + instanceCount := 0. + "A modified version of #allInstancesDo: is inlined here. It avoids an infinite loop when another process is creating new instances of aClass." + self flag: #allInstancesDo:. + lastInstance := aClass basicNew. + [ instance == lastInstance ] whileFalse: [ + | contentBytes headerBytes | + contentBytes := instVarBytes + (isVariable + ifFalse: [ 0 ] + ifTrue: [ instance basicSize * bytesPerElement ]). + headerBytes := contentBytes > 255 + ifTrue: [ 12 ] + ifFalse: [ smallHeaderSize ]. + total := total + headerBytes + (contentBytes roundUpTo: 4). + instanceCount := instanceCount + 1. + instance := instance nextInstance ]. + ^{ total. instanceCount }! Item was removed: - ----- Method: SpaceTally>>spaceForInstancesOf:withInstanceCount: (in category 'instance size') ----- - spaceForInstancesOf: aClass withInstanceCount: instCount - "Answer the number of bytes consumed by all instances of the given class, including their object headers." - - | isCompact instVarBytes bytesPerElement headerBytes total | - instCount = 0 ifTrue: [^ 0]. - isCompact := aClass indexIfCompact > 0. - instVarBytes := aClass instSize * 4. - aClass isVariable - ifTrue: [ - bytesPerElement := aClass isBytes ifTrue: [1] ifFalse: [4]. - total := 0. - aClass allInstancesDo: [:inst | | contentBytes | - contentBytes := instVarBytes + (inst size * bytesPerElement). - headerBytes := - contentBytes > 255 - ifTrue: [12] - ifFalse: [isCompact ifTrue: [4] ifFalse: [8]]. - total := total + headerBytes + contentBytes]. - ^ total] - ifFalse: [ - headerBytes := - instVarBytes > 255 - ifTrue: [12] - ifFalse: [isCompact ifTrue: [4] ifFalse: [8]]. - ^ instCount * (headerBytes + instVarBytes)]. - !

1 0

The Trunk: SystemReporter-ul.21.mcz
by commits＠source.squeak.org 28 Apr '13

28 Apr '13

Levente Uzonyi uploaded a new version of SystemReporter to project The Trunk: http://source.squeak.org/trunk/SystemReporter-ul.21.mcz ==================== Summary ==================== Name: SystemReporter-ul.21 Author: ul Time: 27 April 2013, 10:50:30.431 pm UUID: 34c5c48c-e7cc-4dfe-8133-6dec3bc63ff7 Ancestors: SystemReporter-dtl.20 - addedd SpaceTally to SystemReporter =============== Diff against SystemReporter-dtl.20 =============== Item was changed: Object subclass: #SystemReporter + instanceVariableNames: 'categories categoriesSelected report tinyBenchmarksResult categoryList testRunner spaceAnalysisResult' - instanceVariableNames: 'categories categoriesSelected report tinyBenchmarksResult categoryList testRunner' classVariableNames: '' poolDictionaries: '' category: 'SystemReporter'! !SystemReporter commentStamp: 'laza 1/18/2011 12:04' prior: 0! SystemReporter offers a window where information about the system is gathered. This can be easily copied to the clipboard and be attached to a bug report for better identification of the context the bug occured in. To extend the SystemReporter: - add a method reportXYZ: aStream to the reporting category - insert a line add: #XYZ method: #reportXYZ to the initialize method ! Item was changed: ----- Method: SystemReporter>>initialize (in category 'initialize-release') ----- initialize self add: #Image method: #reportImage; add: #'Image Parameters' method: #reportImageParameters; add: #'Image Sources' method: #reportSources; add: #'Image Preferences' method: #reportPreferences; add: #'MC Repositories' method: #reportRepositories; add: #'MC Working Copies' method: #reportWorkingCopies; add: #'VM General' method: #reportVM; add: #'VM Options' method: #reportVMOptions; add: #'VM Modules' method: #reportModules; add: #'VM Parameters' method: #reportVMParameters; add: #'VM Stats' method: #reportVMStats. Smalltalk os platformName = 'Win32' ifTrue: [ self add: #'VM Configuration' method: #reportWin32VMConfig. ]. self add: #'OS General' method: #reportOS. Smalltalk os platformName = 'Win32' ifTrue: [ self add: #'OS Details' method: #reportWin32OSDetails; add: #'Hardware Details' method: #reportWin32HardwareDetails; add: #'GFX Hardware Details' method: #reportWin32GFXDetails. ]. Smalltalk os osVersion = 'linux' ifTrue: [ self add: #'OS Details' method: #reportLinuxOSDetails ]. self add: #'Tiny Benchmarks' method: #reportTinyBenchmarks; + add: #'Space Analysis' method: #reportSpaceAnalysis; add: #'SUnit' method: #reportTestRunner; add: #'Debug Log' method: #reportDebugLog. categoriesSelected := Set with: #Image with: #'VM General'. self updateReport ! Item was changed: ----- Method: SystemReporter>>refresh (in category 'accessing-categories') ----- refresh + spaceAnalysisResult := tinyBenchmarksResult := testRunner := nil. - tinyBenchmarksResult := testRunner := nil. self updateReport! Item was added: + ----- Method: SystemReporter>>reportSpaceAnalysis: (in category 'reporting') ----- + reportSpaceAnalysis: aStream + + spaceAnalysisResult ifNil: [ + UIManager inform: 'Running the Space Analysis\will take a few seconds' withCRs. + spaceAnalysisResult := String streamContents: [ :stream | + SpaceTally new printSpaceAnalysis: 1 onStream: stream ] ]. + self header: 'Space Analysis' on: aStream. + aStream nextPutAll: spaceAnalysisResult; cr!

1 0

Re: [squeak-dev] The Trunk: Tests-ul.200.mcz
by Frank Shearar 27 Apr '13

27 Apr '13

On 27 April 2013 21:24, <commits(a)source.squeak.org> wrote: > Levente Uzonyi uploaded a new version of Tests to project The Trunk: > http://source.squeak.org/trunk/Tests-ul.200.mcz > > ==================== Summary ==================== > > Name: Tests-ul.200 > Author: ul > Time: 27 April 2013, 10:08:43.206 pm > UUID: dfe70287-0768-42f9-97b7-d7ba6fbd6bb6 > Ancestors: Tests-fbs.199 > > - avoid suboptimal string concatentation in ReleaseTest >> #testMethodsWithUnboundGlobals And "asCommaString" is more intention revealing. More insight into the failing test at http://build.squeak.org/job/SqueakTrunk/281/testReport/junit/Tests.Release/… (Warning: it's pretty big.) It's possible that this test is showing that every single method in every single class has unbound globals. That's highly indicative of a bug in the SystemNavigation >> #methodsWithUnboundGlobals. Well, not _there_. Perhaps the bug starts from "m methodClass bindingOf: l key"? frank

1 0

Re: [squeak-dev] The Trunk: Kernel-ul.755.mcz
by Nicolas Cellier 27 Apr '13

27 Apr '13

Ah, I just did that in my Pharo copy! 2013/4/27 <commits(a)source.squeak.org> > Levente Uzonyi uploaded a new version of Kernel to project The Trunk: > http://source.squeak.org/trunk/Kernel-ul.755.mcz > > ==================== Summary ==================== > > Name: Kernel-ul.755 > Author: ul > Time: 27 April 2013, 10:07:32.072 pm > UUID: 7acc79da-c279-4097-a56f-7d44c94aa5f7 > Ancestors: Kernel-fbs.754 > > Added two methods to access primitive 240 and 241, which can provide > microsecond resolution timestamps on Cog VMs. > > =============== Diff against Kernel-fbs.754 =============== > > Item was added: > + ----- Method: Time class>>primLocalMicrosecondClock (in category > 'clock') ----- > + primLocalMicrosecondClock > + "Answer the local microseconds since the Smalltalk epoch. The > value is derived from the Posix epoch with a constant offset corresponding > to elapsed microseconds between the two epochs according to RFC 868, and > with an offset duration corresponding to the current offset of local time > from UTC." > + > + <primitive: 241> > + ^0! > > Item was added: > + ----- Method: Time class>>primUTCMicrosecondClock (in category 'clock') > ----- > + primUTCMicrosecondClock > + "Answer the UTC microseconds since the Smalltalk epoch. The value > is derived from the Posix epoch with a constant offset corresponding to > elapsed microseconds between the two epochs according to RFC 868." > + > + <primitive: 240> > + ^0! > > >

1 0

The Trunk: Tests-ul.200.mcz
by commits＠source.squeak.org 27 Apr '13

27 Apr '13

Levente Uzonyi uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-ul.200.mcz ==================== Summary ==================== Name: Tests-ul.200 Author: ul Time: 27 April 2013, 10:08:43.206 pm UUID: dfe70287-0768-42f9-97b7-d7ba6fbd6bb6 Ancestors: Tests-fbs.199 - avoid suboptimal string concatentation in ReleaseTest >> #testMethodsWithUnboundGlobals =============== Diff against Tests-fbs.199 =============== Item was changed: ----- Method: ReleaseTest>>testMethodsWithUnboundGlobals (in category 'testing') ----- testMethodsWithUnboundGlobals | unbound | unbound := SystemNavigation default methodsWithUnboundGlobals. Smalltalk cleanOutUndeclared. + self assert: unbound isEmpty description: 'Unbound: ', unbound asCommaString! - self assert: unbound isEmpty description: ('Unbound: ', (unbound reduce: [:acc :each | acc, ', ', each]))!

1 0

The Trunk: Kernel-ul.755.mcz
by commits＠source.squeak.org 27 Apr '13

27 Apr '13

Levente Uzonyi uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ul.755.mcz ==================== Summary ==================== Name: Kernel-ul.755 Author: ul Time: 27 April 2013, 10:07:32.072 pm UUID: 7acc79da-c279-4097-a56f-7d44c94aa5f7 Ancestors: Kernel-fbs.754 Added two methods to access primitive 240 and 241, which can provide microsecond resolution timestamps on Cog VMs. =============== Diff against Kernel-fbs.754 =============== Item was added: + ----- Method: Time class>>primLocalMicrosecondClock (in category 'clock') ----- + primLocalMicrosecondClock + "Answer the local microseconds since the Smalltalk epoch. The value is derived from the Posix epoch with a constant offset corresponding to elapsed microseconds between the two epochs according to RFC 868, and with an offset duration corresponding to the current offset of local time from UTC." + + <primitive: 241> + ^0! Item was added: + ----- Method: Time class>>primUTCMicrosecondClock (in category 'clock') ----- + primUTCMicrosecondClock + "Answer the UTC microseconds since the Smalltalk epoch. The value is derived from the Posix epoch with a constant offset corresponding to elapsed microseconds between the two epochs according to RFC 868." + + <primitive: 240> + ^0!

1 0

The Trunk: Collections-ul.515.mcz
by commits＠source.squeak.org 27 Apr '13

27 Apr '13

Levente Uzonyi uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ul.515.mcz ==================== Summary ==================== Name: Collections-ul.515 Author: ul Time: 27 April 2013, 10:20:14.97 pm UUID: fcc2326f-4e72-46f2-b4b7-352227d94b21 Ancestors: Collections-fbs.514 - a slightly faster (~20%) and simpler (IMHO) implementation of String >> #numArgs =============== Diff against Collections-fbs.514 =============== Item was changed: ----- Method: String>>numArgs (in category 'accessing') ----- numArgs "Answer either the number of arguments that the receiver would take if considered a selector. Answer -1 if it couldn't be a selector. It is intended mostly for the assistance of spelling correction." + | numColons index size | + (size := self size) = 0 ifTrue: [ ^-1 ]. + index := 1. + (self at: index) isSpecial ifTrue: [ + 2 to: size do: [ :i | (self at: i) isSpecial ifFalse: [ ^-1 ] ]. - | firstChar numColons start ix | - self size = 0 ifTrue: [ ^-1 ]. - firstChar := self at: 1. - firstChar isSpecial ifTrue: [ - 2 to: self size do: [ :i | (self at: i) isSpecial ifFalse: [ ^-1 ] ]. ^1 ]. self canBeToken ifFalse: [ ^-1 ]. "Fast colon count" numColons := 0. + [ + (self at: index) isLetter ifFalse: [ ^-1 ]. + (index := (self indexOf: $: startingAt: index) + 1) > 1 ifFalse: [ + numColons = 0 ifTrue: [ ^0 ]. + ^-1 ]. - start := 1. - [firstChar isLetter ifFalse: [ ^-1 ]. - (ix := self indexOf: $: startingAt: start) > 0 ] whileTrue: [ numColons := numColons + 1. + index <= size ] whileTrue. - (start := ix + 1) > self size ifFalse: [firstChar := self at: start]]. - (numColons > 0 and: [ self last ~= $: ]) ifTrue: [ ^-1 ]. ^numColons!

1 0

[ANN] Sqnappy - a fast compressor wrapper
by Masashi UMEZAWA 27 Apr '13

27 Apr '13

Hi all, Recently I've developed Sqnappy - Squeak/Pharo binding of the snappy compressor library. https://github.com/mumez/sqnappy About snappy: https://code.google.com/p/snappy/ Sqnappy is easy to use. You can just send #compress:, #uncompress to SnappyCore: compressed := SnappyCore compress: data. uncompressed := SnappyCore uncompress: compressed. With a simple test, Sqnappy was 10.8x faster than the existing GZipWriteStream/GZipReadStream. Additionally, Sqnappy implements snappy framing format, so that it can treat big data with a small memory allocation. About framing format: https://code.google.com/p/snappy/source/browse/trunk/framing_format.txt Tested from a workspace, 1.3 GB pg_dump file was compressed in around 10 seconds and decompressed in 6.5 seconds . No annoying GCs. It was comfortable. Enjoy! -- [:masashi | ^umezawa]

3 3

← Newer
1
2
3
4
5
6
7
8
9
...
23
Older →

Jump to page: