Packages June 2020

packages@lists.squeakfoundation.org

1 participants
151 discussions

The Trunk: Monticello-cmm.726.mcz
by commits＠source.squeak.org 30 Jun '20

30 Jun '20

Chris Muller uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-cmm.726.mcz ==================== Summary ==================== Name: Monticello-cmm.726 Author: cmm Time: 30 June 2020, 5:21:11.609668 pm UUID: 1a529d96-0be7-45a8-a65e-b9dcae087b85 Ancestors: Monticello-mt.725 Revert incorrect implementation of sorting repositories, because it broke "demote to bottom" which broke "browse revisions" and "browse origin". =============== Diff against Monticello-mt.725 =============== Item was changed: ----- Method: MCWorkingCopyBrowser>>repositories (in category 'morphic ui') ----- repositories + ^ self repositoryGroup repositories! - | repositories | - repositories := self repositoryGroup repositories. - ^{repositories first}, (repositories allButFirst sort: [:r1 :r2| r1 description < r2 description])!

1 0

The Trunk: System-mt.1166.mcz
by commits＠source.squeak.org 29 Jun '20

29 Jun '20

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1166.mcz ==================== Summary ==================== Name: System-mt.1166 Author: mt Time: 29 June 2020, 9:01:56.145853 am UUID: 6ec090d8-b6b4-0442-b6d9-ad7cb1e05983 Ancestors: System-dtl.1165 Adds Tim Johnson (tcj) to the in-image list of contributors. =============== Diff against System-dtl.1165 =============== Item was changed: ----- Method: SystemNavigation class>>privateAuthorsRaw (in category 'class initialization') ----- (excessive size, no diff calculated) Item was changed: + (PackageInfo named: 'System') postscript: 'SystemNavigation initializeAuthors. "new: Tim Johnson (tcj)"'! - (PackageInfo named: 'System') postscript: 'Preferences removePreference: #bigDisplay.'!

1 0

The Trunk: WebClient-Core-ul.123.mcz
by commits＠source.squeak.org 29 Jun '20

29 Jun '20

Levente Uzonyi uploaded a new version of WebClient-Core to project The Trunk: http://source.squeak.org/trunk/WebClient-Core-ul.123.mcz ==================== Summary ==================== Name: WebClient-Core-ul.123 Author: ul Time: 23 June 2020, 2:18:02.417391 pm UUID: ddad9c69-fa09-4c2e-bb38-156425f9baa0 Ancestors: WebClient-Core-tobe.121 WebMessage >> #streamDirectlyFrom:to:size:progress: - avoid infinite loop when there are fewer bytes available than specified - fix progress notifications - avoid unnecessary buffer copying WebMessage: - use #contentType: and #contentLength: methods to set the corresponding headers to avoid string duplication =============== Diff against WebClient-Core-tobe.121 =============== Item was changed: ----- Method: WebClient>>httpPost:content:type:do: (in category 'methods') ----- httpPost: urlString content: postData type: contentType do: aBlock "POST the data to the given url" | request | self initializeFromUrl: urlString. request := self requestWithUrl: urlString. request method: 'POST'. + contentType ifNotNil:[request contentType: contentType]. + request contentLength: postData size. - contentType ifNotNil:[request headerAt: 'Content-Type' put: contentType]. - request headerAt: 'Content-Length' put: postData size. userAgent ifNotNil:[request headerAt: 'User-Agent' put: userAgent]. aBlock value: request. ^self sendRequest: request content: postData readStream size: postData size! Item was changed: ----- Method: WebClient>>httpPostChunked:content:type:do: (in category 'methods') ----- httpPostChunked: urlString content: chunkBlock type: contentType do: aBlock "POST the data to the given url using chunked transfer-encoding. The chunkBlock takes a request and can be fed using #nextChunkPut: until all the data has been sent. Chunked encoding can be used for long-lasting connections to a server, but care must be taken to ensure that the client isn't running afoul of the server expecting to read the full response (i.e., you should use this only if you have control over both ends). However, it is a great way to send output from commands that take awhile and other time-consuming operations if authentication has been handled." | request | self initializeFromUrl: urlString. request := self requestWithUrl: urlString. request method: 'POST'. + contentType ifNotNil:[request contentType: contentType]. - contentType ifNotNil:[request headerAt: 'Content-Type' put: contentType]. request headerAt: 'Transfer-Encoding' put: 'chunked'. userAgent ifNotNil:[request headerAt: 'User-Agent' put: userAgent]. aBlock value: request. "Send the chunked data" ^self sendRequest: request contentBlock:[:aStream| "Set the stream in the request and pass it in the chunk block" request stream: aStream. chunkBlock value: request. "send termination chunk" aStream nextPutAll: '0'; crlf; crlf; flush. ]. ! Item was changed: ----- Method: WebClient>>httpPut:content:type:do: (in category 'methods') ----- httpPut: urlString content: postData type: contentType do: aBlock "PUT the data to the given url" | request | self initializeFromUrl: urlString. request := self requestWithUrl: urlString. request method: 'PUT'. + contentType ifNotNil:[request contentType: contentType]. + request contentLength: postData size. - contentType ifNotNil:[request headerAt: 'Content-Type' put: contentType]. - request headerAt: 'Content-Length' put: postData size. userAgent ifNotNil:[request headerAt: 'User-Agent' put: userAgent]. aBlock value: request. ^self sendRequest: request content: postData readStream size: postData size! Item was changed: ----- Method: WebMessage>>streamDirectlyFrom:to:size:progress: (in category 'streaming') ----- streamDirectlyFrom: srcStream to: dstStream size: sizeOrNil progress: progressBlock "Stream the content of srcStream to dstStream. + If a size is given, try to stream that many elements. It's the senders responsibility to verify that enough bytes were read. If no size is given, stream all available data." - If a size is given, stream that many elements, otherwise stream up to the end." + | buffer bufferSize totalBytesRead bytesInBuffer | - | buffer remaining size totalRead | sizeOrNil = 0 ifTrue:[^self]. + bufferSize := 4096. + buffer := (srcStream isBinary ifTrue:[ByteArray] ifFalse:[String]) new: bufferSize. + totalBytesRead := 0. + [ + progressBlock ifNotNil:[ progressBlock value: sizeOrNil value: totalBytesRead ]. + srcStream atEnd or: [ sizeOrNil notNil and: [ totalBytesRead >= sizeOrNil ]] ] + whileFalse: [ + bytesInBuffer := srcStream + readInto: buffer + startingAt: 1 + count: (sizeOrNil + ifNil: [ bufferSize ] + ifNotNil: [ sizeOrNil - totalBytesRead min: bufferSize ]). + dstStream next: bytesInBuffer putAll: buffer startingAt: 1. + totalBytesRead := totalBytesRead + bytesInBuffer ]. + dstStream flush! - - buffer := (srcStream isBinary ifTrue:[ByteArray] ifFalse:[String]) new: 4096. - totalRead := 0. - size := sizeOrNil ifNil:[0]. - [(sizeOrNil == nil and:[srcStream atEnd not]) or:[totalRead < size]] whileTrue:[ - progressBlock ifNotNil:[progressBlock value: sizeOrNil value: totalRead]. - remaining := sizeOrNil ifNil:[99999] ifNotNil:[sizeOrNil - totalRead]. - remaining > buffer size ifTrue:[remaining := buffer size]. - buffer := srcStream next: remaining into: buffer startingAt: 1. - dstStream nextPutAll: (remaining < buffer size - ifTrue:[(buffer copyFrom: 1 to: remaining)] - ifFalse:[buffer]). - totalRead := totalRead + buffer size. - ]. - dstStream flush. - progressBlock ifNotNil:[progressBlock value: sizeOrNil value: totalRead].! Item was changed: ----- Method: WebRequest>>send200Response:contentType:do: (in category 'responses') ----- send200Response: aString contentType: contentType do: aBlock "Send a 200 OK response" | resp | resp := self newResponse protocol: 'HTTP/1.1' code: 200. + resp contentType: contentType. - resp headerAt: 'Content-Type' put: contentType. aBlock value: resp. ^self sendResponse: resp content: aString.! Item was changed: ----- Method: WebRequest>>send404Response: (in category 'responses') ----- send404Response: body "Send a 404 not found response" ^self send404Response: (body convertToWithConverter: UTF8TextConverter new) + do: [ :resp | resp contentType: 'text/html; charset=utf-8' ]! - do: [ :resp | resp headerAt: 'Content-Type' put: 'text/html; charset=utf-8' ]! Item was changed: ----- Method: WebRequest>>send404Response:do: (in category 'responses') ----- send404Response: body do: aBlock "Send a 404 not found response" | resp | resp := self newResponse protocol: 'HTTP/1.1' code: 404. + resp contentType: 'text/html; charset=utf-8'. - resp headerAt: 'Content-Type' put: 'text/html; charset=utf-8'. aBlock value: resp. ^self sendResponse: resp content: body. ! Item was changed: ----- Method: WebRequest>>send405Response:content: (in category 'responses') ----- send405Response: allowed content: body "Send a 405 method not allowed response" | resp | resp := self newResponse protocol: 'HTTP/1.1' code: 405. + resp contentType: 'text/html; charset=utf-8'. - resp headerAt: 'Content-Type' put: 'text/html; charset=utf-8'. resp headerAt: 'allow' put: (String streamContents:[:s| allowed do:[:m| s nextPutAll: m] separatedBy:[s nextPut: $,] ]). ^self sendResponse: resp content: body.! Item was changed: ----- Method: WebRequest>>sendResponse:contentStream:size: (in category 'sending') ----- sendResponse: resp contentStream: aStream size: streamSize "Sends a WebResponse, streaming its contents from aStream. If a size is provided, insert a Content-Length header, otherwise ensure that the connection is transient." streamSize ifNil:[self headerAt: 'Connection' put: 'close'] "mark transient" + ifNotNil:[resp contentLength: streamSize]. - ifNotNil:[resp headerAt: 'Content-Length' put: streamSize]. ^self sendResponse: resp contentBlock:[:sockStream| resp streamFrom: aStream to: sockStream size: streamSize progress: nil ]! Item was changed: ----- Method: WebRequest>>sendResponseCode:content:type:do: (in category 'responses') ----- sendResponseCode: code content: aString type: contentType do: aBlock "Send a 500 Internal server error response" | resp | resp := self newResponse protocol: 'HTTP/1.1' code: code. + contentType ifNotNil:[resp contentType: contentType]. - contentType ifNotNil:[resp headerAt: 'Content-Type' put: contentType]. aBlock value: resp. ^self sendResponse: resp content: aString.! Item was changed: ----- Method: WebRequest>>stream200Response:size:type:do: (in category 'responses') ----- stream200Response: aStream size: streamSize type: contentType do: aBlock "Stream a 200 OK response" | resp | resp := self newResponse protocol: 'HTTP/1.1' code: 200. + resp contentType: contentType. - resp headerAt: 'Content-Type' put: contentType. aBlock value: resp. ^self sendResponse: resp contentStream: aStream size: streamSize.! Item was changed: ----- Method: WebServer class>>browseFile:request: (in category 'examples') ----- browseFile: file request: request "Responds with a file back to the original request" | fileSize mimeTypes resp | file binary. fileSize := file size. mimeTypes := file mimeTypes ifNil:[#('application/octet-stream')]. resp := request newResponse protocol: 'HTTP/1.1' code: 200. + resp contentType: mimeTypes first. - resp headerAt: 'Content-Type' put: mimeTypes first. request sendResponse: resp contentStream: file size: fileSize.! Item was changed: ----- Method: WebServer>>authenticate:realm:methods:do: (in category 'authentication') ----- authenticate: request realm: realm methods: accepted do: aBlock "Authenticates an incoming request using one of the accepted methods. Evaluates aBlock upon successful authentication. Responds with a 401 (Unauthorized) if the authentication fails." | method resp | request headersAt: 'Authorization' do:[:authHeader| method := authHeader copyUpTo: Character space. (accepted anySatisfy:[:auth| auth sameAs: method]) ifTrue:[ (self authAccept: method request: request realm: realm header: authHeader) ifTrue:[^aBlock value]. ]. ]. "Send a 401 (unauthorized) response" resp := request newResponse protocol: 'HTTP/1.1' code: 401. + resp contentType: 'text/html; charset=utf-8'. - resp headerAt: 'Content-Type' put: 'text/html; charset=utf-8'. accepted do:[:auth| | hdr | hdr := self authHeader: auth request: request realm: realm. hdr ifNotNil:[resp addHeader: 'WWW-Authenticate' value: hdr]. ]. request sendResponse: resp content: '<html><head><title>401 Unauthorized</title></head><body><h1>401 Unauthorized</h1><p>You are not authorized to access the requested URL</p></body></html>'. !

1 0

The Trunk: CollectionsTests-ul.340.mcz
by commits＠source.squeak.org 29 Jun '20

29 Jun '20

Levente Uzonyi uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-ul.340.mcz ==================== Summary ==================== Name: CollectionsTests-ul.340 Author: ul Time: 29 June 2020, 4:14:52.34981 am UUID: 2375f0fe-f9e4-4934-92af-078354aa29c8 Ancestors: CollectionsTests-nice.339 - added a test case for ReadStream >> #match: =============== Diff against CollectionsTests-nice.339 =============== Item was added: + ----- Method: ReadStreamTest>>testMatch (in category 'tests - testing') ----- + testMatch + + | stream | + stream := ReadStream on: 'foobarbaz'. + self assert: (stream match: 'foo'). + self assert: stream position = 3. + self assert: (stream match: 'baz'). + self assert: stream position = 9. + self assert: stream atEnd. + self assert: (stream match: ''). + self deny: (stream match: 'foo'). + stream reset. + self deny: (stream match: '1'). + self assert: stream atEnd!

1 0

The Trunk: Collections-ul.901.mcz
by commits＠source.squeak.org 29 Jun '20

29 Jun '20

Levente Uzonyi uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ul.901.mcz ==================== Summary ==================== Name: Collections-ul.901 Author: ul Time: 29 June 2020, 2:08:55.776619 am UUID: 8df577a2-3856-4432-b54c-25c93831b5a8 Ancestors: Collections-ul.900 Fix regression in ReadStream >> #match:. When the subCollection is not present in the receiver, the stream's position must be set to the end to match the original behavior. =============== Diff against Collections-ul.900 =============== Item was changed: ----- Method: ReadStream>>match: (in category 'positioning') ----- match: subCollection "Faster version than the one implemented by super, but due to my subclasses breaking various invariants true for actual ReadStreams, only use it when the receiver's class is ReadStream." | matchPosition | self class == ReadStream ifFalse: [ ^super match: subCollection ]. subCollection isEmpty ifTrue: [ ^true ]. matchPosition := collection indexOfSubCollection: subCollection startingAt: position + 1. + matchPosition = 0 ifTrue: [ + position := readLimit. + ^false ]. - matchPosition = 0 ifTrue: [ ^false ]. matchPosition <= readLimit ifFalse: [ ^false ]. position := matchPosition + subCollection size - 1. ^true!

1 0

The Trunk: Kernel-nice.1332.mcz
by commits＠source.squeak.org 24 Jun '20

24 Jun '20

Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.1332.mcz ==================== Summary ==================== Name: Kernel-nice.1332 Author: nice Time: 25 June 2020, 1:40:53.258508 am UUID: 1a712e0e-296b-394e-ad45-7374959e1d30 Ancestors: Kernel-tonyg.1331 Fix the bug found in Cuis by Luciano Notarfrancesco and resolved by Juan Vuletich i:=0. [a := (1 << 60) atRandom. b := (a bitReverse: 64) bitReverse: 64. a = b] whileTrue:[i:=i+1]. ^i Above loop should not stop. But unnormalized Integer were sometimes returned, =============== Diff against Kernel-tonyg.1331 =============== Item was changed: ----- Method: LargePositiveInteger>>bitReverse: (in category 'bit manipulation') ----- bitReverse: highBit "This implementation is faster than super" | digitSize reversed | highBit < self highBit ifTrue: [ self error: 'Not enough bits.' ]. digitSize := highBit + 7 // 8. reversed := self class new: digitSize. 1 to: self digitLength do: [:i | reversed digitAt: digitSize + 1 - i put: (self digitAt: i) byteReversed]. + ^reversed normalize bitShift: highBit - (digitSize * 8)! - ^reversed bitShift: highBit - (digitSize * 8)!

1 0

The Trunk: Collections-ul.900.mcz
by commits＠source.squeak.org 23 Jun '20

23 Jun '20

Levente Uzonyi uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ul.900.mcz ==================== Summary ==================== Name: Collections-ul.900 Author: ul Time: 23 June 2020, 10:48:18.28482 pm UUID: ff11e218-b6f4-44db-bd02-2e2284158946 Ancestors: Collections-mt.898 - enable the use of primitive 158 in String >> #compareWith:collated: because when collation is specified, the VM does not use the jitted version - fix: String >> #compare:caseSensitive: needs to transform the return value of String >> #compareWith:collated: - speed up ReadStream >> #match: when the receiver's class is ReadStream =============== Diff against Collections-mt.898 =============== Item was added: + ----- Method: ReadStream>>match: (in category 'positioning') ----- + match: subCollection + "Faster version than the one implemented by super, but due to my subclasses breaking various invariants true for actual ReadStreams, only use it when the receiver's class is ReadStream." + + | matchPosition | + self class == ReadStream ifFalse: [ ^super match: subCollection ]. + subCollection isEmpty ifTrue: [ ^true ]. + matchPosition := collection indexOfSubCollection: subCollection startingAt: position + 1. + matchPosition = 0 ifTrue: [ ^false ]. + matchPosition <= readLimit ifFalse: [ ^false ]. + position := matchPosition + subCollection size - 1. + ^true! Item was changed: ----- Method: String>>compare:caseSensitive: (in category 'comparing') ----- compare: aString caseSensitive: aBool "Answer a comparison code telling how the receiver sorts relative to aString: 1 - before 2 - equal 3 - after. " + | map result | - | map | map := aBool ifTrue:[CaseSensitiveOrder] ifFalse:[CaseInsensitiveOrder]. + result := self compareWith: aString collated: map. + result = 0 ifTrue: [ ^2 ]. + ^result > 0 + ifTrue: [ 3 ] + ifFalse: [ 1 ]! - ^(self compareWith: aString collated: map) + 2! Item was changed: ----- Method: String>>compareWith:collated: (in category 'comparing') ----- compareWith: aString collated: collation + <primitive: 158> - "<primitive: 158>" ^(self compare: self with: aString collated: collation) - 2!

1 0

The Trunk: Collections-ul.896.mcz
by commits＠source.squeak.org 23 Jun '20

23 Jun '20

Levente Uzonyi uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ul.896.mcz ==================== Summary ==================== Name: Collections-ul.896 Author: ul Time: 26 May 2020, 5:06:35.966934 am UUID: 1eb414fc-31f2-4890-8a0e-2cfe892ef798 Ancestors: Collections-nice.895 - prepare to introduce primitive 158 for string comparison =============== Diff against Collections-nice.895 =============== Item was changed: ----- Method: String>>< (in category 'comparing') ----- < aString "Answer whether the receiver sorts before aString. The collation order is simple ascii (with case differences)." + ^(self compareWith: aString) < 0! - ^ (self compare: self with: aString collated: AsciiOrder) = 1! Item was changed: ----- Method: String>><= (in category 'comparing') ----- <= aString "Answer whether the receiver sorts before or equal to aString. The collation order is simple ascii (with case differences)." + ^(self compareWith: aString) <= 0! - ^ (self compare: self with: aString collated: AsciiOrder) <= 2! Item was changed: ----- Method: String>>= (in category 'comparing') ----- = aString "Answer whether the receiver sorts equally as aString. The collation order is simple ascii (with case differences)." self == aString ifTrue: [ ^true ]. aString isString ifFalse: [ ^false ]. self size = aString size ifFalse: [ ^false ]. + ^ (self compareWith: aString) = 0! - ^ (self compare: self with: aString collated: AsciiOrder) = 2! Item was changed: ----- Method: String>>> (in category 'comparing') ----- > aString "Answer whether the receiver sorts after aString. The collation order is simple ascii (with case differences)." + ^(self compareWith: aString) > 0! - ^ (self compare: self with: aString collated: AsciiOrder) = 3! Item was changed: ----- Method: String>>>= (in category 'comparing') ----- >= aString "Answer whether the receiver sorts after or equal to aString. The collation order is simple ascii (with case differences)." + ^(self compareWith: aString) >= 0! - ^ (self compare: self with: aString collated: AsciiOrder) >= 2! Item was changed: ----- Method: String>>compare:caseSensitive: (in category 'comparing') ----- compare: aString caseSensitive: aBool "Answer a comparison code telling how the receiver sorts relative to aString: 1 - before 2 - equal 3 - after. " | map | map := aBool ifTrue:[CaseSensitiveOrder] ifFalse:[CaseInsensitiveOrder]. + ^(self compareWith: aString collated: map) + 2! - ^self compare: self with: aString collated: map! Item was added: + ----- Method: String>>compareWith: (in category 'comparing') ----- + compareWith: aString + + "<primitive: 158>" + ^(self compare: self with: aString collated: AsciiOrder) - 2! Item was added: + ----- Method: String>>compareWith:collated: (in category 'comparing') ----- + compareWith: aString collated: collation + + "<primitive: 158>" + ^(self compare: self with: aString collated: collation) - 2!

1 0

The Trunk: WebClient-Tests-ul.61.mcz
by commits＠source.squeak.org 23 Jun '20

23 Jun '20

Levente Uzonyi uploaded a new version of WebClient-Tests to project The Trunk: http://source.squeak.org/trunk/WebClient-Tests-ul.61.mcz ==================== Summary ==================== Name: WebClient-Tests-ul.61 Author: ul Time: 23 June 2020, 3:49:29.157901 pm UUID: 08abe30a-82a9-40c6-a03e-5c37cbd5d0d4 Ancestors: WebClient-Tests-ul.60 - fixed initials =============== Diff against WebClient-Tests-ul.60 =============== Item was changed: ----- Method: WebMessageTest>>testStreamDirectlyFromToSizeProgressWhenSizeIsNotSpecified (in category 'tests') ----- testStreamDirectlyFromToSizeProgressWhenSizeIsNotSpecified | message | message := WebMessage new. { ByteArray. #yourself. ByteString. #asString } groupsDo: [ :bufferClass :byteArrayToBufferClassConverterSelector | | maxSize source destination progressData totalRead | maxSize := 10000. "Should be greater than the buffer size used by #streamDirectlyFrom:to:size:progress:" source := ((ByteArray new: maxSize streamContents: [ :stream | 1 to: maxSize do: [ :i | stream nextPut: (i bitAnd: 16rFF) ] ]) perform: byteArrayToBufferClassConverterSelector) readStream. destination := (bufferClass new: maxSize) writeStream. progressData := OrderedCollection new. 0 to: maxSize do: [ :bytesToStream | totalRead := 0. source position: maxSize - bytesToStream. destination originalContents from: 1 to: destination position put: (bufferClass == ByteArray ifTrue: [ 0 ] ifFalse: [ Character value: 0 ]). destination resetToStart. progressData reset. message streamDirectlyFrom: source to: destination size: nil progress: [ :size :bytesRead | self assert: nil equals: size description: 'Progress block''s first argument should be the requested size - in this case nil'. progressData add: bytesRead ]. bytesToStream > 0 ifTrue: [ self assert: progressData notEmpty description: 'Missing progress data.'. self assert: 0 equals: progressData first description: 'First progress data should report 0 size.'. self assert: bytesToStream equals: progressData last description: 'Last progress data should be the number of bytes streamed'. self assert: progressData isSorted description: 'Progress data should be monotonic' ] ifFalse: [ self assert: (progressData isEmpty or: [ progressData size = 1 and: [ progressData first = 0 ] ]) description: 'Unexpected progress data' ]. self assert: bytesToStream equals: destination position description: 'All bytes should be streamed'. 1 to: bytesToStream do: [ :i | (destination originalContents at: i) = (source originalContents at: maxSize - bytesToStream + i) ifFalse: [ "This comparison is the same as the next assertion but it's significantly cheaper." self assert: (source originalContents at: maxSize - bytesToStream + i) equals: (destination originalContents at: i) description: 'Copied data doesn''t match source.' ] ] ] ]! Item was changed: ----- Method: WebMessageTest>>testStreamDirectlyFromToSizeProgressWhenSizeIsSpecified (in category 'tests') ----- testStreamDirectlyFromToSizeProgressWhenSizeIsSpecified <timeout: 20> | message | message := WebMessage new. { ByteArray. #yourself. ByteString. #asString } groupsDo: [ :bufferClass :byteArrayToBufferClassConverterSelector | | maxSize source destination progressData totalRead | maxSize := 10000. "Should be greater than the buffer size used by #streamDirectlyFrom:to:size:progress:" source := ((ByteArray new: maxSize streamContents: [ :stream | 1 to: maxSize do: [ :i | stream nextPut: (i bitAnd: 16rFF) ] ]) perform: byteArrayToBufferClassConverterSelector) readStream. destination := (bufferClass new: maxSize) writeStream. progressData := OrderedCollection new. 0 to: maxSize + 1 do: [ :bytesToStream | totalRead := 0. source reset. destination resetToStart. destination originalContents from: 1 to: destination position put: (bufferClass == ByteArray ifTrue: [ 0 ] ifFalse: [ Character value: 0 ]). progressData reset. message streamDirectlyFrom: source to: destination size: bytesToStream progress: [ :size :bytesRead | self assert: bytesToStream equals: size description: 'Progress block''s first argument should be the requested size'. progressData add: bytesRead ]. bytesToStream > 0 ifTrue: [ self assert: 0 equals: progressData first description: 'First progress data should report 0 size.'. self assert: (bytesToStream min: maxSize) equals: progressData last description: 'Last progress data should be the minimum of the number of bytes available and the number of bytes requested'. self assert: progressData isSorted description: 'Progress data should be monotonic' ] ifFalse: [ self assert: (progressData isEmpty or: [ progressData size = 1 and: [ progressData first = 0 ] ]) ]. self assert: (bytesToStream min: maxSize) equals: destination position description: 'Last progress data should be the number of bytes read'. 1 to: destination position do: [ :i | (destination originalContents at: i) = (source originalContents at: i) ifFalse: [ "This comparison is the same as the next assertion but it's significantly cheaper." self assert: (source originalContents at: maxSize - bytesToStream + i) equals: (destination originalContents at: i) description: 'Copied data doesn''t match source.' ] ] ] ]!

1 0

The Trunk: Tools-mt.981.mcz
by commits＠source.squeak.org 23 Jun '20

23 Jun '20

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.981.mcz ==================== Summary ==================== Name: Tools-mt.981 Author: mt Time: 23 June 2020, 6:50:33.003163 am UUID: 210af2e1-3f13-6041-8ea1-6e0ff6673c20 Ancestors: Tools-tpr.980 Restore hook #defaultIntegerBaseInDebugger, which is frequently used in the VMMaker. =============== Diff against Tools-tpr.980 =============== Item was added: + ----- Method: Inspector>>defaultIntegerBase (in category 'user interface') ----- + defaultIntegerBase + "Answer the default base in which to print integers. + Defer to the class of the instance." + + ^ (self object class respondsTo: #defaultIntegerBaseInDebugger) + ifTrue: [self object class perform: #defaultIntegerBaseInDebugger] + ifFalse: [10]! Item was changed: ----- Method: Inspector>>getContents (in category 'user interface') ----- getContents | newContents | selectionUpdateTime := 0. self hasSelection ifFalse: [^ '']. selectionUpdateTime := [ newContents := self selection in: [:object | self selectedField shouldPrintValueAsIs ifTrue: [object asStringOrText] "Show strings and texts without quoting and without ellipsis." + ifFalse: [ + object isInteger + ifTrue: [object storeStringBase: self defaultIntegerBase] + ifFalse: [object printString]]]. - ifFalse: [object printString]]. ] timeToRun. ^ newContents!

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 June 2020