Squeak-dev February 2017

squeak-dev@lists.squeakfoundation.org

40 participants
201 discussions

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

09 Feb '17

Tobias Pape uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-topa.732.mcz ==================== Summary ==================== Name: Collections-topa.732 Author: topa Time: 9 February 2017, 7:47:59.962131 pm UUID: fd95461f-6d7f-4f24-b57a-dcc23e75cdb9 Ancestors: Collections-dtl.731 TextAttributes: - allow for attributes that should be treated as blocks even if they appear adajcent due to mixing with other attribues (Indent, Align, DoIt/PrintIt) - make DoIt/PrintIt _not_ appear Purple but just add underlining to existing (mabye shout-generated) attributes. - let TextAction>>analyze: accept things like '3 > 4'. (Previously disallowed) - make DoIt/PrintIt be written AND read with HtmlReadWriter. Convention for both ways: - single-line DoIt/PrintIts are wrapped in '<code>...</code>' - multi-line DoIt/PrintIt are wrapped in '<code> <pre>..</pre></code>' - line-breaks within DoIt/PrintIt are not converted to ' ' and vice versa. HtmlReadWriter - emulates a WriteStream, so openHtmlOn: can be fed the HtmlReadWriter for configuration (eg, of line breaks). - honors the new blockish attributes. Co-authored by Bert Freudenberg. =============== Diff against Collections-dtl.731 =============== Item was changed: TextReadWriter subclass: #HtmlReadWriter + instanceVariableNames: 'count offset runStack runArray string breakLines' - instanceVariableNames: 'count offset runStack runArray string' classVariableNames: '' poolDictionaries: '' category: 'Collections-Text'! Item was added: + ----- Method: HtmlReadWriter>>activateAttributesEnding:starting: (in category 'private') ----- + activateAttributesEnding: ending starting: starting + + starting + select: [:attribute | attribute shouldFormBlocks] + thenDo: [: attribute | + (ending includes: attribute) ifFalse: [self writeStartTagFor: attribute]]; + reject: [:attribute | attribute shouldFormBlocks] + thenDo: [: attribute | self writeStartTagFor: attribute].! Item was added: + ----- Method: HtmlReadWriter>>breakLines (in category 'accessing') ----- + breakLines + + ^ breakLines! Item was added: + ----- Method: HtmlReadWriter>>breakLines: (in category 'accessing') ----- + breakLines: aBoolean + + breakLines := aBoolean! Item was added: + ----- Method: HtmlReadWriter>>cr (in category 'stream emulation') ----- + cr + + self breakLines ifTrue: [stream nextPutAll: ' ']. + ^ stream cr! Item was added: + ----- Method: HtmlReadWriter>>deactivateAttributesEnding:starting: (in category 'private') ----- + deactivateAttributesEnding: ending starting: starting + + ending reversed + reject: [:attribute | attribute shouldFormBlocks] + thenDo: [: attribute | self writeEndTagFor: attribute]; + select: [:attribute | attribute shouldFormBlocks] + thenDo: [: attribute | + (starting includes: attribute) ifFalse: [self writeEndTagFor: attribute]].! Item was added: + ----- Method: HtmlReadWriter>>initialize (in category 'initialize-release') ----- + initialize + + super initialize. + self breakLines: true.! Item was added: + ----- Method: HtmlReadWriter>>mapCloseCodeTag (in category 'mapping') ----- + mapCloseCodeTag + + | theDoIt | + theDoIt := runStack top first + detect: [:attribute | attribute isKindOf: TextDoIt] + ifNone: [^ self "nothing found, ignore"]. + theDoIt evalString: (String withAll: (string copyFrom: runStack top second to: string size)).! Item was added: + ----- Method: HtmlReadWriter>>mapCodeTag (in category 'mapping') ----- + mapCodeTag + + ^ {TextDoIt new} "yet uninitialized"! Item was changed: ----- Method: HtmlReadWriter>>mapTagToAttribute: (in category 'mapping') ----- mapTagToAttribute: aTag aTag = '' ifTrue: [^ {TextEmphasis bold}]. aTag = '' ifTrue: [^ {TextEmphasis italic}]. aTag = '' ifTrue: [^ {TextEmphasis underlined}]. + aTag = '<code>' ifTrue: [^ self mapCodeTag]. + aTag = '<pre>' ifTrue: [self breakLines: false. ^ {}]. - "aTag = '<code>' ifTrue: [^ {TextFontReference toFont: Preferences standardCodeFont}]." (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: HtmlReadWriter>>nextPut: (in category 'stream emulation') ----- + nextPut: aCharacter + + ^ stream nextPut: aCharacter! Item was added: + ----- Method: HtmlReadWriter>>nextPutAll: (in category 'stream emulation') ----- + nextPutAll: aCollection + + ^ stream nextPutAll: aCollection! Item was changed: ----- Method: HtmlReadWriter>>nextPutText: (in category 'accessing') ----- nextPutText: aText + | previous | + previous := #(). + self activateAttributesEnding: #() starting: previous. "for consistency" aText runs withStartStopAndValueDo: [:start :stop :attributes | + self + deactivateAttributesEnding: previous starting: attributes; + activateAttributesEnding: previous starting: attributes; + writeContent: (aText string copyFrom: start to: stop). + previous := attributes]. + self deactivateAttributesEnding: previous starting: #().! - | 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 changed: ----- Method: HtmlReadWriter>>processEndTag: (in category 'reading') ----- processEndTag: aTag + | index tagName | - | index | index := count - offset. + tagName := aTag copyFrom: 3 to: aTag size - 1. - - (self ignoredTags includes: (aTag copyFrom: 3 to: aTag size -1)) - ifTrue: [^ self]. + (self ignoredTags includes: tagName) ifTrue: [^ self]. + tagName = 'code' ifTrue: [self mapCloseCodeTag]. + tagName = 'pre' ifTrue: [self breakLines: true]. + "De-Accumulate adjacent tags." runStack top at: 4 put: runStack top fourth - 1. runStack top fourth > 0 ifTrue: [^ self "not yet"]. self processRunStackTop. runStack pop. runStack top at: 2 put: index + 1.! Item was changed: ----- Method: HtmlReadWriter>>processNextTag (in category 'reading') ----- processNextTag | tag htmlEscape lookForNewTag lookForHtmlEscape tagFound valid inComment inTagString | lookForNewTag := true. lookForHtmlEscape := false. tagFound := false. tag := OrderedCollection new. htmlEscape := OrderedCollection new. inComment := false. inTagString := false. [stream atEnd not and: [tagFound not]] whileTrue: [ | character | character := stream next. valid := (#(10 13) includes: character asciiValue) not. count := count + 1. character = $< ifTrue: [lookForNewTag := false]. character = $& ifTrue: [ inComment ifFalse: [lookForHtmlEscape := true]]. lookForNewTag ifTrue: [ lookForHtmlEscape + ifFalse: [ + (valid or: [self breakLines not]) + ifTrue: [string add: character] + ifFalse: [offset := offset + 1]] - ifFalse: [valid ifTrue: [string add: character] ifFalse: [offset := offset + 1]] ifTrue: [valid ifTrue: [htmlEscape add: character]. offset := offset + 1]] ifFalse: [valid ifTrue: [tag add: character]. offset := offset + 1]. "Toggle within tag string/text." (character = $" and: [lookForNewTag not]) ifTrue: [inTagString := inTagString not]. inComment := ((lookForNewTag not and: [tag size >= 4]) and: [tag beginsWith: '<!!--']) and: [(tag endsWith: '-->') not]. (((character = $> and: [inComment not]) and: [lookForNewTag not]) and: [inTagString not]) ifTrue: [ lookForNewTag := true. (tag beginsWith: '<!!--') ifTrue: [self processComment: (String withAll: tag)] ifFalse: [tag second ~= $/ ifTrue: [ (tag atLast: 2) == $/ ifTrue: [self processEmptyTag: (String withAll: tag)] ifFalse: [self processStartTag: (String withAll: tag)]] ifFalse: [self processEndTag: (String withAll: tag)]]. tagFound := true]. (((character = $; and: [lookForNewTag]) and: [htmlEscape notEmpty]) and: [htmlEscape first = $&]) ifTrue: [ lookForHtmlEscape := false. self processHtmlEscape: (String withAll: htmlEscape). htmlEscape := OrderedCollection new]]. ! Item was changed: ----- Method: HtmlReadWriter>>writeContent: (in category 'writing') ----- writeContent: aString aString do: [:char | (#(10 13) includes: char asciiValue) + ifTrue: [self cr] - ifTrue: [stream nextPutAll: ' '; cr] ifFalse: [char = Character tab + ifTrue: [self nextPutAll: '    '] - ifTrue: [stream nextPutAll: '    '] ifFalse: [(String htmlEntities keyAtValue: char ifAbsent: []) + ifNil: [self nextPut: char] - ifNil: [stream nextPut: char] ifNotNil: [:escapeSequence | + self - stream nextPut: $&; nextPutAll: escapeSequence; nextPut: $;]]]].! Item was changed: ----- Method: HtmlReadWriter>>writeEndTagFor: (in category 'writing') ----- writeEndTagFor: aTextAttribute + [aTextAttribute closeHtmlOn: self] - [aTextAttribute closeHtmlOn: stream] on: MessageNotUnderstood do: []! Item was changed: ----- Method: HtmlReadWriter>>writeStartTagFor: (in category 'writing') ----- writeStartTagFor: aTextAttribute + [aTextAttribute openHtmlOn: self] - [aTextAttribute openHtmlOn: stream] on: MessageNotUnderstood do: [].! Item was changed: ----- Method: TextAction>>analyze: (in category 'as yet unclassified') ----- analyze: aString + "Analyze the selected text to find both the parameter to store and the text to emphesize (may be different from original selection). Does not return self!!. May be multiline or of the form: - "Analyze the selected text to find both the parameter to store and the text to emphesize (may be different from original selection). Does not return self!!. May be of the form: 3+4 <3+4> Click Here<3+4> <3+4>Click Here " "Obtain the showing text and the instructions" + | b1 b2 singleLine trim param show | - | b1 b2 trim param show | b1 := aString indexOf: $<. b2 := aString indexOf: $>. + singleLine := aString lineCount = 0. + (singleLine or: [(b1 < b2) & (b1 > 0)]) ifFalse: ["only one part" - (b1 < b2) & (b1 > 0) ifFalse: ["only one part" param := self validate: aString. param ifNil: [ ^{ nil. nil } ]. + ^ Array with: param with: (param size = 0 ifFalse: [param])]. - ^ Array with: param with: (param size = 0 ifTrue: [nil] ifFalse: [param])]. "Two parts" trim := aString withBlanksTrimmed. (trim at: 1) == $< ifTrue: [(trim last) == $> ifTrue: ["only instructions" param := self validate: (aString copyFrom: b1+1 to: b2-1). + show := param size = 0 ifFalse: [param]] - show := param size = 0 ifTrue: [nil] ifFalse: [param]] ifFalse: ["at the front" param := self validate: (aString copyFrom: b1+1 to: b2-1). + show := param size = 0 ifFalse: [aString copyFrom: b2+1 to: aString size]]] - show := param size = 0 ifTrue: [nil] - ifFalse: [aString copyFrom: b2+1 to: aString size]]] ifFalse: [(trim last) == $> ifTrue: ["at the end" param := self validate: (aString copyFrom: b1+1 to: b2-1). + show := param size = 0 ifFalse: [aString copyFrom: 1 to: b1-1]] + ifFalse: ["Arbitrary string. Let the compiler handle the complete string" + param := self validate: aString. + param ifNil: [ ^{ nil. nil }]. + show := (param size = 0 ifFalse: [param])]]. - show := param size = 0 ifTrue: [nil] - ifFalse: [aString copyFrom: 1 to: b1-1]] - ifFalse: ["Illegal -- <> has text on both sides" - show := nil]]. ^ Array with: param with: show ! Item was added: + ----- Method: TextAlignment>>shouldFormBlocks (in category 'as yet unclassified') ----- + shouldFormBlocks + " whether this attribute should form larger blocks even if split up for combination with other attributes " + ^ false! Item was added: + ----- Method: TextAttribute>>shouldFormBlocks (in category 'html') ----- + shouldFormBlocks + " whether this attribute should form larger blocks even if split up for combination with other attributes " + ^ false! Item was changed: ----- Method: TextDoIt>>analyze: (in category 'as yet unclassified') ----- analyze: aString | list | list := super analyze: aString. + evalString := (list at: 1) asString. - evalString := list at: 1. ^ list at: 2! Item was added: + ----- Method: TextDoIt>>closeHtmlOn: (in category 'html') ----- + closeHtmlOn: aStream + + self evalString lines size > 1 ifTrue: [ + aStream + breakLines: true; + nextPutAll: '</pre>']. + aStream nextPutAll: '</code>'. + ! Item was added: + ----- Method: TextDoIt>>emphasizeScanner: (in category 'as yet unclassified') ----- + emphasizeScanner: scanner + scanner addEmphasis: 4! Item was added: + ----- Method: TextDoIt>>openHtmlOn: (in category 'html') ----- + openHtmlOn: aStream + + aStream nextPutAll: '<code>'. + self evalString lines size > 1 ifTrue: [ + aStream + breakLines: false; + cr; + nextPutAll: '<pre>'].! Item was added: + ----- Method: TextDoIt>>shouldFormBlocks (in category 'html') ----- + shouldFormBlocks + + ^ true! Item was added: + ----- Method: TextIndent>>shouldFormBlocks (in category 'nil') ----- + shouldFormBlocks + + ^ true!

1 0

The Inbox: Collections-eem.732.mcz
by commits＠source.squeak.org 09 Feb '17

09 Feb '17

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!

3 3

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

09 Feb '17

Tobias Pape uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-topa.1321.mcz ==================== Summary ==================== Name: Morphic-topa.1321 Author: topa Time: 9 February 2017, 4:56:13.396681 pm UUID: 7b1a9e25-af9a-4aea-ae14-dd1944092bfc Ancestors: Morphic-bf.1320 Let doit/printit attributes preserve the remaining attribtues. =============== Diff against Morphic-bf.1320 =============== Item was changed: ----- Method: SmalltalkEditor>>handleEmphasisExtra:with: (in category 'editing keys') ----- handleEmphasisExtra: index with: aKeyboardEvent "Handle an extra emphasis menu item" | action attribute thisSel | action := { [attribute := TextDoIt new. + thisSel := attribute analyze: self selection]. - thisSel := attribute analyze: self selection asString]. [attribute := TextPrintIt new. + thisSel := attribute analyze: self selection]. - thisSel := attribute analyze: self selection asString]. [attribute := TextLink new. thisSel := attribute analyze: self selection asString with: 'Comment']. [attribute := TextLink new. thisSel := attribute analyze: self selection asString with: 'Definition']. [attribute := TextLink new. thisSel := attribute analyze: self selection asString with: 'Hierarchy']. [attribute := TextLink new. thisSel := attribute analyze: self selection asString]. [attribute := TextURL new. thisSel := attribute analyze: self selection asString]. ["Edit hidden info" thisSel := self hiddenInfo. "includes selection" attribute := TextEmphasis normal]. ["Copy hidden info" self copyHiddenInfo. ^true]. "no other action" } at: index. action value. thisSel ifNil: [^true]. "Could not figure out what to link to" attribute ifNotNil: [ thisSel ifEmpty:[ | oldAttributes | "only change emphasisHere while typing" oldAttributes := paragraph text attributesAt: self pointIndex. emphasisHere := Text addAttribute: attribute toArray: oldAttributes. ] ifNotEmpty: [ self replaceSelectionWith: (thisSel asText addAttribute: attribute). ] ]. ^true!

1 0

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

09 Feb '17

1 0

Re: [squeak-dev] Helping with Conservancy's fundraiser?
by David T. Lewis 09 Feb '17

09 Feb '17

Fellow Squeakers, Squeak is, as most of you on this list will know, a proud member of the Software Freedom Conservancy (SFC), so the note below caught my attention. The Squeak community is always happy and grateful when people click the attractive "Donate" button on http://squeak.org, and any donation to Squeak is also a vote of support for SFC. But you may also have friends or family or wealthy employers who might be interested in supporting the broader goals of the SFC, and if so this seems to be a good time to encourage their support by visiting http://sfconservancy.org/supporter/ to make a contribution. It is also worth visiting http://sfconservancy.org/ from time to time to keep an eye on news and issues of interest to all of us. Dave On Wed, Feb 08, 2017 at 01:11:08PM -0500, Karen Sandler wrote: > Hi project representatives! > > As some of you may know, we're in the process of fundraising for general > conservancy donations - so we can raise extra money to help you! (The > 10% from our member projects together doesn't fund more than one person > + overhead, but our projects' needs are much more significant than that > - we're in a constant dead run to get everything done with our lean > staff of four.) > > An anonymous donor has challenged us to sign up 150 Supporters in just > one week, which expires on Monday. We've had a slow start, but I'm > confident that with your help we can do it! > > Please help us promote this by whatever means you are comfortable with. > Things that our member projects have done in the past that have helped > us immensely: > > * Using social media to draw attention to and promote the fundraiser > * Posting an item on a relevant website, like reddit, hackernews or > slashdot > * Putting an announcement up on the project website > * Posting on your project mailing list > * Adding a banner to the project website > * Writing blogposts (we could even include this on Conservancy's site) > * Recording a short video saying why you support Conservancy and asking > others to do the same. > * Emailing parts of the project's community that might be receptive to > the ask > > Anything you can do to help us amplify the message about this match > would be so appreciated! > > thanks!! > karen > > > Karen M. Sandler > Executive Director, Software Freedom Conservancy > __________ > Become a Supporter today! http://sfconservancy.org/supporter/

1 0

Smalltalk Arrows a version of Haskell Arrows
by Kjell Godo 09 Feb '17

09 Feb '17

I think that in Smalltalk a Haskell Arrow is just a 1 input valuable plus some composition methods like >>into: = return a function composition , ( f into: g ) = [ :x | g value: ( f value: x ) ] >>pair: = return a do both functions and return a size 2 Array , ( f pair: g ) = [ :x | Array with:( f value: x )with:( g value: x ) ] >>binOp: = return a binary op on Array , ( p binOp: b ) = [ :array | b value:( p value:( array first ) ) value:( p value:( array second ) ) ] >>doAt1 = return a do function on p's Array at:1 and return Array , ( p doAt1 ) = [ :array | array at:1put:( p value: ( array first ) ) ; yourself ] >>doAt2 = return a do function on Array at:2 and return Array , ( p doAt2 ) = [ :array | array at:2put:( p value: ( array second ) ) ; yourself ]<---------------[ is faster ] ( p doAt2 ) = ( p swap into: doAt1 ) swap <---------[ it's shorter it's simpler ] >>swap = return a do p and return Array transposed ( p swap ) = [ :x | ( p value: x ) reverse ] etc ( a 1 input valuable is anything that responds to #value: ) Haskell seems to get a lot of mileage out of this kind of Category theoretical function composition and no doubt the Haskell type system aids in this and practically Maybe demands it and makes it really convoluted they rebelled against lispy simplicity in order to make it simple in order to not to scare the newbies they dumped all the parens overboard replaced them all with a complicated set of precedent rules so now you got to have a parser in your head to read the stuff and if you don't where you gonna get one is that guy going to parse it for you i don't think so which far from making it easier for anybody but a rank newbie a ranking newbie got to impressem this induced parserhead requirement on human Haskell code readers instead of making it any easier makes it really really hard out on the deep end of the pool there is a tremendous drop off a under water cliff where newbies who reach puberty begin hanging thenselves out to dry which doesn't really work cause they keep getting all wet and this may well be a great resistance to Haskell uptake and seems to be an endless source of confusion contusion and discussion as meetup people's personal Haskell brain pan parsers shift in and out of true conformity to the standard as we speak as we keep on speaking and No wait- s abound but the people who got a Haskell parser in they head they say oh no I'm not going through That again No you get a parser in your head or you're out but i regress -digress! The Smalltalk runtime type system makes it a lot simpler to see what is going on so i wonder what effect this kind of function composition style could have on Smalltalk code Where maybe you have a bunch of Methods that just return 1 input valuables ( [ :x | ... ] , SomeFunctionClass>>value: , etc ) which then get turned into Arrows and get categorically indubitably functionally composed who knows what could happen the Objects themselves in this functional Smalltalk style could be mostly empty except for accessors and then stateless Traits could be the functions or there could be separate stateless functional Classes that have the stateless functions which could be pluggable on multiple different applicable Object Classes ( kind of a pluggable multiple inheritance thing going on )( ? ) because supposedly then you can make new functions by just using very simplified composition expressions as in the short example above ( p doAt2 ) = ^( p swap into: doAt1 ) swap as opposed to having to know a lot about all the inputs and all about how the sends are supposed to fit together involving lots of looking things up over and over the composition combinators do all that for you or so the combinator propaganda goes but is it really true or do you have to know just as much or more to actually get the function combinators to work or do you have to finally wise up and get smart and stop fooling around with writing yet another monad tutorial(s) just like all the other ranking newbies and get serious and write a brain pan parser compiler and become a first class tenderfoot And now you're much worse off than before in the time spent column and you don't even know it that's the sad part because the Maybe she's elegance column is calling sirens calling clouding your mind with foggy fogged up window pain desires and you don't even know which end is up anymore and you want some of that categorical shit they're having at the big people's table so is it worth it does it work as advertised or is it just to be deride i wonder But i would like it if a Smalltalk Arrow could explain itself So an Arrow is just an Object that contains a 1 input valuable and a BinaryArrow isA Arrow and contains 2 Arrows so Arrow>>explainYourself returns an Array tree of oneInputValuable source code Strings which describe how the Arrow works because otherwise it's just a great big mystery Arrow hasA oneInputValuable <---[ a one input function ] BinaryArrow isA Arrow hasA firstArrow secondArrow But the BlockClosure>>into: >>pair: >>binOp: >>at1Do >>at2Do >>swap etc and the Object>>into: >>pair: >>binOp: >>at1Do >>at2Do >>swap etc work too maybe quicker or ( anArrow asValuable ) <---[ which gets rid of all the explanation bits ] <---[ couldn't the Smalltalk compiler optimize this functional as it sits ] Haskell is very big on Immutablility But in Smalltalk exscpecially in the GUI making everything immutable just doesn't seem right because you've got all these Objects which are sitting in this web and they are taking inputs from god knows everywhere and broadcasting them back out again so you have the idea of a web of important Objects with not so important contents which are coming and going and recording them all all that and saving them all for posterity just don't seem right dependent Objects that are interested can note the changes In Smalltalk when i want an immutable copy of an ( Object o ) where o might be changing i just get ( o copy ) or ( o deepCopy ) to take a snapshot of o but then you have to keep track of when to take a snapshot it's true But Smalltalk can have a Immutable Class maybe a subClass of ProtoObject? to make mixins Object Class complete? where an ( Immutable m ) is on another ( Object o ) Immutable hasA object <---[ object = o ] and m forwards all Messages to o after making a copy of itself m and o and returning the copy of itself m unless ( ( o aMessage ) ~= o ) in which case ( ( o aMessage ) asImmutable ) is returned then you don't have to keep track of when to copy m but there could be any amount of copying going on so hopefully it's not too much Maybe Object>>immutableCopy might be good which could be called if it is defined? Maybe not Probably not so hopefully the programmer can tell when copy is Immutable enough and when an Immutable wrapper is ok good

2 1

Smalltalk Arrows a instance of Haskell Arrows Maybe
by Kjell Godo 08 Feb '17

08 Feb '17

About a proposed simple Smalltalk version of Haskell Arrows for the purpose of Smalltalk function composition

1 0

The Inbox: Collections-eem.733.mcz
by commits＠source.squeak.org 08 Feb '17

08 Feb '17

Eliot Miranda uploaded a new version of Collections to project The Inbox: http://source.squeak.org/inbox/Collections-eem.733.mcz ==================== Summary ==================== Name: Collections-eem.733 Author: eem Time: 8 February 2017, 11:16:10.473598 am UUID: a53cdc94-0460-4116-a778-f20d273dcc42 Ancestors: Collections-eem.732 Eliminate a shadowing warning in HtmlReadWriter>>nextPutText: =============== Diff against Collections-eem.732 =============== 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: + [:subString :attributes | | indented | - [:string :attributes | | indented | atStartOfLine ifTrue: + [indented := subString first == Character tab. - [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: subString] + ifFalse: [self writeContent: subString]. - ifTrue: [self writePresentationContent: string] - ifFalse: [self writeContent: string]. attributes reverseDo: [:each | self writeEndTagFor: each]. + atStartOfLine := subString last == cr]. - atStartOfLine := string last == cr]. inIndent ifTrue: [stream nextPutAll: '</pre>']!

1 0

Time to Vote!
by Ron Teitelbaum 08 Feb '17

08 Feb '17

Hi All, It is time to vote for the Squeak Oversight Board for 2017. The email with instructions went out on Feb 6th. Look for an email from Ron Teitelbaum sent through CIVS. If you didn't get it please check your spam folder. I would be happy to send the email to you again. I can also help if you have issues understanding the ballot or need more information about how to vote. Thank you for your participation in our community! Now go vote! All the best, Ron

2 1

The Trunk: Kernel-eem.1057.mcz
by commits＠source.squeak.org 08 Feb '17

08 Feb '17

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.1057.mcz ==================== Summary ==================== Name: Kernel-eem.1057 Author: eem Time: 7 February 2017, 6:20:56.634789 pm UUID: 5768ff81-113e-47b1-9855-a6d8277bf6b3 Ancestors: Kernel-dtl.1056 Provide a convenient method for scanning for arbitrary bytecode sequences, where each bytecode is provided as a message. =============== Diff against Kernel-dtl.1056 =============== Item was added: + ----- Method: InstructionStream>>scanForInstructionSequence: (in category 'scanning') ----- + scanForInstructionSequence: naryBlock + "naryBlock is a block taking one or more arguments. + Evaluate it for each sequence of instructions of length + n in the receiver until naryBlock evaluates to true. + Answer if naryBlock evaluated to true." + | instructions | + instructions := OrderedCollection withAll: ((1 to: naryBlock numArgs) collect: + [:ign| + self atEnd ifTrue: [^false]. + self nextInstruction]). + [(naryBlock valueWithArguments: instructions asArray) ifTrue: + [^true]. + self atEnd] whileFalse: + [instructions removeFirst; addLast: self nextInstruction]. + ^false!

1 0

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

Jump to page: