Packages September 2013

packages@lists.squeakfoundation.org

1 participants
423 discussions

The Trunk: Collections-cmm.531.mcz
by commits＠source.squeak.org 06 Sep '13

06 Sep '13

Chris Muller uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-cmm.531.mcz ==================== Summary ==================== Name: Collections-cmm.531 Author: cmm Time: 6 September 2013, 2:26:33.695 pm UUID: da0031c2-e1d3-4f49-a425-9808728e3f1a Ancestors: Collections-ul.530 - Remove redundant isVariableBinding override. - Characters can now be tested for isAscii. - Dictionary's and Set's made proxy-friendly. - Remove redundant isLiteral override. - Allow #asMutator to work for getter or setter selectors. =============== Diff against Collections-ul.530 =============== Item was removed: - ----- Method: Association>>isVariableBinding (in category 'testing') ----- - isVariableBinding - "Return true if I represent a literal variable binding" - ^true! Item was added: + ----- Method: Character>>isAscii (in category 'testing') ----- + isAscii + ^ value between: 0 and: 128! Item was changed: ----- Method: Dictionary>>keysSortedSafely (in category 'accessing') ----- keysSortedSafely "Answer a sorted Array containing the receiver's keys." + ^ self keys sort: + [ : x : y | x compareSafely: y ]! - - ^self keys sort: [ :x :y | - "Should really be use <obj, string, num> compareSafely..." - ((x isString and: [ y isString ]) - or: [ x isNumber and: [ y isNumber ] ]) - ifTrue: [ x < y ] - ifFalse: [ x class == y class - ifTrue: [ x printString < y printString ] - ifFalse: [ x class name < y class name ] ] ]. - ! Item was changed: ----- Method: Dictionary>>scanFor: (in category 'private') ----- scanFor: anObject "Scan the key array for the first slot containing either a nil (indicating an empty slot) or an element that matches anObject. Answer the index of that slot or raise an error if no slot is found. This method will be overridden in various subclasses that have different interpretations for matching elements." | index start | index := start := anObject hash \\ array size + 1. [ | element | + ((element := array at: index) == nil or: [ anObject = element key ]) - ((element := array at: index) == nil or: [ element key = anObject ]) ifTrue: [ ^index ]. (index := index \\ array size + 1) = start ] whileFalse. self errorNoFreeSpace! Item was added: + ----- Method: Number>>compareSafely: (in category '*collections') ----- + compareSafely: aNumber + "Override method to compare the receiver with aNumber to determine its position in a human-readable list without unnecessarily agitating proxies." + ^ self < aNumber! Item was added: + ----- Method: Object>>compareSafely: (in category '*collections') ----- + compareSafely: anObject + "Compare the receiver to anObject to determine its position in a human-readable list without unnecessarily agitating proxies." + ^ self class = anObject class + ifTrue: [ self printString < anObject printString ] + ifFalse: [ self class name < anObject class name ]! Item was changed: ----- Method: Set>>scanFor: (in category 'private') ----- scanFor: anObject "Scan the key array for the first slot containing either a nil (indicating an empty slot) or an element that matches anObject. Answer the index of that slot or raise an error if no slot is found. This method will be overridden in various subclasses that have different interpretations for matching elements." | index start | index := start := anObject hash \\ array size + 1. [ | element | + ((element := array at: index) == nil or: [ anObject = element enclosedSetElement ]) - ((element := array at: index) == nil or: [ element enclosedSetElement = anObject ]) ifTrue: [ ^index ]. (index := index \\ array size + 1) = start ] whileFalse. self errorNoFreeSpace! Item was added: + ----- Method: String>>asAscii (in category 'converting') ----- + asAscii + ^ self select: [ : each | each isAscii ]! Item was added: + ----- Method: String>>compareSafely: (in category '*collections') ----- + compareSafely: aString + "Compare the receiver to aString in a way that will not agitate proxies." + ^ self < aString! Item was changed: + ----- Method: String>>isLiteral (in category 'testing') ----- - ----- Method: String>>isLiteral (in category 'printing') ----- isLiteral + "Answer whether the receiver is a valid Smalltalk literal." + ^ true! - ^true! Item was changed: ----- Method: Symbol>>asMutator (in category 'converting') ----- asMutator + "Return a setter message from a getter message. For example, #name asMutator returns #name:" + ^ self last = $: + ifTrue: [ self ] + ifFalse: [ (self copyWith: $:) asSymbol ]! - "Return a setter message from a getter message. For example, - #name asMutator returns #name:" - ^ (self copyWith: $:) asSymbol! Item was removed: - ----- Method: Symbol>>isLiteral (in category 'testing') ----- - isLiteral - "Answer whether the receiver is a valid Smalltalk literal." - - ^ true! Item was added: + ----- Method: Symbol>>veryDeepCopy (in category 'copying') ----- + veryDeepCopy + "Overridden for performance." + ^ self!

1 0

The Trunk: Collections-cmm.531.mcz
by commits＠source.squeak.org 06 Sep '13

06 Sep '13

1 0

The Trunk: Collections-cmm.531.mcz
by commits＠source.squeak.org 06 Sep '13

06 Sep '13

1 0

The Trunk: Morphic-nice.679.mcz
by commits＠source.squeak.org 06 Sep '13

06 Sep '13

Nicolas Cellier uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-nice.679.mcz ==================== Summary ==================== Name: Morphic-nice.679 Author: nice Time: 6 September 2013, 2:16:42.752 am UUID: 791f0232-8938-44ec-9112-73377cb605d6 Ancestors: Morphic-topa.678 Avoid using Character tab asSymbol, if it does not make sense. =============== Diff against Morphic-topa.678 =============== Item was changed: ----- Method: TextEditor>>inOutdent:delta: (in category 'editing keys') ----- inOutdent: aKeyboardEvent delta: delta "Add/remove a tab at the front of every line occupied by the selection. Flushes typeahead. Derived from work by Larry Tesler back in December 1985. Now triggered by Cmd-L and Cmd-R. 2/29/96 sw" | realStart realStop lines startLine stopLine start stop adjustStart indentation numLines oldString newString newSize | "Operate on entire lines, but remember the real selection for re-highlighting later" realStart := self startIndex. realStop := self stopIndex - 1. "Special case a caret on a line of its own, including weird case at end of paragraph" (realStart > realStop and: [realStart < 2 or: [(paragraph string at: realStart - 1) == Character cr or: [(paragraph string at: realStart - 1) == Character lf]]]) ifTrue: [delta < 0 ifTrue: [morph flash] ifFalse: + [self replaceSelectionWith: Character tab asText. - [self replaceSelectionWith: Character tab asSymbol asText. self selectAt: realStart + 1]. ^true]. lines := paragraph lines. startLine := paragraph lineIndexOfCharacterIndex: realStart. "start on a real line, not a wrapped line" [startLine = 1 or: [CharacterSet crlf includes: (paragraph string at: (lines at: startLine-1) last)]] whileFalse: [startLine := startLine - 1]. stopLine := paragraph lineIndexOfCharacterIndex: (realStart max: realStop). start := (lines at: startLine) first. stop := (lines at: stopLine) last. "Pin the start of highlighting unless the selection starts a line" adjustStart := realStart > start. "Find the indentation of the least-indented non-blank line; never outdent more" indentation := (startLine to: stopLine) inject: 1000 into: [:m :l | m min: (paragraph indentationOfLineIndex: l ifBlank: [:tabs | 1000])]. indentation + delta <= 0 ifTrue: ["^false"]. numLines := stopLine + 1 - startLine. oldString := paragraph string copyFrom: start to: stop. newString := oldString species new: oldString size + ((numLines * delta) max: 0). "Do the actual work" newSize := 0. delta > 0 ifTrue: [| tabs | tabs := oldString species new: delta withAll: Character tab. oldString lineIndicesDo: [:startL :endWithoutDelimiters :endL | startL < endWithoutDelimiters ifTrue: [newString replaceFrom: 1 + newSize to: (newSize := newSize + delta) with: tabs startingAt: 1]. newString replaceFrom: 1 + newSize to: (newSize := 1 + newSize + endL - startL) with: oldString startingAt: startL]] ifFalse: [| tab | tab := Character tab. oldString lineIndicesDo: [:startL :endWithoutDelimiters :endL | | i | i := 0. [i + delta < 0 and: [ i + startL <= endWithoutDelimiters and: [(oldString at: i + startL) == tab]]] whileTrue: [i := i + 1]. newString replaceFrom: 1 + newSize to: (newSize := 1 + newSize + endL - (i + startL)) with: oldString startingAt: i + startL]]. newSize < newString size ifTrue: [newString := newString copyFrom: 1 to: newSize]. "Adjust the range that will be highlighted later" adjustStart ifTrue: [realStart := (realStart + delta) max: start]. realStop := realStop + newSize - oldString size. "Replace selection" self selectInvisiblyFrom: start to: stop. self replaceSelectionWith: newString asText. self selectFrom: realStart to: realStop. "highlight only the original range" ^ true!

1 0

The Trunk: Morphic-nice.679.mcz
by commits＠source.squeak.org 06 Sep '13

06 Sep '13

1 0

The Trunk: Morphic-nice.679.mcz
by commits＠source.squeak.org 06 Sep '13

06 Sep '13

1 0

The Trunk: Compiler-nice.266.mcz
by commits＠source.squeak.org 06 Sep '13

06 Sep '13

Nicolas Cellier uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-nice.266.mcz ==================== Summary ==================== Name: Compiler-nice.266 Author: nice Time: 6 September 2013, 1:53:58.652 am UUID: c5010a51-42a8-43cb-8fbe-809ec7f24da8 Ancestors: Compiler-fbs.265 Do not convert punctuation characters ( [ { } ] ) ; . ^ | asSymbol, just let the token be the Character, except in two cases: - inside a literal array - after a literal quote if prefAllowUnicharSymbol =============== Diff against Compiler-fbs.265 =============== Item was changed: ----- Method: Parser>>externalFunctionDeclaration (in category 'primitives') ----- externalFunctionDeclaration "Parse the function declaration for a call to an external library." | descriptorClass callType modifier retType externalName args argType module fn | descriptorClass := cue environment valueOf: #ExternalFunction ifAbsent: [^ false]. callType := descriptorClass callingConventionFor: here. callType == nil ifTrue:[^false]. [modifier := descriptorClass callingConventionModifierFor: token. modifier notNil] whileTrue: [self advance. callType := callType bitOr: modifier]. "Parse return type" self advance. retType := self externalType: descriptorClass. retType == nil ifTrue:[^self expected:'return type']. "Parse function name or index" externalName := here. (self match: #string) ifTrue:[externalName := externalName asSymbol] ifFalse:[(self match:#number) ifFalse:[^self expected:'function name or index']]. + (self match: #leftParenthesis) ifFalse:[^self expected:'argument list']. - (self matchToken: #'(') ifFalse:[^self expected:'argument list']. args := WriteStream on: Array new. + [self match: #rightParenthesis] whileFalse:[ - [here == #')'] whileFalse:[ argType := self externalType: descriptorClass. argType == nil ifTrue:[^self expected:'argument']. + argType isVoid & argType isPointerType not ifFalse:[args nextPut: argType]]. - argType isVoid & argType isPointerType not ifFalse:[args nextPut: argType]. - ]. - (self matchToken: #')') ifFalse:[^self expected:')']. (self matchToken: 'module:') ifTrue:[ module := here. (self match: #string) ifFalse:[^self expected: 'String']. module := module asSymbol]. Smalltalk at: #ExternalLibraryFunction ifPresent:[:xfn| fn := xfn name: externalName module: module callType: callType returnType: retType argumentTypes: args contents. + self allocateLiteral: fn]. - self allocateLiteral: fn. - ]. (self matchToken: 'error:') ifTrue: [| errorCodeVariable | errorCodeVariable := here. (hereType == #string or: [hereType == #word]) ifFalse:[^self expected: 'error code (a variable or string)']. self advance. self addPragma: (Pragma keyword: #primitive:error: arguments: (Array with: 120 with: errorCodeVariable)). fn ifNotNil: [fn setErrorCodeName: errorCodeVariable]] ifFalse: [self addPragma: (Pragma keyword: #primitive: arguments: #(120))]. + ^true! - ^true - ! Item was changed: ----- Method: Parser>>transformAVerticalBarIntoABinarySelector (in category 'scanning') ----- transformAVerticalBarIntoABinarySelector "Transform a vertical bar into a binary selector. Eventually aggregate a serie of immediately following vertical bars and a binary selector. Note that this aggregation cannot occur at scan time, because a pair of vertical bars can be encountered in two valid constructs: - either as an empty temporaries specification, - or as a local temporaries specification in a block of arity > 0" here := '|'. hereType := #binary. [tokenType == #verticalBar and: [hereMark + here size = mark]] whileTrue: [ + here := here , '|'. - here := here , $|. hereEnd := hereEnd + 1. self scanToken]. (tokenType == #binary and: [hereMark + here size = mark]) ifTrue: [ here := here asString , token. hereType := #binary. hereEnd := hereEnd + token size. self scanToken].! Item was changed: ----- Method: Scanner>>scanLitVec (in category 'expression types') ----- scanLitVec | s | s := WriteStream on: (Array new: 16). [tokenType == #rightParenthesis or: [tokenType == #doIt]] whileFalse: [tokenType == #leftParenthesis ifTrue: [self scanToken; scanLitVec] ifFalse: [(tokenType == #word or: [tokenType == #keyword or: [tokenType == #colon]]) ifTrue: [self scanLitWord. token == #true ifTrue: [token := true]. token == #false ifTrue: [token := false]. token == #nil ifTrue: [token := nil]] ifFalse: + [(token isCharacter and: [tokenType ~~ #character]) + ifTrue: [token := token asSymbol] + ifFalse: [(token == #- + and: [(self typeTableAt: hereChar) == #xDigit]) ifTrue: + [self scanToken. + token := token negated]]]]. - [(token == #- - and: [(self typeTableAt: hereChar) == #xDigit]) ifTrue: - [self scanToken. - token := token negated]]]. s nextPut: token. self scanToken]. token := s contents! Item was changed: ----- Method: Scanner>>scanToken (in category 'expression types') ----- scanToken [(tokenType := self typeTableAt: hereChar) == #xDelimiter] whileTrue: [self step]. "Skip delimiters fast, there almost always is one." mark := aheadChar == DoItCharacter ifTrue: [hereChar == DoItCharacter ifTrue: [source position + 1] ifFalse: [source position]] ifFalse: [source position - 1]. (tokenType at: 1) == $x "x as first letter" ifTrue: [self perform: tokenType "means perform to compute token & type"] + ifFalse: [token := self step "else just unique the first char"]. - ifFalse: [token := self step asSymbol "else just unique the first char"]. ^token! Item was changed: ----- Method: Scanner>>xLitQuote (in category 'multi-character scans') ----- xLitQuote "Symbols and vectors: #(1 (4 5) 2 3) #ifTrue:ifFalse: #'abc'." | start | start := mark. self step. "litQuote" self scanToken. tokenType == #leftParenthesis ifTrue: [self scanToken; scanLitVec. mark := start + 1. tokenType == #doIt ifTrue: [self offEnd: 'Unmatched parenthesis']] ifFalse: [tokenType == #leftBracket ifTrue: [self scanToken; scanLitByteVec. mark := start + 1. tokenType == #doIt ifTrue: [self offEnd: 'Unmatched bracket']] ifFalse: [(tokenType == #word or: [tokenType == #keyword or: [tokenType == #colon]]) ifTrue: [self scanLitWord] + ifFalse: [(tokenType == #string or: [ tokenType == #verticalBar ]) - ifFalse: [tokenType == #string ifTrue: [token := token asSymbol] + ifFalse: [tokenType == #binary + ifFalse: [(token isCharacter and: [tokenType ~~ #character and: [self class prefAllowUnicharSymbol]]) + ifTrue: [token := token asSymbol] - ifFalse: [(tokenType == #binary or: [ tokenType == #verticalBar ]) - ifFalse: [(token isCharacter and: [self class prefAllowUnicharSymbol]) - ifTrue: - [tokenType := Symbol. - token := Symbol with: token] ifFalse: [self notify: 'Invalid literal character' at: start + 1]]]]]]. mark := start. tokenType := #literal "#(Pen) #Pen #'Pen' - ##Pen - ###Pen "!

1 0

The Trunk: Compiler-nice.266.mcz
by commits＠source.squeak.org 06 Sep '13

06 Sep '13

1 0

The Trunk: Compiler-nice.266.mcz
by commits＠source.squeak.org 06 Sep '13

06 Sep '13

1 0

The Trunk: System-cmm.589.mcz
by commits＠source.squeak.org 05 Sep '13

05 Sep '13

Chris Muller uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-cmm.589.mcz ==================== Summary ==================== Name: System-cmm.589 Author: cmm Time: 5 September 2013, 4:57:36.276 pm UUID: f6746b55-2544-48d3-90a3-eac0668387a0 Ancestors: System-cmm.588 Make Nicolas happy. =============== Diff against System-cmm.588 =============== Item was changed: ----- Method: SystemNavigation>>browseAllStoresInto:from: (in category 'browse') ----- + browseAllStoresInto: varName from: aClass - browseAllStoresInto: varName from: aClass "Create and schedule a Message Set browser for all the receiver's methods or any methods of a subclass/superclass that refer to the instance variable name." "self new browseAllStoresInto: 'contents' from: Collection." ^ self + browseMessageList: + (self + allStoresInto: varName + from: aClass) , + ((aClass allClassVarNames includes: varName) + ifTrue: + [ self + allStoresInto: varName + from: aClass class ] + ifFalse: [ Array empty ]) - browseMessageList: (self allStoresInto: varName from: aClass), (self allStoresInto: varName from: aClass class) name: 'Stores into ' , varName autoSelect: varName!

1 0

← Newer
1
...
34
35
36
37
38
39
40
...
43
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 September 2013