Squeak-dev December 2013

squeak-dev@lists.squeakfoundation.org

45 participants
325 discussions

Morphic 3 defensive disclosure
by J. Vuletich (mail lists) 06 Dec '13

06 Dec '13

Hi Folks, Big news! The first defensive disclosure about Morphic 3 has been accepted and published at http://www.defensivepublications.org/publications/prefiltering-antialiasing… and http://ip.com/IPCOM/000232657 .. Morphic 3 is described at http://www.jvuletich.org/Morphic3/Morphic3-201006.html This paves the way for releasing all the code, as no one will be able to patent it. Cheers, Juan Vuletich

5 11

The Trunk: UpdateStream-nice.2.mcz
by commits＠source.squeak.org 06 Dec '13

06 Dec '13

Nicolas Cellier uploaded a new version of UpdateStream to project The Trunk: http://source.squeak.org/trunk/UpdateStream-nice.2.mcz ==================== Summary ==================== Name: UpdateStream-nice.2 Author: nice Time: 6 December 2013, 5:16:05.919 pm UUID: 946512c5-6ada-463e-83ea-231b857eb86d Ancestors: UpdateStream-nice.1 Prefer own Preferences =============== Diff against UpdateStream-nice.1 =============== Item was changed: Object subclass: #UpdateStreamDownloader instanceVariableNames: '' + classVariableNames: 'PromptForUpdateServer UpdateDownloader UpdateSavesFile UpdateUrlLists' - classVariableNames: 'UpdateDownloader UpdateUrlLists' poolDictionaries: '' category: 'UpdateStream'! Item was changed: ----- Method: UpdateStreamDownloader class>>chooseUpdateList (in category 'fetching updates') ----- chooseUpdateList "When there is more than one set of update servers, let the user choose which we will update from. Put it at the front of the list. Return false if the user aborted. If the preference #promptForUpdateServer is false, then suppress that prompt, in effect using the same server choice that was used the previous time (a convenience for those of us who always answer the same thing to the prompt.)" | index him | + ((UpdateUrlLists size > 1) and: [self promptForUpdateServer]) - ((UpdateUrlLists size > 1) and: [Preferences promptForUpdateServer]) ifTrue: [index := UIManager default chooseFrom: (UpdateUrlLists collect: [:each | each first]) lines: #() title: 'Choose a group of servers\from which to fetch updates.' translated withCRs. index > 0 ifTrue: [him := UpdateUrlLists at: index. UpdateUrlLists removeAt: index. UpdateUrlLists addFirst: him]. ^ index > 0]. ^ true! Item was added: + ----- Method: UpdateStreamDownloader class>>promptForUpdateServer (in category 'preferences') ----- + promptForUpdateServer + <preference: 'Prompt for update server' + category: 'updates' + description: 'If false, the prompt for server choice when updating code from the server is suppressed. Set this to false to leave the server choice unchanged from update to update.' + type: #Boolean> + ^PromptForUpdateServer ifNil: [ false ]! Item was added: + ----- Method: UpdateStreamDownloader class>>promptForUpdateServer: (in category 'preferences') ----- + promptForUpdateServer: aBoolean + PromptForUpdateServer := aBoolean! Item was changed: ----- Method: UpdateStreamDownloader class>>saveUpdate:onFile: (in category 'fetching updates') ----- saveUpdate: doc onFile: fileName "Save the update on a local file. With or without the update number on the front, depending on the preference #updateRemoveSequenceNum" | file fName pos updateDirectory | (FileDirectory default directoryNames includes: 'updates') ifFalse: [FileDirectory default createDirectory: 'updates']. updateDirectory := FileDirectory default directoryNamed: 'updates'. fName := fileName. + self updateRemoveSequenceNum ifTrue: - (Preferences valueOfFlag: #updateRemoveSequenceNum) ifTrue: [pos := fName findFirst: [:c | c isDigit not]. fName := fName copyFrom: pos to: fName size]. doc reset; ascii. (updateDirectory fileExists: fName) ifFalse: [file := updateDirectory newFileNamed: fName. file nextPutAll: doc contents. file close]. ! Item was changed: ----- Method: UpdateStreamDownloader class>>updateFromServer (in category 'fetching updates') ----- updateFromServer "Update the image by loading all pending updates from the server. Also save local copies of the update files if the #updateSavesFile preference is set to true" + self readServerUpdatesSaveLocally: self updateSavesFile updateImage: true! - self readServerUpdatesSaveLocally: Preferences updateSavesFile updateImage: true! Item was changed: ----- Method: UpdateStreamDownloader class>>updateFromServerThroughUpdateNumber: (in category 'fetching updates') ----- updateFromServerThroughUpdateNumber: aNumber "Update the image by loading all pending updates from the server. Also save local copies of the update files if the #updateSavesFile preference is set to true" + self readServerUpdatesThrough: aNumber saveLocally: self updateSavesFile updateImage: true! - self readServerUpdatesThrough: aNumber saveLocally: Preferences updateSavesFile updateImage: true! Item was added: + ----- Method: UpdateStreamDownloader class>>updateRemoveSequenceNum (in category 'preferences') ----- + updateRemoveSequenceNum + ^false! Item was added: + ----- Method: UpdateStreamDownloader class>>updateSavesFile (in category 'preferences') ----- + updateSavesFile + <preference: 'Update saves files' + category: 'updates' + description: 'If true, then when an update is loaded from the server, a copy of it will automatically be saved on a local file as well.' + type: #Boolean> + ^UpdateSavesFile ifNil: [ false ]! Item was added: + ----- Method: UpdateStreamDownloader class>>updateSavesFile: (in category 'preferences') ----- + updateSavesFile: aBoolean + UpdateSavesFile := aBoolean!

1 0

The Trunk: UpdateStream-nice.1.mcz
by commits＠source.squeak.org 06 Dec '13

06 Dec '13

Nicolas Cellier uploaded a new version of UpdateStream to project The Trunk: http://source.squeak.org/trunk/UpdateStream-nice.1.mcz ==================== Summary ==================== Name: UpdateStream-nice.1 Author: nice Time: 6 December 2013, 5:07:25.049 pm UUID: 4c14fa26-e847-4f2c-8217-ecb56f016112 Ancestors: Create an UpdateStreamDownloader class to host Utilities class>>'fetching updates' methods. Utilities class side methods are copied as is to UpdateStreamDownloader class side with original authors/stamps The pre-trunk updateFromServer version has been restored. In the future, the UpdateStreamDownloader could create instances if this makes sense... But since this is essentially unused, it might as well not happen. ==================== Snapshot ==================== SystemOrganization addCategory: #UpdateStream! Object subclass: #UpdateStreamDownloader instanceVariableNames: '' classVariableNames: 'UpdateDownloader UpdateUrlLists' poolDictionaries: '' category: 'UpdateStream'! ----- Method: UpdateStreamDownloader class>>applyUpdatesFromDisk (in category 'fetching updates') ----- applyUpdatesFromDisk "UpdateStreamDownloader applyUpdatesFromDisk" "compute highest update number" | updateDirectory updateNumbers | updateDirectory := self getUpdateDirectoryOrNil. updateDirectory ifNil: [^ self]. updateNumbers := updateDirectory fileNames collect: [:fn | fn initialIntegerOrNil] thenSelect: [:fn | fn notNil]. self applyUpdatesFromDiskToUpdateNumber: (updateNumbers inject: 0 into: [:max :num | max max: num]) stopIfGap: false! ----- Method: UpdateStreamDownloader class>>applyUpdatesFromDiskToUpdateNumber:stopIfGap: (in category 'fetching updates') ----- applyUpdatesFromDiskToUpdateNumber: lastUpdateNumber stopIfGap: stopIfGapFlag "To use this mechanism, be sure all updates you want to have considered are in a folder named 'updates' which resides in the same directory as your image. Having done that, simply evaluate: UpdateStreamDownloader applyUpdatesFromDiskToUpdateNumber: 1234 stopIfGap: false and all numbered updates <= lastUpdateNumber not yet in the image will be loaded in numerical order." | previousHighest currentUpdateNumber done fileNames aMessage updateDirectory loaded | updateDirectory := self getUpdateDirectoryOrNil. updateDirectory ifNil: [^ self]. previousHighest := SystemVersion current highestUpdate. currentUpdateNumber := previousHighest. done := false. loaded := 0. [done] whileFalse: [currentUpdateNumber := currentUpdateNumber + 1. currentUpdateNumber > lastUpdateNumber ifTrue: [done := true] ifFalse: [fileNames := updateDirectory fileNamesMatching: currentUpdateNumber printString , '*'. fileNames size > 1 ifTrue: [^ self inform: 'ambiguity -- two files both start with ' , currentUpdateNumber printString , ' (at this point it is probably best to remedy the situation on disk, then try again.)']. fileNames size = 0 ifTrue: [Transcript cr; show: 'gap in updates from disk for update number '; print: currentUpdateNumber; show: ' found...'. done := stopIfGapFlag] ifFalse: [ChangeSet newChangesFromStream: (updateDirectory readOnlyFileNamed: fileNames first) named: fileNames first. SystemVersion current registerUpdate: currentUpdateNumber. loaded := loaded + 1]]]. aMessage := loaded = 0 ifTrue: ['No new updates found.'] ifFalse: [loaded printString , ' update(s) loaded.']. self inform: aMessage , ' Highest numbered update is now ' , (currentUpdateNumber - 1) printString , '.'! ----- Method: UpdateStreamDownloader class>>assureAbsenceOfUnstableUpdateStream (in category 'fetching updates') ----- assureAbsenceOfUnstableUpdateStream "Check to see if the unstable Updates stream is in the list; if it is, *remove* it. This is the *opposite* of #assureAvailabilityOfUnstableUpdateStream" UpdateUrlLists ifNil: [UpdateUrlLists := OrderedCollection new]. UpdateUrlLists := UpdateUrlLists select: [:pair | pair first ~= 'Unstable Updates*'] "UpdateStreamDownloader assureAbsenceOfUnstableUpdateStream"! ----- Method: UpdateStreamDownloader class>>assureAvailabilityOfUnstableUpdateStream (in category 'fetching updates') ----- assureAvailabilityOfUnstableUpdateStream "Check to see if the unstable Updates stream is in the list; if not, add it" UpdateUrlLists ifNil: [UpdateUrlLists := OrderedCollection new]. UpdateUrlLists do: [:pair | (pair first = 'Unstable Updates*') ifTrue: [^ self]]. UpdateUrlLists addFirst: #('Unstable Updates*' #('squeak.cs.uiuc.edu/Squeak2.0/' 'update.squeakfoundation.org/external/')) "UpdateStreamDownloader assureAvailabilityOfUnstableUpdateStream"! ----- Method: UpdateStreamDownloader class>>broadcastUpdatesFrom:to:except: (in category 'fetching updates') ----- broadcastUpdatesFrom: n1 to: n2 except: skipList " Note: This method takes its list of files from the directory named 'updates', which will have been created and filled by, eg, UpdateStreamDownloader readServerUpdatesSaveLocally: true updateImage: true. These can then be rebroadcast to any server using, eg, UpdateStreamDownloader broadcastUpdatesFrom: 1 to: 9999 except: #(223 224). If the files are already on the server, and it is only a matter of copying them to the index for a different version, then use... (ServerDirectory serverInGroupNamed: 'SqC Internal Updates*') exportUpdatesExcept: #(). " | fileNames fileNamesInOrder names choice file updateDirectory | updateDirectory := FileDirectory default directoryNamed: 'updates'. fileNames := updateDirectory fileNames select: [:n | n first isDigit and: [(n initialIntegerOrNil between: n1 and: n2) and: [(skipList includes: n initialIntegerOrNil) not]]]. (file := fileNames select: [:n | (n occurrencesOf: $.) > 1]) size > 0 ifTrue: [self halt: file first , ' has multiple periods']. fileNamesInOrder := fileNames asSortedCollection: [:a :b | a initialIntegerOrNil < b initialIntegerOrNil]. names := ServerDirectory groupNames asSortedArray. choice := UIManager default chooseFrom: names values: names. choice == nil ifTrue: [^ self]. (ServerDirectory serverInGroupNamed: choice) putUpdateMulti: fileNamesInOrder fromDirectory: updateDirectory ! ----- Method: UpdateStreamDownloader class>>chooseUpdateList (in category 'fetching updates') ----- chooseUpdateList "When there is more than one set of update servers, let the user choose which we will update from. Put it at the front of the list. Return false if the user aborted. If the preference #promptForUpdateServer is false, then suppress that prompt, in effect using the same server choice that was used the previous time (a convenience for those of us who always answer the same thing to the prompt.)" | index him | ((UpdateUrlLists size > 1) and: [Preferences promptForUpdateServer]) ifTrue: [index := UIManager default chooseFrom: (UpdateUrlLists collect: [:each | each first]) lines: #() title: 'Choose a group of servers\from which to fetch updates.' translated withCRs. index > 0 ifTrue: [him := UpdateUrlLists at: index. UpdateUrlLists removeAt: index. UpdateUrlLists addFirst: him]. ^ index > 0]. ^ true! ----- Method: UpdateStreamDownloader class>>extractThisVersion: (in category 'fetching updates') ----- extractThisVersion: list "Pull out the part of the list that applies to this version." | listContents version versIndex | listContents := self parseListContents: list. version := SystemVersion current version. versIndex := (listContents collect: [:pair | pair first]) indexOf: version. versIndex = 0 ifTrue: [^ Array new]. "abort" ^ (listContents at: versIndex) last! ----- Method: UpdateStreamDownloader class>>fileInFromUpdatesFolder: (in category 'fetching updates') ----- fileInFromUpdatesFolder: numberList "File in a series of updates with the given updates numbers, from the updates folder in the default directory. The file-ins are done in numeric order, even if numberList was not sorted upon entry. This is useful for test-driving the retrofitting of a possibly discontinguous list of updates from an alpha version back to a stable release. UpdateStreamDownloader fileInFromUpdatesFolder: #(4745 4746 4747 4748 4749 4750 4751 4752 4754 4755 4761 4762 4767 4769). " | fileNames fileNamesInOrder file updateDirectory | updateDirectory := FileDirectory default directoryNamed: 'updates'. fileNames := updateDirectory fileNames select: [:n | n first isDigit and: [numberList includes: n initialIntegerOrNil]]. (file := fileNames select: [:n | (n occurrencesOf: $.) > 1]) size > 0 ifTrue: [self error: file first , ' has multiple periods']. fileNamesInOrder := fileNames asSortedCollection: [:a :b | a initialIntegerOrNil < b initialIntegerOrNil]. fileNamesInOrder do: [:aFileName | (updateDirectory readOnlyFileNamed: aFileName) fileIntoNewChangeSet]! ----- Method: UpdateStreamDownloader class>>getUpdateDirectoryOrNil (in category 'fetching updates') ----- getUpdateDirectoryOrNil ^ (FileDirectory default directoryNames includes: 'updates') ifTrue: [FileDirectory default directoryNamed: 'updates'] ifFalse: [self inform: 'Error: cannot find "updates" folder'. nil]! ----- Method: UpdateStreamDownloader class>>lastUpdateNum: (in category 'fetching updates') ----- lastUpdateNum: updatesFileStrm "Look in the Updates file and see what the last sequence number is. Warn the user if the version it is under is not this image's version." | verIndex seqIndex char ver seqNum | verIndex := seqIndex := 0. "last # starting a line and last digit starting a line" seqNum := 0. updatesFileStrm reset; ascii. [char := updatesFileStrm next. updatesFileStrm atEnd] whileFalse: [ char == Character cr ifTrue: [ updatesFileStrm peek == $# ifTrue: [verIndex := updatesFileStrm position +1. seqIndex = 0 ifFalse: ["See if last num of old version if biggest so far" updatesFileStrm position: seqIndex. ver := SmallInteger readFrom: updatesFileStrm. seqNum := seqNum max: ver. updatesFileStrm position: verIndex-1]]. updatesFileStrm peek isDigit ifTrue: [seqIndex := updatesFileStrm position]]]. seqIndex = 0 ifFalse: ["See if last num of old version if biggest so far" updatesFileStrm position: seqIndex. ver := SmallInteger readFrom: updatesFileStrm. seqNum := seqNum max: ver. updatesFileStrm setToEnd]. ^ seqNum! ----- 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 := 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! ----- Method: UpdateStreamDownloader class>>objectStrmFromUpdates: (in category 'fetching updates') ----- objectStrmFromUpdates: fileName "Go to the known servers and look for this file in the updates folder. It is an auxillery file, like .morph or a .gif. Return a RWBinaryOrTextStream on it. Meant to be called from during the getting of updates from the server. That assures that (UpdateStreamDownloader serverUrls) returns the right group of servers." Cursor wait showWhile: [ | urls | urls := UpdateStreamDownloader serverUrls collect: [:url | url, 'updates/', fileName]. urls do: [:aUrl | | doc | doc := HTTPSocket httpGet: aUrl accept: 'application/octet-stream'. "test here for server being up" doc class == RWBinaryOrTextStream ifTrue: [^ doc reset]]]. self inform: 'All update servers are unavailable, or bad file name'. ^ nil! ----- Method: UpdateStreamDownloader class>>parseListContents: (in category 'fetching updates') ----- parseListContents: listContents | sections vers strm line fileNames | "Parse the contents of updates.list into {{vers. {fileNames*}}*}, and return it." sections := OrderedCollection new. fileNames := OrderedCollection new: 1000. vers := nil. strm := ReadStream on: listContents. [strm atEnd] whileFalse: [line := strm nextLine. line size > 0 ifTrue: [line first = $# ifTrue: [vers ifNotNil: [sections addLast: {vers. fileNames asArray}]. "Start a new section" vers := line allButFirst. fileNames resetTo: 1] ifFalse: [line first = $* ifFalse: [fileNames addLast: line]]]]. vers ifNotNil: [sections addLast: {vers. fileNames asArray}]. ^ sections asArray " TEST: | list | list := UpdateStreamDownloader parseListContents: (FileStream oldFileNamed: 'updates.list') contentsOfEntireFile. list = (UpdateStreamDownloader parseListContents: (String streamContents: [:s | UpdateStreamDownloader writeList: list toStream: s])) ifFalse: [self error: 'test failed'] ifTrue: [self inform: 'test OK'] "! ----- Method: UpdateStreamDownloader class>>position:atVersion: (in category 'fetching updates') ----- position: updateStrm atVersion: version "Set the stream to the end of the last line of updates names for this version. Usually the end of the file. We will add a new update name. Return the contents of the rest of the file." | char foundIt where data | updateStrm reset; ascii. foundIt := false. [char := updateStrm next. updateStrm atEnd] whileFalse: [ (char == Character cr or: [char == Character lf]) ifTrue: [ updateStrm peek == $# ifTrue: [ foundIt ifTrue: ["Next section" where := updateStrm position. data := updateStrm upTo: (255 asCharacter). updateStrm position: where. ^ data]. "won't be found -- copy all the way to the end" updateStrm next. (updateStrm nextMatchAll: version) ifTrue: [ (updateStrm atEnd or: [(updateStrm peek = Character cr) | (updateStrm peek = Character lf)]) ifTrue: [ foundIt := true ]]]]]. foundIt ifTrue: [ updateStrm setToEnd. ^ '']. self error: 'The current version does not have a section in the Updates file'. ! ----- Method: UpdateStreamDownloader class>>readNextUpdateFromServer (in category 'fetching updates') ----- readNextUpdateFromServer "UpdateStreamDownloader readNextUpdateFromServer" self updateFromServerThroughUpdateNumber: (ChangeSet highestNumberedChangeSet + 1)! ----- Method: UpdateStreamDownloader class>>readNextUpdatesFromDisk: (in category 'fetching updates') ----- readNextUpdatesFromDisk: n "Read the updates up through the current highest-update-number plus n. Thus, UpdateStreamDownloader readNextUpdatesFromDisk: 7 will read the next seven updates from disk" self applyUpdatesFromDiskToUpdateNumber: ChangeSet highestNumberedChangeSet + n stopIfGap: false! ----- Method: UpdateStreamDownloader class>>readServer:special:updatesThrough:saveLocally:updateImage: (in category 'fetching updates') ----- readServer: serverList special: indexPrefix updatesThrough: maxNumber saveLocally: saveLocally updateImage: updateImage "Scan the update server(s) for unassimilated updates. If maxNumber is not nil, it represents the highest-numbered update to load. This makes it possible to update only up to a particular point. If saveLocally is true, then save local copies of the update files on disc. If updateImage is true, then absorb the updates into the current image." "UpdateStreamDownloader readServer: UpdateStreamDownloader serverUrls updatesThrough: 828 saveLocally: true updateImage: true" | str urls failed loaded | Cursor wait showWhile: [ | docQueue docQueueSema | urls := self newUpdatesOn: (serverList collect: [:url | url, 'updates/']) special: indexPrefix throughNumber: maxNumber. loaded := 0. failed := nil. "send downloaded documents throuh this queue" docQueue := SharedQueue new. "this semaphore keeps too many documents from beeing queueed up at a time" docQueueSema := Semaphore new. 5 timesRepeat: [ docQueueSema signal ]. "fork a process to download the updates" self retrieveUrls: urls ontoQueue: docQueue withWaitSema: docQueueSema. "process downloaded updates in the foreground" 'Processing updates' displayProgressFrom: 0 to: urls size during: [:bar | | nextDoc this updateName | [ this := docQueue next. nextDoc := docQueue next. nextDoc = #failed ifTrue: [ failed := this ]. (failed isNil and: [ nextDoc ~= #finished ]) ] whileTrue: [ failed ifNil: [ nextDoc reset; text. nextDoc size = 0 ifTrue: [ failed := this ]. ]. failed ifNil: [ nextDoc peek asciiValue = 4 "pure object file" ifTrue: [failed := this]]. "Must be fileIn, not pure object file" failed ifNil: [ "(this endsWith: '.html') ifTrue: [doc := doc asHtml]." "HTML source code not supported here yet" updateImage ifTrue: [ updateName := (this findTokens: '/') last. ChangeSet newChangesFromStream: nextDoc named: updateName. SystemVersion current registerUpdate: updateName initialIntegerOrNil]. saveLocally ifTrue: [self saveUpdate: nextDoc onFile: (this findTokens: '/') last]. "if wanted" loaded := loaded + 1. bar value: loaded]. docQueueSema signal]. ]]. failed ~~ nil & (urls size - loaded > 0) ifTrue: [ str := loaded printString ,' new update file(s) processed.'. str := str, '\Could not load ' withCRs, (urls size - loaded) printString ,' update file(s).', '\Starting with "' withCRs, failed, '".'. self inform: str]. ^ Array with: failed with: loaded ! ----- Method: UpdateStreamDownloader class>>readServerUpdatesSaveLocally:updateImage: (in category 'fetching updates') ----- readServerUpdatesSaveLocally: saveLocally updateImage: updateImage ^ self readServerUpdatesThrough: nil saveLocally: saveLocally updateImage: updateImage! ----- Method: UpdateStreamDownloader class>>readServerUpdatesThrough:saveLocally:updateImage: (in category 'fetching updates') ----- readServerUpdatesThrough: maxNumber saveLocally: saveLocally updateImage: updateImage "Scan the update server(s) for unassimilated updates. If maxNumber is not nil, it represents the highest-numbered update to load. This makes it possible to update only up to a particular point. If saveLocally is true, then save local copies of the update files on disc. If updateImage is true, then absorb the updates into the current image. A file on the server called updates.list has the names of the last N update files. We look backwards for the first one we do not have, and start there" "* To add a new update: Name it starting with a new two-digit code. * Do not use %, /, *, space, or more than one period in the name of an update file. * The update name does not need to have any relation to the version name. * Figure out which versions of the system the update makes sense for. * Add the name of the file to each version's category below. * Put this file and the update file on all of the servers. * * To make a new version of the system: Pick a name for it (no restrictions) * Put # and exactly that name on a new line at the end of this file. * During the release process, fill in exactly that name in the dialog box. * Put this file on the server." "When two sets of updates need to use the same directory, one of them has a * in its serverUrls description. When that is true, the first word of the description is put on the front of 'updates.list', and that is the index file used." "UpdateStreamDownloader readServerUpdatesThrough: 3922 saveLocally: true updateImage: true" | failed loaded str res servers triple tryAgain indexPrefix | UpdateStreamDownloader chooseUpdateList ifFalse: [^ self]. "ask the user which kind of updates" servers := UpdateStreamDownloader serverUrls copy. indexPrefix := (UpdateStreamDownloader updateUrlLists first first includes: $*) ifTrue: [(UpdateStreamDownloader updateUrlLists first first findTokens: ' ') first] "special for internal updates" ifFalse: ['']. "normal" [servers isEmpty] whileFalse: [ triple := self readServer: servers special: indexPrefix updatesThrough: maxNumber saveLocally: saveLocally updateImage: updateImage. "report to user" failed := triple first. loaded := triple second. tryAgain := false. failed ifNil: ["is OK" loaded = 0 ifTrue: ["found no updates" servers size > 1 ifTrue: ["not the last server" res := UIManager default chooseFrom: #('Stop looking' 'Try next server') title: 'No new updates on the server ', servers first, ' Would you like to try the next server? (Normally, all servers are identical, but sometimes a server won''t let us store new files, and gets out of date.)' . res = 2 ifFalse: [^ self] ifTrue: [servers := servers allButFirst. "try the next server" tryAgain := true]]]]. tryAgain ifFalse: [ str := loaded printString ,' new update file(s) processed.'. ^ self inform: str]. ].! ----- 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 := 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! ----- Method: UpdateStreamDownloader class>>saveUpdate:onFile: (in category 'fetching updates') ----- saveUpdate: doc onFile: fileName "Save the update on a local file. With or without the update number on the front, depending on the preference #updateRemoveSequenceNum" | file fName pos updateDirectory | (FileDirectory default directoryNames includes: 'updates') ifFalse: [FileDirectory default createDirectory: 'updates']. updateDirectory := FileDirectory default directoryNamed: 'updates'. fName := fileName. (Preferences valueOfFlag: #updateRemoveSequenceNum) ifTrue: [pos := fName findFirst: [:c | c isDigit not]. fName := fName copyFrom: pos to: fName size]. doc reset; ascii. (updateDirectory fileExists: fName) ifFalse: [file := updateDirectory newFileNamed: fName. file nextPutAll: doc contents. file close]. ! ----- Method: UpdateStreamDownloader class>>serverUrls (in category 'fetching updates') ----- serverUrls "Return the current list of server URLs. For code updates. Format of UpdateUrlLists is #( ('squeak updates' ('url1' 'url2')) ('some other updates' ('url3' 'url4')))" | list | list := UpdateUrlLists first last. "If there is a dead server, return a copy with that server last" Socket deadServer ifNotNil: [ list clone withIndexDo: [:aName :ind | (aName beginsWith: Socket deadServer) ifTrue: [ list := list asOrderedCollection. "and it's a copy" list removeAt: ind. list addLast: aName]] ]. ^ list asArray! ----- Method: UpdateStreamDownloader class>>setUpdateServer: (in category 'fetching updates') ----- setUpdateServer: groupName "UpdateStreamDownloader setUpdateServer: 'Squeakland' " | entry index | entry := UpdateUrlLists detect: [:each | each first = groupName] ifNone: [^self]. index := UpdateUrlLists indexOf: entry. UpdateUrlLists removeAt: index. UpdateUrlLists addFirst: entry! ----- Method: UpdateStreamDownloader class>>summariesForUpdates:through: (in category 'fetching updates') ----- summariesForUpdates: startNumber through: stopNumber "Answer the concatenation of summary strings for updates numbered in the given range" ^ String streamContents: [:aStream | ((ChangeSet changeSetsNamedSuchThat: [:aName | aName first isDigit and: [aName initialIntegerOrNil >= startNumber and: [aName initialIntegerOrNil <= stopNumber]]]) asSortedCollection: [:a :b | a name < b name]) do: [:aChangeSet | aStream cr; nextPutAll: aChangeSet summaryString]] "UpdateStreamDownloader summariesForUpdates: 4899 through: 4903" ! ----- Method: UpdateStreamDownloader class>>updateComment (in category 'fetching updates') ----- updateComment "The following used to be at the beginning of the update file. Now it is here to simplify parsing the file... * To add a new update: Name it starting with a new four-digit code. * Do not use %, /, *, space, or more than one period in the name of an update file. * The update name does not need to have any relation to the version name. * Figure out which versions of the system the update makes sense for. * Add the name of the file to each version's category below. * Put this file and the update file on all of the servers. * * To make a new version of the system: Pick a name for it (no restrictions) * Put # and exactly that name on a new line at the end of this file. * During the release process, fill in exactly that name in the dialog box. * Put a copy of updates.list on the server. * * Special file with a different name for Disney Internal Updates. * No need to move or rename files to release them to external updates. "! ----- Method: UpdateStreamDownloader class>>updateFromServer (in category 'fetching updates') ----- updateFromServer "Update the image by loading all pending updates from the server. Also save local copies of the update files if the #updateSavesFile preference is set to true" self readServerUpdatesSaveLocally: Preferences updateSavesFile updateImage: true! ----- Method: UpdateStreamDownloader class>>updateFromServerThroughUpdateNumber: (in category 'fetching updates') ----- updateFromServerThroughUpdateNumber: aNumber "Update the image by loading all pending updates from the server. Also save local copies of the update files if the #updateSavesFile preference is set to true" self readServerUpdatesThrough: aNumber saveLocally: Preferences updateSavesFile updateImage: true! ----- Method: UpdateStreamDownloader class>>updateUrlLists (in category 'fetching updates') ----- updateUrlLists UpdateUrlLists ifNil: [UpdateUrlLists := OrderedCollection new]. ^ UpdateUrlLists! ----- Method: UpdateStreamDownloader class>>writeList:toStream: (in category 'fetching updates') ----- writeList: listContents toStream: strm "Write a parsed updates.list out as text. This is the inverse of parseListContents:" strm reset. listContents do: [:pair | | version fileNames | version := pair first. fileNames := pair last. strm nextPut: $#; nextPutAll: version; cr. fileNames do: [:fileName | strm nextPutAll: fileName; cr]]. strm close! ----- Method: UpdateStreamDownloader class>>zapUpdateDownloader (in category 'fetching updates') ----- zapUpdateDownloader UpdateDownloader ifNotNil: [UpdateDownloader terminate]. UpdateDownloader := nil.!

1 0

Daily Commit Log
by commits＠source.squeak.org 06 Dec '13

06 Dec '13

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2013-December/006693.h… Name: System-fbs.633 Ancestors: System-cmm.632 Make Etoys responsible for its own #cleanUp:. This way #shrink can get away with less. (The other line removals are because those actions are covered by other classes' aggressive cleanups.) ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-December/006694.h… Name: EToys-fbs.115 Ancestors: EToys-fbs.114 Make Etoys responsible for its own #cleanUp:. =============================================

1 0

The Trunk: EToys-fbs.115.mcz
by commits＠source.squeak.org 05 Dec '13

05 Dec '13

Frank Shearar uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-fbs.115.mcz ==================== Summary ==================== Name: EToys-fbs.115 Author: fbs Time: 5 December 2013, 9:01:55.042 pm UUID: d1b9128c-0b6d-bd48-aa5d-ffe5054ea523 Ancestors: EToys-fbs.114 Make Etoys responsible for its own #cleanUp:. =============== Diff against EToys-fbs.114 =============== Item was added: + ----- Method: EToySystem class>>cleanUp: (in category 'class initialization') ----- + cleanUp: aggressive + aggressive ifTrue: [ + StandardScriptingSystem removeUnreferencedPlayers. + Project removeAllButCurrent. + #('Morphic-UserObjects' 'EToy-UserObjects' 'Morphic-Imported' ) do: + [ : each | SystemOrganization removeSystemCategory: each ]. + World dumpPresenter. + Presenter defaultPresenterClass: nil. + Preferences removePreference: #allowEtoyUserCustomEvents.]!

1 0

The Trunk: System-fbs.633.mcz
by commits＠source.squeak.org 05 Dec '13

05 Dec '13

Frank Shearar uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-fbs.633.mcz ==================== Summary ==================== Name: System-fbs.633 Author: fbs Time: 5 December 2013, 8:59:53.138 pm UUID: 49720c6c-6cb2-7847-95f7-a34a621964fe Ancestors: System-cmm.632 Make Etoys responsible for its own #cleanUp:. This way #shrink can get away with less. (The other line removals are because those actions are covered by other classes' aggressive cleanups.) =============== Diff against System-cmm.632 =============== Item was removed: - ----- Method: SmalltalkImage>>cleanUpEtoys (in category 'shrinking') ----- - cleanUpEtoys - StandardScriptingSystem removeUnreferencedPlayers. - Project removeAllButCurrent. - #('Morphic-UserObjects' 'EToy-UserObjects' 'Morphic-Imported' ) do: - [ : each | SystemOrganization removeSystemCategory: each ]. - World dumpPresenter. - Presenter defaultPresenterClass: nil. - Preferences removePreference: #allowEtoyUserCustomEvents. - ! Item was changed: ----- Method: SmalltalkImage>>removeChangeSets (in category 'shrinking') ----- removeChangeSets + self deprecated: 'Use ChangeSet cleanUp: true'. + ChangeSet cleanUp: true.! - ChangeSet removeChangeSetsNamedSuchThat: - [ : each | (each == ChangeSet current) not ]. - ChangeSet current - clear ; - name: 'Unnamed1'! Item was changed: ----- Method: SmalltalkImage>>shrink (in category 'shrinking') ----- shrink "Clean up everything we know how to clean up that can be restored." "Prepare unloading" self zapMVCprojects. Flaps disableGlobalFlaps: false. - self cleanUpEtoys. "Yeow, why turn off listening for system changes?" self at: #ServiceRegistry ifPresent: [ : aClass | SystemChangeNotifier uniqueInstance noMoreNotificationsFor: aClass ]. self unloadReloadablePackages. + "Post-unload aggressive cleanup" + Smalltalk cleanUp: true. - "Post-unload cleanup" - SmalltalkImage cleanUp. - MCWorkingCopy flushObsoletePackageInfos. - "aggressive cleanUp" SystemOrganization removeSystemCategory: 'UserObjects'. + Smalltalk at: #ScheduledControllers ifPresent: [Smalltalk at: #ScheduledControllers put: nil]. - ScheduledControllers := nil. - SystemOrganization removeEmptyCategories. - StandardScriptingSystem initialize. - "aggressive cleanUp" - self removeChangeSets. - self - at: #Browser - ifPresent: - [ : br | br initialize ]. - DebuggerMethodMap voidMapCache. - DataStream initialize. Smalltalk garbageCollect!

1 0

startup filenames?
by tim Rowledge 04 Dec '13

04 Dec '13

A long time ago, I recall we used to have some code in the early start up sequence that read the names of any files passed in with the start up command (was it something like #readStartupDocuments?). I can’t find anything that looks like that in the current 4.4-ish image. What am I failing to see? tim -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim Useful Latin Phrases:- Die dulci fruere = Have a nice day

2 2

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

04 Dec '13

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2013-December/006688.h… Name: Tools-fbs.506 Ancestors: Tools-cmm.503 Tools-fbs.505 is broken because, while it has the right postscript, I failed to remove the all the other stuff around the preference. Don't program while tired. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-December/006689.h… Name: Tools-cmm.507 Ancestors: Tools-fbs.506 - RecentMessageSet don't blow up if you get out-of-sync with RecentMessages default. - Don't filter for #isValid in the UI. Instead, maintain a valid domain. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-December/006690.h… Name: System-cmm.632 Ancestors: System-fbs.631 - Method to #resume RecentMessages, although I have no idea how it got stuck suspended. - Only filter DoIt's from RecentMessages. - Remove arbitrary restriction and inherit the Smalltalk environment's error-handling. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-December/006691.h… Name: Kernel-eem.823 Ancestors: Kernel-eem.822 AdditionalMethodState>>analogousCodeTo: needs to reject other kinds of objects, not assume they're AdditionalMethodState instances. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-December/006692.h… Name: Compiler-eem.276 Ancestors: Compiler-cmm.275 Access VariableNode's index inst var directly instead of reconstructing it form the code inst var. This removes an artificial limit of 256 temps in any one method. =============================================

1 0

Re: [squeak-dev] would it be fun to implement Squeak on this hardware?
by karl ramberg 03 Dec '13

03 Dec '13

PIC Smalltalk does much of this. But it translates everything to assembler. http://www.huv.com/uSeeker/smalltalk/pic.html Karl On Sat, Nov 30, 2013 at 12:19 AM, Jecel Assumpcao Jr. <jecel(a)merlintec.com>wrote: > Tim Rowledge wrote: > > On 29-11-2013, at 1:18 PM, Doug Jones wrote: > > > > > > http://www.kickstarter.com/projects/214379695/micro-python-python-for-micro… > > > > >> The microcontroller is clocked at 168MHz and has 1MiB flash and > 192KiB RAM, > > >> which is plenty for writing complex Python scripts. > > Umm, not really. That's a bit tight, rather slow, and likely to > disappoint. At least, for > > anything we currently think of as Squeak. Now, a simple (it would have > to be very > > simple to save space) vm running a tiny Spoon based image *might* be > possible > > and even useful. The smallest machine I've ever run a "normal" Smalltalk > system > > on was the Active Book, which had a whole 1Mb or Ram, though that did > have to > > serve the OS, provide the screen buffer, and host a Fax storage filing > system. And > > it *was* only a 8MHz ARM2 cpu. > > It would probably be possible to squeeze Little Smalltalk into such a > tiny computer. While it wouldn't do much, it would be comparable to this > Python interpreter. It would also work just fine on a text terminal > while non graphical Squeak is rather painful to use (I played around > with two implementations). A framebuffer for 640x480 pixels with 256 > colors takes up 300KB, so having a VNC client on the PC side wouldn't > help. > > I am always interested in finding out how small things can be. The > original 1972 Dynabook paper proposed a machine with just 8K words of 16 > bits, but that was supposed to be a cache for a tape based virtual > memory system and if the display were persistent and readable (like the > plasma terminals from Plato) you could do without a frame buffer. The > Alto was a 128KB machine, on the other hand, and this ARM > microcontroller is was more powerful than it was. > > -- Jecel > > http://www.mprove.de/diplom/gui/Kay72a.pdf > > >

5 7

The Trunk: Compiler-eem.276.mcz
by commits＠source.squeak.org 03 Dec '13

03 Dec '13

Eliot Miranda uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-eem.276.mcz ==================== Summary ==================== Name: Compiler-eem.276 Author: eem Time: 3 December 2013, 11:47:59.234 am UUID: e99950e7-3dd5-4d06-9647-f3742bdc5949 Ancestors: Compiler-cmm.275 Access VariableNode's index inst var directly instead of reconstructing it form the code inst var. This removes an artificial limit of 256 temps in any one method. =============== Diff against Compiler-cmm.275 =============== Item was changed: ----- Method: VariableNode>>index (in category 'testing') ----- index + "If index is nil, this code attempts to reconstruct the index from its encoding in code." + index ifNotNil: + [^index]. - "This code attempts to reconstruct the index from its encoding in code." code < 0 ifTrue:[^nil]. code > 256 ifTrue: [self assert: index = (code \\ 256). ^code \\ 256]. code >= (CodeBases at: self type) ifTrue: [self assert: index = (code - (CodeBases at: self type)). ^code - (CodeBases at: self type)]. self assert: index = (code - self type). ^code - self type!

1 0

Jump to page: