Squeak-dev January 2016

squeak-dev@lists.squeakfoundation.org

40 participants
206 discussions

Daily Commit Log
by commits＠source.squeak.org 19 Jan '16

19 Jan '16

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2016-January/009265.ht… Name: Morphic-tpr.1069 Ancestors: Morphic-mt.1068, Morphic-tpr.1068 This seems to be the best way to make sure that the preference 'cmd gestures enabled' being false results in no Halos. If you have a nicer way, please replace this. =============================================

1 0

The Trunk: Morphic-tpr.1069.mcz
by commits＠source.squeak.org 19 Jan '16

19 Jan '16

tim Rowledge uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-tpr.1069.mcz ==================== Summary ==================== Name: Morphic-tpr.1069 Author: tpr Time: 19 January 2016, 2:00:10.351434 pm UUID: 080b7719-2b70-419c-91f3-4842337058a6 Ancestors: Morphic-mt.1068, Morphic-tpr.1068 This seems to be the best way to make sure that the preference 'cmd gestures enabled' being false results in no Halos. If you have a nicer way, please replace this. =============== Diff against Morphic-mt.1068 =============== Item was changed: ----- Method: Morph>>handleMouseDown: (in category 'events-processing') ----- handleMouseDown: anEvent "System level event handling." anEvent wasHandled ifTrue:[^self]. "not interested" anEvent hand removePendingBalloonFor: self. anEvent hand removePendingHaloFor: self. anEvent wasHandled: true. (anEvent controlKeyPressed and: [anEvent blueButtonChanged not and: [Preferences cmdGesturesEnabled]]) ifTrue: [^ self invokeMetaMenu: anEvent]. "Make me modal during mouse transitions" anEvent hand newMouseFocus: self event: anEvent. + (anEvent blueButtonChanged and:[Preferences cmdGesturesEnabled]) ifTrue:[^self blueButtonDown: anEvent]. - anEvent blueButtonChanged ifTrue:[^self blueButtonDown: anEvent]. "this mouse down could be the start of a gesture, or the end of a gesture focus" (self isGestureStart: anEvent) ifTrue: [^ self gestureStart: anEvent]. "Filter events sent to the subwidgets of non-MorphicModels in inactive windows, if they are not supposed to receive them due to windowActiveOnFirstClick being set to false. I don't like having this check for owningWindow here, is there another way?" SystemWindow allWindowsAcceptInput ifTrue: [ self owningWindow ifNil: [ self mouseDown: anEvent ] ifNotNil: [ : owningWindow | (owningWindow canProcessMouseDown: anEvent) ifTrue: [ self mouseDown: anEvent ] ifFalse: [ owningWindow activate ] ] ] ifFalse: [ self mouseDown: anEvent ]. Preferences maintainHalos ifFalse:[ anEvent hand removeHaloFromClick: anEvent on: self ]. (self handlesMouseStillDown: anEvent) ifTrue:[ self startStepping: #handleMouseStillDown: at: Time millisecondClockValue + self mouseStillDownThreshold arguments: {anEvent copy resetHandlerFields} stepTime: self mouseStillDownStepRate ]. !

1 0

unplanned outage: http://ss3.gemstone.com/ and http://seaside.gemtalksystems.com/ss
by Dale Henrichs 19 Jan '16

19 Jan '16

The datacenter where the sites http://ss3.gemstone.com/ and http://seaside.gemtalksystems.com/ss are hosted lost their primary router, while the backup router was being repaired ... the machines hosting the two sites are up and running, so no data loss is expected. They are working on getting another router in=place, but no ETA is known at this time ... Dale

1 2

SerialPort on Raspberry Pi
by Jon Hylands 19 Jan '16

19 Jan '16

Hi everyone, I'm trying to use the SerialPort class on my Raspberry pi 2, to access the UART on the pi. I've successfully accessed the port from python, using pyserial. On the pi, the port name is '/dev/ttyAMA0'. In squeak (using the 5.0 all-in-one), when I try and open the port, it fails, but doesn't tell you anything useful. After I attempt to open the port, SerialPlugin is listed both as an internal plugin and as a loaded module. SerialPlugin VMMaker.oscog-eem.1325 (i) Has anyone actually used the serial port on the pi from Squeak? Thanks, Jon

4 6

Daily Commit Log
by commits＠source.squeak.org 18 Jan '16

18 Jan '16

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2016-January/009263.ht… Name: Kernel-eem.980 Ancestors: Kernel-tpr.979 Lay the ground work for double-byte strings (and possibly a 64-bit indexable bits type). Test shallowCopy's error code and report primitive failure if it has failed for other than being out of memory (which may simply imply the need for a GC). ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-January/009264.ht… Name: Morphic-mt.1068 Ancestors: Morphic-tpr.1067 Makes preference regarding 24-hr clock in docking bar functional. Adds preference regarding seconds in clock in docking bar. =============================================

1 0

Candidates Wanted!
by Ron Teitelbaum 18 Jan '16

18 Jan '16

Hi all, There are only 2 weeks left until the Squeak Oversight Board 2016 election. So far we have 4 candidates for 7 board seats. Tim Rowledge Marcel Taeumel Craig Latta Bert Freudenberg There are a lot of great members of this community. Please reach out to members you think should run and encourage them to volunteer. As Bert says, it doesn't take much of your time to be a board member. All you need is: brains, a heart, courage, a dog named Toto, and ruby . no wait that's something else. 2 weeks to go. All the best, Ron Teitelbaum

1 0

The Trunk: Morphic-mt.1068.mcz
by commits＠source.squeak.org 18 Jan '16

18 Jan '16

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1068.mcz ==================== Summary ==================== Name: Morphic-mt.1068 Author: mt Time: 18 January 2016, 8:31:01.62408 am UUID: f13223e3-051e-4345-96d8-c207a307a828 Ancestors: Morphic-tpr.1067 Makes preference regarding 24-hr clock in docking bar functional. Adds preference regarding seconds in clock in docking bar. =============== Diff against Morphic-tpr.1067 =============== Item was changed: Object subclass: #TheWorldMainDockingBar instanceVariableNames: '' + classVariableNames: 'Instance ShowSecondsInClock TS TwentyFourHourClock' - classVariableNames: 'Instance TS TwentyFourHourClock' poolDictionaries: '' category: 'Morphic-Kernel'! Item was added: + ----- Method: TheWorldMainDockingBar class>>showSecondsInClock (in category 'preferences') ----- + showSecondsInClock + <preference: 'Show seconds in clock' + category: 'docking bars' + description: 'Whether the clock in the world''s main docking bar should display seconds.' + type: #Boolean> + ^ ShowSecondsInClock ifNil: [ true ]! Item was added: + ----- Method: TheWorldMainDockingBar class>>showSecondsInClock: (in category 'preferences') ----- + showSecondsInClock: boolean + + ShowSecondsInClock := boolean. + self updateInstances.! Item was changed: ----- Method: TheWorldMainDockingBar>>clockOn: (in category 'right side') ----- clockOn: aDockingBar aDockingBar + addMorphBack: (ClockMorph new + show24hr: self class twentyFourHourClock; + showSeconds: self class showSecondsInClock; + yourself); - addMorphBack: (ClockMorph new show24hr: TwentyFourHourClock; yourself); addDefaultSpace!

1 0

The Trunk: Kernel-eem.980.mcz
by commits＠source.squeak.org 18 Jan '16

18 Jan '16

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.980.mcz ==================== Summary ==================== Name: Kernel-eem.980 Author: eem Time: 18 January 2016, 7:32:08.6746 pm UUID: 95543c3e-e2d1-4ec8-8ad2-a90fca9a2b06 Ancestors: Kernel-tpr.979 Lay the ground work for double-byte strings (and possibly a 64-bit indexable bits type). Test shallowCopy's error code and report primitive failure if it has failed for other than being out of memory (which may simply imply the need for a GC). =============== Diff against Kernel-tpr.979 =============== Item was changed: ----- Method: Behavior>>format (in category 'accessing') ----- format "Answer an Integer that encodes the kinds and numbers of variables of + instances of the receiver. The format is (currently) composed of two fields, + a 16-bit instSize, in the least significant bits, specifying the number of named + inst vars, if any, and a 5-bit format field, describing the kind of class. c.f. instSpec. + (msb)<5 bit format><16 bit #fixed fields>(lsb)" - instances of the receiver." ^format! Item was changed: ----- Method: Behavior>>instSpec (in category 'testing') ----- instSpec "Answer the instance specification part of the format that defines what kind of object an instance of the receiver is. The formats are 0 = 0 sized objects (UndefinedObject True False et al) 1 = non-indexable objects with inst vars (Point et al) 2 = indexable objects with no inst vars (Array et al) 3 = indexable objects with inst vars (MethodContext AdditionalMethodState et al) 4 = weak indexable objects with inst vars (WeakArray et al) 5 = weak non-indexable objects with inst vars (ephemerons) (Ephemeron) 6 = unused 7 = immediates (SmallInteger, Character) 8 = unused 9 = 64-bit indexable + 10-11 = 32-bit indexable (Bitmap) (plus one odd bit, unused in 32-bits) + 12-15 = 16-bit indexable (plus two odd bits, one unused in 32-bits) + 16-23 = 8-bit indexable (plus three odd bits, one unused in 32-bits) + 24-31 = compiled methods (CompiledMethod) (plus three odd bits, one unused in 32-bits) + Note that in the VM instances also have a 5 bit format field that relates to their class's format. + Formats 11, 13-15, 17-23 & 25-31 are unused in classes but used in instances to define the + number of elements missing up to the slot size. For example, a 2-byte ByteString instance + has format 18 in 32-bits, since its size is one 32-bit slot - 2 bytes ((18 bitAnd: 3) = 2), and + 22 in 64 bits, since its size is one 64-bit slot - 6 bytes ((22 bitAnd: 7) = 6)." - 10-11 = 32-bit indexable (Bitmap) - 12-15 = 16-bit indexable - 16-23 = 8-bit indexable - 24-31 = compiled methods (CompiledMethod)" ^(format bitShift: -16) bitAnd: 16r1F! Item was changed: ----- Method: Behavior>>kindOfSubclass (in category 'testing class hierarchy') ----- kindOfSubclass "Answer a String that is the keyword that describes the receiver's kind of subclass, either a regular subclass, a variableSubclass, a variableByteSubclass, a variableWordSubclass, a weakSubclass, an ephemeronSubclass or an immediateSubclass. + c.f. typeOfClass & instSpec" + ^(#(' subclass: ' + ' subclass: ' + ' variableSubclass: ' + ' variableSubclass: ' + ' weakSubclass: ' + ' ephemeronSubclass: ' + nil + ' immediateSubclass: ' + nil + ' variableDoubleWordSubclass: ' + ' variableWordSubclass: ' nil + ' variableDoubleByteSubclass: ' nil nil nil + ' variableByteSubclass: ' nil nil nil nil nil nil nil + ' variableByteSubclass: ' nil nil nil nil nil nil nil ) + at: self instSpec + 1) ifNil: + [self error: 'invalid class type']! - c.f. typeOfClass" - ^self isVariable - ifTrue: - [self isBits - ifTrue: - [self isBytes - ifTrue: [' variableByteSubclass: '] - ifFalse: [' variableWordSubclass: ']] - ifFalse: - [self isWeak - ifTrue: [' weakSubclass: '] - ifFalse: [' variableSubclass: ']]] - ifFalse: - [self isImmediateClass - ifTrue: [' immediateSubclass: '] - ifFalse: - [self isEphemeronClass - ifTrue: [' ephemeronSubclass: '] - ifFalse: [' subclass: ']]]! Item was changed: ----- Method: Behavior>>typeOfClass (in category 'accessing') ----- typeOfClass + "Answer a symbol uniquely describing the type of the receiver. c.f. kindOfSubclass, instSpec" + ^(#(normal + normal + variable + variable + weak + ephemeron + nil + immediate + nil + longs + words nil + shorts nil nil nil + bytes nil nil nil nil nil nil nil + compiledMethod nil nil nil nil nil nil nil) + at: self instSpec + 1) ifNil: + [self error: 'invalid class type']! - "Answer a symbol uniquely describing the type of the receiver. c.f. kindOfSubclass" - self isBytes ifTrue: - [^self instSpec = CompiledMethod instSpec - ifTrue: [#compiledMethod] "Very special!!" - ifFalse: [#bytes]]. - (self isWords and: [self isPointers not]) ifTrue: - [^self instSpec = SmallInteger instSpec - ifTrue: [#immediate] "Very special!!" - ifFalse: [#words]]. - self isWeak ifTrue: [^#weak]. - self isVariable ifTrue: [^#variable]. - self isEphemeronClass ifTrue: [^#ephemeron]. - ^#normal! Item was changed: ----- Method: ClassBuilder>>computeFormat:instSize:forSuper: (in category 'class format') ----- computeFormat: type instSize: newInstSize forSuper: newSuper "Compute the new format for making oldClass a subclass of newSuper. Answer the format or nil if there is any problem." + | instSize isVar isPointers isWeak bitsUnitSize | - | instSize isVar isWords isPointers isWeak | type == #compiledMethod ifTrue: [newInstSize > 0 ifTrue: [self error: 'A compiled method class cannot have named instance variables'. ^nil]. ^CompiledMethod format]. instSize := newInstSize + (newSuper ifNil:[0] ifNotNil:[newSuper instSize]). instSize > 65535 ifTrue: [self error: 'Class has too many instance variables (', instSize printString,')'. ^nil]. + type == #normal ifTrue:[isVar := isWeak := false. isPointers := true]. + type == #bytes ifTrue:[isVar := true. bitsUnitSize := 1. isPointers := isWeak := false]. + type == #shorts ifTrue:[isVar := true. bitsUnitSize := 2. isPointers := isWeak := false]. + type == #words ifTrue:[isVar := true. bitsUnitSize := 4. isPointers := isWeak := false]. + type == #longs ifTrue:[isVar := true. bitsUnitSize := 8. isPointers := isWeak := false]. + type == #variable ifTrue:[isVar := isPointers := true. isWeak := false]. + type == #weak ifTrue:[isVar := isWeak := isPointers := true]. + type == #ephemeron ifTrue:[isVar := false. isWeak := isPointers := true]. + type == #immediate ifTrue:[isVar := isWeak := isPointers := false]. - type == #normal ifTrue:[isVar := isWeak := false. isWords := isPointers := true]. - type == #bytes ifTrue:[isVar := true. isWords := isPointers := isWeak := false]. - type == #words ifTrue:[isVar := isWords := true. isPointers := isWeak := false]. - type == #variable ifTrue:[isVar := isPointers := isWords := true. isWeak := false]. - type == #weak ifTrue:[isVar := isWeak := isWords := isPointers := true]. - type == #ephemeron ifTrue:[isVar := false. isWeak := isWords := isPointers := true]. - type == #immediate ifTrue:[isVar := isWeak := isPointers := false. isWords := true]. (isPointers not and: [instSize > 0]) ifTrue: [self error: 'A non-pointer class cannot have named instance variables'. ^nil]. + ^self format: instSize variable: isVar bitsUnitSize: bitsUnitSize pointers: isPointers weak: isWeak! - ^self format: instSize variable: isVar words: isWords pointers: isPointers weak: isWeak! Item was added: + ----- Method: ClassBuilder>>format:variable:bitsUnitSize:pointers:weak: (in category 'class format') ----- + format: nInstVars variable: isVar bitsUnitSize: bitsUnitSize pointers: isPointers weak: isWeak + "Compute the format for the given instance specfication. + Above Cog Spur the class format is + <5 bits inst spec><16 bits inst size> + where the 5-bit inst spec is + 0 = 0 sized objects (UndefinedObject True False et al) + 1 = non-indexable objects with inst vars (Point et al) + 2 = indexable objects with no inst vars (Array et al) + 3 = indexable objects with inst vars (MethodContext AdditionalMethodState et al) + 4 = weak indexable objects with inst vars (WeakArray et al) + 5 = weak non-indexable objects with inst vars (ephemerons) (Ephemeron) + 6 = unused + 7 = immediates (SmallInteger, Character, SmallFloat64) + 8 = unused + 9 = 64-bit indexable + 10-11 = 32-bit indexable (Bitmap, WideString) + 12-15 = 16-bit indexable + 16-23 = 8-bit indexable (ByteString) + 24-31 = compiled methods (CompiledMethod)" + | instSpec | + instSpec := isWeak + ifTrue: + [isVar + ifTrue: [4] + ifFalse: [5]] + ifFalse: + [isPointers + ifTrue: + [isVar + ifTrue: [nInstVars > 0 ifTrue: [3] ifFalse: [2]] + ifFalse: [nInstVars > 0 ifTrue: [1] ifFalse: [0]]] + ifFalse: + [isVar + ifTrue: [bitsUnitSize caseOf: { + [1] -> [16]. + [2] -> [12]. + [4] -> [10]. + [8] -> [9] }] + ifFalse: [7]]]. + ^(instSpec bitShift: 16) + nInstVars! Item was changed: ----- Method: Object>>shallowCopy (in category 'copying') ----- shallowCopy "Answer a copy of the receiver which shares the receiver's instance variables." | class newObject index | + <primitive: 148 error: ec> + ec == #'insufficient object memory' ifFalse: + [^self primitiveFailed]. - <primitive: 148> class := self class. class isVariable ifTrue: [index := self basicSize. + newObject := class basicNew: index. + [index > 0] whileTrue: + [newObject basicAt: index put: (self basicAt: index). + index := index - 1]] - newObject := class basicNew: index. - [index > 0] - whileTrue: - [newObject basicAt: index put: (self basicAt: index). - index := index - 1]] ifFalse: [newObject := class basicNew]. index := class instSize. + [index > 0] whileTrue: + [newObject instVarAt: index put: (self instVarAt: index). + index := index - 1]. + ^newObject! - [index > 0] - whileTrue: - [newObject instVarAt: index put: (self instVarAt: index). - index := index - 1]. - ^ newObject!

1 0

Re: [Pharo-project] [Vm-dev] Re: Can OSProcess functionality be implemented using FFI instead of plugin?
by Eliot Miranda 17 Jan '16

17 Jan '16

On Sat, Jan 16, 2016 at 4:37 PM, Levente Uzonyi <leves(a)caesar.elte.hu> wrote: > > On Sat, 16 Jan 2016, Mariano Martinez Peck wrote: > > (Still no quote.) > > How will you read the output of the process without having your image's > process blocked in the FFI callout? > How will you make sure that writes to input of the process won't block the > FFI callout? This presupposes the threaded FFI. The threaded FFI allows the VM to make any number of blocking calls, adding a new thread to run the VM whenever the VM is stalled when the heartbeat beats. hence one can freely read and write to/from i/o blocking i/o streams (including pipes and sockets) or blocking database connexions, etc, all without stating that the FFI call must be done in a special way, since all calls through the FFI can block without blocking the VM. Note that the scheme is also amenable to plugins, but the plugins must be rewritten to include the release vm/acquire vm calls around a blocking call. With the threaded VM the FFI includes these calls around every FFI call. HTH _,,,^..^,,,_ best, Eliot

3 4

Re: [Vm-dev] Where to get Monitor implementation based on primitives?
by Eliot Miranda 17 Jan '16

17 Jan '16

Hi Denis, Hi Clément, Hi Frank, On Thu, Jan 7, 2016 at 5:34 AM, Clément Bera <bera.clement(a)gmail.com> wrote: > Hello, > > Eliot, please, you told me you had the code and Denis is interested. > > It uses 3 primitives for performance. > Forgive the delay. I thought it proper to ask permission since the code was written while I was at Qwaq. I'm attaching the code in a fairly raw state, see the attached. The code is MIT, but copyright 3DICC. It is a plugin replacement for Squeak's Mutex, and with a little ingenuity could be a replacement for Squeak's Monitor. It is quicker because it uses three new primitives to manage entering a critical section and setting the owner, exiting the critical section and releasing the owner, and testing if a critical section, entering if the section is unowned. The use of the primitives means fewer block activations and ensure: blocks in entering and exiting the critical section, and that's the actual cause of the speed-up. You can benchmark the code as is. Here are some results on 32-bit Spur, on my 2.2GHz Core i7 {Mutex new. Monitor new. CriticalSection new} collect: [:cs| | n | n := 0. [cs critical: [n := n + 1]. cs critical: [n := n + 1]. cs critical: [n := n + 1]. cs critical: [n := n + 1]. cs critical: [n := n + 1]. cs critical: [n := n - 1]. cs critical: [n := n - 1]. cs critical: [n := n - 1]. cs critical: [n := n - 1]. cs critical: [n := n - 1]. n ] bench] {Mutex new. Monitor new. CriticalSection new} collect: [:cs| | n | n := 0. cs class name, ' -> ', [cs critical: [n := n + 1]. cs critical: [n := n + 1]. cs critical: [n := n + 1]. cs critical: [n := n + 1]. cs critical: [n := n + 1]. cs critical: [n := n - 1]. cs critical: [n := n - 1]. cs critical: [n := n - 1]. cs critical: [n := n - 1]. cs critical: [n := n - 1]. n ] bench] #( 'Mutex -> 440,000 per second. 2.27 microseconds per run.' 'Monitor -> 688,000 per second. 1.45 microseconds per run.' 'CriticalSection -> 1,110,000 per second. 900 nanoseconds per run.') Replacement is probably trivial; rename Mutex to OldMutex, rename CriticalSection to Mutex, recompile. But there are lots of mutexes in the system and these are potentially owned. Transforming unowned ones is trivial, but transforming owned ones is, I think, impossible. But at least in my system there are no owned mutexes or monitors. Frank (or anyone else), would you be interested in creating a replacement for Squeak's Monitor based on CriticalSection? Here are the two business methods: *CriticalSection methods for mutual exclusion* *critical:* aBlock "Evaluate aBlock protected by the receiver." ^self primitiveEnterCriticalSection ifTrue: [aBlock value] ifFalse: [aBlock ensure: [self primitiveExitCriticalSection]] *critical:* aBlock *ifLocked:* lockedBlock "*Answer the evaluation of aBlock protected by the receiver. If it is already in a critical* * section on behalf of some other process answer the evaluation of lockedBlock.*" ^self primitiveTestAndSetOwnershipOfCriticalSection ifNil: [lockedBlock value] ifNotNil:[:alreadyOwner| alreadyOwner ifTrue: [aBlock value] ifFalse: [aBlock ensure: [self primitiveExitCriticalSection]]] and the primitives: *CriticalSection methods for private-primitives* *primitiveEnterCriticalSection* "Primitive. The receiver must be unowned or owned by the current process to proceed. Answer if the process is owned by the current process." <primitive: 186> self primitiveFailed "In the spirit of the following" "[owner ifNil: [owner := Processor activeProcess. ^false]. owner = Processor activeProcess ifTrue: [^true]. self addLast: Processor activeProcess. Processor activeProcess suspend] valueUnpreemptively" *primitiveExitCriticalSection* "Primitive. Set te receiver to unowned and if any processes are waiting on the receiver then proceed the first one, indicating that the receiver is unowned." <primitive: 185> self primitiveFailed "In the spirit of the following" "[owner := nil. self isEmpty ifFalse: [process := self removeFirst. process resume]] valueUnpreemptively" *primitiveTestAndSetOwnershipOfCriticalSection* "Primitive. Attempt to set the ownership of the receiver. If the receiver is unowned set its owningProcess to the activeProcess and answer false. If the receiver is owned by the activeProcess answer true. If the receiver is owned by some other process answer nil." <primitive: 187> self primitiveFail "In the spirit of the following" "[owner ifNil: [owningProcess := Processor activeProcess. ^false]. owner = Processor activeProcess ifTrue: [^true]. ^nil] valueUnpreemptively" 2016-01-07 13:24 GMT+01:00 Denis Kudriashov <dionisiydk(a)gmail.com>: > >> >> Hello. >> >> I hear about new Monitor implementation based on new primitives. >> Where to get it? >> > _,,,^..^,,,_ best, Eliot

2 2

← Newer
1
...
6
7
8
9
10
11
12
...
21
Older →

Jump to page: