Packages July 2011

packages@lists.squeakfoundation.org

1 participants
141 discussions

The Trunk: Tools-ul.365.mcz
by commits＠source.squeak.org 09 Jul '11

09 Jul '11

Levente Uzonyi uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ul.365.mcz ==================== Summary ==================== Name: Tools-ul.365 Author: ul Time: 9 July 2011, 4:20:52.211 pm UUID: 624e76fc-7a58-c94c-b93a-d33754c3371e Ancestors: Tools-fbs.364 A bit faster and cleaner MessageNames >> #computeSelectorListFromSearchString. =============== Diff against Tools-fbs.364 =============== Item was changed: ----- Method: MessageNames>>computeSelectorListFromSearchString (in category 'search') ----- computeSelectorListFromSearchString + "Compute selector list from search string. The searchString is a list of expressions separated by ;. Each expression is matched individually. An expression can be a simple string (same as *expression*), a string with double quotes (exact match) or a match expression (see String >> #match:)." + - "Compute selector list from search string" searchString := searchString asString copyWithout: $ . "?dubious?" + ^selectorList := Cursor wait showWhile: [ + (Array streamContents: [ :stream | + (searchString findBetweenSubStrs: ';') do: [ :selPat | + (selPat first = $" and: [ selPat last = $" and: [ selPat size > 2 ] ]) + ifTrue: [ + Symbol + hasInterned: (selPat copyFrom: 2 to: selPat size - 1) + ifTrue: [ :sym | stream nextPut: sym ] ] + ifFalse: [ + | raw n m | + n := selPat occurrencesOf: $*. + m := selPat occurrencesOf: $#. + raw := ((n > 0 or: [ m > 0 ]) and: [ selPat size > (n + m) ]) + ifTrue: [ Symbol selectorsMatching: selPat ] + ifFalse: [ Symbol selectorsContaining: selPat ]. + stream nextPutAll: raw ] ] ]) + sort: [ :x :y | x caseInsensitiveLessOrEqual: y ] ]! - selectorList := Cursor wait showWhile: - [| sorted | - sorted := SortedCollection sortBlock: [:x :y | x asLowercase <= y asLowercase]. - (searchString findBetweenSubStrs: ';') do: - [:selPat| | raw n m | - selPat size > 0 ifTrue: - [(selPat first = $" and: [selPat last = $" and: [selPat size > 2]]) - ifTrue: - [Symbol hasInterned: (selPat copyFrom: 2 to: selPat size - 1) ifTrue: [:sym| sorted add: sym]] - ifFalse: - [raw := (((n := selPat occurrencesOf: $*) > 0) - | ((m := selPat occurrencesOf: $#) > 0) - and: [selPat size > (n + m)]) - ifTrue: [Symbol selectorsMatching: selPat] - ifFalse: [Symbol selectorsContaining: selPat]. - sorted addAll: raw]]]. - sorted asArray]. - ^selectorList!

1 0

The Trunk: Tools-ul.365.mcz
by commits＠source.squeak.org 09 Jul '11

09 Jul '11

1 0

The Trunk: Tools-ul.365.mcz
by commits＠source.squeak.org 09 Jul '11

09 Jul '11

1 0

The Trunk: ShoutCore-eem.33.mcz
by commits＠source.squeak.org 08 Jul '11

08 Jul '11

Eliot Miranda uploaded a new version of ShoutCore to project The Trunk: http://source.squeak.org/trunk/ShoutCore-eem.33.mcz ==================== Summary ==================== Name: ShoutCore-eem.33 Author: eem Time: 8 July 2011, 1:37:59.893 pm UUID: fa382d6a-fb9c-441d-a078-56bf14069baf Ancestors: ShoutCore-nice.32 Parse error: keywords in FFI method tags/pragmas. =============== Diff against ShoutCore-nice.32 =============== Item was changed: ----- Method: SHParserST80>>parseExternalCall (in category 'parse') ----- parseExternalCall + [self scanNext. + ((Smalltalk at: #ExternalFunction) callingConventionModifierFor: currentToken) notNil] + whileTrue. - self scanNext. - self failUnless: currentToken notNil. self scanPast: #externalCallType. currentToken = '*' ifTrue: [self scanPast: #externalCallTypePointerIndicator]. currentTokenFirst isDigit ifTrue: [self scanPast: #integer] ifFalse: [ self failUnless: currentTokenFirst == $'. self parseString]. self failUnless: currentTokenFirst == $(. self scanPast: #leftParenthesis. + [currentTokenFirst ~= $)] - [currentTokenFirst ~~ $)] whileTrue: [ - self failUnless: currentToken notNil. self scanPast: #externalCallType. currentToken = '*' ifTrue: [self scanPast: #externalCallTypePointerIndicator]]. self scanPast: #rightParenthesis. currentToken = 'module:' ifTrue: [ self scanPast: #module. self failUnless: currentTokenFirst == $'. self parseString]. + currentToken = 'error:' + ifTrue: [ + self scanPast: #module. + currentTokenFirst == $' + ifTrue: [self parseString] + ifFalse: [self scanPast: #patternTempVar]]. self failUnless: currentToken = '>'. self scanPast: #primitiveOrExternalCallEnd!

1 0

The Trunk: ShoutCore-eem.33.mcz
by commits＠source.squeak.org 08 Jul '11

08 Jul '11

1 0

The Trunk: ShoutCore-eem.33.mcz
by commits＠source.squeak.org 08 Jul '11

08 Jul '11

1 0

The Trunk: Compiler-eem.211.mcz
by commits＠source.squeak.org 08 Jul '11

08 Jul '11

Eliot Miranda uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-eem.211.mcz ==================== Summary ==================== Name: Compiler-eem.211 Author: eem Time: 8 July 2011, 1:30:12.579 pm UUID: 500dbdbf-02ba-4414-a482-34f50dafbd38 Ancestors: Compiler-ul.210 Parse error: keyword in FFI pragmas/method tags. Requires FFI-Kernel-eem.24/FFI-Pools-eem.3. Fix BlockLocalTempCounter for all-return case statements. Make sure define class uses the non-meta-class. =============== Diff against Compiler-ul.210 =============== Item was changed: ----- Method: BlockLocalTempCounter>>doJoin (in category 'private') ----- doJoin scanner pc < blockEnd ifTrue: + [stackPointer := joinOffsets at: scanner pc ifAbsent: [scanner followingPc]] + + "the ifAbsent: handles a caseOf:otherwise: where all cases return, which results + in the branch around the otherwise being unreached. e.g. in the following + jumpTo: L2 + is unreached. + + | t | + t caseOf: { [nil] -> [^thisContext method abstractSymbolic] } + otherwise: ['Oh no Mr Bill!!'] + + pushTemp: 0 + pushConstant: nil + send: #= (1 arg) + jumpFalseTo: L1 + pushThisContext: + send: #method (0 args) + send: #abstractSymbolic (0 args) + returnTop + jumpTo: L2 + L1: + pushConstant: 'Oh no Mr Bill!!' + L2: + returnTop"! - [stackPointer := joinOffsets at: scanner pc]! Item was changed: ----- Method: Parser>>defineClass: (in category 'error correction') ----- defineClass: className "prompts the user to define a new class, asks for it's category, and lets the users edit further the definition" | sym cat def d2 | sym := className asSymbol. + cat := UIManager default request: 'Enter class category : ' initialAnswer: self encoder classEncoding theNonMetaClass category. - cat := UIManager default request: 'Enter class category : ' initialAnswer: self encoder classEncoding category. cat ifEmpty: [cat := 'Unknown']. def := 'Object subclass: #' , sym , ' instanceVariableNames: '''' classVariableNames: '''' poolDictionaries: '''' category: ''' , cat , ''''. d2 := UIManager default request: 'Edit class definition : ' initialAnswer: def. d2 ifEmpty: [d2 := def]. Compiler evaluate: d2. ^ encoder global: (Smalltalk globals associationAt: sym) name: sym! 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 callType retType externalName args argType module | descriptorClass := Smalltalk at: #ExternalFunction ifAbsent:[nil]. descriptorClass == nil ifTrue:[^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 matchToken: #'(') ifFalse:[^self expected:'argument list']. args := WriteStream on: Array new. [here == #')'] whileFalse:[ argType := self externalType: descriptorClass. argType == nil ifTrue:[^self expected:'argument']. argType isVoid & argType isPointerType not ifFalse:[args nextPut: argType]. ]. + (self matchToken: #')') ifFalse:[^self expected:')']. - (args position = self properties selector numArgs) ifFalse:[ - ^self expected: 'Matching number of arguments' - ]. - (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| - Smalltalk at: #ExternalLibraryFunction ifPresent:[:xfn| | fn | fn := xfn name: externalName module: module callType: callType returnType: retType argumentTypes: args contents. 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 + ! - self addPragma: (Pragma keyword: #primitive: arguments: #(120)). - ^true!

1 0

The Trunk: Compiler-eem.211.mcz
by commits＠source.squeak.org 08 Jul '11

08 Jul '11

1 0

The Trunk: Compiler-eem.211.mcz
by commits＠source.squeak.org 08 Jul '11

08 Jul '11

1 0

The Trunk: Tools-fbs.364.mcz
by commits＠source.squeak.org 08 Jul '11

08 Jul '11

Levente Uzonyi uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-fbs.364.mcz ==================== Summary ==================== Name: Tools-fbs.364 Author: fbs Time: 27 June 2011, 12:56:26.402 pm UUID: c881a91c-eaac-4a40-acfb-79fbe119558f Ancestors: Tools-fbs.363 Mantis #7648: when deselecting a class after a class-side method's been viewed, the selectedMessageName must be nil: you can't be viewing a method at this point! =============== Diff against Tools-fbs.363 =============== Item was changed: ----- Method: Browser>>selectClassNamed: (in category 'class list') ----- selectClassNamed: aSymbolOrString | className currentMessageCategoryName currentMessageName | + currentMessageCategoryName := [self selectedMessageCategoryName] on: Error do: [:ex| ex return: nil]. currentMessageName := [self selectedMessageName] on: Error do: [:ex| ex return: nil]. selectedClassName := aSymbolOrString ifNotNil: [ aSymbolOrString asSymbol ]. self setClassOrganizer. "Try to reselect the category and/or selector if the new class has them." selectedMessageCategoryName :=(self messageCategoryList includes: currentMessageCategoryName) ifTrue: [currentMessageCategoryName] ifFalse: [nil]. + selectedMessageName := (self messageList includes: currentMessageName) + ifTrue: [currentMessageName] + ifFalse: [nil]. - selectedMessageName := currentMessageName. self hasMessageSelected ifTrue: [self editSelection: #editMessage] ifFalse: [self hasMessageCategorySelected ifTrue: [self editSelection: #newMessage] ifFalse: [self classCommentIndicated ifTrue: [self editSelection: #editComment] ifFalse: [self editSelection: (self hasClassSelected not ifTrue: [(metaClassIndicated or: [ self hasSystemCategorySelected not ]) ifTrue: [#none] ifFalse: [#newClass]] ifFalse: [#editClass])]]]. contents := nil. self selectedClass isNil ifFalse: [className := self selectedClass name. (RecentClasses includes: className) ifTrue: [RecentClasses remove: className]. RecentClasses addFirst: className. RecentClasses size > 16 ifTrue: [RecentClasses removeLast]]. self changed: #classSelectionChanged. self changed: #classCommentText. self changed: #classListIndex. "update my selection" self changed: #messageCategoryList. self changed: #messageList. self changed: #relabel. self contentsChanged!

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 July 2011