- Pharo-dev - lists.pharo.org

[Pharo-project] RBAbstractClass>>isAbstract
by Fernando olivero Feb. 10, 2010

Feb. 10, 2010

Lukas, do you think the second statement in this method could be removed, it would take a lot less time to know if a class is abstract. RBAbstractClass>>isAbstract (self whichSelectorsReferToSymbol: #subclassResponsibility) isEmpty ifFalse: [^true]. model allReferencesToClass: self do: [:each | ^false]. ^true I know it would change the definition of what is an abstract class for RB, but i'm just wondering if this is ok: "A Class is abstract if it defines a subclassResponsibility method and no other classes reference it" The second clause in my opinion could be avoided. Maybe it would be better to separate this method into: RBAbstractClass>>isAbstract ^ (self whichSelectorsReferToSymbol: #subclassResponsibility) notEmpty RBAbstractClass>>isUnreferenced model allReferencesToClass: self do: [:each | ^false]. ^true Thanks, Fernando

2 2

[Pharo-project] [update 1.1] #11200
by StÃ©phane Ducasse Feb. 10, 2010

Feb. 10, 2010

11200 ----- - Issue 1922: use #forceNewFileNamed:do: pattern (part one) - Issue 1946: Enhanced Polymorph Tool diff from barcelona at citilab :)

1 0

[Pharo-project] OT: compressing log files
by Eliot Miranda Feb. 10, 2010

Feb. 10, 2010

Hi All, I've just needed to make sense of a very long log file generated by strace. The log file is full of entries like: --- SIGALRM (Alarm clock) @ 0 (0) --- gettimeofday({1265744804, 491238}, NULL) = 0 sigreturn() = ? (mask now []) ioctl(8, 0x80045530, 0xbfd4fe70) = 0 ioctl(8, 0xc1205531, 0xbfd4fb80) = 0 ioctl(8, 0x80045530, 0xbfd4fe70) = 0 ioctl(8, 0xc1205531, 0xbfd4fb80) = 0 ioctl(8, 0x80045530, 0xbfd4fe70) = 0 ioctl(8, 0xc1205531, 0xbfd4fb80) = 0 ioctl(8, 0x80045530, 0xbfd4fe70) = 0 ioctl(8, 0xc1205531, 0xbfd4fb80) = 0 ioctl(8, 0x80045530, 0xbfd4fe70) = 0 ioctl(8, 0xc1205531, 0xbfd4fb80) = 0 ioctl(8, 0x80045530, 0xbfd4fe70) = 0 ioctl(8, 0xc1205531, 0xbfd4fb80) = 0 ioctl(8, 0x80045530, 0xbfd4fe70) = 0 ioctl(8, 0xc1205531, 0xbfd4fb80) = 0 ioctl(8, 0x80045530, 0xbfd4fe70) = 0 ioctl(8, 0xc1205531, 0xbfd4fb80) = 0 ioctl(8, 0x80045530, 0xbfd4fe70) = 0 ioctl(8, 0xc1205531, 0xbfd4fb80) = 0 ioctl(8, 0x80045530, 0xbfd4fe70) = 0 ioctl(8, 0xc1205531, 0xbfd4fb80) = 0 ioctl(8, 0x80045530, 0xbfd4fe70) = 0 ioctl(8, 0xc1205531, 0xbfd4fb80) = 0 ioctl(8, 0x80045530, 0xbfd4fe70) = 0 ioctl(8, 0xc1205531, 0xbfd4fb80) = 0 ioctl(8, 0x80045530, 0xbfd4fe70) = 0 ioctl(8, 0xc1205531, 0xbfd4fb80) = 0 ioctl(8, 0x80045530, 0xbfd4fe70) = 0 ioctl(8, 0xc1205531, 0xbfd4fb80) = 0 ioctl(8, 0x80045530, 0xbfd4fe70) = 0 and my workspace script reduces these to e.g. --- SIGALRM (Alarm clock) @ 0 (0) --- gettimeofday({1265744797, 316183}, NULL) = 0 sigreturn() = ? (mask now []) NEXT 2 LINES REPEAT 715 TIMES ioctl(8, 0xc1205531, 0xbfd4fb80) = 0 ioctl(8, 0x80045530, 0xbfd4fe70) = 0 ioctl(8, 0xc1205531, 0xbfd4fb80) = 0 --- SIGALRM (Alarm clock) @ 0 (0) --- gettimeofday({1265744797, 317189}, NULL) = 0 sigreturn() = ? (mask now []) My question is has anyone looked at this issue in any depth and perhaps come up with something not as crude as the below and possibly even recursive. i.e. the above would ideally be reduced to e.g. NEXT 7 LINES REPEAT 123456 TIMES --- SIGALRM (Alarm clock) @ 0 (0) --- gettimeofday({1265744797, 316183}, NULL) = 0 sigreturn() = ? (mask now []) NEXT 2 LINES REPEAT BETWEEN 500 AND 800 TIMES ioctl(8, 0xc1205531, 0xbfd4fb80) = 0 ioctl(8, 0x80045530, 0xbfd4fe70) = 0 ioctl(8, 0xc1205531, 0xbfd4fb80) = 0 --- SIGALRM (Alarm clock) @ 0 (0) --- gettimeofday({1265744797, 317189}, NULL) = 0 sigreturn() = ? (mask now []) Here's my quick hack that I ran in vw7.7nc: | f o lines maxrun repeats range | f := '../Cog/squeak.strace.log' asFilename readStream. o := 'compressed.log' asFilename writeStream. lines := OrderedCollection new. maxrun := 50. repeats := 0. range := nil. [[f atEnd] whileFalse: [lines size > maxrun ifTrue: [repeats > 0 ifTrue: [1 to: range first - 1 do: [:i| o nextPutAll: (lines at: i); cr]. o nextPutAll: 'NEXT '; print: range size; nextPutAll: ' LINES REPEAT '; print: repeats + 1; nextPutAll: ' TIMES'; cr. range do: [:i| o nextPutAll: (lines at: i); cr]. lines removeFirst: range last. repeats := 0] ifFalse: [o nextPutAll: lines removeFirst; cr; flush]. range := nil]. lines addLast: (f upTo: Character cr). [:exit| 1 to: lines size do: [:i| | line repeat | line := lines at: i. repeat := lines nextIndexOf: line from: i + 1 to: lines size. (repeat ~~ nil and: [lines size >= (repeat - i * 2 + i) and: [(i to: repeat - 1) allSatisfy: [:j| (lines at: j) = (lines at: j - i + repeat)]]]) ifTrue: [repeats := repeats + 1. range isNil ifTrue: [range := i to: repeat - 1] ifFalse: [range = (i to: repeat - 1) ifTrue: [range do: [:ignore| lines removeAtIndex: repeat]. exit value]]]]] valueWithExit]] ensure: [f close. o close]. repeats Forgive the cross post. I expect deep expertise in each newsgroup posted to. best Eliot

3 2

[Pharo-project] Diff tools
by Torsten Bergmann Feb. 10, 2010

Feb. 10, 2010

Gary wrote: >Done for Polymorph-Tools-Diff-gvc.21. Coool, thanks! Bye T. -- Jetzt kostenlos herunterladen: Internet Explorer 8 und Mozilla Firefox 3.5 - sicherer, schneller und einfacher! http://portal.gmx.net/de/go/atbrowser

1 0

[Pharo-project] creating a new metacello version from current commited packages
by Fernando olivero Feb. 10, 2010

Feb. 10, 2010

Hi, is this feature available in Metacello? To create a new version automatically by 1. using latest version number found in any method + 1 , in the ConfigurationOfXXX) 2. using commited packages in the repository Something like ConfigurationOfXXX>>createVersionNamed: aVersionNameSelector That would compile the method ConfigurationOfXXX>>aVersionNameSelector <version: 'lastestVersion+1' imports: #('1.0-baseline')> spec for: .... do: [ spec blessing: #development. spec repository: 'http://www.squeaksource.com/XXX'. spec author:'Me'; package: 'Gaucho-Core' with: 'Gaucho-Core-FernandoOlivero.78' ; package: 'Gaucho-Drawables' with:'Gaucho-Drawables-FernandoOlivero.37' ; ..... Or everybody is creating new version by hand, fetching the latest versions names from the monticello repo? Thanks, Fernando

3 5

[Pharo-project] Diff tools
by Torsten Bergmann Feb. 10, 2010

Feb. 10, 2010

Hi Gary, the diff tools are really great. One feature I miss from Eclipse - when one clicks on one of the small rectangles (in the gradient area beside the srollbar) the editor in eclipse jumps to the according change (adapting the scroll bar). Maybe it is simple to add... Thanks Torsten -- GRATIS fÃ¼r alle GMX-Mitglieder: Die maxdome Movie-FLAT! Jetzt freischalten unter http://portal.gmx.net/de/go/maxdome01

2 2

[Pharo-project] [update 1.1] #11199
by StÃ©phane Ducasse Feb. 9, 2010

Feb. 9, 2010

11199 ----- - Issue 1927: SocketStream>>peekFor: fixes. - Issue 1925: expected: requires a string not a block

1 0

Feb. 9, 2010

11198 ----- - Issue 1935: MenuMorph enhancement - Deprecated fasterKeys.

1 0

Feb. 9, 2010

11197 ----- - Issue 1932: UTF8TextConverter ?? - Issue 1941: Issue 1880 broke ImageSegment

1 0

[Pharo-project] something in 1.1 broke ImageSegment
by Mariano Martinez Peck Feb. 9, 2010

Feb. 9, 2010

Hi folks. I was just running ImageSegment tests in 11196 and it is broken: 3 failing tests and 5 error. Most of them seems related to the same thing. I have a Syntax Error. Probaly it is due to some stuff integrated in the latests updates to 1.1. Then problem seems when writing the segment to disk and then when loading... I attach an screenshot. Does someone has an idea what can be the problem or how to fix it ? To reproduce, just run the tests ImageSegmentTest, ImageSegmentTestExport and ImageSegmentTestSwap Thanks!!! Mariano

5 9