Packages May 2015

packages@lists.squeakfoundation.org

1 participants
1536 discussions

The Trunk: Compiler-eem.299.mcz
by commits＠source.squeak.org 30 May '15

30 May '15

Eliot Miranda uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-eem.299.mcz ==================== Summary ==================== Name: Compiler-eem.299 Author: eem Time: 29 May 2015, 3:25:41.119 pm UUID: 04451481-d898-4b03-bc51-9e28546cfb82 Ancestors: Compiler-eem.298 Provide support for a specialized pushNClosureTemps: bytecode, as included in the Sista bytecode set. =============== Diff against Compiler-eem.298 =============== Item was added: + ----- Method: BytecodeEncoder>>sizePushNClosureTemps: (in category 'opcode sizing') ----- + sizePushNClosureTemps: numTemps + ^self sizeOpcodeSelector: #genPushNClosureTemps: withArguments: {numTemps}! Item was added: + ----- Method: EncoderForV3PlusClosures>>genPushNClosureTemps: (in category 'bytecode generation') ----- + genPushNClosureTemps: numTemps + numTemps timesRepeat: [self genPushSpecialLiteral: nil]!

1 0

The Trunk: Compiler-eem.299.mcz
by commits＠source.squeak.org 30 May '15

30 May '15

1 0

The Trunk: Morphic-cmm.984.mcz
by commits＠source.squeak.org 29 May '15

29 May '15

Chris Muller uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-cmm.984.mcz ==================== Summary ==================== Name: Morphic-cmm.984 Author: cmm Time: 19 May 2015, 2:56:17.688 pm UUID: e1b37491-efb5-4415-bf9f-6f44b577daa0 Ancestors: Morphic-mt.983 Fix the ability to let Morph users set up their own EventHandler to have proper filtering of MouseMoveEvents. =============== Diff against Morphic-mt.983 =============== Item was changed: ----- Method: Morph>>handlesMouseMove: (in category 'event handling') ----- handlesMouseMove: anEvent "Do I want to receive mouseMove: when the hand passes over the receiver? Rules say that by default a morph gets #mouseMove iff * the hand is not dragging anything, + and some button is down, + and the receiver is the current mouse focus." + self eventHandler ifNotNil: [^ self eventHandler handlesMouseMove: anEvent]. anEvent hand hasSubmorphs ifTrue: [ ^ false ]. (anEvent anyButtonPressed and: [ anEvent hand mouseFocus == self ]) ifFalse: [ ^ false ]. ^ true!

1 0

The Trunk: Morphic-cmm.984.mcz
by commits＠source.squeak.org 29 May '15

29 May '15

1 0

The Trunk: Morphic-cmm.986.mcz
by commits＠source.squeak.org 29 May '15

29 May '15

Chris Muller uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-cmm.986.mcz ==================== Summary ==================== Name: Morphic-cmm.986 Author: cmm Time: 29 May 2015, 4:07:48.693 pm UUID: a448eb5a-ab1f-4acc-9c76-ebdaac144d58 Ancestors: Morphic-cmm.984, Morphic-mt.985 - Merged cmm.984. - Auto Enclose fixes. =============== Diff against Morphic-mt.985 =============== Item was changed: ----- Method: Morph>>handlesMouseMove: (in category 'event handling') ----- handlesMouseMove: anEvent "Do I want to receive mouseMove: when the hand passes over the receiver? Rules say that by default a morph gets #mouseMove iff * the hand is not dragging anything, + and some button is down, + and the receiver is the current mouse focus." + self eventHandler ifNotNil: [^ self eventHandler handlesMouseMove: anEvent]. anEvent hand hasSubmorphs ifTrue: [ ^ false ]. (anEvent anyButtonPressed and: [ anEvent hand mouseFocus == self ]) ifFalse: [ ^ false ]. ^ true! Item was added: + ----- Method: TextEditor>>autoEncloseFor: (in category 'typing support') ----- + autoEncloseFor: typedChar + "Answer whether typeChar was handled by auto-enclosure. Caller should call normalCharacter if not." + | openers closers | + openers := '([{'. + closers := ')]}'. + (closers includes: typedChar) + ifTrue: + [ | pos | + self blinkPrevParen: typedChar. + ((pos := self indexOfNextNonwhitespaceCharacter) notNil and: [ (paragraph string at: pos) = typedChar ]) + ifTrue: + [ (paragraph string at: pos) = typedChar ifTrue: + [ self + moveCursor: [ : position | position + pos - pointBlock stringIndex + 1 ] + forward: true + select: false ]. + ^ true ] + ifFalse: [ ^ false ] ]. + (self class autoEnclose and: [ openers includes: typedChar ]) ifTrue: + [ self + addString: (closers at: (openers indexOf: typedChar)) asString ; + insertTypeAhead ; + + moveCursor: [ : position | position - 1 ] + forward: false + select: false. + ^ false ]. + ^ false! Item was changed: ----- Method: TextEditor>>dispatchOnKeyboardEvent: (in category 'typing support') ----- dispatchOnKeyboardEvent: aKeyboardEvent "Carry out the action associated with this character, if any. Type-ahead is passed so some routines can flush or use it." + | honorCommandKeys typedChar | - | honorCommandKeys openers closers result typedChar | ((typedChar := aKeyboardEvent keyCharacter) == Character cr and: [ morph acceptOnCR ]) ifTrue: [ self closeTypeIn. ^ true ]. self clearParens. aKeyboardEvent keyValue = 13 ifTrue: [ aKeyboardEvent controlKeyPressed ifTrue: [ ^ self normalCharacter: aKeyboardEvent ]. aKeyboardEvent shiftPressed ifTrue: [ ^ self lf: aKeyboardEvent ]. aKeyboardEvent commandKeyPressed ifTrue: [ ^ self crlf: aKeyboardEvent ]. ^ self crWithIndent: aKeyboardEvent ]. ((honorCommandKeys := Preferences cmdKeysInText) and: [ typedChar = Character enter ]) ifTrue: [ ^ self dispatchOnEnterWith: aKeyboardEvent ]. "Special keys overwrite crtl+key combinations - at least on Windows. To resolve this conflict, assume that keys other than cursor keys aren't used together with Crtl." ((self class specialShiftCmdKeys includes: aKeyboardEvent keyValue) and: [ aKeyboardEvent keyValue < 27 ]) ifTrue: [ ^ aKeyboardEvent controlKeyPressed ifTrue: [ self perform: (self class shiftCmdActions at: aKeyboardEvent keyValue + 1) with: aKeyboardEvent ] ifFalse: [ self perform: (self class cmdActions at: aKeyboardEvent keyValue + 1) with: aKeyboardEvent ] ]. "backspace, and escape keys (ascii 8 and 27) are command keys" ((honorCommandKeys and: [ aKeyboardEvent commandKeyPressed ]) or: [ self class specialShiftCmdKeys includes: aKeyboardEvent keyValue ]) ifTrue: [ ^ aKeyboardEvent shiftPressed ifTrue: [ self perform: (self class shiftCmdActions at: aKeyboardEvent keyValue + 1) with: aKeyboardEvent ] ifFalse: [ self perform: (self class cmdActions at: aKeyboardEvent keyValue + 1) with: aKeyboardEvent ] ]. "the control key can be used to invoke shift-cmd shortcuts" (honorCommandKeys and: [ aKeyboardEvent controlKeyPressed ]) ifTrue: [ ^ self perform: (self class shiftCmdActions at: aKeyboardEvent keyValue + 1) with: aKeyboardEvent ]. + self class autoEnclose + ifTrue: [ (self autoEncloseFor: typedChar) ifFalse: [ self normalCharacter: aKeyboardEvent ] ] + ifFalse: [ self normalCharacter: aKeyboardEvent ]. + ^ false! - openers := '([{'. - closers := ')]}'. - (closers includes: typedChar) - ifTrue: - [ self blinkPrevParen: typedChar. - self nextNonwhitespaceCharacter = typedChar - ifTrue: - [ self moveCursor: [ : position | position + 1 ] forward: true select: false. - ^ false ] - ifFalse: [ result := self normalCharacter: aKeyboardEvent ] ] - ifFalse: [ result := self normalCharacter: aKeyboardEvent ]. - (self class autoEnclose and: [ openers includes: typedChar ]) ifTrue: - [ self - addString: (closers at: (openers indexOf: typedChar)) asString ; - insertTypeAhead ; - - moveCursor: - [ : position | position - 1 ] - forward: false - select: false ]. - ^ result! Item was added: + ----- Method: TextEditor>>indexOfNextNonwhitespaceCharacter (in category 'private') ----- + indexOfNextNonwhitespaceCharacter + pointBlock stringIndex + to: paragraph string size + do: + [ : n | | char | (char := paragraph string at: n) isSeparator ifFalse: [ ^ n ] ]. + ^ nil! Item was removed: - ----- Method: TextEditor>>nextNonwhitespaceCharacter (in category 'private') ----- - nextNonwhitespaceCharacter - pointBlock stringIndex - to: paragraph string size - do: - [ : n | | char | (char := paragraph string at: n) isSeparator ifFalse: [ ^ char ] ]. - ^ nil!

1 0

The Trunk: Morphic-cmm.986.mcz
by commits＠source.squeak.org 29 May '15

29 May '15

1 0

The Trunk: Kernel-eem.926.mcz
by commits＠source.squeak.org 29 May '15

29 May '15

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.926.mcz ==================== Summary ==================== Name: Kernel-eem.926 Author: eem Time: 29 May 2015, 12:02:32.361 pm UUID: b5d090c6-115c-427d-92ca-0e02afa2908d Ancestors: Kernel-cmm.925 Make markerOrNil multiple-bytecode-sets aware =============== Diff against Kernel-cmm.925 =============== Item was changed: ----- Method: CompiledMethod>>markerOrNil (in category 'private') ----- markerOrNil "If I am a marker method, answer the symbol used to mark me. Otherwise + answer nil. What is a marker method? It is method with body like - answer nil. - - What is a marker method? It is method with body like 'self subclassResponsibility' or '^ self subclassResponsibility' + used to indicate ('mark') a special property." - used to indicate ('mark') a special property. + ^self encoderClass markerOrNilFor: self! - Marker methods compile to bytecode like: - - 9 <70> self - 10 <D0> send: <literal 1> - 11 <87> pop - 12 <78> returnSelf - - for the first form, or - - 9 <70> self - 10 <D0> send: <literal 1> - 11 <7C> returnTop - - for the second form." - - | e | - ((e := self endPC) = 19 or: [e = 20]) ifFalse: [^ nil]. - (self numLiterals = 3) ifFalse:[^ nil]. - (self at: 17) = 16r70 ifFalse:[^ nil]. "push self" - (self at: 18) = 16rD0 ifFalse:[^ nil]. "send <literal 1>" - "If we reach this point, we have a marker method that sends self <literal 1>" - ^ self literalAt: 1 - ! Item was added: + ----- Method: InstructionPrinter>>callPrimitive: (in category 'instruction decoding') ----- + callPrimitive: index + "Print the callPrimitive bytecode." + + self print: 'callPrimitive: ' , index printString!

1 0

The Trunk: Kernel-eem.926.mcz
by commits＠source.squeak.org 29 May '15

29 May '15

1 0

The Trunk: Compiler-eem.298.mcz
by commits＠source.squeak.org 29 May '15

29 May '15

Eliot Miranda uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-eem.298.mcz ==================== Summary ==================== Name: Compiler-eem.298 Author: eem Time: 29 May 2015, 11:59:13.77 am UUID: b06cc000-4a40-45cd-a0b2-a2d1c0309e39 Ancestors: Compiler-cmm.297 Provide multiple-bytecode-sets aware support for markerOrNil =============== Diff against Compiler-cmm.297 =============== Item was added: + ----- Method: BytecodeEncoder class>>markerOrNilFor: (in category 'compiled method support') ----- + markerOrNilFor: aMethod + "If aMethod is a marker method, answer the symbol used to mark it. Otherwise + answer nil. What is a marker method? It is method with body like + 'self subclassResponsibility' or '^ self subclassResponsibility' + used to indicate ('mark') a special property. + + Marker methods compile to two bytecode forms, this: + self + send: <literal 1> + pop + returnSelf + or this: + self + send: <literal 1> + returnTop" + ^self subclassResponsibility! Item was added: + ----- Method: EncoderForV3 class>>markerOrNilFor: (in category 'compiled method support') ----- + markerOrNilFor: aMethod + "If aMethod is a marker method, answer the symbol used to mark it. Otherwise + answer nil. What is a marker method? It is method with body like + 'self subclassResponsibility' or '^ self subclassResponsibility' + used to indicate ('mark') a special property. + + Marker methods compile to two bytecode forms, this: + self + send: <literal 1> + pop + returnSelf + or this: + self + send: <literal 1> + returnTop" + | e | + ^(((e := aMethod endPC) = 19 or: [e = 20]) + and: [aMethod numLiterals = 3 + and: [(aMethod at: 17) = 16r70 "push self" + and: [(aMethod at: 18) = 16rD0]]]) "send <literal 1>" + ifTrue: [aMethod literalAt: 1]!

1 0

The Trunk: Compiler-eem.298.mcz
by commits＠source.squeak.org 29 May '15

29 May '15

1 0

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

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages May 2015