Squeak-dev September 2016

squeak-dev@lists.squeakfoundation.org

46 participants
175 discussions

Re: [squeak-dev] The Trunk: System-bf.914.mcz
by Chris Muller 10 Sep '16

10 Sep '16

Excellent! Now I have to wonder if this also fixes the problem with saving/restoring Projects... Worth a try, Herbert? On Thu, Sep 8, 2016 at 2:50 PM, <commits(a)source.squeak.org> wrote: > Bert Freudenberg uploaded a new version of System to project The Trunk: > http://source.squeak.org/trunk/System-bf.914.mcz > > ==================== Summary ==================== > > Name: System-bf.914 > Author: bf > Time: 8 September 2016, 9:49:26.777611 pm > UUID: 5fae5167-168c-4c08-8f4f-a624c6f39fb5 > Ancestors: System-cmm.913 > > Fix DataStream reading of Characters on Spur. > > =============== Diff against System-cmm.913 =============== > > Item was changed: > ----- Method: DataStream>>readCharacterOfSize: (in category 'write and read') ----- > readCharacterOfSize: instSize > + "Character changed to an immediate class in Spur" > | refPosn val | > self assert: instSize = 1. > refPosn := self getCurrentReference. > + self setCurrentReference: refPosn. "before recursion - not really needed for integer" > - self setCurrentReference: refPosn. > val := self next. > + self assert: val isInteger. > + self setCurrentReference: refPosn. "before returning to next" > ^ Character value: val. > ! > > Item was changed: > ----- Method: DataStream>>readInstance (in category 'write and read') ----- > readInstance > "PRIVATE -- Read the contents of an arbitrary instance. > ASSUMES: readDataFrom:size: sends me beginReference: after it > instantiates the new object but before reading nested objects. > NOTE: We must restore the current reference position after > recursive calls to next. > Let the instance, not the class read the data. " > | instSize aSymbol refPosn anObject newClass | > > instSize := (byteStream nextNumber: 4) - 1. > refPosn := self getCurrentReference. > aSymbol := self next. > + (aSymbol == #Character or: [aSymbol isCharacter "hack - why does this happen?"]) > - aSymbol == #Character > ifTrue: [^ self readCharacterOfSize: instSize]. > newClass := Smalltalk at: aSymbol asSymbol. > anObject := newClass isVariable "Create object here" > ifFalse: [newClass basicNew] > ifTrue: [newClass basicNew: instSize - (newClass instSize)]. > self setCurrentReference: refPosn. "before readDataFrom:size:" > anObject := anObject readDataFrom: self size: instSize. > self setCurrentReference: refPosn. "before returning to next" > ^ anObject! > > Item was changed: > ----- Method: DataStream>>vacantRef (in category 'other') ----- > vacantRef > "Answer the magic 32-bit constant we use ***ON DISK*** as a stream 'reference > position' to identify a reference that's not yet filled in. This must be a > value that won't be used as an ordinary reference. Cf. outputReference: and > readReference. -- > NOTE: We could use a different type ID for vacant-refs rather than writing > object-references with a magic value. (The type ID and value are > overwritten by ordinary object-references when weak refs are fullfilled.)" > > + ^1073741823 "Hardcode former SmallInteger maxVal"! > - ^ SmallInteger maxVal! > >

2 2

Re: [squeak-dev] The Inbox: Chronology-Core-cbc.8.mcz
by Chris Cunningham 10 Sep '16

10 Sep '16

This change is requested after I couldn't get get TimeZone compares to work. Try this before loading: (TimeZone offset: (Duration hours: -7 minutes: 0) name: 'Pacific Time (US & Canada)' abbreviation: 'PDT') = (TimeZone offset: (Duration hours: -7 minutes: 0) name: 'Pacific Time (US & Canada)' abbreviation: 'PDT') Returns false - since the hash isn't the same (different instances), although what they represent is exactly the same. After this, returns true. -cbc On Thu, Sep 8, 2016 at 4:40 PM, <commits(a)source.squeak.org> wrote: > A new version of Chronology-Core was added to project The Inbox: > http://source.squeak.org/inbox/Chronology-Core-cbc.8.mcz > > ==================== Summary ==================== > > Name: Chronology-Core-cbc.8 > Author: cbc > Time: 8 September 2016, 4:39:41.903555 pm > UUID: 7315e61d-3652-fe44-8472-8037bd3ecc83 > Ancestors: Chronology-Core-bf.7 > > Add a rational #= to TimeZone - based on offset. > > =============== Diff against Chronology-Core-bf.7 =============== > > Item was added: > + ----- Method: TimeZone>>= (in category 'comparing') ----- > + = aTimeZone > + ^offset = aTimeZone offset! > > >

3 4

RFB
by Yoshiki Ohshima 10 Sep '16

10 Sep '16

Hi, I'm trying to use the RFB server RFB-ikp.8.mcz from http://www.squeaksource.com/RFB/ with the Mac OS ScreenShare client. The Mac OS client can connect to the server but after 10 seconds or so, the server raises an error. Has somebody tried it lately? I am on Squeak 5.0 and 5.0 CogSpur VM. Is the newer version better at running RFB? (The client has some other issues. I'll track them down later.) -- -- Yoshiki

3 9

Daily Commit Log
by commits＠source.squeak.org 09 Sep '16

09 Sep '16

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2016-September/068921.… Name: System-bf.915 Ancestors: System-bf.914 DataStream: properly support reading immediate class instances (supersedes hacks in System-bf.914). Only used for Characters, because SmallIntegers and Floats are special-cased anyways. =============================================

1 0

The Trunk: System-bf.915.mcz
by commits＠source.squeak.org 09 Sep '16

09 Sep '16

Bert Freudenberg uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-bf.915.mcz ==================== Summary ==================== Name: System-bf.915 Author: bf Time: 9 September 2016, 2:04:28.571597 pm UUID: ffcf5f50-0963-46e9-906e-a389fac9c172 Ancestors: System-bf.914 DataStream: properly support reading immediate class instances (supersedes hacks in System-bf.914). Only used for Characters, because SmallIntegers and Floats are special-cased anyways. =============== Diff against System-bf.914 =============== Item was added: + ----- Method: Character class>>readImmediateFrom:size: (in category '*system-object storage') ----- + readImmediateFrom: aDataStream size: varsOnDisk + "Read an instance of self based on the contents of aDataStream. Return it. + Read in the value as written by Character>>storeDataOn:. + NOTE: This method must send beginReference: before reading any objects from aDataStream that might reference it. Because we need to read the value before creating the object, we need to reset the current reference position." + | refPosn instance | + refPosn := aDataStream getCurrentReference. + instance := self value: aDataStream next. + aDataStream setCurrentReference: refPosn. + aDataStream beginReference: instance. + ^instance! Item was removed: - ----- Method: DataStream>>readCharacterOfSize: (in category 'write and read') ----- - readCharacterOfSize: instSize - "Character changed to an immediate class in Spur" - | refPosn val | - self assert: instSize = 1. - refPosn := self getCurrentReference. - self setCurrentReference: refPosn. "before recursion - not really needed for integer" - val := self next. - self assert: val isInteger. - self setCurrentReference: refPosn. "before returning to next" - ^ Character value: val. - ! Item was changed: ----- Method: DataStream>>readInstance (in category 'write and read') ----- readInstance "PRIVATE -- Read the contents of an arbitrary instance. ASSUMES: readDataFrom:size: sends me beginReference: after it instantiates the new object but before reading nested objects. NOTE: We must restore the current reference position after recursive calls to next. Let the instance, not the class read the data. " | instSize aSymbol refPosn anObject newClass | instSize := (byteStream nextNumber: 4) - 1. refPosn := self getCurrentReference. aSymbol := self next. - (aSymbol == #Character or: [aSymbol isCharacter "hack - why does this happen?"]) - ifTrue: [^ self readCharacterOfSize: instSize]. newClass := Smalltalk at: aSymbol asSymbol. + self setCurrentReference: refPosn. "before readDataFrom:size:" + anObject := newClass isImmediateClass + ifTrue: [newClass readImmediateFrom: self size: instSize] + ifFalse: [anObject := newClass isVariable "Create object here" - anObject := newClass isVariable "Create object here" ifFalse: [newClass basicNew] ifTrue: [newClass basicNew: instSize - (newClass instSize)]. + anObject readDataFrom: self size: instSize]. - self setCurrentReference: refPosn. "before readDataFrom:size:" - anObject := anObject readDataFrom: self size: instSize. self setCurrentReference: refPosn. "before returning to next" ^ anObject! Item was changed: ----- Method: SmartRefStream>>readInstanceSize:clsname:refPosn: (in category 'read write') ----- readInstanceSize: instSize clsname: className refPosn: refPosn "The common code to read the contents of an arbitrary instance. ASSUMES: readDataFrom:size: sends me beginReference: after it instantiates the new object but before reading nested objects. NOTE: We must restore the current reference position after recursive calls to next. Three cases for files from older versions of the system: 1) Class has not changed shape, read it straight. 2) Class has changed instance variables (or needs fixup). Call a particular method to do it. 3) There is a new class instead. Find it, call a particular method to read. All classes used to construct the structures dictionary *itself* need to be in 'steady' and they must not change!! See setStream:" | anObject newName newClass dict oldInstVars isMultiSymbol | self flag: #bobconv. self setCurrentReference: refPosn. "remember pos before readDataFrom:size:" newName := renamed at: className ifAbsent: [className]. - newName == #Character - ifTrue: [^ self readCharacterOfSize: instSize]. isMultiSymbol := newName = #MultiSymbol or: [newName = #WideSymbol]. "isMultiSymbol ifTrue: [self halt]." newClass := Smalltalk at: newName asSymbol. (steady includes: newClass) & (newName == className) ifTrue: [ + anObject := newClass isImmediateClass + ifTrue: [newClass readImmediateFrom: self size: instSize] + ifFalse: [anObject := newClass isVariable "Create object here" + ifFalse: [newClass basicNew] + ifTrue: [newClass basicNew: instSize - (newClass instSize)]. + anObject readDataFrom: self size: instSize]. + - anObject := newClass isVariable "Create it here" - ifFalse: [newClass basicNew] - ifTrue: [newClass basicNew: instSize - (newClass instSize)]. - - anObject := anObject readDataFrom: self size: instSize. self setCurrentReference: refPosn. "before returning to next" isMultiSymbol ifTrue: [^ Symbol intern: anObject asString]. ^ anObject]. oldInstVars := structures at: className ifAbsent: [ self error: 'class is not in structures list']. "Missing in object file" anObject := newClass createFrom: self size: instSize version: oldInstVars. "only create the instance" self beginReference: anObject. dict := self catalogValues: oldInstVars size: instSize. "indexed vars as (1 -> val) etc." dict at: #ClassName put: className. "so conversion method can know it" "Give each superclass a chance to make its changes" self storeInstVarsIn: anObject from: dict. "ones with the same names" anObject := self applyConversionMethodsTo: anObject className: className varMap: dict. self setCurrentReference: refPosn. "before returning to next" isMultiSymbol ifTrue: [^ Symbol intern: anObject asString]. ^ anObject!

1 0

The Inbox: Chronology-Core-cbc.8.mcz
by commits＠source.squeak.org 09 Sep '16

09 Sep '16

A new version of Chronology-Core was added to project The Inbox: http://source.squeak.org/inbox/Chronology-Core-cbc.8.mcz ==================== Summary ==================== Name: Chronology-Core-cbc.8 Author: cbc Time: 8 September 2016, 4:39:41.903555 pm UUID: 7315e61d-3652-fe44-8472-8037bd3ecc83 Ancestors: Chronology-Core-bf.7 Add a rational #= to TimeZone - based on offset. =============== Diff against Chronology-Core-bf.7 =============== Item was added: + ----- Method: TimeZone>>= (in category 'comparing') ----- + = aTimeZone + ^offset = aTimeZone offset!

1 0

20 Years of Squeak
by Chris Muller 09 Sep '16

09 Sep '16

> As these dates suggest, our goal is to have the release before this year's > ESUG. However, there is another important Smalltalk-related event this year: > 20 years of Squeak. :-) Yeah! It was around October 1996, when the first > Squeak came into the world. ...having its own worlds. :D So, it would only > make sense to also have a special release for this birthday. For this, we > revived all of the cool multimedia content, known from Squeak 1 through > Squeak 3, and made it fit for the current Squeak code base. Oh, this is so > exciting. :-) This is awesome and deserves its own thread!!

14 28

Daily Commit Log
by commits＠source.squeak.org 08 Sep '16

08 Sep '16

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2016-September/068920.… Name: System-bf.914 Ancestors: System-cmm.913 Fix DataStream reading of Characters on Spur. =============================================

1 0

The Trunk: System-bf.914.mcz
by commits＠source.squeak.org 08 Sep '16

08 Sep '16

Bert Freudenberg uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-bf.914.mcz ==================== Summary ==================== Name: System-bf.914 Author: bf Time: 8 September 2016, 9:49:26.777611 pm UUID: 5fae5167-168c-4c08-8f4f-a624c6f39fb5 Ancestors: System-cmm.913 Fix DataStream reading of Characters on Spur. =============== Diff against System-cmm.913 =============== Item was changed: ----- Method: DataStream>>readCharacterOfSize: (in category 'write and read') ----- readCharacterOfSize: instSize + "Character changed to an immediate class in Spur" | refPosn val | self assert: instSize = 1. refPosn := self getCurrentReference. + self setCurrentReference: refPosn. "before recursion - not really needed for integer" - self setCurrentReference: refPosn. val := self next. + self assert: val isInteger. + self setCurrentReference: refPosn. "before returning to next" ^ Character value: val. ! Item was changed: ----- Method: DataStream>>readInstance (in category 'write and read') ----- readInstance "PRIVATE -- Read the contents of an arbitrary instance. ASSUMES: readDataFrom:size: sends me beginReference: after it instantiates the new object but before reading nested objects. NOTE: We must restore the current reference position after recursive calls to next. Let the instance, not the class read the data. " | instSize aSymbol refPosn anObject newClass | instSize := (byteStream nextNumber: 4) - 1. refPosn := self getCurrentReference. aSymbol := self next. + (aSymbol == #Character or: [aSymbol isCharacter "hack - why does this happen?"]) - aSymbol == #Character ifTrue: [^ self readCharacterOfSize: instSize]. newClass := Smalltalk at: aSymbol asSymbol. anObject := newClass isVariable "Create object here" ifFalse: [newClass basicNew] ifTrue: [newClass basicNew: instSize - (newClass instSize)]. self setCurrentReference: refPosn. "before readDataFrom:size:" anObject := anObject readDataFrom: self size: instSize. self setCurrentReference: refPosn. "before returning to next" ^ anObject! Item was changed: ----- Method: DataStream>>vacantRef (in category 'other') ----- vacantRef "Answer the magic 32-bit constant we use ***ON DISK*** as a stream 'reference position' to identify a reference that's not yet filled in. This must be a value that won't be used as an ordinary reference. Cf. outputReference: and readReference. -- NOTE: We could use a different type ID for vacant-refs rather than writing object-references with a magic value. (The type ID and value are overwritten by ordinary object-references when weak refs are fullfilled.)" + ^1073741823 "Hardcode former SmallInteger maxVal"! - ^ SmallInteger maxVal!

1 0

Spry update: Spry goes visual!
by Göran Krampe 08 Sep '16

08 Sep '16

Hi folks! Just wanted to give a quick update on where I am (<hint>only me still</hint>) on the Spry project. I am taking the liberty to post on squeak-dev since I hope Squeakers find it interesting, especially the small movie below :) I also have some ideas on Squeak<->Spry interop, if anyone is interested - catch me on chat. I am right now trying to nail down a few language level things, and finish the manual. The manual is up on the site and is fairly complete now (although needs a few rounds of polish): http://www.sprylang.org/manual/index.html ...along with other things, like an article about "Smalltalk vs Spry" which I have only just started: http://www.sprylang.org/spry-vs-smalltalk/index.html But... the most interesting part to tell about is probably the fact that Spry is taking its first steps with a user interface! Unless you count the command line REPL Spry has had for a long time. Or the "spry REPL in a browser page" that you can also find on the website (that is actually the real Spry VM compiled to js). A short 2 min movie I made is here: http://krampe.se/spry-ide.mp4 I hope you found that movie intriguing! Because it shows a truly *live* experience, just like traditional Smalltalks offer. The code we type in is parsed and evaluated live and the IDE itself *is written in Spry* (not Nim). This makes it just as malleable as a Smalltalk environment. To make this I have selected the excellent C library called libui: https://github.com/andlabs/libui There is already a wrapper in Nim (auto generated) for libui which made it easy for me to create a Spry VM module with primitives using it, the primitives and node types so far are here: https://github.com/gokr/spry/blob/master/src/modules/spryui.nim The OO mechanism including polymorphism in Spry is still being worked on - so naming for some of those things are needlessly messy (to make each unique), but apart from that it's very straight forward. NOTE: There is also a Nim wxWidgets wrapper, a gtk2 wrapper and a gtk3 wrapper. But... I wanted native on all 3 desktops and libui looks MUCH easier and lightweight than wx. With that VM module included, we can finally look at the code for the IDE shown in the movie: https://github.com/gokr/spry/blob/master/src/ide.sy That's 57 lines of Spry code! ...and a big part is constructing the menu which the movie doesn't even show. Also note how I attach Spry code blocks as handlers for the click events, menu items etc, for example: https://github.com/gokr/spry/blob/master/src/ide.sy#L43 So what we have are Spry code blocks (they are closures) that gets run as callbacks called from the C library. Those of you with a bit of history knows this has been a truly sore part of Squeak through the years. And yes, this means we run in libui's event loop which we enter at the end: https://github.com/gokr/spry/blob/master/src/ide.sy#L91 And finally... this runs *natively* in Windows, OSX and Linux (Gtk3). The movie was recorded on my Ubuntu so its gtk3 that you see. I have tried it on OSX too, looks great! regards, Göran PS. I am on #squeak and #sprylang on freenode, but also on gitter which I kinda prefer: http://gitter.im/gokr/spry

1 0

Jump to page: