Squeak-dev February 2017

squeak-dev@lists.squeakfoundation.org

40 participants
201 discussions

The Trunk: Collections-topa.733.mcz
by commits＠source.squeak.org 10 Feb '17

10 Feb '17

Tobias Pape uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-topa.733.mcz ==================== Summary ==================== Name: Collections-topa.733 Author: topa Time: 10 February 2017, 5:21:27.588874 pm UUID: 98316bc6-4edd-4b8c-aae9-16d87505b8e9 Ancestors: Collections-topa.732 HtmlReadWriter: Support alignment, strike through =============== Diff against Collections-topa.732 =============== Item was added: + ----- Method: HtmlReadWriter>>mapAlignmentTag: (in category 'mapping') ----- + mapAlignmentTag: aTag + + | attributeStart | + " special html case ". + aTag = '<center>' ifTrue: [^ {TextAlignment centered}]. + + "<div align=justify> or <div align=""right"">" + attributeStart := aTag findString: 'align='. + attributeStart > 0 ifTrue: [ + | attributeRest | + attributeRest := aTag copyAfter: $=. + attributeRest first = $" ifTrue: [attributeRest := attributeRest allButFirst]. " quoted case " + ^ self mapAlignmentValue: (attributeRest findTokens: ' ">') first]. + ^ #()! Item was added: + ----- Method: HtmlReadWriter>>mapAlignmentValue: (in category 'mapping') ----- + mapAlignmentValue: aString + + (aString = 'center' or: [aString = 'middle']) ifTrue: [^ {TextAlignment centered}]. + aString = 'left' ifTrue: [^ {TextAlignment leftFlush}]. + aString = 'right' ifTrue: [^ {TextAlignment rightFlush}]. + aString = 'justify' ifTrue: [^ {TextAlignment justified}]. + ^ #()! Item was changed: ----- Method: HtmlReadWriter>>mapTagToAttribute: (in category 'mapping') ----- mapTagToAttribute: aTag aTag = '<b>' ifTrue: [^ {TextEmphasis bold}]. aTag = '<i>' ifTrue: [^ {TextEmphasis italic}]. aTag = '<u>' ifTrue: [^ {TextEmphasis underlined}]. + aTag = '<s>' ifTrue: [^ {TextEmphasis struckOut}]. aTag = '<code>' ifTrue: [^ self mapCodeTag]. aTag = '<pre>' ifTrue: [self breakLines: false. ^ {}]. + (aTag = '<center>' or: [aTag beginsWith: '<div']) + ifTrue: [^ self mapAlignmentTag: aTag]. (aTag beginsWith: '<font') ifTrue: [^ self mapFontTag: aTag]. (aTag beginsWith: '<a') ifTrue: [^ self mapATag: aTag]. "h1, h2, h3, ..." (aTag second = $h and: [aTag third isDigit]) ifTrue: [^ {TextEmphasis bold}]. ^ {}! Item was added: + ----- Method: TextAlignment>>closeHtmlOn: (in category 'html') ----- + closeHtmlOn: aHtmlReadWriter + + self alignment = Centered ifTrue: [aHtmlReadWriter nextPutAll: '</center>']. + ({ Justified. LeftFlush. RightFlush. } includes: self alignment) + ifTrue: [aHtmlReadWriter nextPutAll: '</div>']. + ! Item was added: + ----- Method: TextAlignment>>openHtmlOn: (in category 'html') ----- + openHtmlOn: aHtmlReadWriter + + self alignment = Centered ifTrue: [aHtmlReadWriter nextPutAll: '<center>']. + self alignment = Justified ifTrue: [aHtmlReadWriter nextPutAll: '<div align=justify>']. + self alignment = LeftFlush ifTrue: [aHtmlReadWriter nextPutAll: '<div align=left>']. + self alignment = RightFlush ifTrue: [aHtmlReadWriter nextPutAll: '<div align=right>']. + ! Item was changed: ----- Method: TextAlignment>>shouldFormBlocks (in category 'as yet unclassified') ----- shouldFormBlocks + + ^ true! - " whether this attribute should form larger blocks even if split up for combination with other attributes " - ^ false! Item was changed: ----- Method: TextEmphasis>>closeHtmlOn: (in category 'html') ----- closeHtmlOn: aStream "put on the given stream the tag to close the html representation of the receiver" emphasisCode = 1 ifTrue: [aStream nextPutAll: '</b>']. emphasisCode = 2 ifTrue: [aStream nextPutAll: '</i>']. emphasisCode = 4 + ifTrue: [aStream nextPutAll: '</u>']. + emphasisCode = 16 + ifTrue: [aStream nextPutAll: '</s>'].! - ifTrue: [aStream nextPutAll: '</u>']! Item was changed: ----- Method: TextEmphasis>>openHtmlOn: (in category 'html') ----- openHtmlOn: aStream "put on the given stream the tag to open the html representation of the receiver" emphasisCode = 1 ifTrue: [aStream nextPutAll: '<b>']. emphasisCode = 2 ifTrue: [aStream nextPutAll: '<i>']. emphasisCode = 4 + ifTrue: [aStream nextPutAll: '<u>']. + emphasisCode = 16 + ifTrue: [aStream nextPutAll: '<s>']! - ifTrue: [aStream nextPutAll: '<u>']!

1 0

Re: [squeak-dev] The Inbox: Collections-eem.732.mcz -- HtmlReadWriter
by H. Hirzel 10 Feb '17

10 Feb '17

On 2/8/17, Tobias Pape <Das.Linux(a)gmx.de> wrote: > > On 08.02.2017, at 19:59, Eliot Miranda <eliot.miranda(a)gmail.com> wrote: > >> Hi All, >> >> I'd really like this to be in trunk. I've just written a blog post in >> a Workspace using this code >> (http://www.mirandabanda.org/cogblog/2017/02/07/smalltalk-scanning-and-shcon…) >> and it turns creating a blog post into a simple copyHtml paste operation >> from a workspace to (in my case) WordPress. So any reviewers? > > Care to explain it a litte bit? :) > It looks a bit complicated to my eyes. > Also, do you really want <pre>? > (http://stackoverflow.com/questions/4611591/code-vs-pre-vs-samp-for-inline-a…) > > The HtmlReadWriter seems to (up until now) pretty directly map text > attributes to html attributes. > > You seem to want to differentiate code from non-code, so what about having a > do-it attribute, that does exactly that? > Because now, there's also no back-reading of such html into a Text object, > wich I find unfortunate. > I think, the readwriter should be able to read what it has written. > > I know, it's a mere convenience thing, but still, its very procedural, and > seeing #~~ in high-level code is strange to my eyes… > > What would be really cool is to > - mark the code as do-it > - have the do-it present itself as <code> or <pre> on Html. +1 > > Btw: there's also an TextIndent attribute that we could leverage. > > Best regards > -Tobias > > >> >> On Wed, Feb 8, 2017 at 10:55 AM, <commits(a)source.squeak.org> wrote: >> Eliot Miranda uploaded a new version of Collections to project The Inbox: >> http://source.squeak.org/inbox/Collections-eem.732.mcz >> >> ==================== Summary ==================== >> >> Name: Collections-eem.732 >> Author: eem >> Time: 8 February 2017, 10:55:41.894202 am >> UUID: c2c7f1c4-f586-4872-b2c7-6fb7f9cd6527 >> Ancestors: Collections-dtl.731 >> >> Modify HtmlReadWriter to enclose indented text within <pre></pre> to >> preserve formatting of, for example, code. >> >> =============== Diff against Collections-dtl.731 =============== >> >> Item was added: >> + ----- Method: HtmlReadWriter>>linesWithAttributesIn:do: (in category >> 'writing') ----- >> + linesWithAttributesIn: aText do: aBlock >> + "Evauate aBlock with a string and the emphasis for that string, >> guaranteeing >> + that if the string contains a line break, it occurs at the end of >> the line." >> + aText runs withStartStopAndValueDo: >> + [:start :stop :attributes | | att idx startIdx | >> + startIdx := start. >> + [att := aText attributesAt: startIdx. >> + idx := aText string indexOf: Character cr from: startIdx >> to: stop ifAbsent: stop. >> + aBlock value: (aText string copyFrom: startIdx to: idx) >> value: att. >> + idx < stop] >> + whileTrue: >> + [startIdx := idx + 1]]! >> >> Item was changed: >> ----- Method: HtmlReadWriter>>nextPutText: (in category 'accessing') >> ----- >> nextPutText: aText >> + | atStartOfLine inIndent cr | >> + atStartOfLine := true. >> + inIndent := false. >> + cr := Character cr. >> + self linesWithAttributesIn: aText do: >> + [:string :attributes | | indented | >> + atStartOfLine ifTrue: >> + [indented := string first == Character tab. >> + indented ~~ inIndent ifTrue: >> + [stream nextPutAll: (indented ifTrue: >> ['<pre>'] ifFalse: ['</pre>']). >> + inIndent := indented]]. >> + attributes do: [:each | self writeStartTagFor: each]. >> + inIndent >> + ifTrue: [self writePresentationContent: string] >> + ifFalse: [self writeContent: string]. >> + attributes reverseDo: [:each | self writeEndTagFor: each]. >> + atStartOfLine := string last == cr]. >> + inIndent ifTrue: >> + [stream nextPutAll: '</pre>']! >> - >> - aText runs >> - withStartStopAndValueDo: [:start :stop :attributes | >> - | att str | >> - att := aText attributesAt: start. >> - str := aText string copyFrom: start to: stop. >> - >> - att do: [:each | self writeStartTagFor: each]. >> - self writeContent: str. >> - att reverse do: [:each | self writeEndTagFor: >> each]]! >> >> Item was added: >> + ----- Method: HtmlReadWriter>>writePresentationContent: (in category >> 'writing') ----- >> + writePresentationContent: aString >> + >> + aString do: [:char | >> + char = Character tab >> + ifTrue: [stream nextPutAll: >> '    '] >> + ifFalse: [(String htmlEntities keyAtValue: char >> ifAbsent: []) >> + ifNil: [stream nextPut: char] >> + ifNotNil: [:escapeSequence | >> + stream >> + nextPut: $&; >> + nextPutAll: >> escapeSequence; >> + nextPut: $;]]]! >> >> Item was added: >> + ----- Method: SequenceableCollection>>indexOf:from:to:ifAbsent: (in >> category 'accessing') ----- >> + indexOf: anElement from: start to: end ifAbsent: exceptionBlock >> + "Answer the index of the first occurence of anElement from start >> to stop >> + within the receiver. If the receiver does not contain anElement >> in the, >> + range answer the result of evaluating the argument, >> exceptionBlock." >> + >> + start to: end do: >> + [:index | >> + (self at: index) = anElement ifTrue: [^index]]. >> + ^exceptionBlock value! >> >> >> >> >> >> -- >> _,,,^..^,,,_ >> best, Eliot >> > > >

5 14

Integer arithmetic and bit counting performance in Squeak and Pharo
by Benoit St-Jean 10 Feb '17

10 Feb '17

For those interested in performance of bit operations and integer arithmetic in Squeak and Pharo : Bit operations in general : https://endormitoire.wordpress.com/2017/02/10/bits-and-pieces/ Bit counting algorithms : https://endormitoire.wordpress.com/2017/02/10/1001001-sos/ Some questions, some results, some answers... ----------------- Benoît St-Jean Yahoo! Messenger: bstjean Twitter: @BenLeChialeux Pinterest: benoitstjean Instagram: Chef_Benito IRC: lamneth Blogue: endormitoire.wordpress.com "A standpoint is an intellectual horizon of radius zero". (A. Einstein)

2 1

The Trunk: Kernel-ul.1058.mcz
by commits＠source.squeak.org 10 Feb '17

10 Feb '17

Levente Uzonyi uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ul.1058.mcz ==================== Summary ==================== Name: Kernel-ul.1058 Author: ul Time: 10 February 2017, 1:16:53.505258 pm UUID: 62aa1881-7b99-4ba0-bfa5-a2599f1386a9 Ancestors: Kernel-eem.1057 - extracted BitCountPerByteTable from Integer >> bitCount - added optimized version of #bitCount to SmallInteger =============== Diff against Kernel-eem.1057 =============== Item was changed: Number subclass: #Integer instanceVariableNames: '' + classVariableNames: 'BitCountPerByteTable LowBitPerByteTable' - classVariableNames: 'LowBitPerByteTable' poolDictionaries: '' category: 'Kernel-Numbers'! !Integer commentStamp: '<historical>' prior: 0! I am a common abstract superclass for all Integer implementations. My implementation subclasses are SmallInteger, LargePositiveInteger, and LargeNegativeInteger. Integer division consists of: / exact division, answers a fraction if result is not a whole integer // answers an Integer, rounded towards negative infinity \\ is modulo rounded towards negative infinity quo: truncated division, rounded towards zero! Item was changed: ----- Method: Integer class>>initialize (in category 'class initialization') ----- initialize + "Integer initialize" + + self + initializeLowBitPerByteTable; + initializeBitCountPerByteTable! - "Integer initialize" - self initializeLowBitPerByteTable! Item was added: + ----- Method: Integer class>>initializeBitCountPerByteTable (in category 'class initialization') ----- + initializeBitCountPerByteTable + "Initialize BitCountPerByteTable which is a ByteArray that contains the number of set bits (1) of the integers between 0 and 255. It's defined as a class variable so that it can be used from the instance side and subclasses too." + "Evaluate this expression to form the byte array: + ((0 to: 255) + collect: [:i | + | bitCount n | + n := i. + bitCount := 0. + [n = 0] + whileFalse: + [bitCount := bitCount + 1. + n := n bitAnd: n - 1]. + bitCount] + as: ByteArray)" + + BitCountPerByteTable := #[0 1 1 2 1 2 2 3 1 2 2 3 2 3 3 4 1 2 2 3 2 3 3 4 2 3 3 4 3 4 4 5 1 2 2 3 2 3 3 4 2 3 3 4 3 4 4 5 2 3 3 4 3 4 4 5 3 4 4 5 4 5 5 6 1 2 2 3 2 3 3 4 2 3 3 4 3 4 4 5 2 3 3 4 3 4 4 5 3 4 4 5 4 5 5 6 2 3 3 4 3 4 4 5 3 4 4 5 4 5 5 6 3 4 4 5 4 5 5 6 4 5 5 6 5 6 6 7 1 2 2 3 2 3 3 4 2 3 3 4 3 4 4 5 2 3 3 4 3 4 4 5 3 4 4 5 4 5 5 6 2 3 3 4 3 4 4 5 3 4 4 5 4 5 5 6 3 4 4 5 4 5 5 6 4 5 5 6 5 6 6 7 2 3 3 4 3 4 4 5 3 4 4 5 4 5 5 6 3 4 4 5 4 5 5 6 4 5 5 6 5 6 6 7 3 4 4 5 4 5 5 6 4 5 5 6 5 6 6 7 4 5 5 6 5 6 6 7 5 6 6 7 6 7 7 8]! Item was changed: ----- Method: Integer>>bitCount (in category 'bit manipulation') ----- bitCount "Count the number of bits set to 1 in self" | bitCount | self < 0 ifTrue: [self error: 'Cannot count bits of negative integers']. bitCount := 0. 1 to: self digitLength do: [:i | + bitCount := bitCount + (BitCountPerByteTable at: (self digitAt: i) + 1) ]. - bitCount := bitCount + (self digitAt: i) bitCountOfByte]. ^bitCount! Item was added: + ----- Method: SmallInteger>>bitCount (in category 'bit manipulation') ----- + bitCount + "Count the number of bits set to 1 in self. Overridden for performance" + + | n bitCount | + self < 0 ifTrue: [self error: 'Cannot count bits of negative integers']. + bitCount := 0. + n := self. + [ n = 0 ] whileFalse: [ + bitCount := bitCount + (BitCountPerByteTable at: (n bitAnd: 16rFF) + 1). + n := n bitShift: -8 ]. + ^bitCount! Item was changed: ----- Method: SmallInteger>>bitCountOfByte (in category 'bit manipulation') ----- bitCountOfByte "Count the number of bits set to 1 in a byte." + ^BitCountPerByteTable at: self + 1! - ^#[0 1 1 2 1 2 2 3 1 2 2 3 2 3 3 4 1 2 2 3 2 3 3 4 2 3 3 4 3 4 4 5 1 2 2 3 2 3 3 4 2 3 3 4 3 4 4 5 2 3 3 4 3 4 4 5 3 4 4 5 4 5 5 6 1 2 2 3 2 3 3 4 2 3 3 4 3 4 4 5 2 3 3 4 3 4 4 5 3 4 4 5 4 5 5 6 2 3 3 4 3 4 4 5 3 4 4 5 4 5 5 6 3 4 4 5 4 5 5 6 4 5 5 6 5 6 6 7 1 2 2 3 2 3 3 4 2 3 3 4 3 4 4 5 2 3 3 4 3 4 4 5 3 4 4 5 4 5 5 6 2 3 3 4 3 4 4 5 3 4 4 5 4 5 5 6 3 4 4 5 4 5 5 6 4 5 5 6 5 6 6 7 2 3 3 4 3 4 4 5 3 4 4 5 4 5 5 6 3 4 4 5 4 5 5 6 4 5 5 6 5 6 6 7 3 4 4 5 4 5 5 6 4 5 5 6 5 6 6 7 4 5 5 6 5 6 6 7 5 6 6 7 6 7 7 8] at: self + 1 - - "Evaluate this expression to form above byte array: - ((0 to: 255) - collect: [:i | - | bitCount n | - n := i. - bitCount := 0. - [n = 0] - whileFalse: - [bitCount := bitCount + 1. - n := n bitAnd: n - 1]. - bitCount] - as: ByteArray)"!

1 0

Re: [squeak-dev] [Pharo-dev] Integer arithmetic and bit counting performance in Squeak and Pharo
by Benoit St-Jean 10 Feb '17

10 Feb '17

Oh! Many thanks for all the details! I thought about special selectors and remembered that #bitAnd: and #bitOr: were those special kind of "beasts" but I falsely assumed that #bitXor: was also a special selector... :( I should have looked at the code! So that also explains the "strange" behavior of the 64bit image. Lots of the tests in the 32bit image fell into the LargeInteger "range" and then, executing the same code on the 64bit image, those numbers suddenly became considered SmallInteger... That explains it all and why some operations "suddenly" became so fast for no apparent reason !!! Now, just for my personal curiosity, what is going to be the impact of a 64bit VM on such code? (Unfortunately, I am on Windows so I will have to wait...) ? P.S. I should have persevered in my google searches as I just came across this *excellent* post : Arithmetic, inlined and special selectors :) Thanks a lot! | | | | | | | | | | | Arithmetic, inlined and special selectors Today we are going to discuss how message sends are dispatched in the VM and/or compiled in the image for arithm... | | | | ----------------- Benoît St-Jean Yahoo! Messenger: bstjean Twitter: @BenLeChialeux Pinterest: benoitstjean Instagram: Chef_Benito IRC: lamneth Blogue: endormitoire.wordpress.com "A standpoint is an intellectual horizon of radius zero". (A. Einstein) From: Clément Bera <bera.clement(a)gmail.com> To: Benoit St-Jean <bstjean(a)yahoo.com>; Pharo Development List <pharo-dev(a)lists.pharo.org> Cc: The General-purpose Squeak Developers List <squeak-dev(a)lists.squeakfoundation.org> Sent: Friday, February 10, 2017 5:14 AM Subject: Re: [Pharo-dev] Integer arithmetic and bit counting performance in Squeak and Pharo Hi, This is a lovely post. Thanks for posting about Smalltalk / Pharo / Squeak. - Why exactly does the override work (in 32bit images)? - What changed so that things are different in Squeak 5.1 64bit image (overrides partially work)? If I am correct your questions are exclusively for bitOr: and bitAnd:. I don't know what you are aware of and what you're not aware of, hence I am going to give you some details on how bitAnd: is executed (bitOr: is done exactly the same way), and hopefully there will be something you don't know yet that should help you understand what's going on. Execution of bitAnd: bitAnd: a special selector. If you run Smalltalk specialSelectors you get this array: #(#+ 1 #- 1 #< 1 #> 1 #<= 1 #>= 1 #= 1 #~= 1 #* 1 #/ 1 #\\ 1 #@ 1 #bitShift: 1 #// 1 #bitAnd: 1 #bitOr: 1 #at: 1 #at:put: 2 #size 0 #next 0 #nextPut: 1 #atEnd 0 #== 1 #class 0 #blockCopy: 1 #value 0 #value: 1 #do: 1 #new 0 #new: 1 #x 0 #y 0) which includes bitAnd: . Special selectors are encoded in the bytecode differently to save memory, so they can be executed differently without inducing overhead. In Cog, bitAnd: is executed differently using type-prediction. In the Stack Interpreter, the execution of bitAnd: is done as follows: If both operands are SmallIntegers, push the bitAnd: value of the 2 SmallIntegers else Try the primitive BitAnd for SmallIntegers (14) on success push the result on failure perform the send. In the JIT, bitAnd: sends are compiled differently that normal send, the compilation logic is as follows: If both operands are SmallInteger literals compute the result during compilation and use this value else If one of the 2 operands is a SmallInteger literal generate 2 paths, a quick inlined path testing at runtime that the other operand is a SmallInteger, and if so, Ands the operands and use that result, else use the slow path performing a send else generate a normal send Primitives primitive 14 -> Works for SmallIntegers and LargePositiveInteger fitting in an unsigned machine word. (Slower than direct SmallInteger bitAnd performed by the special selector)primitive 34 -> Works for SmallIntegers and LargePositiveInteger fitting in an unsigned int64. (Slower than primitive 14 in 32 bits but covering more cases, equivalent in 64 bits)primDigitBitAnd (in Integer) -> Works for any integer. (Slower than the primitive 14 and 34) SmallInteger encoding In 32 bits, SmallIntegers are signed 31bits integer.In 64 bits, SmallIntegers are signed 61 bits integer. Discussion Let's make some assertions based on previous information: 1) If you have the exact same bitAnd: implementation for #bitAnd: and #bitAnd2:, #bitAnd2: is slower because it is not a special selector. 2) Still with the exact same bitAnd: implementation, using the JIT, things like that:16r1 bitAnd: 1. "1 bits" 16r2 bitAnd: 2. "2 bit" 16r4 bitAnd: 4. "3 bit" 16r8 bitAnd: 3. "4 bit"Are bitAnd: operations between SmallInteger constants and the result is unused. Hence this whole portion of code does not generate any native instructions.On the other hand, things like that:16r1 bitAnd2: 1. "1 bits" 16r2 bitAnd2: 2. "2 bit" 16r4 bitAnd2: 4. "3 bit" 16r8 bitAnd2: 3. "4 bit"Are sends, generating multiple native instructions including calls. 3) Because of the SmallInteger encoding,16r200000000000000 bitAnd: 98490667780264321. "58 bit" is compiled by the JIT to nothing in 64 bits but to a send in 32 bits (the JIT can't solve LargeInteger arithmetic at compilation time). 4) primitive 34 provides some speed-up over primitive 14 in 32 bits, covering bitAnd: operations from unsigned 33 bits integer to unsigned 64 bits integer, but makes no difference in 64 bits. In 64bits all the cases covered by primitive 34 are covered by primitive 14, so it should even slow down things. So... Does this answer your questions ? Don't hesitate to ask further questions. If you want more details, I wrote something about special selectors a while ago: https://clementbera.wordpress.com/2014/08/12/arithmetic-inlined-and-special… . Best, Clement PS1: If I'm correct, you referenced my blog a couple times, thank you for doing this, I really appreciate that.PS2: I enjoy chess myself, so if you have an open-source/MIT working algorithm at some point please send it to me, I will play against the AI and look at the code. On Fri, Feb 10, 2017 at 8:18 AM, Benoit St-Jean via Pharo-dev <pharo-dev(a)lists.pharo.org> wrote: ---------- Forwarded message ---------- From: Benoit St-Jean <bstjean(a)yahoo.com> To: The General-purpose Squeak Developers List <squeak-dev@lists. squeakfoundation.org>, "pharo-dev(a)lists.pharo.org" <pharo-dev(a)lists.pharo.org> Cc: Date: Fri, 10 Feb 2017 07:18:02 +0000 (UTC) Subject: Integer arithmetic and bit counting performance in Squeak and Pharo For those interested in performance of bit operations and integer arithmetic in Squeak and Pharo : Bit operations in general : https://endormitoire.wordpress .com/2017/02/10/bits-and- pieces/ Bit counting algorithms : https://endormitoire.wordpress .com/2017/02/10/1001001-sos/ Some questions, some results, some answers... ----------------- Benoît St-Jean Yahoo! Messenger: bstjean Twitter: @BenLeChialeux Pinterest: benoitstjean Instagram: Chef_Benito IRC: lamneth Blogue: endormitoire.wordpress.com "A standpoint is an intellectual horizon of radius zero". (A. Einstein)

1 0

SQLite in Squeak Smalltalk
by Edwin Ancaer 10 Feb '17

10 Feb '17

Hello, I would like to use SQLite in a Squeak project. I currently use Squeak 5.1 on the raspberry Pi. I found the 'List of SQLite / SQLite3 wrapper implementations' on the squeak wiki. The most recent wrapper is NBSQLite3 (2014), but that seems to be specific for Pharo. I installed the one before that, SQLite (2013), reported as 'might be outdated'. After installation,all tests failed. It must have something to do with the FFI settings, because when I add the location of the SQLite.so in the module: parameter off the cdel's of the external functions, there are just 2 errors remaining. Before I start looking into this any further, I would like to ask if this SQLite wrapper is the correct one to use? Kind regards

4 4

Just checking, did you vote?
by Ron Teitelbaum 10 Feb '17

10 Feb '17

Hey! Hope you are doing well. I wanted to check in with you to see if you voted for the Squeak Oversight Board 2017. Please check your email for the ballot. It comes from CIVS with my name, Ron Teitelbaum, on it. You have until Feb 14th but don't put it off or you might miss the window. Voting is important to the community! All the best, Ron Teitelbaum

2 1

Amusing (kinda) bug in SqueakMap release editor
by tim Rowledge 09 Feb '17

09 Feb '17

If one submits a new (or edited) release in the SqueakMap release editor tool that happens to have the word ‘error’ in the notes field then the save ‘fails’ even if it succeeds. Why? Because the test used in SMReleaseBrowser>>savePackageRelease: carefu;ly checks the response content string for ‘error’ being included. The response appears to include the entire entry sent to the SM server and thus… success is failure. I think it needs more knowledge of what web servers do than I have to solve this. Presumably there is some tighter parsing needed? tim -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim Strange OpCodes: IML: Invoke Murphy's Laws

2 1

The Inbox: Monticello-mva.662.mcz
by commits＠source.squeak.org 09 Feb '17

09 Feb '17

A new version of Monticello was added to project The Inbox: http://source.squeak.org/inbox/Monticello-mva.662.mcz ==================== Summary ==================== Name: Monticello-mva.662 Author: mva Time: 9 February 2017, 4:08:00.271692 pm UUID: 89b83b4f-f6f4-3445-94e8-a9e0b14f07cb Ancestors: Monticello-mva.661 allow files with the same version-number to be selected in versionList in Repository browser when 'order by version-number' active =============== Diff against Monticello-mva.661 =============== Item was changed: MCVersionInspector subclass: #MCRepositoryInspector + instanceVariableNames: 'repository packageNames versionNames selectedPackage selectedVersion order versionInfo loaded newer inherited versionSelection' - instanceVariableNames: 'repository packageNames versionNames selectedPackage selectedVersion order versionInfo loaded newer inherited' classVariableNames: 'BrowseBranchedVersionsSeparately Order' poolDictionaries: '' category: 'Monticello-UI'! Item was changed: ----- Method: MCRepositoryInspector>>versionSelection (in category 'morphic ui') ----- versionSelection + ^ versionSelection ifNil: [ 0 ]! - ^self versionList indexOf: selectedVersion! Item was changed: ----- Method: MCRepositoryInspector>>versionSelection: (in category 'morphic ui') ----- versionSelection: aNumber + versionSelection := aNumber. selectedVersion := version := nil. aNumber isZero ifFalse: [ selectedVersion := (self versionList at: aNumber) asString ]. self changed: #versionSelection ; changed: #summary ; changed: #hasVersion!

3 2

The Trunk: CollectionsTests-topa.273.mcz
by commits＠source.squeak.org 09 Feb '17

09 Feb '17

Tobias Pape uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-topa.273.mcz ==================== Summary ==================== Name: CollectionsTests-topa.273 Author: topa Time: 9 February 2017, 7:50:04.444895 pm UUID: c65eaa03-cc26-4ba6-a648-962d6a3ecf23 Ancestors: CollectionsTests-pre.272 Test for htmlifying DoIts from Collections-topa.732 =============== Diff against CollectionsTests-pre.272 =============== Item was added: + ----- Method: HtmlReadWriterTest>>test07CodeRoundTrip (in category 'tests') ----- + test07CodeRoundTrip + + | textWithDoIt | + textWithDoIt := self textWithDoIt. + self assert: textWithDoIt equals: textWithDoIt printHtmlString asTextFromHtml + ! Item was added: + ----- Method: HtmlReadWriterTest>>test08MultilineCode (in category 'tests') ----- + test08MultilineCode + + { '<code> + <pre>3 + 7. + 3 > 4.</pre></code>' . + Text string: '3 + 7. + 3 > 4.' runs: (RunArray runs: #(13 ) values: { {TextDoIt evalString: '3 + 7. + 3 > 4.' } } ) + } pairsDo: [:expectedHtml :expectedText | + + self convertHtml: expectedHtml. + self assert: expectedText string equals: text string. + self assert: expectedText runs equals: text runs. + + self convertText: expectedText. + self assert: expectedHtml equals: html].! Item was added: + ----- Method: HtmlReadWriterTest>>textWithDoIt (in category 'tests') ----- + textWithDoIt + " Version of TextAction>>emphasizeScanner: with a Doit on the third line " + | doit | + doit := TextDoIt basicNew instVarAt: 1 put: 'Purple ifNil: [Purple := self userInterfaceTheme color ifNil: [Color r: 0.4 g: 0.0 b: 1]].'; yourself. + ^ (Text string: 'emphasizeScanner: scanner + "Set the emphasis for text display" + Purple ifNil: [Purple := self userInterfaceTheme color ifNil: [Color r: 0.4 g: 0.0 b: 1]]. + scanner textColor: Purple.' runs: (RunArray runs: #(17 1 7 1 35 1 6 1 6 1 1 6 1 2 1 4 1 18 1 5 1 6 1 1 5 1 2 1 3 1 2 1 3 1 2 1 1 1 1 1 1 7 1 10 1 6 1 ) values: ((Array new: 47) at: 1 put: ((Array new: 1) at: 1 put: (TextEmphasis basicNew instVarAt: 1 put: 1; instVarAt: 2 put: true; yourself); yourself); at: 2 put: ((Array new: 1) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.0); yourself); yourself); at: 3 put: ((Array new: 1) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.5); yourself); yourself); at: 4 put: ((Array new: 1) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.0); yourself); yourself); at: 5 put: ((Array new: 1) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.5 b: 0.5); yourself); yourself); at: 6 put: ((Array new: 1) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.0); yourself); yourself); at: 7 put: ((Array new: 2) at: 1 put: (TextColor ba sicNew instVarAt: 1 put: (Color r: 0.25 g: 0.25 b: 0.25); yourself); at: 2 put: doit; yourself); at: 8 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.0); yourself); at: 2 put: doit; yourself); at: 9 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.5); yourself); at: 2 put: doit; yourself); at: 10 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.0); yourself); at: 2 put: doit; yourself); at: 11 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.0); yourself); at: 2 put: doit; yourself); at: 12 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.25 g: 0.25 b: 0.25); yourself); at: 2 put: doit; yourself); at: 13 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.0); yourself); at: 2 put: doit; yourself); at: 14 put: ((Array new : 2) at: 1 put: (TextEmphasis basicNew instVarAt: 1 put: 1; instVarAt: 2 put: true; yourself); at: 2 put: doit; yourself); at: 15 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.0); yourself); at: 2 put: doit; yourself); at: 16 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.5 g: 0.0 b: 0.0); yourself); at: 2 put: doit; yourself); at: 17 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.0); yourself); at: 2 put: doit; yourself); at: 18 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.5); yourself); at: 2 put: doit; yourself); at: 19 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.0); yourself); at: 2 put: doit; yourself); at: 20 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.5); yourself); at: 2 put: doit; yourself) ; at: 21 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.0); yourself); at: 2 put: doit; yourself); at: 22 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.5); yourself); at: 2 put: doit; yourself); at: 23 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.0); yourself); at: 2 put: doit; yourself); at: 24 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.5 b: 0.0); yourself); at: 2 put: doit; yourself); at: 25 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.0); yourself); at: 2 put: doit; yourself); at: 26 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.0); yourself); at: 2 put: doit; yourself); at: 27 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.5); yourself); a t: 2 put: doit; yourself); at: 28 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.0); yourself); at: 2 put: doit; yourself); at: 29 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.5 g: 0.0 b: 0.0); yourself); at: 2 put: doit; yourself); at: 30 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.0); yourself); at: 2 put: doit; yourself); at: 31 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.5); yourself); at: 2 put: doit; yourself); at: 32 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.0); yourself); at: 2 put: doit; yourself); at: 33 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.5 g: 0.0 b: 0.0); yourself); at: 2 put: doit; yourself); at: 34 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.0); yourself); at: 2 put: doit; yourself); at: 35 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.5); yourself); at: 2 put: doit; yourself); at: 36 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.0); yourself); at: 2 put: doit; yourself); at: 37 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.5 g: 0.0 b: 0.0); yourself); at: 2 put: doit; yourself); at: 38 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.5 b: 0.0); yourself); at: 2 put: doit; yourself); at: 39 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.0); yourself); at: 2 put: doit; yourself); at: 40 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.0); yourself); at: 2 put: doit; yourself); at: 41 put: ((Array new: 1) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.0); yourself); yourself); at: 42 put: ((Array new: 1) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.5); yourself); yourself); at: 43 put: ((Array new: 1) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.0); yourself); yourself); at: 44 put: ((Array new: 1) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.5); yourself); yourself); at: 45 put: ((Array new: 1) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.0); yourself); yourself); at: 46 put: ((Array new: 1) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.25 g: 0.25 b: 0.25); yourself); yourself); at: 47 put: ((Array new: 1) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.0); yourself); yourself); yourself)))!

1 0

← Newer
1
...
12
13
14
15
16
17
18
...
21
Older →

Jump to page: