Squeak-dev March 2013

squeak-dev@lists.squeakfoundation.org

73 participants
283 discussions

The Inbox: Tools-fbs.450.mcz
by commits＠source.squeak.org 04 Mar '13

04 Mar '13

Frank Shearar uploaded a new version of Tools to project The Inbox: http://source.squeak.org/inbox/Tools-fbs.450.mcz ==================== Summary ==================== Name: Tools-fbs.450 Author: fbs Time: 4 March 2013, 10:45:01.19 pm UUID: 416ef277-60a3-4dea-938f-8de92d1368e2 Ancestors: Tools-fbs.449 Transform callers of Utilities class >> #timeStampForMethod: to callers of CompiledMethod >> #timeStamp. =============== Diff against Tools-fbs.449 =============== Item was changed: ----- Method: MessageSet>>filterToCurrentAuthor (in category 'filtering') ----- filterToCurrentAuthor "Filter down only to messages with my initials as most recent author" self filterFrom: [:aClass :aSelector | | aMethod aTimeStamp | (aClass notNil and: [aSelector notNil]) and: [aMethod := aClass compiledMethodAt: aSelector ifAbsent: [nil]. aMethod notNil and: + [(aTimeStamp := aMethod timeStamp) notNil and: - [(aTimeStamp := Utilities timeStampForMethod: aMethod) notNil and: [aTimeStamp beginsWith: Utilities authorInitials]]]]! Item was changed: ----- Method: MessageSet>>filterToNotCurrentAuthor (in category 'filtering') ----- filterToNotCurrentAuthor "Filter down only to messages not stamped with my initials" self filterFrom: [:aClass :aSelector | | aTimeStamp aMethod | (aClass notNil and: [aSelector notNil]) and: [aMethod := aClass compiledMethodAt: aSelector ifAbsent: [nil]. aMethod notNil and: + [(aTimeStamp := aMethod timeStamp) isNil or: - [(aTimeStamp := Utilities timeStampForMethod: aMethod) isNil or: [(aTimeStamp beginsWith: Utilities authorInitials) not]]]]! Item was changed: ----- Method: StringHolder>>timeStamp (in category '*Tools') ----- timeStamp "Answer the time stamp for the chosen class and method, if any, else an empty string" | selector aMethod | (selector := self selectedMessageName) ifNotNil: [self selectedClassOrMetaClass ifNil: [^ String new] ifNotNil: [aMethod := self selectedClassOrMetaClass compiledMethodAt: selector ifAbsent: [nil]. + aMethod ifNotNil: [^ aMethod timeStamp]]]. - aMethod ifNotNil: [^ Utilities timeStampForMethod: aMethod]]]. ^ String new!

1 0

Utilities class >> timeStampForMethod: inutile?
by Frank Shearar 04 Mar '13

04 Mar '13

Utilities class >> timeStampForMethod: 's entire body is ^ method timeStamp This method's in System, and CompiledMethod is in Kernel. Transforming "Utilities timeStampForMethod: foo" to "foo timeStamp" removes a method from the system (and causes that package to lose a dependency on System and gain one to Kernel) without losing anything, so seems to me a good idea. Am I missing anything? I've saved a submission to the Inbox; please take a look and let me know if this method does actually do anything useful. Thanks! frank

1 0

The Inbox: System-fbs.517.mcz
by commits＠source.squeak.org 04 Mar '13

04 Mar '13

Frank Shearar uploaded a new version of System to project The Inbox: http://source.squeak.org/inbox/System-fbs.517.mcz ==================== Summary ==================== Name: System-fbs.517 Author: fbs Time: 4 March 2013, 10:44:38.221 pm UUID: 33c1ed01-a761-41ed-8dd8-f4abf26395b3 Ancestors: System-fbs.516 Transform callers of Utilities class >> #timeStampForMethod: to callers of CompiledMethod >> #timeStamp. =============== Diff against System-fbs.516 =============== Item was changed: ----- Method: ChangeSet>>methodsWithInitialsOtherThan: (in category 'moving changes') ----- methodsWithInitialsOtherThan: myInits "Return a collection of method refs whose author appears to be different from the given one" | slips | slips := OrderedCollection new. self changedClasses do: [:aClass | (self methodChangesAtClass: aClass name) associationsDo: [:mAssoc | | aTimeStamp method | (#(remove addedThenRemoved) includes: mAssoc value) ifFalse: [method := aClass compiledMethodAt: mAssoc key ifAbsent: [nil]. method ifNotNil: + [((aTimeStamp := method timeStamp) notNil and: - [((aTimeStamp := Utilities timeStampForMethod: method) notNil and: [(aTimeStamp beginsWith: myInits) not]) ifTrue: [slips add: aClass name , ' ' , mAssoc key]]]]]. ^ slips "Smalltalk browseMessageList: (ChangeSet current methodsWithInitialsOtherThan: 'sw') name: 'authoring problems'"! Item was changed: ----- Method: ImageSegment>>writeForExportWithSources:inDirectory: (in category 'read/write segment') ----- writeForExportWithSources: fName inDirectory: aDirectory "Write the segment on the disk with all info needed to reconstruct it in a new image. For export. Out pointers are encoded as normal objects on the disk. Append the source code of any classes in roots. Target system will quickly transfer the sources to its changes file." "this is the old version which I restored until I solve the gzip problem" | fileStream temp tempFileName zipper allClassesInRoots classesToWriteEntirely methodsWithSource | state = #activeCopy ifFalse: [self error: 'wrong state']. (fName includes: $.) ifFalse: [ ^ self inform: 'Please use ''.pr'' or ''.extSeg'' at the end of the file name'.]. temp := endMarker. endMarker := nil. tempFileName := aDirectory nextNameFor: 'SqProject' extension: 'temp'. zipper := [ ProgressNotification signal: '3:uncompressedSaveComplete'. (aDirectory oldFileNamed: tempFileName) compressFile. "makes xxx.gz" aDirectory rename: (tempFileName, FileDirectory dot, 'gz') toBe: fName. aDirectory deleteFileNamed: tempFileName ifAbsent: [] ]. fileStream := aDirectory newFileNamed: tempFileName. fileStream fileOutClass: nil andObject: self. "remember extra structures. Note class names." endMarker := temp. "append sources" allClassesInRoots := arrayOfRoots select: [:cls | cls isKindOf: Behavior]. classesToWriteEntirely := allClassesInRoots select: [ :cls | cls theNonMetaClass isSystemDefined]. methodsWithSource := OrderedCollection new. allClassesInRoots do: [ :cls | (classesToWriteEntirely includes: cls) ifFalse: [ cls selectorsAndMethodsDo: [ :sel :meth | meth sourcePointer = 0 ifFalse: [methodsWithSource add: {cls. sel. meth}]. ]. ]. ]. (classesToWriteEntirely isEmpty and: [methodsWithSource isEmpty]) ifTrue: [zipper value. ^ self]. fileStream reopen; setToEnd. fileStream nextPutAll: '\\!!ImageSegment new!!\\' withCRs. methodsWithSource do: [ :each | fileStream nextPut: $!!. "try to pacify ImageSegment>>scanFrom:" fileStream nextChunkPut: 'RenamedClassSourceReader formerClassName: ', each first name printString,' methodsFor: ', (each first organization categoryOfElement: each second) asString printString, + ' stamp: ',(each third timeStamp) printString; cr. - ' stamp: ',(Utilities timeStampForMethod: each third) printString; cr. fileStream nextChunkPut: (each third getSourceFor: each second in: each first) asString. fileStream nextChunkPut: ' '; cr. ]. classesToWriteEntirely do: [:cls | cls isMeta ifFalse: [fileStream nextPutAll: (cls name, ' category: ''', cls category, '''.!!'); cr; cr]. cls organization putCommentOnFile: fileStream numbered: 0 moveSource: false forClass: cls. "does nothing if metaclass" cls organization categories do: [:heading | cls fileOutCategory: heading on: fileStream moveSource: false toFile: 0]]. "no class initialization -- it came in as a real object" fileStream close. zipper value.! Item was changed: ----- Method: ImageSegment>>writeForExportWithSources:inDirectory:changeSet: (in category 'read/write segment') ----- writeForExportWithSources: fName inDirectory: aDirectory changeSet: aChangeSetOrNil "Write the segment on the disk with all info needed to reconstruct it in a new image. For export. Out pointers are encoded as normal objects on the disk. Append the source code of any classes in roots. Target system will quickly transfer the sources to its changes file." "Files out a changeSet first, so that a project can contain classes that are unique to the project." | fileStream temp tempFileName zipper allClassesInRoots classesToWriteEntirely methodsWithSource | state = #activeCopy ifFalse: [self error: 'wrong state']. (fName includes: $.) ifFalse: [ ^ self inform: 'Please use ''.pr'' or ''.extSeg'' at the end of the file name'.]. temp := endMarker. endMarker := nil. tempFileName := aDirectory nextNameFor: 'SqProject' extension: 'temp'. zipper := [ Preferences debugPrintSpaceLog ifTrue:[ fileStream := aDirectory newFileNamed: (fName copyFrom: 1 to: (fName lastIndexOf: $.)), 'space'. self printSpaceAnalysisOn: fileStream. fileStream close]. ProgressNotification signal: '3:uncompressedSaveComplete'. (aDirectory oldFileNamed: tempFileName) compressFile. "makes xxx.gz" aDirectory rename: (tempFileName, FileDirectory dot, 'gz') toBe: fName. aDirectory deleteFileNamed: tempFileName ifAbsent: [] ]. fileStream := aDirectory newFileNamed: tempFileName. fileStream fileOutChangeSet: aChangeSetOrNil andObject: self. "remember extra structures. Note class names." endMarker := temp. "append sources" allClassesInRoots := arrayOfRoots select: [:cls | cls isKindOf: Behavior]. classesToWriteEntirely := allClassesInRoots select: [ :cls | cls theNonMetaClass isSystemDefined]. methodsWithSource := OrderedCollection new. allClassesInRoots do: [ :cls | (classesToWriteEntirely includes: cls) ifFalse: [ cls selectorsAndMethodsDo: [ :sel :meth | meth sourcePointer = 0 ifFalse: [methodsWithSource add: {cls. sel. meth}]. ]. ]. ]. (classesToWriteEntirely isEmpty and: [methodsWithSource isEmpty]) ifTrue: [zipper value. ^ self]. fileStream reopen; setToEnd. fileStream nextPutAll: '\\!!ImageSegment new!!\\' withCRs. methodsWithSource do: [ :each | fileStream nextPut: $!!. "try to pacify ImageSegment>>scanFrom:" fileStream nextChunkPut: 'RenamedClassSourceReader formerClassName: ', each first name printString,' methodsFor: ', (each first organization categoryOfElement: each second) asString printString, + ' stamp: ',(each third timeStamp) printString; cr. - ' stamp: ',(Utilities - timeStampForMethod: each third) printString; cr. fileStream nextChunkPut: (each third getSourceFor: each second in: each first) asString. fileStream nextChunkPut: ' '; cr. ]. classesToWriteEntirely do: [:cls | cls isMeta ifFalse: [fileStream nextPutAll: (cls name, ' category: ''', cls category, '''.!!'); cr; cr]. cls organization putCommentOnFile: fileStream numbered: 0 moveSource: false forClass: cls. "does nothing if metaclass" cls organization categories do: [:heading | cls fileOutCategory: heading on: fileStream moveSource: false toFile: 0]]. "no class initialization -- it came in as a real object" fileStream close. zipper value. ! Item was changed: ----- Method: ImageSegment>>writeForExportWithSourcesGZ:inDirectory: (in category 'read/write segment') ----- writeForExportWithSourcesGZ: fName inDirectory: aDirectory "Write the segment on the disk with all info needed to reconstruct it in a new image. For export. Out pointers are encoded as normal objects on the disk. Append the source code of any classes in roots. Target system will quickly transfer the sources to its changes file." "this is the gzipped version which I have temporarily suspended until I can get resolve the problem with forward references tring to reposition the stream - RAA 11 june 2000" | fileStream temp allClassesInRoots classesToWriteEntirely methodsWithSource | state = #activeCopy ifFalse: [self error: 'wrong state']. (fName includes: $.) ifFalse: [ ^ self inform: 'Please use ''.pr'' or ''.extSeg'' at the end of the file name'.]. temp := endMarker. endMarker := nil. fileStream := GZipSurrogateStream newFileNamed: fName inDirectory: aDirectory. fileStream fileOutClass: nil andObject: self. "remember extra structures. Note class names." endMarker := temp. "append sources" allClassesInRoots := arrayOfRoots select: [:cls | cls isKindOf: Behavior]. classesToWriteEntirely := allClassesInRoots select: [ :cls | cls theNonMetaClass isSystemDefined]. methodsWithSource := OrderedCollection new. allClassesInRoots do: [ :cls | (classesToWriteEntirely includes: cls) ifFalse: [ cls selectorsAndMethodsDo: [ :sel :meth | meth sourcePointer = 0 ifFalse: [methodsWithSource add: {cls. sel. meth}]. ]. ]. ]. (classesToWriteEntirely isEmpty and: [methodsWithSource isEmpty]) ifTrue: [ fileStream reallyClose. "since #close is ignored" ^ self ]. "fileStream reopen; setToEnd." "<--not required with gzipped surrogate stream" fileStream nextPutAll: '\\!!ImageSegment new!!\\' withCRs. methodsWithSource do: [ :each | fileStream nextPut: $!!. "try to pacify ImageSegment>>scanFrom:" fileStream nextChunkPut: 'RenamedClassSourceReader formerClassName: ', each first name printString,' methodsFor: ', (each first organization categoryOfElement: each second) asString printString, + ' stamp: ',(each third timeStamp) printString; cr. - ' stamp: ',(Utilities timeStampForMethod: each third) printString; cr. fileStream nextChunkPut: (each third getSourceFor: each second in: each first) asString. fileStream nextChunkPut: ' '; cr. ]. classesToWriteEntirely do: [:cls | cls isMeta ifFalse: [fileStream nextPutAll: (cls name, ' category: ''', cls category, '''.!!'); cr; cr]. cls organization putCommentOnFile: fileStream numbered: 0 moveSource: false forClass: cls. "does nothing if metaclass" cls organization categories do: [:heading | cls fileOutCategory: heading on: fileStream moveSource: false toFile: 0]]. "no class initialization -- it came in as a real object" fileStream reallyClose. "since #close is ignored" ! Item was changed: ----- Method: Utilities class>>doesMethod:forClass:bearInitials: (in category 'miscellaneous') ----- doesMethod: aSelector forClass: aClass bearInitials: initials "Answer whether a method bears the given initials at the head of its time stamp" | aTimeStamp implementingClass aMethod | implementingClass := aClass whichClassIncludesSelector: aSelector. implementingClass ifNil: [^ false]. (aMethod := implementingClass compiledMethodAt: aSelector) ifNil: [^ false]. + ^ (aTimeStamp := aMethod timeStamp) notNil and: - ^ (aTimeStamp := self timeStampForMethod: aMethod) notNil and: [aTimeStamp beginsWith: initials]! Item was changed: ----- Method: Utilities class>>methodsWithInitials: (in category 'identification') ----- methodsWithInitials: targetInitials "Based on a do-it contributed to the Squeak mailing list by Göran Hultgen: Browse methods whose initials (in the time-stamp, as logged to disk) match the given initials. Print out the complete time-stamp table to the Transcript. Answer a list of (initials -> count) associations. CAUTION: It may take several minutes for this to complete." "Time millisecondsToRun: [Utilities methodsWithInitials: 'bf']" | initials timeStamp allSubmitters | initials := ''. timeStamp := ''. allSubmitters := Bag new. self systemNavigation browseAllSelect: [:cm | + timeStamp := cm timeStamp. - timeStamp := Utilities timeStampForMethod: cm. initials := timeStamp isEmpty ifTrue: [''] ifFalse: [timeStamp substrings first]. initials := initials isEmpty ifTrue: ['<no time stamp>'] ifFalse: [initials first isDigit ifTrue: ['<date>'] ifFalse: [initials]]. allSubmitters add: initials. (initials = targetInitials)] name: ('Methods with initials ', targetInitials) autoSelect: nil. allSubmitters sortedCounts do: [:elem | Transcript cr; show: elem asString]. ^ allSubmitters ! Item was removed: - ----- Method: Utilities class>>timeStampForMethod: (in category 'miscellaneous') ----- - timeStampForMethod: method - "Answer the authoring time-stamp for the given method, retrieved from the sources or changes file. Answer the empty string if no time stamp is available." - "Utilities timeStampForMethod: (Utilities class compiledMethodAt: #timeStampForMethod:)" - - ^ method timeStamp!

1 0

The Trunk: EToys-fbs.92.mcz
by commits＠source.squeak.org 04 Mar '13

04 Mar '13

Frank Shearar uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-fbs.92.mcz ==================== Summary ==================== Name: EToys-fbs.92 Author: fbs Time: 4 March 2013, 10:22:27.2 pm UUID: b7eb5212-69a0-4f19-ada2-cb716e65a9f5 Ancestors: EToys-nice.91 All this method's senders are in the Etoys package, so it almost certainly belongs in the Etoys package. =============== Diff against EToys-nice.91 =============== Item was added: + ----- Method: Utilities class>>getterSelectorFor: (in category '*Etoys') ----- + getterSelectorFor: identifier + "Answer the corresponding getter. Two idiosyncratic vectorings herein... " + + "Utilities getterSelectorFor: #elvis" + + | aSymbol | + (aSymbol := identifier asSymbol) == #isOverColor: ifTrue: [^ #seesColor:]. + aSymbol == #copy ifTrue: [^ #getNewClone]. + + ^ ('get', (identifier asString capitalized)) asSymbol!

1 0

The Trunk: System-fbs.516.mcz
by commits＠source.squeak.org 04 Mar '13

04 Mar '13

Frank Shearar uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-fbs.516.mcz ==================== Summary ==================== Name: System-fbs.516 Author: fbs Time: 4 March 2013, 10:21:47.905 pm UUID: d3eb929e-b62e-4856-80fd-ae702fa890fc Ancestors: System-nice.515 All this method's senders are in the Etoys package, so it almost certainly belongs in the Etoys package. =============== Diff against System-nice.515 =============== Item was removed: - ----- Method: Utilities class>>getterSelectorFor: (in category 'miscellaneous') ----- - getterSelectorFor: identifier - "Answer the corresponding getter. Two idiosyncratic vectorings herein... " - - "Utilities getterSelectorFor: #elvis" - - | aSymbol | - (aSymbol := identifier asSymbol) == #isOverColor: ifTrue: [^ #seesColor:]. - aSymbol == #copy ifTrue: [^ #getNewClone]. - - ^ ('get', (identifier asString capitalized)) asSymbol!

1 0

reading an writing of wav audio files
by Herbert König 04 Mar '13

04 Mar '13

Hi, has anyone extended Squeaks methods for reading and writing wav files so they can handle 24 bit integer and 32 bit float audio samples? I'm aware of AbstractSound's capabilities re wav files. Thanks, Herbert

3 4

The Trunk: Kernel-bf.744.mcz
by commits＠source.squeak.org 04 Mar '13

04 Mar '13

Bert Freudenberg uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-bf.744.mcz ==================== Summary ==================== Name: Kernel-bf.744 Author: bf Time: 4 March 2013, 3:25:12.024 pm UUID: e3c35ac4-6571-4bcc-86d4-ccb613a8e631 Ancestors: Kernel-nice.743 Sanitize Time class>>readFrom: to not read beyond the time. Use that to sanitize DateAndTime class>>readFrom:, too, avoiding the only known use of PositionableStream>>last. Time tests are still green. =============== Diff against Kernel-nice.743 =============== Item was changed: ----- Method: DateAndTime class>>readFrom: (in category 'squeak protocol') ----- readFrom: aStream | offset date time ch | date := Date readFrom: aStream. [aStream peek isDigit] whileFalse: [aStream next]. time := Time readFrom: aStream. + (aStream atEnd or: [('+-Z' includes: aStream peek) not]) + ifTrue: [offset := self localOffset] + ifFalse: [(aStream peekFor: $Z) + ifTrue: [offset := Duration zero] + ifFalse: [ + ch := aStream next. + ch = $+ ifTrue: [ch := Character space]. + offset := Duration fromString: ch asString, '0:', aStream upToEnd, ':0']]. - aStream atEnd - ifTrue: [ (aStream last = $Z) ifTrue: [offset := Duration zero] ifFalse: [ offset := self localOffset ]] - ifFalse: [ - ch := aStream next. - ch = $+ ifTrue: [ch := Character space]. - offset := Duration fromString: ch asString, '0:', aStream upToEnd, ':0']. - ^ self year: date year month: date monthIndex day: date dayOfMonth hour: time hour minute: time minute second: time second nanoSecond: time nanoSecond offset: offset " '-1199-01-05T20:33:14.321-05:00' asDateAndTime ' 2002-05-16T17:20:45.1+01:01' asDateAndTime ' 2002-05-16T17:20:45.02+01:01' asDateAndTime ' 2002-05-16T17:20:45.003+01:01' asDateAndTime ' 2002-05-16T17:20:45.0004+01:01' asDateAndTime ' 2002-05-16T17:20:45.00005' asDateAndTime ' 2002-05-16T17:20:45.000006+01:01' asDateAndTime ' 2002-05-16T17:20:45.0000007+01:01' asDateAndTime ' 2002-05-16T17:20:45.00000008-01:01' asDateAndTime ' 2002-05-16T17:20:45.000000009+01:01' asDateAndTime ' 2002-05-16T17:20:45.0000000001+01:01' asDateAndTime ' 2002-05-16T17:20' asDateAndTime ' 2002-05-16T17:20:45' asDateAndTime ' 2002-05-16T17:20:45+01:57' asDateAndTime ' 2002-05-16T17:20:45-02:34' asDateAndTime ' 2002-05-16T17:20:45+00:00' asDateAndTime ' 1997-04-26T01:02:03+01:02:3' asDateAndTime "! Item was changed: ----- Method: Time class>>readFrom: (in category 'smalltalk-80') ----- readFrom: aStream "Read a Time from the stream in the form: <hour>:<minute>:<second> <am/pm> <minute>, <second> or <am/pm> may be omitted. e.g. 1:59:30 pm; 8AM; 15:30" | hour minute second ampm nanos nanosBuffer | hour := Integer readFrom: aStream. minute := 0. second := 0. nanosBuffer := '000000000' copy. nanos := WriteStream on: nanosBuffer. (aStream peekFor: $:) ifTrue: [ minute := Integer readFrom: aStream. (aStream peekFor: $:) ifTrue: [ + second := Integer readFrom: aStream. - second := Integer readFrom: aStream]. (aStream peekFor: $.) ifTrue: [ [aStream atEnd not and: [aStream peek isDigit]] + whileTrue: [nanos nextPut: aStream next]]]]. - whileTrue: [nanos nextPut: aStream next]]]. aStream skipSeparators. + (aStream atEnd not and: ['PApa' includes: aStream peek]) ifTrue: - (aStream atEnd not and: [aStream peek isLetter]) ifTrue: [ampm := aStream next asLowercase. + (ampm = $p and: [hour < 12]) ifTrue: [hour := hour + 12]. - - (ampm = $p and: [hour < 12]) ifTrue: [hour := hour + 12]. (ampm = $a and: [hour = 12]) ifTrue: [hour := 0]. + (aStream peekFor: $m) ifFalse: [aStream peekFor: $M ]]. - - (aStream peekFor: $m) ifFalse: [aStream peekFor: $M ]]. ^ self hour: hour minute: minute second: second nanoSecond: nanosBuffer asInteger "Time readFrom: (ReadStream on: '2:23:09 pm')"!

1 0

Re: [squeak-dev] The Trunk: Collections-bf.502.mcz
by Levente Uzonyi 04 Mar '13

04 Mar '13

The last build on CI server showed that #last is still being used from many places. While it might be ambiguous in PositionableStream, we need an alternative in ReadStream. Levente On Sat, 2 Mar 2013, commits(a)source.squeak.org wrote: > Bert Freudenberg uploaded a new version of Collections to project The Trunk: > http://source.squeak.org/trunk/Collections-bf.502.mcz > > ==================== Summary ==================== > > Name: Collections-bf.502 > Author: bf > Time: 2 March 2013, 1:45:38.248 pm > UUID: 87a84004-6bba-4930-acf3-a86574e1f415 > Ancestors: Collections-fbs.501 > > Sundry changes: > * deal with "[:" and "{}" in String>>findSelector > * process numeric entities in String>>asUnHtml > * remove PositionableStream>>last (unused, buggy) > > =============== Diff against Collections-fbs.501 =============== > > Item was removed: > - ----- Method: PositionableStream>>last (in category 'accessing') ----- > - last > - "Return the final element in the receiver" > - > - ^ collection at: position! > > Item was changed: > ----- Method: String>>asUnHtml (in category 'converting') ----- > asUnHtml > "Strip out all Html stuff (commands in angle brackets <>) and convert > the characters &<> back to their real value. Leave actual cr and tab as > they were in text." > | in out char rest | > in := ReadStream on: self. > out := WriteStream on: (String new: self size). > [in atEnd] whileFalse: > [in peek = $< > ifTrue: [in unCommand] "Absorb <...><...>" > ifFalse: [(char := in next) = $& > ifTrue: [rest := in upTo: $;. > out nextPut: (HtmlEntities > at: rest > + ifAbsent: [ > + (rest beginsWith: '#') > + ifTrue: [Character value: rest allButFirst asInteger] > + ifFalse: [Character space]])] > - ifAbsent: [Character space])] > ifFalse: [out nextPut: char]]. > ]. > ^ out contents! > > Item was changed: > ----- Method: String>>findSelector (in category 'converting') ----- > findSelector > "Dan's code for hunting down selectors with keyword parts; while this doesn't give a true parse, in most cases it does what we want, in where it doesn't, we're none the worse for it." > | sel possibleParens | > sel := self withBlanksTrimmed. > (sel includes: $:) ifTrue: > [sel := sel copyReplaceAll: ':' with: ': '. "for the style (aa max:bb) with no space" > + sel := sel copyReplaceAll: '[:' with: '[ :'. "for the style ([:a) with no space" > possibleParens := sel findTokens: Character separators. > sel := self class streamContents: > [:s | | level | > + level := 0. > - level := 0. > possibleParens do: > + [:token | > - [:token | | n | > (level = 0 and: [token endsWith: ':']) > ifTrue: [s nextPutAll: token] > + ifFalse: [level := level > + + (token occurrencesOf: $() - (token occurrencesOf: $)) > + + (token occurrencesOf: $[) - (token occurrencesOf: $]) > + + (token occurrencesOf: ${) - (token occurrencesOf: $})]]]]. > - ifFalse: [(n := token occurrencesOf: $( ) > 0 ifTrue: [level := level + n]. > - (n := token occurrencesOf: $[ ) > 0 ifTrue: [level := level + n]. > - (n := token occurrencesOf: $] ) > 0 ifTrue: [level := level - n]. > - (n := token occurrencesOf: $) ) > 0 ifTrue: [level := level - n]]]]]. > - > sel isEmpty ifTrue: [^ nil]. > sel isOctetString ifTrue: [sel := sel asOctetString]. > Symbol hasInterned: sel ifTrue: > [:aSymbol | ^ aSymbol]. > ^ nil! > > >

2 1

The Trunk: Collections-bf.505.mcz
by commits＠source.squeak.org 04 Mar '13

04 Mar '13

Bert Freudenberg uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-bf.505.mcz ==================== Summary ==================== Name: Collections-bf.505 Author: bf Time: 4 March 2013, 2:39:40.648 pm UUID: e14ee10f-5db6-49d0-9b98-e6f3f1aa0403 Ancestors: Collections-nice.504 Put back PositionableStream>>last with a better comment. =============== Diff against Collections-nice.504 =============== Item was added: + ----- Method: PositionableStream>>last (in category 'accessing') ----- + last + "Return the element that was read last" + + ^ collection at: position!

1 0

Daily Commit Log
by commits＠source.squeak.org 04 Mar '13

04 Mar '13

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2013-March/005746.html Name: Collections-nice.503 Ancestors: Collections-bf.502 Get rid from two un-necessary usages of ReadStream on:from:to: ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-March/005747.html Name: Morphic-nice.643 Ancestors: Morphic-fbs.642 Don't inline selectionAsStream (purpose is to reduce usage of on:from:to: and ReadWriteStream). ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-March/005748.html Name: MorphicExtras-nice.105 Ancestors: MorphicExtras-bf.104 Remove PrintEncoder StoreEncoder and PropertyListEncoder which were unused experimental proof of concepts. These are sole senders of #printOnStream: #storeOnStream: and #propertyListOn: which can be removed too. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-March/005749.html Name: Balloon-nice.21 Ancestors: Balloon-dtl.20 Remove #printOnStream: #storeOnStream: and #propertyListOn:. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-March/005750.html Name: Collections-nice.504 Ancestors: Collections-nice.503 Remove #printOnStream: #storeOnStream: and #propertyListOn:. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-March/005751.html Name: EToys-nice.91 Ancestors: EToys-nice.90 Remove #printOnStream: #storeOnStream: and #propertyListOn:. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-March/005752.html Name: Graphics-nice.201 Ancestors: Graphics-nice.200 Remove #printOnStream: #storeOnStream: and #propertyListOn:. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-March/005753.html Name: Graphics-nice.201 Ancestors: Graphics-nice.200 Remove #printOnStream: #storeOnStream: and #propertyListOn:. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-March/005754.html Name: Kernel-nice.743 Ancestors: Kernel-nice.742 Remove #printOnStream: #storeOnStream: and #propertyListOn:. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-March/005755.html Name: Sound-nice.34 Ancestors: Sound-dtl.33 Remove #printOnStream: #storeOnStream: and #propertyListOn:. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-March/005756.html Name: System-nice.515 Ancestors: System-cwp.514 Remove #printOnStream: #storeOnStream: and #propertyListOn:. =============================================

1 0

← Newer
1
...
22
23
24
25
26
27
28
29
Older →

Jump to page: