Squeak-dev June 2015

squeak-dev@lists.squeakfoundation.org

35 participants
162 discussions

[OT] Dedicated to Chris and all people on Squeak, SqueakRos and Cuis list
by Edgar J. De Cleene 05 Jun '15

05 Jun '15

You must see for believe http://190.193.182.93:9090/cuiki User: visita Pass: nothing here Still needs a lot of work , but Edgar @morplenauta en twitter

4 12

New CogVMs available
by Eliot Miranda 05 Jun '15

05 Jun '15

... at http://www.mirandabanda.org/files/Cog/VM/VM.r3370 CogVM source as per VMMaker.oscog-eem.1339/r3370 Spur Cogit: Since the invariant is that the receiver is never forwarded, Spur must check for forwarding on block activation. A become between closure creation and closure evaluation can forward the receiver, and it must be unforwarded. Here we do so by checking for a forwarded receiver in the value[:] primitives. This is a major blow to block performance; e.g. the nfib block b := [:n| n <= 1 ifTrue: [1] ifFalse: [1 + (b value: n - 1) + (b value: n - 2)]]. slows down by 11%. So we can and will do better. We should scan for receiver usage in the JIT and optionally compile unforwarding code in the prolog depending on whether self is used or not. Fix Spur block performance now that we follow forwarded receivers in blocks; see VMMaker.oscog-eem.1334. Scan blocks for inst var usage, only unforwarding in the prologue of blocks that actually refer to inst vars. In a test Spur Squeak image only 12.5% of blocks do refer to inst vars. So this is definitely a win. Add a special purpose store check trampoline to store check the updated receiver. Make sure it's only called if the eceiuver is updated. Add state to CogBytecodeDescriptor, CogBlockStart and CogBlockMethod to track block inst var usage. Sista: Fix the bug where rcvrReg was nil in genEqualsEqualsnoBranch. Generic Cogit: Use the Tst-based generators for immediate and SmallInteger tests more widely to save a few more instructions. Fix the hack introduced in VMMaker.oscog-eem.1199 for Sista which merely stopped reclaiming closed PICs. In non-Sista VMs do the usual thing of decaying usage counts on PICs, as with methods, and reclaiming those least used. In Sista, retain PICs until the next cycle, identifying unused PICs as part of the compaction scan, reminiscent of tri-colour incremental GC. Move defaultCogCodeSize into the CogAbstractInstruction hierarchy so that e.g. CogARMCompiler can specify a larger default code zone. Newspeak Cogit: Fix assert-fails with absent receiver sends in Newspeak. Have the implicit and outer send lookup trampolines set the stacked receiver (when there is one) when setting the implciit receiver. Streamline send trampoline creation by refactoring trampoline name generation so that the two limits, NumSendTrampolines - 2 and numRegArgs are treated separately, and numArgsOrSendNumArgsReg: answers the relevant numArgs argument. This should clear up confusion between numRegArgs (which can be 0, 1 & 2) and NumSendTrampolines - 2, which is always 2. linux builds: Fix VERSION_TAG format to agree with existing convention. -- best, Eliot

2 1

vmrun script
by David T. Lewis 05 Jun '15

05 Jun '15

I am in the habit of installing several VMs on my Linux computer, and running images of various vintages and image formats. Here is the script that I use to run an appropriate VM for any given image. I install the script as /usr/local/bin//vmrun and use it like this: $ vmrun whatever.image & Dave

2 2

Daily Commit Log
by commits＠source.squeak.org 04 Jun '15

04 Jun '15

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2015-June/008742.html Name: HelpSystem-Core-kfr.75 Ancestors: HelpSystem-Core-mt.74 HelpBrowser>>accept: changed so it works. The changed topic is compiled but the current topic loaded in the HelpBrowser is not updated ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-June/008743.html Name: HelpSystem-Core-kfr.76 Ancestors: HelpSystem-Core-kfr.75 Added a check/ bail out for non editable help topics ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-June/008744.html Name: HelpSystem-Core-kfr.77 Ancestors: HelpSystem-Core-kfr.76 Replace a edited help topic in HelpBrowser with a new one. There is still a bug that the updated topic changes place in the topic list I'm also a little confused why there is two hierachies with the help topics in rootTopic and topLevelTopics ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-June/008745.html Name: HelpSystem-Core-mt.78 Ancestors: HelpSystem-Core-kfr.77 Class-based help topics are editable again. Help browser updates correctly after edits. =============================================

1 0

A Cuis/GreenNeon website online
by Chris Cunnington 04 Jun '15

04 Jun '15

I’ve got a few old GreenNeon websites in the closet. I’ve loaded into Cuis. [1] I’ve attached the image. [2] I’ll probably do another one next week. I’d say this the first ever Cuis website, but I think Edgar just beat me to that. FWIW, Chris [1] http://136.243.33.94:8675 <http://136.243.33.94:8675/> [2] https://www.dropbox.com/s/75aca9e1b7w9ciq/OSRConCuis.zip?dl=0 <https://www.dropbox.com/s/75aca9e1b7w9ciq/OSRConCuis.zip?dl=0>

3 2

Re: [squeak-dev] XMLTokenizer problem with ampersand
by Jakob Reschke 04 Jun '15

04 Jun '15

I guess this will not help you, but a standalone ampersand is not valid XML (it is the leader for entities, if you want to have a literal ampersand in the text, the markup must be &), hence I would not expect any XML tokenizer or parser implementation to accept it. HTML is more relaxed about this, so a standalone amapersand is valid, but you would need some kind of HTMLTokenizer and I do not know whether there is such thing for Squeak. Anyone else knows one? Best regards Jakob 2015-06-01 20:05 GMT+02:00 karl ramberg <karlramberg(a)gmail.com>: > Hi, > I'm parsing some html docs but the XMLTokenizer chockes on a '&' followed by > a space in a string. > I guess '&' is used for other stuff than a 'and' in html and it causes error > when used in plain text. > > Does anybody have fix for this? > > Karl

4 4

The Trunk: HelpSystem-Core-mt.78.mcz
by commits＠source.squeak.org 04 Jun '15

04 Jun '15

Marcel Taeumel uploaded a new version of HelpSystem-Core to project The Trunk: http://source.squeak.org/trunk/HelpSystem-Core-mt.78.mcz ==================== Summary ==================== Name: HelpSystem-Core-mt.78 Author: mt Time: 14 May 2015, 6:45:57.427 pm UUID: d3d02275-f61e-8f4f-91e0-5dcf9b37c8d5 Ancestors: HelpSystem-Core-kfr.77 Class-based help topics are editable again. Help browser updates correctly after edits. =============== Diff against HelpSystem-Core-kfr.77 =============== Item was added: + ----- Method: AbstractHelpTopic>>isEditable (in category 'testing') ----- + isEditable + + ^ false! Item was added: + ----- Method: AbstractHelpTopic>>refresh (in category 'updating') ----- + refresh + "Do nothing."! Item was added: + ----- Method: ClassBasedHelpTopic>>isEditable (in category 'testing') ----- + isEditable + ^ true! Item was added: + ----- Method: ClassBasedHelpTopic>>refresh (in category 'updating') ----- + refresh + + self updateSubtopics. + self changed: #subtopicsUpdated.! Item was changed: ----- Method: ClassBasedHelpTopic>>updateSubtopics (in category 'updating') ----- updateSubtopics | pages | pages := (self helpClass pages collect: [:pageSelectorOrClassName | (Smalltalk hasClassNamed: pageSelectorOrClassName asString) ifTrue: [Smalltalk classNamed: pageSelectorOrClassName asString] ifFalse: [pageSelectorOrClassName]]) asOrderedCollection. self helpClass subclasses select: [:cls | cls ignore not] thenDo: [:cls | pages addIfNotPresent: cls]. ^ subtopics := pages withIndexCollect: [:pageSelectorOrClass :priority | pageSelectorOrClass isBehavior + ifFalse: [(self helpClass perform: pageSelectorOrClass) priority: priority - pages size; key: pageSelectorOrClass; yourself] - ifFalse: [(self helpClass perform: pageSelectorOrClass) priority: priority - pages size; yourself] ifTrue: [pageSelectorOrClass asHelpTopic]]! Item was changed: Model subclass: #HelpBrowser + instanceVariableNames: 'rootTopic currentTopic currentParentTopic result searchTopic topicPath toplevelTopics oldTopic' - instanceVariableNames: 'rootTopic currentTopic result searchTopic topicPath toplevelTopics oldTopic' classVariableNames: 'DefaultHelpBrowser' poolDictionaries: '' category: 'HelpSystem-Core-UI'! !HelpBrowser commentStamp: 'tbn 3/8/2010 09:33' prior: 0! A HelpBrowser is used to display a hierarchy of help topics and their contents. Instance Variables rootTopic: <HelpTopic> window: <StandardWindow> treeMorph: <PluggableTreeMorph> contentMorph: <Morph> rootTopic - xxxxx window - xxxxx treeMorph - xxxxx contentMorph - xxxxx ! Item was changed: ----- Method: HelpBrowser>>accept: (in category 'actions') ----- accept: text "Accept edited text. Compile it into a HelpTopic" + | code parent topicClass topicMethod | + (self currentParentTopic isNil or: [self currentParentTopic isEditable not]) + ifTrue: [^ self inform: 'This help topic cannot be edited.']. + + parent := self currentParentTopic. + topicClass := parent helpClass. + topicMethod := self currentTopic key. + - | code topicClass topicMethod updatedTopic | - (self find: (self currentTopic contents copyFrom: 1 to: 20)) asArray - ifNotEmpty: [:refs | - topicClass := refs first actualClass theNonMetaClass. - topicMethod := refs first selector]. - topicClass = nil ifTrue:[^self inform: 'This help topic can not be edited here']. code := String streamContents:[:s| s nextPutAll: topicMethod. s crtab; nextPutAll: '"This method was automatically generated. Edit it using:"'. s crtab; nextPutAll: '"', self name,' edit: ', topicMethod storeString,'"'. s crtab; nextPutAll: '^HelpTopic'. s crtab: 2; nextPutAll: 'title: ', currentTopic title storeString. s crtab: 2; nextPutAll: 'contents: '. s cr; nextPutAll: (String streamContents:[:c| c nextChunkPutWithStyle: text]) storeString. s nextPutAll:' readStream nextChunkText'. ]. topicClass class compile: code classified: ((topicClass class organization categoryOfElement: topicMethod) ifNil:['pages']). + + parent refresh. + self currentTopic: (parent subtopics detect: [:t | t key = topicMethod]).! - updatedTopic := topicClass perform: topicMethod. - oldTopic := currentTopic. - "self inTopic: self rootTopic replaceCurrentTopicWith: updatedTopic". - self toplevelTopics do:[ :each | self inTopic: each replaceCurrentTopicWith: updatedTopic]. - self changed: #toplevelTopics.. - self changed: #currentTopic. - self changed: #topicContents. - ! Item was changed: ----- Method: HelpBrowser>>buildWith: (in category 'toolbuilder') ----- buildWith: builder | windowSpec treeSpec textSpec searchSpec | windowSpec := builder pluggableWindowSpec new. windowSpec model: self; children: OrderedCollection new; label: #label. searchSpec := builder pluggableInputFieldSpec new. searchSpec model: self; getText: #searchTerm; setText: #searchTerm:; help: 'Search...'; frame: (LayoutFrame fractions: (0@0 corner: 1@0) offsets: (0@0 corner: 0@ (Preferences standardDefaultTextFont height * 2))). windowSpec children add: searchSpec. treeSpec := builder pluggableTreeSpec new. treeSpec model: self; nodeClass: HelpTopicListItemWrapper; roots: #toplevelTopics; getSelected: #currentTopic; setSelected: #currentTopic:; getSelectedPath: #currentTopicPath; + setSelectedParent: #currentParentTopic:; autoDeselect: false; frame: (LayoutFrame fractions: (0@0 corner: 0.3@1) offsets: (0@ (Preferences standardDefaultTextFont height * 2) corner: 0@0)). windowSpec children add: treeSpec. textSpec := builder pluggableTextSpec new. textSpec model: self; getText: #topicContents; setText: #accept:; menu: #codePaneMenu:shifted:; frame: (LayoutFrame fractions: (0.3(a)0.0 corner: 1@1) offsets: (0@ (Preferences standardDefaultTextFont height * 2) corner: 0@0)). windowSpec children add: textSpec. ^ builder build: windowSpec! Item was added: + ----- Method: HelpBrowser>>currentParentTopic (in category 'accessing') ----- + currentParentTopic + + ^ currentParentTopic! Item was added: + ----- Method: HelpBrowser>>currentParentTopic: (in category 'accessing') ----- + currentParentTopic: aHelpTopic + + currentParentTopic := aHelpTopic.! Item was added: + ----- Method: HelpTopic>>key (in category 'accessing') ----- + key + + ^ key! Item was added: + ----- Method: HelpTopic>>key: (in category 'accessing') ----- + key: aSymbol + + key := aSymbol.! Item was changed: PluggableListItemWrapper subclass: #HelpTopicListItemWrapper + instanceVariableNames: 'parent' - instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'HelpSystem-Core-UI'! !HelpTopicListItemWrapper commentStamp: 'tbn 3/8/2010 09:30' prior: 0! This class implements a list item wrapper for help topics. Instance Variables ! Item was added: + ----- Method: HelpTopicListItemWrapper class>>with:model:parent: (in category 'as yet unclassified') ----- + with: anObject model: aModel parent: aParent + + ^self new + setItem: anObject model: aModel parent: aParent + ! Item was changed: ----- Method: HelpTopicListItemWrapper>>contents (in category 'accessing') ----- contents ^self item subtopics sorted collect: [ :each | + HelpTopicListItemWrapper with: each model: self model parent: self] - HelpTopicListItemWrapper with: each model: self model] ! Item was added: + ----- Method: HelpTopicListItemWrapper>>parent (in category 'accessing') ----- + parent + + ^ parent! Item was added: + ----- Method: HelpTopicListItemWrapper>>parent: (in category 'accessing') ----- + parent: aWrapper + + parent := aWrapper.! Item was added: + ----- Method: HelpTopicListItemWrapper>>setItem:model:parent: (in category 'initialization') ----- + setItem: anObject model: aModel parent: itemParent + + self parent: itemParent. + self setItem: anObject model: aModel.! Item was added: + ----- Method: HelpTopicListItemWrapper>>update: (in category 'accessing') ----- + update: aspect + + super update: aspect. + + "Map the domain-specific aspect to a framework-specific one." + aspect = #subtopicsUpdated ifTrue: [ + self changed: #contents].!

1 0

The Trunk: HelpSystem-Core-kfr.77.mcz
by commits＠source.squeak.org 04 Jun '15

04 Jun '15

Marcel Taeumel uploaded a new version of HelpSystem-Core to project The Trunk: http://source.squeak.org/trunk/HelpSystem-Core-kfr.77.mcz ==================== Summary ==================== Name: HelpSystem-Core-kfr.77 Author: kfr Time: 14 May 2015, 10:14:49.361 am UUID: b5acbf22-bb99-744b-a8b7-9fa05787ddec Ancestors: HelpSystem-Core-kfr.76 Replace a edited help topic in HelpBrowser with a new one. There is still a bug that the updated topic changes place in the topic list I'm also a little confused why there is two hierachies with the help topics in rootTopic and topLevelTopics =============== Diff against HelpSystem-Core-kfr.76 =============== Item was changed: Model subclass: #HelpBrowser + instanceVariableNames: 'rootTopic currentTopic result searchTopic topicPath toplevelTopics oldTopic' - instanceVariableNames: 'rootTopic currentTopic result searchTopic topicPath toplevelTopics' classVariableNames: 'DefaultHelpBrowser' poolDictionaries: '' category: 'HelpSystem-Core-UI'! !HelpBrowser commentStamp: 'tbn 3/8/2010 09:33' prior: 0! A HelpBrowser is used to display a hierarchy of help topics and their contents. Instance Variables rootTopic: <HelpTopic> window: <StandardWindow> treeMorph: <PluggableTreeMorph> contentMorph: <Morph> rootTopic - xxxxx window - xxxxx treeMorph - xxxxx contentMorph - xxxxx ! Item was changed: ----- Method: HelpBrowser>>accept: (in category 'actions') ----- accept: text "Accept edited text. Compile it into a HelpTopic" | code topicClass topicMethod updatedTopic | - "true ifTrue:[^self inform: 'Not implemented yet.', String cr, 'Make new help pages in the browser for the time being']." (self find: (self currentTopic contents copyFrom: 1 to: 20)) asArray ifNotEmpty: [:refs | topicClass := refs first actualClass theNonMetaClass. topicMethod := refs first selector]. topicClass = nil ifTrue:[^self inform: 'This help topic can not be edited here']. code := String streamContents:[:s| s nextPutAll: topicMethod. s crtab; nextPutAll: '"This method was automatically generated. Edit it using:"'. s crtab; nextPutAll: '"', self name,' edit: ', topicMethod storeString,'"'. s crtab; nextPutAll: '^HelpTopic'. s crtab: 2; nextPutAll: 'title: ', currentTopic title storeString. s crtab: 2; nextPutAll: 'contents: '. s cr; nextPutAll: (String streamContents:[:c| c nextChunkPutWithStyle: text]) storeString. s nextPutAll:' readStream nextChunkText'. ]. + topicClass class - updatedTopic := topicClass class compile: code classified: ((topicClass class organization categoryOfElement: topicMethod) ifNil:['pages']). + updatedTopic := topicClass perform: topicMethod. + oldTopic := currentTopic. + "self inTopic: self rootTopic replaceCurrentTopicWith: updatedTopic". + self toplevelTopics do:[ :each | self inTopic: each replaceCurrentTopicWith: updatedTopic]. - - self flag: #fixme. "mt: Update will not work because the topic builder eagerly cached all the contents and lost track of its origins. We need to get rid of the topic builders and create topic contents lazily resp. live." - self currentTopic: updatedTopic. self changed: #toplevelTopics.. self changed: #currentTopic. self changed: #topicContents. ! Item was added: + ----- Method: HelpBrowser>>inTopic:replaceCurrentTopicWith: (in category 'actions') ----- + inTopic: parentTopic replaceCurrentTopicWith: aNewTopic + + parentTopic subtopics + do: [ :sub | self inTopic: parentTopic replaceSubtopic: sub with: aNewTopic]! Item was added: + ----- Method: HelpBrowser>>inTopic:replaceSubtopic:with: (in category 'actions') ----- + inTopic: parentTopic replaceSubtopic: aTopic with: aNewTopic + | i | + + (aTopic = oldTopic) + ifTrue: [ i := parentTopic subtopics indexOf: aTopic. + parentTopic subtopics at: i put: aNewTopic. ^self ]. + + aTopic subtopics + do: [ :sub | self inTopic: aTopic replaceSubtopic: sub with: aNewTopic]!

1 0

The Trunk: HelpSystem-Core-kfr.76.mcz
by commits＠source.squeak.org 04 Jun '15

04 Jun '15

Marcel Taeumel uploaded a new version of HelpSystem-Core to project The Trunk: http://source.squeak.org/trunk/HelpSystem-Core-kfr.76.mcz ==================== Summary ==================== Name: HelpSystem-Core-kfr.76 Author: kfr Time: 13 May 2015, 6:53:53.29 pm UUID: fbad033b-7c29-0748-bdb5-02a02dff4cf7 Ancestors: HelpSystem-Core-kfr.75 Added a check/ bail out for non editable help topics =============== Diff against HelpSystem-Core-kfr.75 =============== Item was changed: ----- Method: HelpBrowser>>accept: (in category 'actions') ----- accept: text "Accept edited text. Compile it into a HelpTopic" | code topicClass topicMethod updatedTopic | "true ifTrue:[^self inform: 'Not implemented yet.', String cr, 'Make new help pages in the browser for the time being']." (self find: (self currentTopic contents copyFrom: 1 to: 20)) asArray + ifNotEmpty: [:refs | - ifNotEmpty: [:refs | topicClass := refs first actualClass theNonMetaClass. topicMethod := refs first selector]. + topicClass = nil ifTrue:[^self inform: 'This help topic can not be edited here']. - code := String streamContents:[:s| s nextPutAll: topicMethod. s crtab; nextPutAll: '"This method was automatically generated. Edit it using:"'. s crtab; nextPutAll: '"', self name,' edit: ', topicMethod storeString,'"'. s crtab; nextPutAll: '^HelpTopic'. s crtab: 2; nextPutAll: 'title: ', currentTopic title storeString. s crtab: 2; nextPutAll: 'contents: '. s cr; nextPutAll: (String streamContents:[:c| c nextChunkPutWithStyle: text]) storeString. s nextPutAll:' readStream nextChunkText'. ]. updatedTopic := topicClass class compile: code classified: ((topicClass class organization categoryOfElement: topicMethod) ifNil:['pages']). self flag: #fixme. "mt: Update will not work because the topic builder eagerly cached all the contents and lost track of its origins. We need to get rid of the topic builders and create topic contents lazily resp. live." self currentTopic: updatedTopic. self changed: #toplevelTopics.. self changed: #currentTopic. self changed: #topicContents. !

1 0

The Trunk: HelpSystem-Core-kfr.75.mcz
by commits＠source.squeak.org 04 Jun '15

04 Jun '15

Marcel Taeumel uploaded a new version of HelpSystem-Core to project The Trunk: http://source.squeak.org/trunk/HelpSystem-Core-kfr.75.mcz ==================== Summary ==================== Name: HelpSystem-Core-kfr.75 Author: kfr Time: 13 May 2015, 1:52:38.849 pm UUID: 5b487f7f-b174-5343-894a-aff28511d4fa Ancestors: HelpSystem-Core-mt.74 HelpBrowser>>accept: changed so it works. The changed topic is compiled but the current topic loaded in the HelpBrowser is not updated =============== Diff against HelpSystem-Core-mt.74 =============== Item was changed: ----- Method: HelpBrowser>>accept: (in category 'actions') ----- accept: text "Accept edited text. Compile it into a HelpTopic" + | code topicClass topicMethod updatedTopic | + "true ifTrue:[^self inform: 'Not implemented yet.', String cr, 'Make new help pages in the browser for the time being']." + (self find: (self currentTopic contents copyFrom: 1 to: 20)) asArray + ifNotEmpty: [:refs | - | code topicClass topicMethod | - true ifTrue:[^self inform: 'Not implemented yet.', String cr, 'Make new help pages in the browser for the time being']. - (self find: self topic contents) asArray ifNotEmpty: [:refs | topicClass := refs first actualClass theNonMetaClass. topicMethod := refs first selector]. code := String streamContents:[:s| s nextPutAll: topicMethod. s crtab; nextPutAll: '"This method was automatically generated. Edit it using:"'. s crtab; nextPutAll: '"', self name,' edit: ', topicMethod storeString,'"'. s crtab; nextPutAll: '^HelpTopic'. s crtab: 2; nextPutAll: 'title: ', currentTopic title storeString. s crtab: 2; nextPutAll: 'contents: '. s cr; nextPutAll: (String streamContents:[:c| c nextChunkPutWithStyle: text]) storeString. s nextPutAll:' readStream nextChunkText'. ]. + updatedTopic := topicClass class - topicClass class compile: code classified: ((topicClass class organization categoryOfElement: topicMethod) ifNil:['pages']). + - self flag: #fixme. "mt: Update will not work because the topic builder eagerly cached all the contents and lost track of its origins. We need to get rid of the topic builders and create topic contents lazily resp. live." + self currentTopic: updatedTopic. - self changed: #toplevelTopics.. self changed: #currentTopic. self changed: #topicContents. !

1 0

Jump to page: