Packages April 2010

packages@lists.squeakfoundation.org

1 participants
459 discussions

The Trunk: ShoutCore-ul.16.mcz
by commits＠source.squeak.org 29 Apr '10

29 Apr '10

Levente Uzonyi uploaded a new version of ShoutCore to project The Trunk: http://source.squeak.org/trunk/ShoutCore-ul.16.mcz ==================== Summary ==================== Name: ShoutCore-ul.16 Author: ul Time: 28 April 2010, 8:29:31.118 pm UUID: a8283288-564c-0b40-b752-8e7a6edaac20 Ancestors: ShoutCore-laza.15 - a few minor performance tweaks =============== Diff against ShoutCore-laza.15 =============== Item was changed: ----- Method: SHParserST80>>parseString (in category 'parse') ----- parseString | first c answer last | first := sourcePosition. answer := ''. + [(c := self currentChar) + ifNil: [ - [(c := self currentChar) isNil - ifTrue: [ self rangeType: #unfinishedString start: first - 1 end: source size. self error ": 'unfinished string'"]. + (c == $' + ifFalse: [answer := answer copyWith: c. true] + ifTrue: [false] - (c ~~ $' - ifTrue: [answer := answer copyWith: c. true] - ifFalse: [false] ) or: [ self peekChar == $' ifTrue: [ sourcePosition := sourcePosition + 1. answer := answer copyWith: $'. true] ifFalse: [false]] ] whileTrue: [sourcePosition := sourcePosition + 1]. last := sourcePosition. self nextChar. self scanPast: #string start: first - 1 end: last. ^answer! Item was changed: ----- Method: SHParserST80>>nextChar (in category 'scan') ----- nextChar sourcePosition := sourcePosition + 1. + ^source at: sourcePosition ifAbsent: $ ! - ^source at: sourcePosition ifAbsent: [$ ]! Item was changed: ----- Method: SHParserST80>>parseBinary (in category 'parse') ----- parseBinary | binary type | self parseUnary. [self isBinary] whileTrue: [ binary := currentToken. type := #binary. + (binary isEmpty or:[(Symbol lookup: binary) notNil]) - (binary isEmpty or:[Symbol hasInterned: binary ifTrue: [:sym | ]]) ifFalse:[ + type := (Symbol thatStartsCaseSensitive: binary skipping: nil) + ifNil: [#undefinedBinary] + ifNotNil:[#incompleteBinary]]. - type := (Symbol thatStartsCaseSensitive: binary skipping: nil) isNil - ifTrue: [#undefinedBinary] - ifFalse:[#incompleteBinary]]. self scanPast: type. self parseTerm. self parseUnary] ! Item was changed: ----- Method: SHParserST80>>parseKeyword (in category 'parse') ----- parseKeyword | keyword rangeIndices | self parseBinary. keyword := ''. rangeIndices := #(). [ [self isKeyword] whileTrue: [ keyword := keyword, currentToken. self rangeType: #keyword. "remember where this keyword token is in ranges" rangeIndices := rangeIndices copyWith: ranges size. self scanNext. self parseTerm. self parseBinary ] ] ensure: [ | type | "do this in an ensure so that it happens even if the errorBlock evaluates before getting here" "patch up the keyword tokens, so that incomplete and undefined ones look different" + (keyword isEmpty or:[(Symbol lookup: keyword) notNil]) - (keyword isEmpty or:[Symbol hasInterned: keyword ifTrue: [:sym | ]]) ifFalse:[ + type := (Symbol thatStartsCaseSensitive: keyword skipping: nil) + ifNil: [#undefinedKeyword] + ifNotNil:[#incompleteKeyword]. - type := (Symbol thatStartsCaseSensitive: keyword skipping: nil) isNil - ifTrue: [#undefinedKeyword] - ifFalse:[#incompleteKeyword]. rangeIndices do: [:i | (ranges at: i) type: type]]]! Item was changed: ----- Method: SHTextStyler>>monitor (in category 'private') ----- monitor + ^monitor ifNil: [monitor := Monitor new]! - monitor isNil - ifTrue: [monitor := Monitor new]. - ^monitor! Item was changed: ----- Method: SHParserST80>>parseUnary (in category 'parse') ----- parseUnary | unary type | [self isName] whileTrue: [ unary := currentToken. type := #unary. + (unary isEmpty or:[(Symbol lookup: unary) notNil]) - (unary isEmpty or:[Symbol hasInterned: unary ifTrue: [:sym | ]]) ifFalse:[ + type := (Symbol thatStartsCaseSensitive: unary skipping: nil) + ifNil: [#undefinedUnary] + ifNotNil:[#incompleteUnary]]. - type := (Symbol thatStartsCaseSensitive: unary skipping: nil) isNil - ifTrue: [#undefinedUnary] - ifFalse:[#incompleteUnary]]. self scanPast: type] ! Item was changed: ----- Method: SHParserST80>>parse: (in category 'parse') ----- parse: isAMethod "Parse the receiver's text. If isAMethod is true then treat text as a method, if false as an expression with no message pattern" self initializeInstanceVariables. sourcePosition := 1. arguments := Dictionary new. temporaries := Dictionary new. blockDepth := bracketDepth := 0. + ranges + ifNil: [ranges := OrderedCollection new: 100] + ifNotNil: [ranges reset]. - ranges isNil - ifTrue: [ranges := OrderedCollection new: 100] - ifFalse: [ranges reset]. errorBlock := [^false]. [self scanNext. isAMethod ifTrue: [ self parseMessagePattern. self parsePragmaSequence]. self parseMethodTemporaries. isAMethod ifTrue: [self parsePragmaSequence]. self parseStatementList. currentToken ifNotNil: [self error]] ensure:[errorBlock := nil]. ^true! Item was changed: ----- Method: SHParserST80>>parseSymbolString (in category 'parse') ----- parseSymbolString | first c last | first := sourcePosition. self nextChar. + [(c := self currentChar) + ifNil: [ - [(c := self currentChar) isNil - ifTrue: [ self rangeType: #unfinishedString start: first end: source size. self error ": 'unfinished string'"]. c ~~ $' or: [ self peekChar == $' ifTrue: [sourcePosition := sourcePosition + 1.true] ifFalse: [false]] ] whileTrue: [sourcePosition := sourcePosition + 1]. last := sourcePosition. self nextChar. self scanPast: #stringSymbol start: first - 1 end: last! Item was changed: ----- Method: SHParserST80>>scanNext (in category 'scan') ----- scanNext self scanWhitespace. currentTokenFirst := self currentChar. + currentTokenFirst + ifNil: [" end of input " - currentTokenFirst isNil - ifTrue: [" end of input " currentTokenFirst := $ . currentTokenSourcePosition := nil. currentToken := nil. ^nil]. currentTokenFirst isDigit ifTrue: [^self scanNumber]. currentTokenFirst isLetter ifTrue: [^self scanIdentifier]. ^self scanBinary! Item was changed: ----- Method: SHParserST80>>scanIdentifier (in category 'scan') ----- scanIdentifier | c start | start := sourcePosition. + [(c := self nextChar) isAlphaNumeric or: [c == $_ and: [self allowUnderscoreSelectors]]] whileTrue. - [(c := self nextChar) isAlphaNumeric or: [self allowUnderscoreSelectors and: [c == $_]]] whileTrue: []. (c == $: and: [(self isSelectorCharacter: self peekChar) not]) ifTrue: [self nextChar]. currentToken := source copyFrom: start to: sourcePosition - 1. currentTokenSourcePosition := start!

1 0

The Trunk: ShoutCore-ul.16.mcz
by commits＠source.squeak.org 29 Apr '10

29 Apr '10

1 0

The Trunk: ShoutCore-ul.16.mcz
by commits＠source.squeak.org 29 Apr '10

29 Apr '10

1 0

The Trunk: Tools-hmm.236.mcz
by commits＠source.squeak.org 29 Apr '10

29 Apr '10

Andreas Raab uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-hmm.236.mcz ==================== Summary ==================== Name: Tools-hmm.236 Author: hmm Time: 27 April 2010, 8:46:59.789 pm UUID: 283b99fb-15fd-45b6-81f0-49a6bb6bea15 Ancestors: Tools-ar.235 Display image files (graphics) in FileList =============== Diff against Tools-ar.235 =============== Item was added: + ----- Method: FileList>>stepTimeIn: (in category 'private') ----- + stepTimeIn: aWindow + ^500! Item was added: + ----- Method: FileList>>readGraphicContents (in category 'private') ----- + readGraphicContents + | form maxExtent ext | + form := Form fromFileNamed: self fullName. + maxExtent := lastGraphicsExtent := self availableGraphicsExtent. + ext := form extent. + (maxExtent notNil and: [form extent <= maxExtent]) ifFalse: [ + form := form magnify: form boundingBox by: (maxExtent x / form width min: maxExtent y / form height) asPoint smoothing: 3]. + contents := ('Image extent: ', ext printString) asText, + (String with: Character cr), + (Text string: ' ' + attribute: (TextFontReference toFont: + (FormSetFont new + fromFormArray: (Array with: form) + asciiStart: Character space asInteger + ascent: form height))). + brevityState := #graphic. + ^contents! Item was added: + ----- Method: FileList>>step (in category 'private') ----- + step + | ext | + brevityState = #graphic ifTrue: [ + ext := self availableGraphicsExtent. + ext = lastGraphicsExtent ifFalse: [ + lastGraphicsExtent := ext. + brevityState := #needToGetGraphic. + self changed: #contents]]! Item was added: + ----- Method: FileList>>availableGraphicsExtent (in category 'private') ----- + availableGraphicsExtent + self dependents do: [:each | + ((each isKindOf: PluggableTextMorph) and: [each getTextSelector == #contents]) ifTrue: [^each innerBounds extent - (6@22)]]. + ^nil! Item was added: + ----- Method: FileList>>isGraphicsFileSelected (in category 'private') ----- + isGraphicsFileSelected + ^fileName notNil and: [((self itemsForFile: self fullName) detect: [:each | each provider == Form and: [each selector == #importImage:]] ifNone: []) notNil]! Item was changed: ----- Method: FileList>>fileListIndex: (in category 'file list') ----- fileListIndex: anInteger "Select the file name having the given index, and display its contents." | item name | self okToChange ifFalse: [^ self]. listIndex := anInteger. listIndex = 0 ifTrue: [fileName := nil] ifFalse: [item := self fileNameFromFormattedItem: (list at: anInteger). (item endsWith: self folderString) ifTrue: ["remove [...] folder string and open the folder" name := item copyFrom: 1 to: item size - self folderString size. listIndex := 0. brevityState := #FileList. self addPath: name. name first = $^ ifTrue: [self directory: (ServerDirectory serverNamed: name allButFirst)] ifFalse: [volListIndex = 1 ifTrue: [name := name, directory slash]. self directory: (directory directoryNamed: name)]] ifFalse: [fileName := item]]. "open the file selected" + brevityState := self isGraphicsFileSelected + ifTrue: [#needToGetGraphic] + ifFalse: [#needToGetBrief].. - brevityState := #needToGetBrief. self changed: #fileListIndex. self changed: #contents. self updateButtonRow! Item was changed: ----- Method: FileList>>contents (in category 'private') ----- contents "Answer the contents of the file, reading it first if needed." "Possible brevityState values: FileList, fullFile, briefFile, needToGetFull, needToGetBrief, fullHex, briefHex, needToGetFullHex, needToGetBriefHex" (listIndex = 0) | (brevityState == #FileList) ifTrue: [^ self defaultContents]. "no file selected" brevityState == #fullFile ifTrue: [^ contents]. brevityState == #fullHex ifTrue: [^ contents]. brevityState == #briefFile ifTrue: [^ contents]. brevityState == #briefHex ifTrue: [^ contents]. + brevityState == #graphic ifTrue: [^ contents]. + brevityState == #needToGetGraphic ifTrue: [^self readGraphicContents]. + brevityState == #needToGetFullHex ifTrue: [^ self readContentsHex: false]. brevityState == #needToGetBriefHex ifTrue: [^ self readContentsHex: true]. brevityState == #needToGetFull ifTrue: [^ self readContentsBrief: false]. brevityState == #needToGetBrief ifTrue: [^ self readContentsBrief: true]. "default" (TextConverter allEncodingNames includes: brevityState) ifTrue: [ ^self readContentsAsEncoding: brevityState]. self halt: 'unknown state ' , brevityState printString! Item was changed: StringHolder subclass: #FileList + instanceVariableNames: 'fileName directory volList volListIndex list listIndex pattern sortMode brevityState directoryCache lastGraphicsExtent' - instanceVariableNames: 'fileName directory volList volListIndex list listIndex pattern sortMode brevityState directoryCache' classVariableNames: 'FileReaderRegistry RecentDirs' poolDictionaries: '' category: 'Tools-FileList'! !FileList commentStamp: 'nk 11/26/2002 11:52' prior: 0! I am model that can be used to navigate the host file system. By omitting the volume list, file list, and template panes from the view, I can also be used as the model for an editor on an individual file. The FileList now provides a registration mechanism to which any tools the filelist uses ***MUST*** register. This way it is possible to dynamically load or unload a new tool and have the FileList automatically updated. This change supports a decomposition of Squeak and removes a problem with dead reference to classes after a major shrink. Tools should implement the following methods (look for implementors in the image): #fileReaderServicesForFile:suffix: (appropriate services for given file, takes a file name and a lowercased suffix) #services (all provided services, to be displayed in full list) These methods both return a collection of SimpleServiceEntry instances. These contain a class, a menu label and a method selector having one argument. They may also provide separate button labels and description. The argument to the specified method will be a string representing the full name of a file when one is selected or the file list itself when there is no selected file. Tools must register with the FileList calling the class method #registerFileReader: when they load. They also must call #unregisterFileReader: when they unload. There is a testSuite called FileListTest that presents some examples. Stef (I do not like really this distinction passing always a file list could be better) Old Comments: FileLists can now see FTP servers anywhere on the net. In the volume list menu: fill in server info... Gives you a form to register a new ftp server you want to use. open server... Choose a server to connect to. local disk Go back to looking at your local volume. Still undone (you can contribute code): [ ] Using a Proxy server to get out through a firewall. What is the convention for proxy servers with FTP? [ ] Fill in the date and size info in the list of remote files. Allow sorting by it. New smarts needed in (ServerDirectory fileNameFormattedFrom:sizePad:sortMode:). [ ] Currently the FileList has no way to delete a directory. Since you can't select a directory without going into it, it would have to be deleting the current directory. Which would usually be empty.! Item was added: + ----- Method: FileList>>wantsSteps (in category 'private') ----- + wantsSteps + ^true!

1 0

The Trunk: Tools-hmm.236.mcz
by commits＠source.squeak.org 29 Apr '10

29 Apr '10

1 0

The Trunk: Tools-hmm.236.mcz
by commits＠source.squeak.org 29 Apr '10

29 Apr '10

1 0

The Trunk: ShoutCore-laza.15.mcz
by commits＠source.squeak.org 28 Apr '10

28 Apr '10

Alexander Lazarević uploaded a new version of ShoutCore to project The Trunk: http://source.squeak.org/trunk/ShoutCore-laza.15.mcz ==================== Summary ==================== Name: ShoutCore-laza.15 Author: laza Time: 28 April 2010, 6:17:22.553 pm UUID: 6bf30b06-94e6-410a-b3fe-fb8e3e9e82ff Ancestors: ShoutCore-ul.14 Make Shout parse source with respect to "allow underscore assignments/selectors" =============== Diff against ShoutCore-ul.14 =============== Item was changed: ----- Method: SHParserST80>>isAssignment (in category 'token testing') ----- isAssignment + ^self isAnsiAssignment or: [self allowUnderscoreAssignments and: [currentToken = '_']]! - ^currentToken = ':=' or: [currentToken = '_']! Item was added: + ----- Method: SHParserST80>>allowUnderscoreSelectors (in category 'private') ----- + allowUnderscoreSelectors + "Query class + preference" + ^(classOrMetaClass ifNotNil: [:c | c allowUnderscoreSelectors]) + ifNil: [Scanner prefAllowUnderscoreSelectors]! Item was added: + ----- Method: SHParserST80>>allowUnderscoreAssignments (in category 'private') ----- + allowUnderscoreAssignments + "Query class + preference" + ^(classOrMetaClass ifNotNil: [:c | c allowUnderscoreAssignments]) + ifNil: [Scanner prefAllowUnderscoreAssignments]! Item was changed: ----- Method: SHParserST80>>scanIdentifier (in category 'scan') ----- scanIdentifier | c start | start := sourcePosition. + [(c := self nextChar) isAlphaNumeric or: [self allowUnderscoreSelectors and: [c == $_]]] whileTrue: []. - [(c := self nextChar) isAlphaNumeric] whileTrue: []. (c == $: and: [(self isSelectorCharacter: self peekChar) not]) ifTrue: [self nextChar]. currentToken := source copyFrom: start to: sourcePosition - 1. currentTokenSourcePosition := start!

1 0

The Trunk: ShoutCore-laza.15.mcz
by commits＠source.squeak.org 28 Apr '10

28 Apr '10

1 0

The Trunk: ShoutCore-laza.15.mcz
by commits＠source.squeak.org 28 Apr '10

28 Apr '10

1 0

The Trunk: System-ul.322.mcz
by commits＠source.squeak.org 28 Apr '10

28 Apr '10

Levente Uzonyi uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ul.322.mcz ==================== Summary ==================== Name: System-ul.322 Author: ul Time: 28 April 2010, 11:48:58.524 am UUID: 7f03b95b-18a3-3544-b79c-58335116cbe1 Ancestors: System-jcg.321 - added two missing compatibility methods =============== Diff against System-jcg.321 =============== Item was added: + ----- Method: SmalltalkImage>>keyAtValue: (in category 'dictionary access') ----- + keyAtValue: value + "Answer the key that is the external name for the argument, value. If + there is none, answer nil." + + self deprecated: 'Use Smalltalk globals'. + ^globals keyAtValue: value + ! Item was added: + ----- Method: SystemDictionary>>hasSpecialSelector:ifTrueSetByte: (in category 'compatibility') ----- + hasSpecialSelector: aLiteral ifTrueSetByte: aBlock + + self deprecated: 'Use Smalltalk'. + ^Smalltalk hasSpecialSelector: aLiteral ifTrueSetByte: aBlock!

1 0

← Newer
1
2
3
4
5
6
7
...
46
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 April 2010