Packages August 2011

packages@lists.squeakfoundation.org

1 participants
171 discussions

The Trunk: Compiler-eem.212.mcz
by commits＠source.squeak.org 19 Aug '11

19 Aug '11

Eliot Miranda uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-eem.212.mcz ==================== Summary ==================== Name: Compiler-eem.212 Author: eem Time: 18 August 2011, 4:32:55.72 pm UUID: 7aa3630c-0547-4f85-821b-c1a9bb4dbbd5 Ancestors: Compiler-eem.211 Add a useful validation check to the closure analysis. Insist that local variables have at most one defining scope. =============== Diff against Compiler-eem.211 =============== Item was changed: ----- Method: TempVariableNode>>definingScope: (in category 'code generation (closures)') ----- definingScope: scopeBlock "<BlockNode>" + definingScope ifNotNil: + [self error: 'temp has more than one defining scope. This is probably a parser error']. definingScope := scopeBlock!

1 0

The Trunk: Morphic-cmm.568.mcz
by commits＠source.squeak.org 17 Aug '11

17 Aug '11

Chris Muller uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-cmm.568.mcz ==================== Summary ==================== Name: Morphic-cmm.568 Author: cmm Time: 16 August 2011, 7:41:16.85 pm UUID: 0e5f72e8-32fa-4608-bb91-f08260ecbab5 Ancestors: Morphic-nice.567 - Fixed Auto Enclose preference. - Restored ability to use Control in lieu of Alt+Shift for enclosing with (, {, or double-quote. =============== Diff against Morphic-nice.567 =============== Item was changed: ----- Method: TextEditor class>>initializeShiftCmdKeyShortcuts (in category 'keyboard shortcut tables') ----- initializeShiftCmdKeyShortcuts "Initialize the shift-command-key (or control-key) shortcut table." "NOTE: if you don't know what your keyboard generates, use Sensor kbdTest" "wod 11/3/1998: Fix setting of cmdMap for shifted keys to actually use the capitalized versions of the letters. TPR 2/18/99: add the plain ascii values back in for those VMs that don't return the shifted values." "TextEditor initialize" | cmdMap cmds | "shift-command and control shortcuts" cmdMap := Array new: 256 withAll: #noop:. "use temp in case of a crash" cmdMap at: ( 1 + 1) put: #cursorHome:. "home key" cmdMap at: ( 4 + 1) put: #cursorEnd:. "end key" cmdMap at: ( 8 + 1) put: #forwardDelete:. "ctrl-H or delete key" cmdMap at: (11 + 1) put: #cursorPageUp:. "page up key" cmdMap at: (12 + 1) put: #cursorPageDown:. "page down key" cmdMap at: (13 + 1) put: #crWithIndent:. "ctrl-Return" cmdMap at: (27 + 1) put: #offerMenuFromEsc:. "escape key" cmdMap at: (28 + 1) put: #cursorLeft:. "left arrow key" cmdMap at: (29 + 1) put: #cursorRight:. "right arrow key" cmdMap at: (30 + 1) put: #cursorUp:. "up arrow key" cmdMap at: (31 + 1) put: #cursorDown:. "down arrow key" cmdMap at: (32 + 1) put: #selectWord:. "space bar key" cmdMap at: (45 + 1) put: #changeEmphasis:. "cmd-sh-minus" cmdMap at: (61 + 1) put: #changeEmphasis:. "cmd-sh-plus" cmdMap at: (127 + 1) put: #forwardDelete:. "del key" "On some keyboards, these characters require a shift" + '([<{|"''9' do: [:char | cmdMap at: char asciiValue + 1 put: #enclose:]. - '([<{|"''' do: [:char | cmdMap at: char asciiValue + 1 put: #enclose:]. "NB: sw 12/9/2001 commented out the idiosyncratic line just below, which was grabbing shift-esc in the text editor and hence which argued with the wish to have shift-esc be a universal gesture for escaping the local context and calling up the desktop menu." "cmdMap at: (27 + 1) put: #shiftEnclose:." "ctrl-[" "'""''(' do: [ :char | cmdMap at: (char asciiValue + 1) put: #enclose:]." cmds := #( $c compareToClipboard: $d duplicate: $h cursorTopHome: $j doAgainMany: $k changeStyle: $l outdent: $m selectCurrentTypeIn: $r indent: $s search: $u changeLfToCr: $x makeLowercase: $y makeUppercase: $z makeCapitalized: ). 1 to: cmds size by: 2 do: [ :i | cmdMap at: ((cmds at: i) asciiValue + 1) put: (cmds at: i + 1). "plain keys" cmdMap at: ((cmds at: i) asciiValue - 32 + 1) put: (cmds at: i + 1). "shifted keys" cmdMap at: ((cmds at: i) asciiValue - 96 + 1) put: (cmds at: i + 1). "ctrl keys" ]. shiftCmdActions := cmdMap! 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 openers closers result | (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: [ aKeyboardEvent keyCharacter = 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 ]. - ifTrue: [ ^ self perform: (self class shiftCmdActions at: aKeyboardEvent keyValue + 1) with: aKeyboardEvent ]. openers := '([{'. closers := ')]}'. result := self normalCharacter: aKeyboardEvent. (closers includes: aKeyboardEvent keyCharacter) ifTrue: [ self blinkPrevParen: aKeyboardEvent ]. (self class autoEnclose and: [ openers includes: aKeyboardEvent keyCharacter ]) ifTrue: [ + markBlock := pointBlock. self addString: (closers at: (openers indexOf: aKeyboardEvent keyCharacter)) asString. + markBlock := pointBlock. self moveCursor: [ :position | position - 1 ] forward: false select: false "no special behavior" ]. ^ result! Item was changed: ----- Method: TextEditor>>enclose: (in category 'editing keys') ----- enclose: aKeyboardEvent "Insert or remove bracket characters around the current selection." | left right startIndex stopIndex oldSelection which t | self closeTypeIn. startIndex := self startIndex. stopIndex := self stopIndex. oldSelection := self selection. + which := '([<{|"''9' indexOf: aKeyboardEvent keyCharacter ifAbsent: [ ^true ]. + "Allow Control key in lieu of Alt+Shift for (, {, and double-quote." + left := ((Preferences cmdKeysInText and: [ aKeyboardEvent controlKeyPressed ]) + ifTrue: [ '({<{|""(' ] + ifFalse: ['([<{|"''(']) at: which. + right := ((Preferences cmdKeysInText and: [ aKeyboardEvent controlKeyPressed ]) + ifTrue: [ ')}>}|"")' ] + ifFalse: [')]>}|"'')']) at: which. - which := '([<{|"''' indexOf: aKeyboardEvent keyCharacter ifAbsent: [ ^true ]. - left := '([<{|"''' at: which. - right := ')]>}|"''' at: which. t := self text. ((startIndex > 1 and: [stopIndex <= t size]) and: [ (t at: startIndex-1) = left and: [(t at: stopIndex) = right]]) ifTrue: [ "already enclosed; strip off brackets" self selectFrom: startIndex-1 to: stopIndex. self replaceSelectionWith: oldSelection] ifFalse: [ "not enclosed; enclose by matching brackets" self replaceSelectionWith: (Text string: (String with: left), oldSelection string, (String with: right) attributes: emphasisHere). self selectFrom: startIndex+1 to: stopIndex]. ^true!

1 0

The Trunk: Morphic-cmm.568.mcz
by commits＠source.squeak.org 17 Aug '11

17 Aug '11

1 0

The Trunk: Morphic-cmm.568.mcz
by commits＠source.squeak.org 17 Aug '11

17 Aug '11

1 0

The Trunk: Collections-ul.454.mcz
by commits＠source.squeak.org 16 Aug '11

16 Aug '11

Levente Uzonyi uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ul.454.mcz ==================== Summary ==================== Name: Collections-ul.454 Author: ul Time: 9 August 2011, 1:58:09.614 pm UUID: 84c5cf1a-89c4-f643-a3ba-525df170e492 Ancestors: Collections-ul.453 - improved performance of String >> #unescapedPercents - improved performance of RWBinaryOrTextStream >> #upTo: - categorized most uncategorized methods of RWBinaryOrTextStream =============== Diff against Collections-ul.453 =============== Item was changed: + ----- Method: RWBinaryOrTextStream>>asBinaryOrTextStream (in category 'converting') ----- - ----- Method: RWBinaryOrTextStream>>asBinaryOrTextStream (in category 'as yet unclassified') ----- asBinaryOrTextStream ^ self! Item was changed: + ----- Method: RWBinaryOrTextStream>>ascii (in category 'accessing') ----- - ----- Method: RWBinaryOrTextStream>>ascii (in category 'as yet unclassified') ----- ascii isBinary := false! Item was changed: + ----- Method: RWBinaryOrTextStream>>binary (in category 'accessing') ----- - ----- Method: RWBinaryOrTextStream>>binary (in category 'as yet unclassified') ----- binary isBinary := true! Item was changed: + ----- Method: RWBinaryOrTextStream>>contents (in category 'accessing') ----- - ----- Method: RWBinaryOrTextStream>>contents (in category 'as yet unclassified') ----- contents "Answer with a copy of my collection from 1 to readLimit." | newArray | isBinary ifFalse: [^ super contents]. "String" readLimit := readLimit max: position. newArray := ByteArray new: readLimit. ^ newArray replaceFrom: 1 to: readLimit with: collection startingAt: 1.! Item was changed: + ----- Method: RWBinaryOrTextStream>>contentsOfEntireFile (in category 'accessing') ----- - ----- Method: RWBinaryOrTextStream>>contentsOfEntireFile (in category 'as yet unclassified') ----- contentsOfEntireFile "For compatibility with file streams." ^ self contents! Item was changed: + ----- Method: RWBinaryOrTextStream>>isBinary (in category 'testing') ----- - ----- Method: RWBinaryOrTextStream>>isBinary (in category 'as yet unclassified') ----- isBinary ^ isBinary! Item was changed: + ----- Method: RWBinaryOrTextStream>>next (in category 'accessing') ----- - ----- Method: RWBinaryOrTextStream>>next (in category 'as yet unclassified') ----- next | byte | ^ isBinary ifTrue: [byte := super next. byte ifNil: [nil] ifNotNil: [byte asciiValue]] ifFalse: [super next]. ! Item was changed: + ----- Method: RWBinaryOrTextStream>>next: (in category 'accessing') ----- - ----- Method: RWBinaryOrTextStream>>next: (in category 'as yet unclassified') ----- next: anInteger "Answer the next anInteger elements of my collection. Must override to get class right." | newArray | newArray := (isBinary ifTrue: [ByteArray] ifFalse: [ByteString]) new: anInteger. ^ self nextInto: newArray! Item was changed: + ----- Method: RWBinaryOrTextStream>>next:into:startingAt: (in category 'accessing') ----- - ----- Method: RWBinaryOrTextStream>>next:into:startingAt: (in category 'as yet unclassified') ----- next: n into: aCollection startingAt: startIndex "Read n objects into the given collection. Return aCollection or a partial copy if less than n elements have been read." "Overriden for efficiency" | max | max := (readLimit - position) min: n. aCollection replaceFrom: startIndex to: startIndex+max-1 with: collection startingAt: position+1. position := position + max. max = n ifTrue:[^aCollection] ifFalse:[^aCollection copyFrom: 1 to: startIndex+max-1]! Item was changed: + ----- Method: RWBinaryOrTextStream>>nextPut: (in category 'accessing') ----- - ----- Method: RWBinaryOrTextStream>>nextPut: (in category 'as yet unclassified') ----- nextPut: charOrByte ^super nextPut: charOrByte asCharacter! Item was changed: + ----- Method: RWBinaryOrTextStream>>readInto:startingAt:count: (in category 'accessing') ----- - ----- Method: RWBinaryOrTextStream>>readInto:startingAt:count: (in category 'as yet unclassified') ----- readInto: aCollection startingAt: startIndex count: n "Read n objects into the given collection. Return number of elements that have been read." "Overriden for efficiency" | max | max := (readLimit - position) min: n. aCollection replaceFrom: startIndex to: startIndex+max-1 with: collection startingAt: position+1. position := position + max. ^max! Item was changed: + ----- Method: RWBinaryOrTextStream>>reset (in category 'positioning') ----- - ----- Method: RWBinaryOrTextStream>>reset (in category 'as yet unclassified') ----- reset "Set the receiver's position to the beginning of the sequence of objects." super reset. isBinary ifNil: [isBinary := false]. collection class == ByteArray ifTrue: ["Store as String and convert as needed." collection := collection asString. isBinary := true]. ! Item was changed: + ----- Method: RWBinaryOrTextStream>>text (in category 'accessing') ----- - ----- Method: RWBinaryOrTextStream>>text (in category 'as yet unclassified') ----- text isBinary := false! Item was changed: ----- Method: RWBinaryOrTextStream>>upTo: (in category 'accessing') ----- + upTo: anObject + "fast version using indexOf:" + + | start end | + start := position+1. + isBinary + ifTrue: [ anObject isInteger ifFalse: [ ^self upToEnd ] ] + ifFalse: [ anObject isCharacter ifFalse: [ ^self upToEnd ] ]. + end := collection indexOf: anObject asCharacter startingAt: start ifAbsent: [ 0 ]. + "not present--return rest of the collection" + (end = 0 or: [end > readLimit]) ifTrue: [ ^self upToEnd ]. + "skip to the end and return the data passed over" + position := end. + ^((isBinary ifTrue: [ ByteArray ] ifFalse: [ String ]) new: end - start) + replaceFrom: 1 + to: end - start + with: collection + startingAt: start! - upTo: anObject - "Answer a subcollection from the current access position to the - occurrence (if any, but not inclusive) of anObject in the receiver. If - anObject is not in the collection, answer the entire rest of the receiver." - | newStream element species | - species := isBinary ifTrue:[ByteArray] ifFalse:[String]. - newStream := WriteStream on: (species new: 100). - [self atEnd or: [(element := self next) = anObject]] - whileFalse: [newStream nextPut: element]. - ^newStream contents! Item was changed: + ----- Method: RWBinaryOrTextStream>>upToEnd (in category 'accessing') ----- - ----- Method: RWBinaryOrTextStream>>upToEnd (in category 'as yet unclassified') ----- upToEnd "Must override to get class right." | newArray | newArray := (isBinary ifTrue: [ByteArray] ifFalse: [ByteString]) new: self size - self position. ^ self nextInto: newArray! Item was changed: ----- Method: String>>unescapePercents (in category 'converting') ----- unescapePercents + "decode %xx form. This is the opposite of #encodeForHTTP. Assume UTF-8 encoding by default." + + | unescaped | + unescaped := self unescapePercentsRaw. + ^[ unescaped utf8ToSqueak ] + on: Error + do: [ unescaped ]! - "decode %xx form. This is the opposite of #encodeForHTTP" - ^ self unescapePercentsWithTextEncoding: 'utf-8'.! Item was added: + ----- Method: String>>unescapePercentsRaw (in category 'converting') ----- + unescapePercentsRaw + "decode string including %XX form" + + | unescaped char asciiVal specialChars oldPos pos | + unescaped := ReadWriteStream on: String new. + specialChars := '+%' asCharacterSet. + oldPos := 1. + [pos := self indexOfAnyOf: specialChars startingAt: oldPos. + pos > 0] + whileTrue: [unescaped + nextPutAll: (self copyFrom: oldPos to: pos - 1). + char := self at: pos. + (char = $% + and: [pos + 2 <= self size]) + ifTrue: [asciiVal := (self at: pos + 1) asUppercase digitValue * 16 + (self at: pos + 2) asUppercase digitValue. + asciiVal > 255 + ifTrue: [^ self]. + unescaped + nextPut: (Character value: asciiVal). + pos := pos + 3. + pos <= self size + ifFalse: [char := nil]. + oldPos := pos] + ifFalse: [char = $+ + ifTrue: [unescaped nextPut: Character space] + ifFalse: [unescaped nextPut: char]. + oldPos := pos + 1]]. + oldPos <= self size + ifTrue: [unescaped + nextPutAll: (self copyFrom: oldPos to: self size)]. + ^unescaped contents! Item was added: + ----- Method: String>>unescapePercentsWithTextConverter: (in category 'converting') ----- + unescapePercentsWithTextConverter: aTextConverter + "decode string including %XX form" + + | unescaped | + unescaped := self unescapePercentsRaw. + ^[ unescaped convertFromWithConverter: aTextConverter ] + on: Error + do: ["the contents may be squeak-encoded" + unescaped ]! Item was changed: ----- Method: String>>unescapePercentsWithTextEncoding: (in category 'converting') ----- unescapePercentsWithTextEncoding: encodingName "decode string including %XX form" + + | converter | - | unescaped char asciiVal specialChars oldPos pos converter | - unescaped := ReadWriteStream on: String new. - specialChars := '+%' asCharacterSet. - oldPos := 1. - [pos := self indexOfAnyOf: specialChars startingAt: oldPos. - pos > 0] - whileTrue: [unescaped - nextPutAll: (self copyFrom: oldPos to: pos - 1). - char := self at: pos. - (char = $% - and: [pos + 2 <= self size]) - ifTrue: [asciiVal := (self at: pos + 1) asUppercase digitValue * 16 + (self at: pos + 2) asUppercase digitValue. - asciiVal > 255 - ifTrue: [^ self]. - unescaped - nextPut: (Character value: asciiVal). - pos := pos + 3. - pos <= self size - ifFalse: [char := nil]. - oldPos := pos] - ifFalse: [char = $+ - ifTrue: [unescaped nextPut: Character space] - ifFalse: [unescaped nextPut: char]. - oldPos := pos + 1]]. - oldPos <= self size - ifTrue: [unescaped - nextPutAll: (self copyFrom: oldPos to: self size)]. converter := (TextConverter newForEncoding: encodingName) + ifNil: [ TextConverter newForEncoding: nil ]. + ^self unescapePercentsWithTextConverter: converter! - ifNil: [TextConverter newForEncoding: nil]. - ^ [unescaped contents convertFromWithConverter: converter] - on: Error - do: ["the contents may be squeak-encoded" - unescaped contents]!

1 0

The Trunk: Collections-ul.454.mcz
by commits＠source.squeak.org 16 Aug '11

16 Aug '11

1 0

The Trunk: Collections-ul.454.mcz
by commits＠source.squeak.org 16 Aug '11

16 Aug '11

1 0

The Trunk: KernelTests-cmm.198.mcz
by commits＠source.squeak.org 16 Aug '11

16 Aug '11

Chris Muller uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-cmm.198.mcz ==================== Summary ==================== Name: KernelTests-cmm.198 Author: cmm Time: 15 August 2011, 9:30:58.161 pm UUID: 64f23ad0-eb40-407d-90e6-6e45a2b5611e Ancestors: KernelTests-nice.197 - Test for #makeUTC. =============== Diff against KernelTests-nice.197 =============== Item was removed: - ----- Method: DateTest>>testFromDifferentTimeZones (in category 'testing') ----- - testFromDifferentTimeZones - "Equal dates should compare equal regardless of which TimeZone they are created in." - | priorTz march31stLocal march31stOcean | - self deny: DateAndTime localTimeZone offset hours = -9. - priorTz := DateAndTime localTimeZone. - march31stLocal := Date today. - DateAndTime - localTimeZone: (TimeZone - offset: -9 hours - name: 'No Countries' - abbreviation: 'Ocean'). - march31stOcean := Date today. - DateAndTime localTimeZone: priorTz. - self assert: march31stLocal = march31stOcean. - DateAndTime localTimeZone offset hours > -9 - ifTrue: [self deny: march31stOcean > march31stLocal] - ifFalse: [self deny: march31stOcean > march31stLocal] ! Item was added: + ----- Method: DateTest>>testMakeUTC (in category 'testing') ----- + testMakeUTC + "Equal dates should compare equal regardless of which TimeZone + they are created in." + | priorTz march31stLocal march31stOcean | + "This test won't work in GMT-9, but nobody lives there." + self deny: DateAndTime localTimeZone offset hours = -9. + priorTz := DateAndTime localTimeZone. + march31stLocal := Date today. + DateAndTime + localTimeZone: (TimeZone + offset: -9 hours + name: 'No Countries' + abbreviation: 'Ocean'). + march31stOcean := Date today. + DateAndTime localTimeZone: priorTz. + self assert: march31stLocal makeUTC = march31stOcean makeUTC ; + deny: march31stOcean makeUTC > march31stLocal makeUTC ; + deny: march31stOcean makeUTC < march31stLocal makeUTC!

1 0

The Trunk: KernelTests-cmm.198.mcz
by commits＠source.squeak.org 16 Aug '11

16 Aug '11

1 0

The Trunk: KernelTests-cmm.198.mcz
by commits＠source.squeak.org 16 Aug '11

16 Aug '11

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages August 2011