Squeak-dev February 2019

squeak-dev@lists.squeakfoundation.org

37 participants
92 discussions

The Trunk: EToys-kfr.341.mcz
by commits＠source.squeak.org 24 Feb '19

24 Feb '19

Karl Ramberg uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-kfr.341.mcz ==================== Summary ==================== Name: EToys-kfr.341 Author: kfr Time: 24 February 2019, 2:13:12.948634 pm UUID: fcf322df-c7c0-480c-9ccb-6c54c0b99e58 Ancestors: EToys-tpr.340 Adds menu item to toggle starting and stopping the animated image morph =============== Diff against EToys-tpr.340 =============== Item was added: + ----- Method: AnimatedImageMorph>>addCustomMenuItems:hand: (in category '*Etoys-Squeakland-stepping and presenter') ----- + addCustomMenuItems: aMenu hand: aHand + super addCustomMenuItems: aMenu hand: aHand. + aMenu addUpdating: #steppingString action: #toggleStepping!

1 0

The Trunk: MorphicExtras-kfr.252.mcz
by commits＠source.squeak.org 24 Feb '19

24 Feb '19

Karl Ramberg uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-kfr.252.mcz ==================== Summary ==================== Name: MorphicExtras-kfr.252 Author: kfr Time: 24 February 2019, 2:06:12.497784 pm UUID: 71481ac8-81b8-4a70-9a29-758a0c8bdbb5 Ancestors: MorphicExtras-pre.251 Allow SketchEditorMorph to grow extent by halo handle. But do not shrink extent since this is destructive to the painting and no recovery available. =============== Diff against MorphicExtras-pre.251 =============== Item was added: + ----- Method: SketchEditorMorph>>extent: (in category 'morphic') ----- + extent: aPoint + | form | + paintingForm ifNil: [^super extent: aPoint]. + + super extent: aPoint. + form := Form extent: self extent depth: paintingForm depth. + paintingForm displayOn: form. + paintingForm := form. + forEachHand do: [:i | i at: #changed put: true]. + rotationButton position: bounds topCenter - (6@0). + scaleButton position: bounds rightCenter - ((scaleButton width)@6). + + ! Item was added: + ----- Method: SketchEditorMorph>>setExtentFromHalo: (in category 'morphic') ----- + setExtentFromHalo: anExtent + "The user has dragged the grow box such that the receiver's extent would be anExtent. Do what's needed" + super setExtentFromHalo: ((anExtent x max: paintingForm width) @ (anExtent y max: paintingForm height)). + !

1 0

The Trunk: Kernel-eem.1214.mcz
by commits＠source.squeak.org 23 Feb '19

23 Feb '19

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.1214.mcz ==================== Summary ==================== Name: Kernel-eem.1214 Author: eem Time: 22 February 2019, 4:30:01.615182 pm UUID: 1196f254-79e9-4bb1-b1af-3c413abe2fd4 Ancestors: Kernel-nice.1213 Use the Spur inst avr access primitives in FutureMaker and the mirror primitives. Fix a couple of typos. =============== Diff against Kernel-nice.1213 =============== Item was changed: ----- Method: BlockClosure>>blockCreationPC (in category 'scanning') ----- blockCreationPC + "Answer the pc for the bytecode that created the receiver." - "Answer the pc for the bytecode that created the receuver." | method | method := self method. ^method encoderClass pcOfBlockCreationBytecodeForBlockStartingAt: startpc in: method! Item was changed: ----- Method: Context>>findNextUnwindContextUpTo: (in category 'private-exceptions') ----- findNextUnwindContextUpTo: aContext "Return the next unwind marked above the receiver, returning nil if there is none. Search proceeds up to but not including aContext." | ctx | <primitive: 195> ctx := self. + [(ctx := ctx sender) == nil or: [ctx == aContext]] whileFalse: - [(ctx := ctx sender) == nil or: [ctx == aContext]] whileFalse: [ ctx isUnwindContext ifTrue: [^ctx]]. ^nil! Item was changed: ----- Method: Context>>object:instVarAt: (in category 'mirror primitives') ----- object: anObject instVarAt: anIndex "Primitive. Answer a fixed variable in an object. The numbering of the variables corresponds to the named instance variables. Fail if the index is not an Integer or is not the index of a fixed variable. Essential for the debugger. See Object documentation whatIsAPrimitive." + <primitive: 173 error: ec> + self primitiveFailed! - <primitive: 73> - "Access beyond fixed variables." - ^self object: anObject basicAt: anIndex - (self objectClass: anObject) instSize! Item was changed: ----- Method: Context>>object:instVarAt:put: (in category 'mirror primitives') ----- object: anObject instVarAt: anIndex put: aValue "Primitive. Store a value into a fixed variable in the argument anObject. The numbering of the variables corresponds to the named instance variables. Fail if the index is not an Integer or is not the index of a fixed variable. Answer the value stored as the result. Using this message violates the principle that each object has sovereign control over the storing of values into its instance variables. Essential for the debugger. See Object documentation whatIsAPrimitive." + <primitive: 174 error: ec> + self primitiveFailed! - <primitive: 74> - "Access beyond fixed fields" - ^self object: anObject basicAt: anIndex - (self objectClass: anObject) instSize put: aValue! Item was changed: ----- Method: FutureMaker>>instVarAt: (in category 'accessing') ----- instVarAt: index "Primitive. Answer a fixed variable in an object. The numbering of the variables corresponds to the named instance variables. Fail if the index is not an Integer or is not the index of a fixed variable. Essential. See Object documentation whatIsAPrimitive." + <primitive: 173 error: ec> + self primitiveFailed! - <primitive: 73> - "Access beyond fixed variables." - ^self basicAt: index - self class instSize ! Item was changed: ----- Method: FutureMaker>>instVarAt:put: (in category 'accessing') ----- instVarAt: anInteger put: anObject "Primitive. Store a value into a fixed variable in the receiver. The numbering of the variables corresponds to the named instance variables. Fail if the index is not an Integer or is not the index of a fixed variable. Answer the value stored as the result. Using this message violates the principle that each object has sovereign control over the storing of values into its instance variables. Essential. See Object documentation whatIsAPrimitive." + <primitive: 174 error: ec> + self primitiveFailed! - <primitive: 74> - "Access beyond fixed fields" - ^self basicAt: anInteger - self class instSize put: anObject!

1 0

SketchEditor drawing area not resizing with window resize
by StephenASmith 22 Feb '19

22 Feb '19

Hi All, Tried to submit this as a bug using Mantis but was unable to figure out how to log in there? Do we need to register somewhere to submit bugs? Trying to draw a line across a sketch, but I need my sketch to be wider than the default width that the initial drawing area opens up at. I resize the SketchEditor window using the halos, to the width I want, then try to draw a horizontal line from left to right. The line stops drawing at what appears to be the border of the original drawing area's right edge. I can't draw any kind of shape past that point. Anyone else having this issue? My desktop is 1920x1080. I'm using Squeak 5.2 build 18229 64bit Windows 10. Stephen. -- Sent from: http://forum.world.st/Squeak-Dev-f45488.html

5 7

Lost image - any suggestions?
by Tim Johnson 22 Feb '19

22 Feb '19

Hi, I have an image which had been running with only periodic interruption for many months, as it functions as a server to collect data. Over the past two weeks or so, I'd started working on some code in it again, some of which I liked, but which I'm afraid I may have now lost. (I am foolish, working in an image being used to collect data, but I have excuses.) Is it possible for me to recover anything from the last 2-3 weeks from a .changes file? I do have a previous version of the same image, from November, but don't know how to load a different .changes file. In case it matters, here's what went down: Things seemed OK until today when I moved a window in Morphic and the VM crashed. (I had a dozen+ inspectors open on a dozen+ collections between 150 and 8000 in size.) After the crash, I loaded the image up again and recovered my one changed method via Recover Changes. Then, feeling overconfident, I did a "save" instead of "Save as" :(. At some point during or after the save, Squeak stopped responding to user input. Activity Monitor showed CPU usage at only around 3% so after a while I just force-quit it. Now if I try to load that image with the VM I'd been using, the VM crashes before even bringing up a window. I got some output from running the VM through Terminal. Thinking I'd get more debug output, I tried it by compiling oscogvm/build.macos64x64/squeak.cog.spur and running SqueakDebug.app, but I was mistaken thinking SqueakDebug.app would dump any more to Terminal than regular Squeak.app. (Both output the same information and seem to crash in the same way.) Anyhow, if anyone has any tips, or wants a copy of a broken image, please let me know. In any case, I'll just end with this quote from Ralph Johnson: "One thing to remember is NEVER TRUST AN IMAGE! Images are extremely convenient and fairly fragile. Every so often you will kill an image, and you will lose everything in it. It is possible to recover from your changes log, but it is real pain if you have several weeks of work there to recover. I make it a point to build a new image once a week or so. Some people do it every day. It all depends on your style, I guess. Just because you saved an image doesn't mean that you can start it up again." - https://users.cs.duke.edu/~ola/courses/cps196/spr98/smalltalk/changesets.ht… Thanks, Tim J

4 3

The Inbox: MorphicExtras-kfr.253.mcz
by commits＠source.squeak.org 20 Feb '19

20 Feb '19

A new version of MorphicExtras was added to project The Inbox: http://source.squeak.org/inbox/MorphicExtras-kfr.253.mcz ==================== Summary ==================== Name: MorphicExtras-kfr.253 Author: kfr Time: 20 February 2019, 8:02:57.686228 pm UUID: 5fb58713-8c97-4763-9566-d2adfe7e9a46 Ancestors: MorphicExtras-kfr.252 Refresh fix for MorphicExtras-kfr.252 =============== Diff against MorphicExtras-kfr.252 =============== Item was changed: ----- Method: SketchEditorMorph>>extent: (in category 'actions & preps') ----- extent: aPoint | form | super extent: aPoint. paintingForm ifNotNil:[ form := Form extent: self extent depth: paintingForm depth. paintingForm displayOn: form. paintingForm := form. + forEachHand do:[ :i| i at:#changed put: true] + ]! - ]!

1 0

Re: [squeak-dev] [Vm-dev] VMMaker in Pharo [Was: Squeak and Tonel]
by David T. Lewis 20 Feb '19

20 Feb '19

On Wed, Feb 20, 2019 at 09:23:55AM +0100, Tudor Girba wrote: > > Hi, > > I have seen that code, and the issue I wanted to address is to have the > decision about which dialect a piece of code is ran on in one single place. > This should make it easier to find statically. > > Indeed, this will not necessarily be guaranteed to work when moving from > one version of Pharo to another. But, that problem can be addressed by > tracing releases in a reproducible fashion. And in the VMMaker case, the > scenario is about a development environment not a production system. So, > it should be reasonable to point developers to a working configuration > that pairs the Pharo/Squeak version and the VMMaker version. > > What do you think? > > Cheers, > Doru > Hi Doru and Eliiot, The approach that I have been using to address this in OSProcess is to put the compatibility methods in one place, in the 'compatibility' category in class OSProcess. This allows support for the different file system interfaces in Cuis, Pharo and Squeak. For example, one of the compatibility methods is: OSProcess class>>directoryExists: path "Answer true if a directory of the given name exists. The given name may be either a full path name or a local directory within this directory." ^ self useFileMan ifTrue: [((Smalltalk at: #DirectoryEntry) perform: #withPathName: with: path) exists] ifFalse: [self useFileSystem ifTrue: [ (path perform: #asFileReference) exists ] ifFalse: [ (Smalltalk at: #FileDirectory) default directoryExists: path ]] And the tests for Cuis/Pharo/Squeak are in these two methods: OSProcess class>>useFileSystem "If true use FileSystem, otherwise use traditional FileDirectory. See senders for methods with file system dependencies." ^ Smalltalk hasClassNamed: #FileReference OSProcess class>>useFileMan "If true use FileMan for directory and file access. See senders for methods with file system dependencies." ^ Smalltalk hasClassNamed: #FileIOAccessor This is ugly but it does work, and I been able to maintain OSProcess and CommandShell for the Squeak diaspora over a number of years in this manner. It also means that I do not need to worry if Squeak moves to FileMan(*) or FileSystem at some point in the future. I don't think that VMMaker should have a hard dependency on OSProcess, but as a practical matter you probably have OSProcess loaded in the VM development image anyway, so you could try using these methods directly and see how ugly things get. HTH, Dave * Personally I like the FileMan approach in Cuis best, but that is another topic entirely ;-)

2 1

Re: [squeak-dev] VMMaker in Pharo [Was: Squeak and Tonel]
by Eliot Miranda 20 Feb '19

20 Feb '19

Hi Doru, On Mon, Feb 18, 2019 at 8:14 PM Tudor Girba <tudor(a)tudorgirba.com> wrote: > Hi Eliot, > > Please, let me clarify the current direction: I am not trying to get you > to Pharo at this point. I only want to reach a point where the VMMaker code > runs in Pharo. This will allow us to bootstrap an environment that can > later be evaluated. > > Having the sources in Git is secondary at this point. With the current > infrastructure, we get those sources in Git while preserving the history > from the Squeaksource repo automatically. The code will be loadable from > either Git or Squeaksource, but the commit repository is still the > Squeaksource one. So, nothing would change from the workflow of the > current committers. What we gain with the Git repository is a test ground > and an easier ability to load the code in Pharo, all at no extra cost and > without affecting your flow. > > Let me emphasize this again: the Git support should not be the main issue > at this point. Now we would only need to get the code to run in Pharo. For > this, we would need to introduce a few support methods. One key method that > Andrei and I would like to propose, and that we used before in other > porting projects, is: > Object>>vmMakerForSqueak: aBlockToBeExecutedOnlyInSqueak forPharo: > aBlockToBeExecutedOnlyInPharo > I am doing things on a case-by-case basis. Currently I use classNamed:, e.g. (Smalltalk classNamed: #FileSystem) ifNotNil: [:fileSystem| fileSystem disk delimiter asInteger] ifNil: [FileDirectory pathNameDelimiter asInteger] (Smalltalk classNamed: #CurrentReadOnlySourceFiles) ifNil: syncAction ifNotNil: [:crosf| crosf cacheDuring: syncAction] (Smalltalk classNamed: #Project) ifNotNil: [:project| Project uiProcess] "Squeak" ifNil: [UIManager default uiProcess] "Pharo" ((Smalltalk classNamed: #FillInTheBlankMorph) ifNotNil: "Squeak" [:fITBM| fITBM request: 'Input please!' initialAnswer: '' centerAt: ActiveHand cursorPoint inWorld: ActiveWorld onCancelReturn: nil acceptOnCR: true] ifNil: "Pharo; onCancelReturn: nil is the default here" [UIManager default request: 'Input please!' initialAnswer: '']). this at least allows Squeak to migrate to FileSystem without having to rewrite. Using the above I was already able to get most of VMMaker working in Pharo6. Things broke for Pharo7, which indicates that the vmMakerForSqueak:forPharo: approach has vulnerabilities. > Andrei will propose a commit in VMMaker Inbox this week. > > What do you say? > > Cheers, > Doru > > > > On Feb 18, 2019, at 7:55 PM, Eliot Miranda <eliot.miranda(a)gmail.com> > wrote: > > > > Doru, > > > > On Sun, Feb 17, 2019 at 10:33 PM Tudor Girba <tudor(a)tudorgirba.com> > wrote: > > Hi Eliot, > > > > You raise a few technical concerns related to VMMaker that seem > addressable: > > > > 1. Rendering technology: Both in Pharo and in GT, there exist in-image > canvases, Athens and Sparta respectively, that are backend independent. > This allows us to have image-based drawing logic, like BitBlt or even > better, the drawing capabilities that Juan Vuletich built in Morphic 3, > transparently. In fact, we even started to look at the code from Morphic 3 > and we think it’s not much effort to make it work behind Sparta. This would > provide a complete solution that would not rely on any external libraries. > > > > 2. Git history. We used to have the author and timestamp in the metadata > of Tonel but because it generated unwanted conflicts it was decided to > remove it. I think this is a good decision and one based on the experience > of using it. But, why do you think the algorithm of retrieving Git could > not be made to work in Squeak? Is there a specific technical reason, or is > it more that you do not see the effort being spent in this direction? I am > asking to understand what could a possible solution be. > > > > > > But, let’s take a step back. George and Andrei did move the VMMaker > code, including all its history, into Git using (and enhancing) > https://github.com/peteruhnak/git-migration. > > > > The code is here: > > https://github.com/feenkcom/opensmalltalk-vm/tree/pullrequest5/vmmaker > > > > Our goal was to make the code loadable and runnable in Pharo through > Git. We have a reproducible process to produce this history, and this means > that we can also synchronize all changes from the Monticello VMMaker > repository and produce a history-preserving Git repository. > > > > The current code comes with a BaselineOfVMMaker that loads in Pharo, and > the code generation seems to work to a good extent without much effort. > There is still work that needs to be done especially on the simulation > part, but we think most of it can be addressed through a Pharo-specific > package that provides compatibility logic. > > > > I see two benefits for doing this: > > 1. It allows people in Pharo to play with the VM within the Pharo > context and consequently contribute. > > 2. It allows us to build an environment dedicated for VM development > without affecting the current contribution process. We can judge later > whether this is useful. > > > > All this is great work. But I cannot use it until I can also function > in Squeak. I know you want me to move to Pharo, but I am not convinced > that it is a safe place for me to land. I have voiced my concerns before > (stability, moving away from support I need (e.g. Pharo dropping > read./write file streams is the latest example). Let me simply restate > that "t6he devil you know is better than the devil you don't", and that I > know I am productive with VMMaker in Squeak, but I *do not* know that I can > be productive in Pharo (in fact, I have lots of experience of the > contrary). So I will not move to Pharo any time soon and so, until there > is a solution to git/tonel/squeak integration I cannot join the unified > repository, must as I would like to. > > > > I'm sorry for the frustration this causes other. I am radical in some > things, but deeply conservative in others. And my ability to be productive > is obviously foundational. > > > > > > Cheers, > > Doru > > > > > > > On Feb 17, 2019, at 9:27 PM, Eliot Miranda <eliot.miranda(a)gmail.com> > wrote: > > > > > > Hi All, Hi Torsten, Hi Jakob, > > > > > > On Thu, Feb 14, 2019 at 6:17 AM Torsten Bergmann <astares(a)gmx.de> > wrote: > > > Hi, > > > > > > as some of you might already know "Tonel" is a file-per-class format > for monticello repositories [1]. > > > > > > In Pharo land many projects are already converted to it - as regular > "file tree" solution faces issues > > > with git handling due to very long file names / deep file hierarchy > (often leading to trouble on Windows). > > > > > > Dales's Rowan (a new project/package manager for Smalltalk) supports > FileTree and also Tonel > > > repositories [2]. There is also a tool to convert from STORE > (VisualWorks Source-Code Versioning System) > > > to Tonel format [3]. > > > > > > So I wonder about adoption of Tonel in Squeak land. > > > > > > Any status/comments? > > > > > > Last year I was given contract employment by Tudor Girba's feenk which > in part was to involve me porting VMMaker.oscog to Pharo in order to reap > the productivity benefits of the Glamorous Toolkit when applied to > VMMaker. The major direction was to unify the opensmalltalk-vm repository > with a Toned-Format repository holding the Smalltalk code. > > > > > > This project, though no fault of feenk's did not go well. A big part > of it was my own emotional attachment to Squeak, my "muscle memory" with > Squeak and my long experience with Smalltalk-80 derived meta programming > which I make extensive use of in VMMaker.oscog. But a key issue was that I > was not prepared to *move* VMMaker.oscog to Pharo; for me it is key that it > can live in both places. In particular I will not risk VMMaker.oscog being > stranded on Pharo as it moves away from the "image-based rendering model". > This is not because I don't believe in pixel-independent rendering models, > but because productivity in VMMaker depends much more than on GToolkit > inspection on the key architectural feature of being completely, safely > simulateable (not a real English word; but meaning capable of being > simulated). As Pharo moves towards external libraries to implement its UI > so the degree to which VMMaker is simulated is reduced. Thus crashes in > external code cannot be handled with the same power as with errors > presented within the Smalltalk environment itself, and this (as harsh > experience over thirty five years has taught me) is far more important for > overall productivity than having powerful tailorable inspectors. > > > > > > I therefore wanted a Tonel that could both function for Squeak's > Monticello and for Pharo's Iceberg. I had modified the Tonel serialization > a little to provide well-formatted support for method timestamps, which are > still a key and extremely useful part of Squeak Monticello's "blame" > equivalent. Until git author attribution can be imported into Squeak's > Monticello (something I don't see happening) I wanted merely to be able to > have a variant of Tonel, enabled for example by a class variable, and hence > /not/ present in Pharo, that would allow VMMaker.oscog to use Tonel but > still be functional inside Squeak. I asked Esteban and was met by a flat > no. Not "OK, but this is an option only you will use", but a flat "not > under any circumstance". > > > > > > So here I am joining in this thread reluctantly. I'm extremely > frustrated by the state of Tonel in Squeak and between the two dialects. > Clément had moved his Scorch optimizer to Tonel/git and I tried to use > Metacello and Jakob's Tonel code to at least allow me to load that code and > try and push forward on Sista/Scorch. The port *does not work*. Metacello > fails to load Scorch. Neither Jakob nor Fabio, after putting in some > effort, were able to fix the problem, and it is well beyond me. So I have > accepted the fact that I will have to use the Monticello repository for > Scorch/Sista. > > > > > > I had deep concerns that the pursuit of git integration would end up > splitting the Pharo and Squeak communities and indeed this is now in > progress. I am utterly unmotivated by the lack of cooperation, the sheer > arrogance and bullying of those that say "you will move to git/tonel or > else", and considering leaving VMMaker altogether. The only things that > are keeping me interested are Ron Teitelbaum's Terf and me pursuing a PhD > on register allocation in the context of Sista/Scorch with Robert > Hirshfeld's group at HPI. > > > > > > Here's the kind of crap people like Ducasse throw at me: > > > > > > "Eliot > > > > > > At the end of the day I will probably ask the two phds that should > work on language design to use truffle or pypy > > > because let us face it we cannot work with the Pharo VM. Else we will > simply have to fork it (because we do not want to have > > > to jump over cuis, newspeak, squeak code constraints and I do not > what) and it will be another drama is in the pico world > > > of the “open” smalltalk VM. " > > > > > > I am so over this crap. > > > _,,,^..^,,,_ > > > best, Eliot > > > > -- > > www.feenk.com > > > > “Software has no shape. Actually, it has no one shape. It has many." > > > > > > > > -- > > _,,,^..^,,,_ > > best, Eliot > > -- > www.feenk.com > > "Sometimes the best solution is not the best solution." > > -- _,,,^..^,,,_ best, Eliot

1 0

The Inbox: MorphicExtras-kfr.252.mcz
by commits＠source.squeak.org 19 Feb '19

19 Feb '19

A new version of MorphicExtras was added to project The Inbox: http://source.squeak.org/inbox/MorphicExtras-kfr.252.mcz ==================== Summary ==================== Name: MorphicExtras-kfr.252 Author: kfr Time: 19 February 2019, 9:59:35.769814 pm UUID: 16a6ba0f-d9aa-44c6-a320-6f95ec6e7ba0 Ancestors: MorphicExtras-pre.251 Make extent of SketchEditorMorph change to the extent set by halo handle Must refresh painting from tool palette to be able to paint again =============== Diff against MorphicExtras-pre.251 =============== Item was added: + ----- Method: SketchEditorMorph>>extent: (in category 'actions & preps') ----- + extent: aPoint + | form | + super extent: aPoint. + paintingForm ifNotNil:[ + form := Form extent: self extent depth: paintingForm depth. + paintingForm displayOn: form. + paintingForm := form. + ]!

1 0

The Trunk: UpdateStream-tpr.11.mcz
by commits＠source.squeak.org 19 Feb '19

19 Feb '19

tim Rowledge uploaded a new version of UpdateStream to project The Trunk: http://source.squeak.org/trunk/UpdateStream-tpr.11.mcz ==================== Summary ==================== Name: UpdateStream-tpr.11 Author: tpr Time: 18 February 2019, 7:25:41.894118 pm UUID: 00e59d34-daaf-40f8-b4ee-306f21613bfc Ancestors: UpdateStream-ul.10 Part of deprecating HTTPClient for 6.0 Stop using it =============== Diff against UpdateStream-ul.10 =============== Item was removed: - ----- Method: AutoStart class>>checkForUpdates (in category '*UpdateStream') ----- - checkForUpdates - | availableUpdate updateServer | - HTTPClient isRunningInBrowser ifFalse: [ ^ self processUpdates ]. - availableUpdate := (Smalltalk namedArguments - at: 'UPDATE' - ifAbsent: [ '' ]) asInteger. - availableUpdate ifNil: [ ^ false ]. - updateServer := Smalltalk namedArguments - at: 'UPDATESERVER' - ifAbsent: - [ Smalltalk namedArguments - at: 'UPDATE_SERVER' - ifAbsent: [ 'Squeakland' ] ]. - UpdateStreamDownloader default setUpdateServer: updateServer. - ^ SystemVersion checkAndApplyUpdates: availableUpdate! Item was changed: ----- Method: UpdateStreamDownloader class>>newUpdatesOn:special:throughNumber: (in category 'fetching updates') ----- newUpdatesOn: serverList special: indexPrefix throughNumber: aNumber "Return a list of fully formed URLs of update files we do not yet have. Go to the listed servers and look at the file 'updates.list' for the names of the last N update files. We look backwards for the first one we have, and make the list from there. tk 9/10/97 No updates numbered higher than aNumber (if it is not nil) are returned " | existing out maxNumber | maxNumber := aNumber ifNil: [99999]. out := OrderedCollection new. existing := SystemVersion current updates. serverList do: [:server | | raw doc list char | + doc := HTTPSocket httpGet: 'http://' , server,indexPrefix,'updates.list'. - doc := HTTPClient httpGet: 'http://' , server,indexPrefix,'updates.list'. "test here for server being up" doc class == RWBinaryOrTextStream ifTrue: [raw := doc reset; contents. "one file name per line" list := self extractThisVersion: raw. list reverseDo: [:fileName | | ff itsNumber | ff := (fileName findTokens: '/') last. "allow subdirectories" itsNumber := ff initialIntegerOrNil. (existing includes: itsNumber) ifFalse: [ (itsNumber == nil or: [itsNumber <= maxNumber]) ifTrue: [out addFirst: 'http://' , server, fileName]] ifTrue: [^ out]]. ((out size > 0) or: [char := doc reset; skipSeparators; next. (char == $*) | (char == $#)]) ifTrue: [^ out "we have our list"]]. "else got error msg instead of file" "Server was down, try next one"]. self inform: 'All code update servers seem to be unavailable'. ^ out! Item was changed: ----- Method: UpdateStreamDownloader class>>retrieveUrls:ontoQueue:withWaitSema: (in category 'fetching updates') ----- retrieveUrls: urls ontoQueue: queue withWaitSema: waitSema "download the given list of URLs. The queue will be loaded alternately with url's and with the retrieved contents. If a download fails, the contents will be #failed. If all goes well, a special pair with an empty URL and the contents #finished will be put on the queue. waitSema is waited on every time before a new document is downloaded; this keeps the downloader from getting too far ahead of the main process" "kill the existing downloader if there is one" | updateCounter | UpdateDownloader ifNotNil: [UpdateDownloader terminate]. updateCounter := 0. "fork a new downloading process" UpdateDownloader := [ 'Downloading updates' displayProgressFrom: 0 to: urls size during: [:bar | urls do: [:url | | front canPeek doc | waitSema wait. queue nextPut: url. + doc := HTTPSocket httpGet: url. - doc := HTTPClient httpGet: url. doc isString ifTrue: [queue nextPut: #failed. UpdateDownloader := nil. Processor activeProcess terminate] ifFalse: [canPeek := 120 min: doc size. front := doc next: canPeek. doc skip: -1 * canPeek. (front beginsWith: '<!!DOCTYPE') ifTrue: [ (front includesSubstring: 'Not Found') ifTrue: [ queue nextPut: #failed. UpdateDownloader := nil. Processor activeProcess terminate]]]. UpdateDownloader ifNotNil: [queue nextPut: doc. updateCounter := updateCounter + 1. bar value: updateCounter]]]. queue nextPut: ''. queue nextPut: #finished. UpdateDownloader := nil] newProcess. UpdateDownloader priority: Processor userInterruptPriority. "start the process running" UpdateDownloader resume!

3 3

← Newer
1
2
3
4
5
6
7
8
9
10
Older →