Packages July 2016

packages@lists.squeakfoundation.org

1 participants
141 discussions

The Trunk: CollectionsTests-topa.265.mcz
by commits＠source.squeak.org 10 Jul '16

10 Jul '16

Tobias Pape uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-topa.265.mcz ==================== Summary ==================== Name: CollectionsTests-topa.265 Author: topa Time: 10 July 2016, 8:59:28.460057 pm UUID: ab27728f-2668-44b0-9857-33016d691ee4 Ancestors: CollectionsTests-ul.264 Add a test for Ascii85 conversion =============== Diff against CollectionsTests-ul.264 =============== Item was added: + TestCase subclass: #Ascii85ConverterTest + instanceVariableNames: 'decoded encoded' + classVariableNames: '' + poolDictionaries: '' + category: 'CollectionsTests-Streams'! + + !Ascii85ConverterTest commentStamp: '<historical>' prior: 0! + This is the unit test for the class Base64MimeConverter. Unit tests are a good way to exercise the functionality of your system in a repeatable and automatic manner. They are therefore recommended if you plan to release anything. For more information, see: + - http://www.c2.com/cgi/wiki?UnitTest + - http://minnow.cc.gatech.edu/squeak/1547 + - the sunit class category! Item was added: + ----- Method: Ascii85ConverterTest>>decoded (in category 'accessing') ----- + decoded + + ^ decoded! Item was added: + ----- Method: Ascii85ConverterTest>>decoded: (in category 'accessing') ----- + decoded: anObject + + decoded := anObject! Item was added: + ----- Method: Ascii85ConverterTest>>encoded (in category 'accessing') ----- + encoded + + ^ encoded! Item was added: + ----- Method: Ascii85ConverterTest>>encoded: (in category 'accessing') ----- + encoded: anObject + + encoded := anObject! Item was added: + ----- Method: Ascii85ConverterTest>>hackedEncoded (in category 'accessing') ----- + hackedEncoded + + ^ String streamContents: + [:out | | in | + in := self encoded readStream. + out + nextPutAll: (in next: 5); + cr; + nextPutAll: (in next: 4); + space; + nextPutAll: in upToEnd] + ! Item was added: + ----- Method: Ascii85ConverterTest>>setUp (in category 'initialize-release') ----- + setUp + self decoded: 'Hi There!!'. + self encoded: '<~8802GBOu3q+T~>'.! Item was added: + ----- Method: Ascii85ConverterTest>>testAscii85Encoded (in category 'tests') ----- + testAscii85Encoded + + self + assert: (Ascii85Converter encode: self decoded) contents + equals: self decoded ascii85Encoded + description: 'The convenience method should match the converters output' + ! Item was added: + ----- Method: Ascii85ConverterTest>>testDecode1Zero (in category 'tests') ----- + testDecode1Zero + | bits chars | + bits := #[0]. + chars := '<~!!!!~>'. + self + assert: bits + equals: (Ascii85Converter decodeToBytes: chars) contents + description: 'Decoding should decode three zeros without squashing'. + ! Item was added: + ----- Method: Ascii85ConverterTest>>testDecode3Zeros (in category 'tests') ----- + testDecode3Zeros + | bits chars | + bits := #[0 0 0]. + chars := '<~!!!!!!!!~>'. + self + assert: bits + equals: (Ascii85Converter decodeToBytes: chars) contents + description: 'Decoding should decode three zeros without squashing'. + ! Item was added: + ----- Method: Ascii85ConverterTest>>testDecode4Zeros (in category 'tests') ----- + testDecode4Zeros + | bits chars | + bits := #[0 0 0 0]. + chars := '<~z~>'. + self + assert: bits + equals: (Ascii85Converter decodeToBytes: chars) contents + description: 'Decoding should decode four zeros with squashing'. + ! Item was added: + ----- Method: Ascii85ConverterTest>>testDecode5Zeros (in category 'tests') ----- + testDecode5Zeros + | bits chars | + bits := #[0 0 0 0 0]. + chars := '<~z!!!!~>'. + self + assert: bits + equals: (Ascii85Converter decodeToBytes: chars) contents + description: 'Decoding should decode five zeros with squashing and a bang'. + ! Item was added: + ----- Method: Ascii85ConverterTest>>testDecodeEndTooShort (in category 'tests') ----- + testDecodeEndTooShort + | chars | + chars := '<~z!!~>'. + self + should: [Ascii85Converter decodeToBytes: chars] + raise: Error + description: 'Decoding too short end tuple should raise an error'.! Item was added: + ----- Method: Ascii85ConverterTest>>testDecodeIgnoreFiller (in category 'tests') ----- + testDecodeIgnoreFiller + + self + assert: self decoded + equals: self hackedEncoded ascii85Decoded + description: 'Decoding should ignore linebreaks and spaces'. + ! Item was added: + ----- Method: Ascii85ConverterTest>>testEncodeDecode (in category 'tests') ----- + testEncodeDecode + + | encoded | + encoded := (Ascii85Converter encode: self decoded) contents. + self + assert: self encoded + equals: encoded + description: 'A simple text should be encodable.'. + self + assert: self decoded + equals: (Ascii85Converter decodeToChars: encoded) contents + description: 'The encoded text decoded should match the original'. + ! Item was added: + ----- Method: Ascii85ConverterTest>>testEncodeDecodeMultiLine (in category 'tests') ----- + testEncodeDecodeMultiLine + " PLRM page 131: + It inserts a newline in the encoded output at least once every 80 characters, + thereby limiting the lengths of lines. + " + | aHundred encodedLines | + aHundred := String new: 100 withAll: $a. + encodedLines := (Ascii85Converter encode: aHundred) contents lines. + self + assert: (encodedLines collect: [:ea | ea size]) max <= 80 + description: 'Encoded long lines should break at max 80 characters'. + ! Item was added: + ----- Method: Ascii85ConverterTest>>testEncodeDecodeWithZ (in category 'tests') ----- + testEncodeDecodeWithZ + " PLRM page 131: + As a special case, if all five digits are 0, they are represented by a single character z + instead of by !!!!!!!!!!. + " + | bits chars | + bits := #[40 50 60 0 0 0 0 0 0 0 0 0 0 0 40 50 60]. + chars := '<~-o*mbzz!!!!"E&49~>'. + self + assert: chars + equals: (Ascii85Converter encode: bits) contents + description: 'Encoding should squash five-tuples of 0 to z'. + self + assert: chars + equals: (Ascii85Converter encode: bits asString) contents + description: 'Encoding should squash five-tuples of 0 to z'. + self + assert: bits + equals: (Ascii85Converter decodeToBytes: chars) contents + description: 'Decoding should unsquash z to five-tuples of 0'. + self + assert: bits asString + equals: (Ascii85Converter decodeToChars: chars) contents + description: 'Decoding should unsquash z to five-tuples of 0'. + ! Item was added: + ----- Method: Ascii85ConverterTest>>testOnByteArray (in category 'tests') ----- + testOnByteArray + + self assert: self encoded equals: self decoded asByteArray ascii85Encoded.!

1 0

The Trunk: Files-eem.158.mcz
by commits＠source.squeak.org 08 Jul '16

08 Jul '16

Eliot Miranda uploaded a new version of Files to project The Trunk: http://source.squeak.org/trunk/Files-eem.158.mcz ==================== Summary ==================== Name: Files-eem.158 Author: eem Time: 8 July 2016, 11:34:56.899258 am UUID: bd16d152-2f96-4857-8363-c7364470391b Ancestors: Files-dtl.157 Add directoryNamesMatching: & streamline fileNamesMatching: =============== Diff against Files-dtl.157 =============== Item was added: + ----- Method: FileDirectory>>directoryNamesMatching: (in category 'file name utilities') ----- + directoryNamesMatching: pat + " + FileDirectory default directoryNamesMatching: '*' + FileDirectory default directoryNamesMatching: '*_segs' + " + + | directories directoryNames | + directories := OrderedCollection new. + directoryNames := self directoryNames. + (pat findTokens: ';', String crlf) do: + [:tok | + directories addAll: (directoryNames select: [:name | tok match: name])]. + ^directories! Item was changed: ----- Method: FileDirectory>>fileNamesMatching: (in category 'file name utilities') ----- fileNamesMatching: pat " FileDirectory default fileNamesMatching: '*' FileDirectory default fileNamesMatching: '*.image;*.changes' " + | files fileNames | - | files | files := OrderedCollection new. + fileNames := self fileNames. + (pat findTokens: ';', String crlf) do: + [:tok | + files addAll: (fileNames select: [:name | tok match: name])]. + ^files! - - (pat findTokens: ';', String crlf) do: [ :tok | - files addAll: (self fileNames select: [:name | tok match: name]) ]. - - ^files - !

1 0

The Trunk: Chronology-Tests-bf.3.mcz
by commits＠source.squeak.org 08 Jul '16

08 Jul '16

Bert Freudenberg uploaded a new version of Chronology-Tests to project The Trunk: http://source.squeak.org/trunk/Chronology-Tests-bf.3.mcz ==================== Summary ==================== Name: Chronology-Tests-bf.3 Author: bf Time: 8 July 2016, 11:48:56.621846 am UUID: 5655e31d-4351-4717-844c-4fc931c79945 Ancestors: Chronology-Tests-cmm.2 Test printing time with nanos =============== Diff against Chronology-Tests-cmm.2 =============== Item was changed: ClassTestCase subclass: #TimeTest + instanceVariableNames: 'time aTime localTimeZoneToRestore timeWithNanos' - instanceVariableNames: 'time aTime localTimeZoneToRestore' classVariableNames: '' poolDictionaries: '' category: 'Chronology-Tests'! !TimeTest commentStamp: '<historical>' prior: 0! This is the unit test for the class Time. ! Item was changed: ----- Method: TimeTest>>setUp (in category 'Running') ----- setUp localTimeZoneToRestore := DateAndTime localTimeZone. DateAndTime localTimeZone: TimeZone default. time := self timeClass fromSeconds: 14567. "4:02:47 am" + aTime := self timeClass readFrom: '12:34:56 pm' readStream. + timeWithNanos := self timeClass fromSeconds: 14567.42. - aTime := Time readFrom: '12:34:56 pm' readStream ! Item was added: + ----- Method: TimeTest>>testPrintingNanos (in category 'Tests') ----- + testPrintingNanos + + self + assert: timeWithNanos printString = '4:02:47.42 am'; + assert: timeWithNanos intervalString = '4 hours 2 minutes 47 seconds'; + assert: timeWithNanos print24 = '04:02:47'; + assert: timeWithNanos printMinutes = '4:02 am'; + assert: timeWithNanos hhmm24 = '0402'. + !

1 0

The Trunk: Chronology-Core-bf.7.mcz
by commits＠source.squeak.org 08 Jul '16

08 Jul '16

Bert Freudenberg uploaded a new version of Chronology-Core to project The Trunk: http://source.squeak.org/trunk/Chronology-Core-bf.7.mcz ==================== Summary ==================== Name: Chronology-Core-bf.7 Author: bf Time: 8 July 2016, 11:47:29.911394 am UUID: de32e02b-c9bb-43b6-acd3-c42c26188e28 Ancestors: Chronology-Core-cmm.6 Do not print nanoseconds unless requested =============== Diff against Chronology-Core-cmm.6 =============== Item was changed: ----- Method: Time>>print24:showSeconds:on: (in category 'printing') ----- print24: hr24 showSeconds: showSeconds on: aStream "Format is 'hh:mm:ss' or 'h:mm:ss am' or, if showSeconds is false, 'hh:mm' or 'h:mm am'" + ^self print24: hr24 showSeconds: showSeconds showSubseconds: false on: aStream ! - | h m s | - h := self hour. m := self minute. s := self second. - hr24 - ifTrue: - [ h < 10 ifTrue: [ aStream nextPutAll: '0' ]. - h printOn: aStream ] - ifFalse: - [ h > 12 - ifTrue: [h - 12 printOn: aStream] - ifFalse: - [h < 1 - ifTrue: [ 12 printOn: aStream ] - ifFalse: [ h printOn: aStream ]]]. - - aStream nextPutAll: (m < 10 ifTrue: [':0'] ifFalse: [':']). - m printOn: aStream. - - showSeconds ifTrue: - [ aStream nextPutAll: (s < 10 ifTrue: [':0'] ifFalse: [':']). - self nanoSecond = 0 - ifTrue: [s asInteger printOn: aStream] - ifFalse: [s asInteger * NanosInSecond + self nanoSecond asInteger - printOn: aStream asFixedPoint: NanosInSecond]]. - - hr24 ifFalse: - [ aStream nextPutAll: (h < 12 ifTrue: [' am'] ifFalse: [' pm']) ]. - ! Item was added: + ----- Method: Time>>print24:showSeconds:showSubseconds:on: (in category 'printing') ----- + print24: hr24 showSeconds: showSeconds showSubseconds: showSubseconds on: aStream + "Format is 'hh:mm:ss' or 'h:mm:ss am' or, if showSeconds is false, 'hh:mm' or 'h:mm am'. + If showSubseconds is true and our nanoSeconds are not zero, a decimal point and subseconds are added" + + | h m s | + h := self hour. m := self minute. s := self second. + hr24 + ifTrue: + [ h < 10 ifTrue: [ aStream nextPutAll: '0' ]. + h printOn: aStream ] + ifFalse: + [ h > 12 + ifTrue: [h - 12 printOn: aStream] + ifFalse: + [h < 1 + ifTrue: [ 12 printOn: aStream ] + ifFalse: [ h printOn: aStream ]]]. + + aStream nextPutAll: (m < 10 ifTrue: [':0'] ifFalse: [':']). + m printOn: aStream. + + showSeconds ifTrue: + [ aStream nextPutAll: (s < 10 ifTrue: [':0'] ifFalse: [':']). + (showSubseconds not or: [self nanoSecond = 0]) + ifTrue: [s asInteger printOn: aStream] + ifFalse: [s asInteger * NanosInSecond + self nanoSecond asInteger + printOn: aStream asFixedPoint: NanosInSecond]]. + + hr24 ifFalse: + [ aStream nextPutAll: (h < 12 ifTrue: [' am'] ifFalse: [' pm']) ]. + ! Item was changed: ----- Method: Time>>printOn: (in category 'printing') ----- printOn: aStream self print24: false showSeconds: (self seconds ~= 0 or: [self nanoSecond ~= 0]) + showSubseconds: self nanoSecond ~= 0 on: aStream!

1 0

The Trunk: Tools-eem.706.mcz
by commits＠source.squeak.org 07 Jul '16

07 Jul '16

Eliot Miranda uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-eem.706.mcz ==================== Summary ==================== Name: Tools-eem.706 Author: eem Time: 7 July 2016, 11:56:10.988288 am UUID: 7de897f6-1e8c-428a-868d-74a535a39dcf Ancestors: Tools-topa.705 Add #format:variable:bitsUnitSize:pointers:weak: to noteDangerous: =============== Diff against Tools-topa.705 =============== Item was changed: ----- Method: MethodFinder>>noteDangerous (in category 'initialize') ----- noteDangerous "Remember the methods with really bad side effects." Dangerous := Set new. "Object accessing, testing, copying, dependent access, macpal, flagging" #(addInstanceVarNamed:withValue: haltIfNil copyAddedStateFrom: veryDeepCopy veryDeepCopyWith: veryDeepFixupWith: veryDeepInner: addDependent: evaluate:wheneverChangeIn: codeStrippedOut: playSoundNamed: isThisEverCalled isThisEverCalled: logEntry logExecution logExit) do: [:sel | Dangerous add: sel]. "Object error handling" #(cannotInterpret: caseError confirm: confirm:orCancel: doesNotUnderstand: error: halt halt: notify: notify:at: primitiveFailed shouldNotImplement subclassResponsibility) do: [:sel | Dangerous add: sel]. "Object user interface" #(basicInspect beep inform: inspect inspectWithLabel: notYetImplemented inspectElement ) do: [:sel | Dangerous add: sel]. "Object system primitives" #(become: becomeForward: instVarAt:put: instVarNamed:put: nextInstance nextObject rootStubInImageSegment: someObject tryPrimitive:withArgs:) do: [:sel | Dangerous add: sel]. "Object private" #(errorImproperStore errorNonIntegerIndex errorNotIndexable errorSubscriptBounds: mustBeBoolean primitiveError: species storeAt:inTempFrame:) do: [:sel | Dangerous add: sel]. "Object, translation support" #(cCode: cCode:inSmalltalk: cCoerce:to: export: inline: returnTypeC: sharedCodeNamed:inCase: var:declareC:) do: [:sel | Dangerous add: sel]. "Object, objects from disk, finalization. And UndefinedObject" #(comeFullyUpOnReload: objectForDataStream: readDataFrom:size: rehash saveOnFile storeDataOn: actAsExecutor executor finalize retryWithGC:until: suspend) do: [:sel | Dangerous add: sel]. "No Restrictions: Boolean, False, True, " "Morph" #() do: [:sel | Dangerous add: sel]. "Behavior" #(obsolete confirmRemovalOf: copyOfMethodDictionary literalScannedAs:notifying: storeLiteral:on: addSubclass: removeSubclass: superclass: "creating method dictionary" addSelector:withMethod: compile: compile:notifying: compileAll compileAllFrom: compress decompile: defaultSelectorForMethod: methodDictionary: recompile:from: recompileChanges removeSelector: compressedSourceCodeAt: selectorAtMethod:setClass: allInstances allSubInstances inspectAllInstances inspectSubInstances thoroughWhichSelectorsReferTo:special:byte: "enumerating" allInstancesDo: allSubInstancesDo: allSubclassesDo: allSuperclassesDo: selectSubclasses: selectSuperclasses: subclassesDo: withAllSubclassesDo: "too slow->" crossReference removeUninstantiatedSubclassesSilently "too slow->" unreferencedInstanceVariables + "private" flushCache format:variable:words:pointers: format:variable:words:pointers:weak: format:variable:bitsUnitSize:pointers:weak: printSubclassesOn:level: basicRemoveSelector: addSelector:withMethod:notifying: addSelectorSilently:withMethod:) - "private" flushCache format:variable:words:pointers: format:variable:words:pointers:weak: printSubclassesOn:level: basicRemoveSelector: addSelector:withMethod:notifying: addSelectorSilently:withMethod:) do: [:sel | Dangerous add: sel]. "CompiledMethod" #(defaultSelector) do: [:sel | Dangerous add: sel]. "Others " #("no tangible result" do: associationsDo: "private" adaptToCollection:andSend: adaptToNumber:andSend: adaptToPoint:andSend: adaptToString:andSend: instVarAt:put: asDigitsToPower:do: combinations:atATimeDo: doWithIndex: pairsDo: permutationsDo: reverseDo: reverseWith:do: with:do: withIndexDo: asDigitsAt:in:do: combinationsAt:in:after:do: errorOutOfBounds permutationsStartingAt:do: fromUser) do: [:sel | Dangerous add: sel]. #( fileOutPrototype addSpareFields makeFileOutFile ) do: [:sel | Dangerous add: sel]. #(recompile:from: recompileAllFrom: recompileChanges asPrototypeWithFields: asPrototype addInstanceVarNamed:withValue: addInstanceVariable addClassVarName: removeClassVarName: findOrAddClassVarName: instanceVariableNames: ) do: [:sel | Dangerous add: sel]. !

1 0

The Trunk: System-eem.836.mcz
by commits＠source.squeak.org 07 Jul '16

07 Jul '16

Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-eem.836.mcz ==================== Summary ==================== Name: System-eem.836 Author: eem Time: 7 July 2016, 11:51:22.921345 am UUID: b27dc440-8cbb-43a4-ac99-8db510ef9b1e Ancestors: System-eem.835 Modify string search in methods to search symbols that are not used as message selectors. =============== Diff against System-eem.835 =============== Item was changed: ----- Method: SystemNavigation>>browseMethodsWithString:matchCase: (in category 'browse') ----- browseMethodsWithString: aString matchCase: caseSensitive "Launch a browser on all methods that contain string literals with aString as a substring. Make the search case-sensitive or insensitive as dictated by the caseSensitive boolean parameter" self browseAllSelect: [:method | + method hasLiteralSuchThat: + [:lit | + lit isString + and: [(lit includesSubstring: aString caseSensitive: caseSensitive) + and: [lit isSymbol + ifTrue: [(method messages includes: lit) not] + ifFalse: [true]]]]] - method hasLiteralSuchThat: [:lit | - (lit isString and: [lit isSymbol not]) and: - [lit includesSubstring: aString caseSensitive: caseSensitive]]] name: 'Methods with string ', aString printString, (caseSensitive ifTrue: [' (case-sensitive)'] ifFalse: [' (case-insensitive)']) + autoSelect: aString! - autoSelect: aString. - !

1 0

The Trunk: Morphic-eem.1189.mcz
by commits＠source.squeak.org 07 Jul '16

07 Jul '16

Eliot Miranda uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-eem.1189.mcz ==================== Summary ==================== Name: Morphic-eem.1189 Author: eem Time: 7 July 2016, 11:39:54.334537 am UUID: 0aaf4adb-3407-4afb-b0c5-d8275daaa0db Ancestors: Morphic-cmm.1188 Tiny cleanup. =============== Diff against Morphic-cmm.1188 =============== Item was changed: ----- Method: MorphicProject>>exportSegmentWithChangeSet:fileName:directory: (in category 'file in/out') ----- exportSegmentWithChangeSet: aChangeSetOrNil fileName: aFileName directory: aDirectory "Store my project out on the disk as an *exported* ImageSegment. All outPointers will be in a form that can be resolved in the target image. Name it <project name>.extSeg. Whatdo we do about subProjects, especially if they are out as local image segments? Force them to come in? Player classes are included automatically." | is str ans revertSeg roots holder collector fd mgr stacks | "Files out a changeSet first, so that a project can contain its own classes" + world ifNil: [^ false]. + world presenter ifNil: [^ false]. - world ifNil: [^ false]. world presenter ifNil: [^ false]. ScrapBook default emptyScrapBook. world currentHand pasteBuffer: nil. "don't write the paste buffer." world currentHand mouseOverHandler initialize. "forget about any references here" "Display checkCurrentHandForObjectToPaste." Command initialize. world clearCommandHistory. world fullReleaseCachedState; releaseViewers. world cleanseStepList. world localFlapTabs size = world flapTabs size ifFalse: [ self error: 'Still holding onto Global flaps']. world releaseSqueakPages. holder := Project allProjects. "force them in to outPointers, where DiskProxys are made" "Just export me, not my previous version" revertSeg := self parameterAt: #revertToMe. self removeParameter: #revertToMe. roots := OrderedCollection new. + roots add: self; add: world; add: transcript; add: aChangeSetOrNil; add: thumbnail; add: world activeHand. - roots add: self; add: world; add: transcript; add: changeSet; add: thumbnail. - roots add: world activeHand. "; addAll: classList; addAll: (classList collect: [:cls | cls class])" roots := roots reject: [ :x | x isNil]. "early saves may not have active hand or thumbnail" + fd := aDirectory directoryNamed: self resourceDirectoryName. + fd assureExistence. + "Clean up resource references before writing out" + mgr := self resourceManager. + self resourceManager: nil. + ResourceCollector current: ResourceCollector new. + ResourceCollector current localDirectory: fd. + ResourceCollector current baseUrl: self resourceUrl. + ResourceCollector current initializeFrom: mgr. + ProgressNotification signal: '2:findingResources' extra: + '(collecting resources...)' translated. + "Must activate old world because this is run at #armsLength. + Otherwise references to ActiveWorld, ActiveHand, or ActiveEvent + will not be captured correctly if referenced from blocks or user code." + world becomeActiveDuring:[ + is := ImageSegment new copySmartRootsExport: roots asArray. + "old way was (is := ImageSegment new + copyFromRootsForExport: roots asArray)" + ]. + self resourceManager: mgr. + collector := ResourceCollector current. + ResourceCollector current: nil. + ProgressNotification signal: '2:foundResources' extra: ''. + is state = #tooBig ifTrue: [ + collector replaceAll. + ^ false]. - fd := aDirectory directoryNamed: self resourceDirectoryName. - fd assureExistence. - "Clean up resource references before writing out" - mgr := self resourceManager. - self resourceManager: nil. - ResourceCollector current: ResourceCollector new. - ResourceCollector current localDirectory: fd. - ResourceCollector current baseUrl: self resourceUrl. - ResourceCollector current initializeFrom: mgr. - ProgressNotification signal: '2:findingResources' extra: - '(collecting resources...)' translated. - "Must activate old world because this is run at #armsLength. - Otherwise references to ActiveWorld, ActiveHand, or ActiveEvent - will not be captured correctly if referenced from blocks or user code." - world becomeActiveDuring:[ - is := ImageSegment new copySmartRootsExport: roots asArray. - "old way was (is := ImageSegment new - copyFromRootsForExport: roots asArray)" - ]. - self resourceManager: mgr. - collector := ResourceCollector current. - ResourceCollector current: nil. - ProgressNotification signal: '2:foundResources' extra: ''. - is state = #tooBig ifTrue: [ - collector replaceAll. - ^ false]. str := ''. "considered legal to save a project that has never been entered" (is outPointers includes: world) ifTrue: [ str := str, '\Project''s own world is not in the segment.' translated withCRs]. str isEmpty ifFalse: [ ans := UIManager default chooseFrom: { 'Do not write file' translated. 'Write file anyway' translated. 'Debug' translated. } title: str. ans = 1 ifTrue: [ revertSeg ifNotNil: [projectParameters at: #revertToMe put: revertSeg]. collector replaceAll. ^ false]. ans = 3 ifTrue: [ collector replaceAll. self halt: 'Segment not written' translated]]. stacks := is findStacks. is writeForExportWithSources: aFileName inDirectory: fd changeSet: aChangeSetOrNil. SecurityManager default signFile: aFileName directory: fd. "Compress all files and update check sums" collector forgetObsolete. self storeResourceList: collector in: fd. self storeHtmlPageIn: fd. self storeManifestFileIn: fd. self writeStackText: stacks in: fd registerIn: collector. "local proj.005.myStack.t" self compressFilesIn: fd to: aFileName in: aDirectory resources: collector. "also deletes the resource directory" "Now update everything that we know about" mgr updateResourcesFrom: collector. revertSeg ifNotNil: [projectParameters at: #revertToMe put: revertSeg]. holder. collector replaceAll. world flapTabs do: [:ft | (ft respondsTo: #unhibernate) ifTrue: [ft unhibernate]]. is arrayOfRoots do: [:obj | obj isScriptEditorMorph ifTrue: [obj unhibernate]]. ^ true !

1 0

The Trunk: Kernel-eem.1032.mcz
by commits＠source.squeak.org 07 Jul '16

07 Jul '16

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.1032.mcz ==================== Summary ==================== Name: Kernel-eem.1032 Author: eem Time: 7 July 2016, 11:36:43.185017 am UUID: 0e4a81f4-1688-419a-b951-f0bc7a0b33fd Ancestors: Kernel-eem.1031 Faster method creation in CompiledMethodTrailer. Provide CompiledMethod>>voidCogVMState with a fail-over to flushCache, for safe modification of methods. Provide BlockClosure>>isNestedeWithin: for testing block nesting. =============== Diff against Kernel-eem.1031 =============== Item was added: + ----- Method: BlockClosure>>isNestedWithin: (in category 'testing') ----- + isNestedWithin: aContextOrBlock + "Answer if the receiver is nested within aContextOrBlock, which may be ither a Context, or a BlockClosure." + aContextOrBlock ifNotNil: + [self outerContextsDo: + [:ctxt| + (ctxt == aContextOrBlock + or: [ctxt closureOrNil = aContextOrBlock]) ifTrue: [^true]]]. + ^false! Item was added: + ----- Method: CompiledMethod>>voidCogVMState (in category 'cleaning') ----- + voidCogVMState + "Tell the VM to remove all references to any machine code form of the method. + This primitive must be called whenever a method is in use and modified. This is + more aggressive (and *much* more costly) than flushCache since it must search + through all context objects, making sure that none have a (hidden) machine code pc + in the receiver. Since modifying a method will likely change the generated machine code, + modifying a method (rather than redefining it) requires this more aggressive flush." + + <primitive: 215> + ^self flushCache! Item was changed: ----- Method: CompiledMethodTrailer>>createMethod:class:header: (in category 'creating a method') ----- createMethod: numberOfBytesForAllButTrailer class: aCompiledMethodClass header: headerWord + | meth delta | - | meth | encodedData ifNil: [self encode]. + - meth := aCompiledMethodClass newMethod: numberOfBytesForAllButTrailer + size header: headerWord. "copy the encoded trailer data" + delta := meth size - size. 1 to: size do: + [:i | meth at: delta + i put: (encodedData at: i)]. - [:i | meth at: meth size - size + i put: (encodedData at: i)]. ^meth!

1 0

The Trunk: Compiler-eem.323.mcz
by commits＠source.squeak.org 07 Jul '16

07 Jul '16

Eliot Miranda uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-eem.323.mcz ==================== Summary ==================== Name: Compiler-eem.323 Author: eem Time: 7 July 2016, 11:27:28.886558 am UUID: 52466c66-954e-47f9-8c43-2ce094580ab4 Ancestors: Compiler-eem.322 Comment bytecode 139 as the callPrimitive bytecode (Spur mandates this to lift the number of literals). =============== Diff against Compiler-eem.322 =============== Item was changed: EncoderForV3 subclass: #EncoderForV3PlusClosures instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Compiler-Kernel'! + !EncoderForV3PlusClosures commentStamp: 'eem 2/29/2016 00:07' prior: 0! - !EncoderForV3PlusClosures commentStamp: '<historical>' prior: 0! An encoder for the V3 bytecode set augmented with the following bytecodes that are part of the full closure implementation. 138 10001010 jkkkkkkk Push (Array new: kkkkkkk) (j = 0) or Pop kkkkkkk elements into: (Array new: kkkkkkk) (j = 1) + 139 10001011 kkkkkkkk jjjjjjjj Invoke primitive number jjjjjjjjkkkkkkkk - 140 10001100 kkkkkkkk jjjjjjjj Push Temp At kkkkkkkk In Temp Vector At: jjjjjjjj 141 10001101 kkkkkkkk jjjjjjjj Store Temp At kkkkkkkk In Temp Vector At: jjjjjjjj 142 10001110 kkkkkkkk jjjjjjjj Pop and Store Temp At kkkkkkkk In Temp Vector At: jjjjjjjj 143 10001111 llllkkkk jjjjjjjj iiiiiiii Push Closure Num Copied llll Num Args kkkk BlockSize jjjjjjjjiiiiiiii This is an exact duplicate of EncoderForLongFormV3PlusClosures. Could be a trait (or in Newspeak, a Mixin). For now we impose upon you to synchronise any and all changes between these two classes.!

1 0

The Trunk: Collections-eem.700.mcz
by commits＠source.squeak.org 07 Jul '16

07 Jul '16

Eliot Miranda uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-eem.700.mcz ==================== Summary ==================== Name: Collections-eem.700 Author: eem Time: 7 July 2016, 11:10:35.817225 am UUID: 3761f170-2d94-4ed1-bf3d-1790217dc3d3 Ancestors: Collections-eem.699 Better error messages for primitive failure of one-way become. Set lastChar in TranscriptStream (does this really belong in Collections?) when resetting. =============== Diff against Collections-eem.699 =============== Item was changed: ----- Method: Array>>elementsForwardIdentityTo:copyHash: (in category 'converting') ----- elementsForwardIdentityTo: otherArray copyHash: copyHash "This primitive performs a bulk mutation, causing all pointers to the elements of the receiver to be replaced by pointers to the corresponding elements of otherArray. If copyHash is true, the identityHashes remain with the pointers rather than with the objects so that the objects in the receiver should still be properly indexed in any existing hashed structures after the mutation. If copyHash is false, then the hashes of the objects in otherArray remain unchanged. If you know what you're doing this may indeed be what you want." <primitive: 249 error: ec> + ec == #'bad receiver' ifTrue: + [^self error: 'receiver must be of class Array']. + ec == #'bad argument' ifTrue: + [^self error: (otherArray class == Array + ifTrue: ['arg must be of class Array'] + ifFalse: ['receiver and argument must have the same size'])]. + ec == #'inappropriate operation' ifTrue: + [^self error: 'can''t become immediates such as SmallIntegers or Characters']. + ec == #'no modification' ifTrue: + [^self error: 'can''t become immutable objects']. + ec == #'object is pinned' ifTrue: + [^self error: 'can''t become pinned objects']. self primitiveFailed! Item was added: + ----- Method: TranscriptStream>>reset (in category 'positioning') ----- + reset + "Override to set lastChar" + position > 0 ifTrue: + [lastChar := collection at: position]. + ^super reset!

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages July 2016