Squeak-dev July 2016

squeak-dev@lists.squeakfoundation.org

38 participants
224 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

Time now print24
by Eliot Miranda 09 Jul '16

09 Jul '16

Hi All, how does one produce a nice timestamp, simply date and time as in 7/7/2016 09:19:38 Trivial, right? So Date today mmddyyyy, ' ', Time now print24 '7/7/2016 09:22:40.914' .914, ah, nanos. How useful. Let's get rid of them. No nanos: accessor so Date today mmddyyyy, ' ', (Time now nanos: 0) print24 => MNU but there's a seconds accessor, so Date today mmddyyyy, ' ', (Time now seconds: Time now seconds; print24) '7/7/2016 00:00:41 ?? So seconds: is private, and isn't the dual of Time seconds: Time seconds ^ self second Time second ^ self asDuration seconds Duration seconds "Answer the number of seconds the receiver represents." ^seconds rem: SecondsInMinute Looks broken to me. Personally I think print24 should not print sub seconds. cc'ing to Pharo because I want this timestamp to be the same in both dialects for a profiling tool we want to use in both dialects. _,,,^..^,,,_ best, Eliot

7 10

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

08 Jul '16

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2016-July/068261.html Name: Chronology-Core-bf.7 Ancestors: Chronology-Core-cmm.6 Do not print nanoseconds unless requested ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-July/068262.html Name: Chronology-Tests-bf.3 Ancestors: Chronology-Tests-cmm.2 Test printing time with nanos ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-July/068263.html Name: Files-eem.158 Ancestors: Files-dtl.157 Add directoryNamesMatching: & streamline fileNamesMatching: =============================================

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

I miss OpenCrquet. =(
by Alan Grimes 08 Jul '16

08 Jul '16

If you wanted to bring OpenCroquet back, I think the first step would be generating vulkan bindings. The Vulkan API is specified in a formal specification, vk.xml or something. So you'd take that and compile the xml into FFI calls... There is an alpha version of a generator for C# on github... The other half of the api are the shader kernels. For that you'd need a SPIR compiler. Anyway, just a brainfart... -- IQ is a measure of how stupid you feel. Powers are not rights.

1 0

UTCDateAndTime updated for Squeak 4.6/5.0
by David T. Lewis 08 Jul '16

08 Jul '16

UTCDateAndTime is a UTC based implementation of class DateAndTime with one instance variable representing the magnitude of the point in time, and another representing local time zone offset. I recommend loading with the SAR from http://wiki.squeak.org/squeak/6197, as maintaining this in Montecello is problematic. After the 4.6/5.0 release, I would like to suggest moving Chronology out of the Kernel package into its own package, so that changes in Chronology can be maintained in Montecello without conflicting with the rest of Kernel. Spur notes: The Spur image provides a huge performance when loading this set of changes. There are two steps in the loading process in which all DateAndTime instances need to be #becomed into new instances. This is painfully slow in the traditional image (with or without Cog), and it is amazing fast in Spur. That said, there is a bug in the Spur VM (easily resolved I think) that produces incorrect time values. I'll post note about that on vm-dev. I would not recommend using UTCDateAndTime in Spur yet, other than just to see how amazingly fast it is compared to loading the same thing in a non-Spur image. Dave

10 70

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

Daily Commit Log
by commits＠source.squeak.org 07 Jul '16

07 Jul '16

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2016-July/068255.html Name: Collections-eem.700 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. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-July/068256.html Name: Compiler-eem.323 Ancestors: Compiler-eem.322 Comment bytecode 139 as the callPrimitive bytecode (Spur mandates this to lift the number of literals). ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-July/068257.html Name: Kernel-eem.1032 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. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-July/068258.html Name: Morphic-eem.1189 Ancestors: Morphic-cmm.1188 Tiny cleanup. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-July/068259.html Name: System-eem.836 Ancestors: System-eem.835 Modify string search in methods to search symbols that are not used as message selectors. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-July/068260.html Name: Tools-eem.706 Ancestors: Tools-topa.705 Add #format:variable:bitsUnitSize:pointers:weak: to noteDangerous: =============================================

1 0

Re: [Pharo-dev] Time now print24
by Eliot Miranda 07 Jul '16

07 Jul '16

Hi Sven, > On Jul 7, 2016, at 9:47 AM, Sven Van Caekenberghe <sven(a)stfx.eu> wrote: > > >> On 07 Jul 2016, at 18:33, Eliot Miranda <eliot.miranda(a)gmail.com> wrote: >> >> Hi All, >> >> how does one produce a nice timestamp, simply date and time as in >> >> 7/7/2016 09:19:38 >> >> Trivial, right? > > I understand that you want it 'nice and clean', but the above is not precise (no TZ) and confusing (is it M/D/YYYY or D/M/YYYY ?). > > Going more in the ISO direction is better (more universal), IMHO. > > DateAndTime now rounded => "2016-07-07T18:45:12+02:00" My use case is providing a human-readable time stamp on a benchmark output so something really simple is what's best and the full tu stamp you give above exactly opposite to what I want; verbose and hard to read. > >> So >> >> Date today mmddyyyy, ' ', Time now print24 '7/7/2016 09:22:40.914' >> >> .914, ah, nanos. How useful. Let's get rid of them. No nanos: accessor so >> >> Date today mmddyyyy, ' ', (Time now nanos: 0) print24 => MNU >> >> but there's a seconds accessor, so >> >> Date today mmddyyyy, ' ', (Time now seconds: Time now seconds; print24) '7/7/2016 00:00:41 >> >> ?? So seconds: is private, and isn't the dual of Time seconds: >> >> Time seconds >> ^ self second >> Time second >> ^ self asDuration seconds >> Duration seconds >> "Answer the number of seconds the receiver represents." >> ^seconds rem: SecondsInMinute >> >> Looks broken to me. >> >> Personally I think print24 should not print sub seconds. >> >> cc'ing to Pharo because I want this timestamp to be the same in both dialects for a profiling tool we want to use in both dialects. >> _,,,^..^,,,_ >> best, Eliot > >

1 0

← Newer
1
...
16
17
18
19
20
21
22
23
Older →

Jump to page: