Squeak-dev February 2014

squeak-dev@lists.squeakfoundation.org

71 participants
188 discussions

Squeak Oversight Board Election 2014
by Ron Teitelbaum 07 Feb '14

07 Feb '14

Hi All, The Squeak Oversight Board still has room for more candidates! If you are going to run please announce yourself on squeak-dev. Time is running out. Thanks! Ron Teitelbaum

3 3

Re: [Vm-dev] Hello VM Dev List From StackInterpreterSimulator
by gettimothy 07 Feb '14

07 Feb '14

Hi Bert. Thanks for the compliment and the pointers. I agree that the mods to HandMorph need to go away and the existing functionality should be used. That means using the existing HandMorph>>addEventListener and generating the event format that StackInteprterSimulator >>ioGetNextEvent: evtBuf expects in the morph's model. Unfortunately, I found that step daunting. Basically, it was a time-and-energy decision. Since I already knew that the StackIntepreterSimulator would respond to EventSensor events, I decided to eliminate a possible source of error by going with a known working format. That allowed me to focus on filtering and transforming (such as they are). When I get time, I will work on what you suggest as I agree with you. However, IF there is some Morphic talent out there that can do this stuff in their sleep, then I hope they will take up the task. This is my first Morphic attempt and it is sure to have some ugly stuff in it. I would prefer to have a pro do it right. >>Maybe this helps: Your host VM may or may not run using the event primitives. It might use the polling primitives. Morphic runs fine on both. So in some cases it's not even *possible* to use the "original VM events". That sound interesting! I never heard of this distinction in events. What are they? Thank you again. cordially, tty

1 0

Fwd: [Bug 956376] Can not edit class comments
by Frank Shearar 06 Feb '14

06 Feb '14

Just an FYI on a bug reported against Fedora 18. (If you'll recall, this happened after we released 4.4. Some Pharo guys came up with a quick workaround, which I applied to 4.4, and then Some Folk said that was a very bad idea papering over the root cause like that so I rolled back the change.) frank ---------- Forwarded message ---------- From: <bugzilla(a)redhat.com> Date: 5 February 2014 23:08 Subject: [Bug 956376] Can not edit class comments To: frank.shearar(a)gmail.com https://bugzilla.redhat.com/show_bug.cgi?id=956376 Fedora End Of Life <endoflife(a)fedoraproject.org> changed: What |Removed |Added ---------------------------------------------------------------------------- Status|ASSIGNED |CLOSED Resolution|--- |WONTFIX Last Closed| |2014-02-05 18:08:32 --- Comment #15 from Fedora End Of Life <endoflife(a)fedoraproject.org> --- Fedora 18 changed to end-of-life (EOL) status on 2014-01-14. Fedora 18 is no longer maintained, which means that it will not receive any further security or bug fix updates. As a result we are closing this bug. If you can reproduce this bug against a currently maintained version of Fedora please feel free to reopen this bug against that version. If you are unable to reopen this bug, please file a new report against the current release. If you experience problems, please add a comment to this bug. Thank you for reporting this bug and we are sorry it could not be fixed. -- You are receiving this mail because: You are on the CC list for the bug. Unsubscribe from this bug https://bugzilla.redhat.com/token.cgi?t=TSp5PrV52T&a=cc_unsubscribe

1 0

Squeak 4.5 Release Candidate 3
by Chris Muller 05 Feb '14

05 Feb '14

Okay, our testing is serving its purpose by finding issues. Now please bang on this one. http://ftp.squeak.org/4.5alpha/Squeak4.5-13671.zip

6 9

Re: [squeak-dev] The Inbox: Compiler.quasiquote-eem.248.mcz
by Eliot Miranda 05 Feb '14

05 Feb '14

Hi All, I had fun implementing a quasi-quote for Squeak today. This is a convenient way of embedding substrings in format strings (a little like printf), and, because it uses a different quote character, a convenient way of embedding code form other languages in a string literal. An example of the former usage is `hello [#cruel] world` which evaluates to 'hello cruel world' And `Float pi is [Float pi]` evaluates to 'Float pi is 3.141592653589793' An example of the latter use is that one can write `printf("%s: %c\\n", "a string", 'C');` instead of 'printf("%s: %c\n", "a string", ''C'');' This last example shows a limitation; The use of \ to escape characters ($\ $[ and $`) in quasi-quote might not be such a good choice. Anyway I thought I'd put this in the in-box for people to play with and savage. Please let me know what you think, both about the semantics and the implementation. This is a quick hack and I'm sure that there's plenty of scope for clean-up. cheers Eliot On Tue, Feb 5, 2013 at 9:54 PM, <commits(a)source.squeak.org> wrote: > A new version of Compiler was added to project The Inbox: > http://source.squeak.org/inbox/Compiler.quasiquote-eem.248.mcz > > ==================== Summary ==================== > > Name: Compiler.quasiquote-eem.248 > Author: eem > Time: 5 February 2013, 9:54:20.317 pm > UUID: ef044906-3339-48cc-856b-9b5172e3e81b > Ancestors: Compiler-cwp.247 > > Add a quasi-quote form that allows convenient embedding > of substrings within a format string, and provides a > convenient way of embedding literal strings within an > alternative literal string whose string delimiter is different. > > e.g. > `hello [#cruel] world!` > evaluates to > 'hello cruel world'. > > `S1[B1]...SN[BN]SN+1` > > is equivalent to > { 'S1'. [B1] value. ... 'SN'. [BN] value. 'SN+1' } > concatenateQuasiQuote > where concatenateQuasiQuote sends asString to each > element and answers the concatenation of those elements. > > however, single-statement blocks are inlined, so e.g. the > above `hello [#cruel] world!` is compiled as > { 'hello '. #cruel. ' world!' } concatenateQuasiQuote > > See Tests.quasiquote-eem.188 for tests and examples. > > =============== Diff against Compiler-cwp.247 =============== > > Item was added: > + ----- Method: Array>>concatenateQuasiQuote (in category > '*Compiler-support') ----- > + concatenateQuasiQuote > + "This method is used in compilation of quasi-quote constructs. > + It MUST NOT be deleted or altered." > + > + | s sz | > + sz := self size. > + s := WriteStream on: (String new: sz * 16). > + 1 to: sz do: > + [:i| s nextPutAll: (self at: i) asString]. > + ^s contents! > > Item was removed: > - ----- Method: Decompiler>>checkForBlock:selector:arguments: (in category > 'control') ----- > - checkForBlock: receiver selector: selector arguments: arguments > - selector == #blockCopy: ifTrue: > - [^self checkForBlockCopy: receiver]. > - self assert: selector == #closureCopy:copiedValues:. > - ^self checkForClosureCopy: receiver arguments: arguments! > > Item was added: > + ----- Method: Decompiler>>checkForMacroMessage:selector:arguments: (in > category 'control') ----- > + checkForMacroMessage: rcvr selector: selector arguments: args > + ^ (selector == #concatenateQuasiQuote > + and: [self checkForQuasiQuote: rcvr selector: selector > arguments: args]) > + or: [(#closureCopy:copiedValues: == selector > + and: [self checkForClosureCopy: rcvr arguments: args]) > + or: [#blockCopy: == selector > + and: [self checkForBlockCopy: rcvr]]]! > > Item was added: > + ----- Method: Decompiler>>checkForQuasiQuote:selector:arguments: (in > category 'control') ----- > + checkForQuasiQuote: rcvr "<BraceNode>" selector: selector "<Symbol>" > arguments: args "<Array>" > + stack addLast: > + ((MessageNode new > + receiver: rcvr > + selector: (SelectorNode new key: > #concatenateQuasiQuote code: nil) > + arguments: args > + precedence: 1) > + notePrintingSelector: #printQuasiQuoteOn:indent:; > + yourself). > + ^true! > > Item was changed: > ----- Method: Decompiler>>send:super:numArgs: (in category 'instruction > decoding') ----- > send: selector super: superFlag numArgs: numArgs > > | args rcvr selNode msgNode messages | > args := Array new: numArgs. > (numArgs to: 1 by: -1) do: > [:i | args at: i put: stack removeLast]. > rcvr := stack removeLast. > superFlag ifTrue: [rcvr := constructor codeSuper]. > + (self checkForMacroMessage: rcvr selector: selector arguments: > args) ifFalse: > - ((#(blockCopy: closureCopy:copiedValues:) includes: selector) > - and: [self checkForBlock: rcvr selector: selector arguments: > args]) ifFalse: > [selNode := constructor codeAnySelector: selector. > rcvr == CascadeFlag > ifTrue: > ["May actually be a cascade or an ifNil: > for value." > self willJumpIfFalse > ifTrue: "= generated by a case > macro" > [selector == #= ifTrue: > [" = signals a > case statement..." > statements > addLast: args first. > stack addLast: > rcvr. "restore CascadeFlag" > ^ self]. > selector == #== ifTrue: > [" == signals an > ifNil: for value..." > stack removeLast; > removeLast. > rcvr := stack > removeLast. > stack addLast: > IfNilFlag; > addLast: > (constructor > > codeMessage: rcvr > > selector: selNode > > arguments: args). > ^ self]] > ifFalse: > [(self willJumpIfTrue and: > [selector == #==]) ifTrue: > [" == signals an > ifNotNil: for value..." > stack removeLast; > removeLast. > rcvr := stack > removeLast. > stack addLast: > IfNilFlag; > addLast: > (constructor > > codeMessage: rcvr > > selector: selNode > > arguments: args). > ^ self]]. > msgNode := constructor > > codeCascadedMessage: selNode > arguments: > args. > stack last == CascadeFlag ifFalse: > ["Last message of a cascade" > statements addLast: msgNode. > messages := self popTo: stack > removeLast. "Depth saved by first dup" > msgNode := constructor > > codeCascade: stack removeLast > > messages: messages]] > ifFalse: > [msgNode := constructor > codeMessage: rcvr > selector: selNode > arguments: args]. > stack addLast: msgNode]! > > Item was changed: > ----- Method: MessageNode class>>initialize (in category 'class > initialization') ----- > initialize > "MessageNode initialize" > MacroSelectors := > #( ifTrue: ifFalse: ifTrue:ifFalse: ifFalse:ifTrue: > and: or: > whileFalse: whileTrue: whileFalse whileTrue > to:do: to:by:do: > caseOf: caseOf:otherwise: > ifNil: ifNotNil: ifNil:ifNotNil: ifNotNil:ifNil: > + repeat > + nil "space for concatenateQuasiQuote" ). > - repeat ). > MacroTransformers := > #( transformIfTrue: transformIfFalse: > transformIfTrueIfFalse: transformIfFalseIfTrue: > transformAnd: transformOr: > transformWhile: transformWhile: transformWhile: > transformWhile: > transformToDo: transformToDo: > transformCase: transformCase: > transformIfNil: transformIfNil: > transformIfNilIfNotNil: transformIfNotNilIfNil: > + transformRepeat: > + nil "space for concatenateQuasiQuote" ). > - transformRepeat: ). > MacroEmitters := > #( emitCodeForIf:encoder:value: > emitCodeForIf:encoder:value: > emitCodeForIf:encoder:value: > emitCodeForIf:encoder:value: > emitCodeForIf:encoder:value: > emitCodeForIf:encoder:value: > emitCodeForWhile:encoder:value: > emitCodeForWhile:encoder:value: > emitCodeForWhile:encoder:value: > emitCodeForWhile:encoder:value: > emitCodeForToDo:encoder:value: > emitCodeForToDo:encoder:value: > emitCodeForCase:encoder:value: > emitCodeForCase:encoder:value: > emitCodeForIfNil:encoder:value: > emitCodeForIfNil:encoder:value: > emitCodeForIf:encoder:value: > emitCodeForIf:encoder:value: > + emitCodeForRepeat:encoder:value: > + nil "space for concatenateQuasiQuote"). > - emitCodeForRepeat:encoder:value:). > MacroSizers := > #( sizeCodeForIf:value: sizeCodeForIf:value: > sizeCodeForIf:value: sizeCodeForIf:value: > sizeCodeForIf:value: sizeCodeForIf:value: > sizeCodeForWhile:value: sizeCodeForWhile:value: > sizeCodeForWhile:value: sizeCodeForWhile:value: > sizeCodeForToDo:value: sizeCodeForToDo:value: > sizeCodeForCase:value: sizeCodeForCase:value: > sizeCodeForIfNil:value: sizeCodeForIfNil:value: > sizeCodeForIf:value: sizeCodeForIf:value: > + sizeCodeForRepeat:value: > + nil "space for concatenateQuasiQuote"). > - sizeCodeForRepeat:value:). > MacroPrinters := > #( printIfOn:indent: printIfOn:indent: > printIfOn:indent: printIfOn:indent: > printIfOn:indent: printIfOn:indent: > printWhileOn:indent: printWhileOn:indent: > printWhileOn:indent: printWhileOn:indent: > printToDoOn:indent: printToDoOn:indent: > printCaseOn:indent: printCaseOn:indent: > printIfNil:indent: printIfNil:indent: > printIfNilNotNil:indent: printIfNilNotNil:indent: > + printRepeatOn:indent: > + printQuasiQuoteOn:indent:)! > - printRepeatOn:indent:)! > > Item was added: > + ----- Method: MessageNode>>notePrintingSelector: (in category 'macro > transformations') ----- > + notePrintingSelector: printingSelectorSymbol > + "decompile" > + > + special := MacroPrinters indexOf: printingSelectorSymbol! > > Item was added: > + ----- Method: MessageNode>>printQuasiQuoteOn:indent: (in category > 'printing') ----- > + printQuasiQuoteOn: aStream indent: level > + aStream nextPut: $`. > + receiver elements do: > + [:parseNode| > + (parseNode isLiteralNode > + and: [parseNode key class == 'literal' class]) > + ifTrue: > + [parseNode key do: > + [:char| > + ('`[\' includes: char) ifTrue: > + [aStream nextPut: $\]. > + aStream nextPut: char]] > + ifFalse: > + [(parseNode isMessageNode > + and: [parseNode selector key == #value > + and: [parseNode receiver isBlockNode]]) > + ifTrue: > + [parseNode receiver > printOn: aStream indent: 0] > + ifFalse: > + [aStream nextPut: $[. > + parseNode printOn: > aStream indent: 0. > + aStream nextPut: $]]]]. > + aStream nextPut: $`! > > Item was changed: > ----- Method: Parser>>advance (in category 'scanning') ----- > advance > | this | > prevMark := hereMark. > prevEnd := hereEnd. > this := here. > here := token. > hereType := tokenType. > hereMark := mark. > hereEnd := source position - (aheadChar == DoItCharacter > ifTrue: [hereChar == DoItCharacter > ifTrue: [0] > ifFalse: [1]] > ifFalse: [2]). > + hereType ~~ #backQuote ifTrue: > + [self scanToken]. > - self scanToken. > "Transcript show: 'here: ', here printString, ' mark: ', hereMark > printString, ' end: ', hereEnd printString; cr." > ^this! > > Item was changed: > ----- Method: Parser>>expression (in category 'expression types') ----- > expression > > + (hereType == #word and: [tokenType == #leftArrow]) ifTrue: > + [^self assignment: self variable]. > + hereType == #backQuote > + ifTrue: [self quasiQuoteExpression] > + ifFalse: > + [hereType == #leftBrace > + ifTrue: [self braceExpression] > + ifFalse: > + [self primaryExpression ifFalse: > + [^false]]]. > + (self messagePart: 3 repeat: true) ifTrue: > + [hereType == #semicolon ifTrue: > + [self cascade]]. > + ^true! > - (hereType == #word and: [tokenType == #leftArrow]) > - ifTrue: [^ self assignment: self variable]. > - hereType == #leftBrace > - ifTrue: [self braceExpression] > - ifFalse: [self primaryExpression ifFalse: [^ false]]. > - (self messagePart: 3 repeat: true) > - ifTrue: [hereType == #semicolon ifTrue: [self cascade]]. > - ^ true! > > Item was added: > + ----- Method: Parser>>nonQuasiQuoteExpression (in category 'expression > types') ----- > + nonQuasiQuoteExpression > + > + (hereType == #word and: [tokenType == #leftArrow]) > + ifTrue: [^ self assignment: self variable]. > + hereType == #leftBrace > + ifTrue: [self braceExpression] > + ifFalse: [self primaryExpression ifFalse: [^ false]]. > + (self messagePart: 3 repeat: true) > + ifTrue: [hereType == #semicolon ifTrue: [self cascade]]. > + ^ true! > > Item was added: > + ----- Method: Parser>>quasiQuoteExpression (in category 'expression > types') ----- > + quasiQuoteExpression > + "`quasi-quote` > + => { elements } concatenateQuasiQuote > + => MessageNode receiver: BraceNode selector: > #concatenateQuasiQuote. > + > + The syntax of quasi-quote is > + quasi-quote := $` (characters | blockExpression) * $` > + characters := (unescapedCharacter | $\ escapedCharacter) * > + > + The semantics of quasi-quote are that each blockExpression is > evaluated > + left-to-right in the scope of the enclosing method or block. The > sequence > + of interspersed character sequences and expressions are > concatenated > + left-to-right, sending asString to each element immediately prior > to concatenation. > + The concatenation is then the result of the expression. It is > always a new string. > + > + The implementation inlines single-statement blocks into the brace > expression that > + comprises the receiver of concatenateQuasiQuote" > + > + | elements locations stringStream loc | > + elements := OrderedCollection new. > + locations := OrderedCollection new. > + stringStream := WriteStream on: (String new: 16). > + [loc := hereMark + requestorOffset. > + hereType == #doit ifTrue: > + [^self expected: 'back quote']. > + hereType == #leftBracket > + ifTrue: > + [self scanToken; advance. > + parseNode := nil. > + self blockExpression. > + parseNode statements size = 1 > + ifTrue: > + [elements addLast: parseNode > statements first] > + ifFalse: > + [elements addLast: (MessageNode new > + > receiver: parseNode > + > selector: #value > + > arguments: #() > + > precedence: 1 > + > from: encoder)]. > + source position: hereMark - 1. > + [source peek ~~ $]] whileTrue: > + [source position: source position - 1]. > + source next. > + self step; step. > + self setHereTypeForQuasiQuote. > + locations addLast: loc] > + ifFalse: > + [(self scanQuasiQuoteCharactersUsing: > stringStream) ifNotNil: > + [:lit| > + elements addLast: lit. > + locations addLast: loc]]. > + hereType ~~ #backQuote] whileTrue. > + parseNode := MessageNode new > + receiver: (BraceNode new elements: > elements sourceLocations: locations) > + selector: #concatenateQuasiQuote > + arguments: #() > + precedence: 1 > + from: encoder. > + self scanToken; advance. > + ^true! > > Item was changed: > + ----- Method: Parser>>queriedUnusedTemporaries (in category 'temps') > ----- > - ----- Method: Parser>>queriedUnusedTemporaries (in category 'accessing') > ----- > queriedUnusedTemporaries > > queriedUnusedTemporaries ifNil: > [queriedUnusedTemporaries := Dictionary new]. > ^queriedUnusedTemporaries! > > Item was added: > + ----- Method: Parser>>scanQuasiQuoteCharactersUsing: (in category > 'scanning') ----- > + scanQuasiQuoteCharactersUsing: stringStream > + "Answer the next non-empty sequence of characters in a quasi-quote > string, or nil, if none." > + stringStream reset. > + [hereChar ~~ $` and: [hereChar ~~ $[ and: [hereChar ~~ > DoItCharacter]]] whileTrue: > + [hereChar == $\ > + ifTrue: > + [stringStream nextPut: aheadChar. self > step] > + ifFalse: > + [stringStream nextPut: hereChar]. > + self step]. > + self setHereTypeForQuasiQuote. > + ^stringStream position > 0 ifTrue: > + [encoder encodeLiteral: stringStream contents]! > > Item was added: > + ----- Method: Parser>>setHereTypeForQuasiQuote (in category 'scanning') > ----- > + setHereTypeForQuasiQuote > + "Set hereType appropriately based on hereChar. Used only for > quasi-quote parsing." > + hereChar == $` > + ifTrue: > + [hereType := #backQuote. > + self step] > + ifFalse: > + [hereChar == $[ > + ifTrue: > + [hereType := #leftBracket. > + self step] > + ifFalse: > + [hereChar == DoItCharacter ifTrue: > + [hereType := #doit]]]! > > Item was changed: > + ----- Method: Parser>>tempsMark (in category 'temps') ----- > - ----- Method: Parser>>tempsMark (in category 'accessing') ----- > tempsMark > ^ tempsMark! > > Item was changed: > + ----- Method: Parser>>tempsMark: (in category 'temps') ----- > - ----- Method: Parser>>tempsMark: (in category 'accessing') ----- > tempsMark: aNumber > tempsMark := aNumber! > > Item was changed: > ----- Method: Scanner class>>initializeTypeTable (in category > 'initialization') ----- > initializeTypeTable > "self initializeTypeTable" > > | newTable | > newTable := Array new: 256 withAll: #xBinary. "default" > newTable atAll: #(9 10 12 13 32 ) put: #xDelimiter. "tab lf ff cr > space" > newTable atAll: ($0 asciiValue to: $9 asciiValue) put: #xDigit. > > 1 to: 255 > do: [:index | > (Character value: index) isLetter > ifTrue: [newTable at: index put: > #xLetter]]. > > newTable at: $" asciiValue put: #xDoubleQuote. > newTable at: $# asciiValue put: #xLitQuote. > newTable at: $$ asciiValue put: #xDollar. > newTable at: $' asciiValue put: #xSingleQuote. > + newTable at: $` asciiValue put: #backQuote. > newTable at: $: asciiValue put: #xColon. > newTable at: $( asciiValue put: #leftParenthesis. > newTable at: $) asciiValue put: #rightParenthesis. > newTable at: $. asciiValue put: #period. > newTable at: $; asciiValue put: #semicolon. > newTable at: $[ asciiValue put: #leftBracket. > newTable at: $] asciiValue put: #rightBracket. > newTable at: ${ asciiValue put: #leftBrace. > newTable at: $} asciiValue put: #rightBrace. > newTable at: $^ asciiValue put: #upArrow. > newTable at: $_ asciiValue put: #xUnderscore. > newTable at: $| asciiValue put: #verticalBar. > TypeTable := newTable "bon voyage!!"! > > > -- best, Eliot

3 5

The Inbox: ShoutCore.quasiquote-kb.41.mcz
by commits＠source.squeak.org 05 Feb '14

05 Feb '14

Balázs Kósi uploaded a new version of ShoutCore to project The Inbox: http://source.squeak.org/inbox/ShoutCore.quasiquote-kb.41.mcz ==================== Summary ==================== Name: ShoutCore.quasiquote-kb.41 Author: kb Time: 5 February 2014, 3:15:36.334 pm UUID: c127a411-2d61-468d-b4cb-04410f5a2663 Ancestors: ShoutCore-cwp.40 Syntax highlighting for Eliot's quasiquote syntax extension. =============== Diff against ShoutCore-cwp.40 =============== Item was changed: ----- Method: SHParserST80>>parseLiteral: (in category 'parse') ----- parseLiteral: inArray currentTokenFirst == $$ ifTrue: [ | pos | self failWhen: self currentChar isNil. self rangeType: #'$'. pos := currentTokenSourcePosition + 1. self nextChar. ^self scanPast: #character start: pos end: pos]. currentTokenFirst isDigit ifTrue: [ "do not parse the number, can be time consuming" ^self scanPast: #number]. currentToken = '-' ifTrue: [ | c | c := self currentChar. (inArray and: [c isNil or: [c isDigit not]]) ifTrue: [ "single - can be a symbol in an Array" ^self scanPast: #symbol]. self scanPast: #-. self failWhen: currentToken isNil. "token isNil ifTrue: [self error: 'Unexpected End Of Input']." "do not parse the number, can be time consuming" ^self scanPast: #number]. + currentTokenFirst == $` ifTrue: [ ^self parseQuasiQuotedString ]. currentTokenFirst == $' ifTrue: [^self parseString]. currentTokenFirst == $# ifTrue: [^self parseSymbol]. (inArray and: [currentToken notNil]) ifTrue: [^self scanPast: #symbol]. self failWhen: currentTokenFirst == $. . self error ": 'argument missing'"! Item was added: + ----- Method: SHParserST80>>parseQuasiQuoteBlock (in category 'parse') ----- + parseQuasiQuoteBlock + self enterBlock. + self scanPast: #blockStart level: bracketDepth. + self parseStatementList. + self failUnless: currentTokenFirst == $]. + self rangeType: (self typePlusCycleFor: #blockEnd level: bracketDepth). + self leaveBlock! Item was added: + ----- Method: SHParserST80>>parseQuasiQuotedString (in category 'parse') ----- + parseQuasiQuotedString + + | first c last | + first := sourcePosition. + c := self currentChar. + [ + c ifNil: [ + self rangeType: #unfinishedString start: first - 1 end: source size. + self error ": 'unfinished string'"]. + c + caseOf: { + [ $[ ] -> [ + self scanPast: #string start: first - 1 end: sourcePosition. + self parseQuasiQuoteBlock. + first := sourcePosition + 1. + self currentChar == $` ]. + [ $$ ] -> [ + c := self nextChar. + false ] } + otherwise: [ c == $` ] ] whileFalse: [ c := self nextChar ]. + last := sourcePosition. + self nextChar. + self scanPast: #string start: first - 1 end: last.! Item was changed: ----- Method: SHParserST80>>scanPast:level: (in category 'scan') ----- scanPast: rangeType level: level - "first level adds no suffix to the rangeType. - Suffix from 1 to 7 added in cycles , ((level-2) mod(7) + 1)" - | cycle typePlusCycle | + ^self scanPast: (self typePlusCycleFor: rangeType level: level) - cycle := level <= 1 - ifTrue: [0] - ifFalse:[ ((level - 2) \\ 7) + 1]. - typePlusCycle := cycle = 0 - ifTrue:[rangeType] - ifFalse:[(rangeType, cycle asString) asSymbol]. - ^self scanPast: typePlusCycle ! Item was added: + ----- Method: SHParserST80>>typePlusCycleFor:level: (in category 'scan') ----- + typePlusCycleFor: rangeType level: level + "first level adds no suffix to the rangeType. + Suffix from 1 to 7 added in cycles , ((level-2) mod(7) + 1)" + | cycle | + + cycle := level <= 1 + ifTrue: [ 0 ] + ifFalse: [ ((level - 2) \\ 7) + 1 ]. + ^cycle = 0 + ifTrue: [ rangeType ] + ifFalse: [ (rangeType, cycle asString) asSymbol ]!

1 0

Fwd: [Job] netstyle.ch is hiring!
by Max Leske 05 Feb '14

05 Feb '14

Begin forwarded message: > From: Christoph Wysseier <c.wysseier(a)netstyle.ch> > Subject: [Pharo-dev] [Job] netstyle.ch is hiring! > Date: 4. Februar 2014 15:57:10 MEZ > To: Pharo Development List <pharo-dev(a)lists.pharo.org> > Reply-To: Pharo Development List <pharo-dev(a)lists.pharo.org> > > Hi all > > Max, Simon and Nik are looking for a new fellow! ;) > > netstyle.ch is looking for a Seaside web application developer. We are a small, agile and harmonious team located in Bern (Switzerland). With Cmsbox we have developed an award winning Content Management System with hundreds of installations so far. Besides we develop regularly sophisticated web applications. The successful candidate will have excellent skills in OO software development with a dynamic programming language and fits in a team of young, ambitious engineers. Fluency in German is not a must, but we expect applicants to acquire basic understanding of German. > > A detailed job description can be found on our website (in German): http://www.netstyle.ch/firma/jobs > > For questions and applications please contact me at info(a)netstyle.ch. > > Disclaimer: > - No freelancer applications please, this is a permanent position. > - Because of immigration restrictions Swiss or EU citizenship or an existing Swiss work permit are required. > > -- > Christoph Wysseier > netstyle.ch GmbH, CEO >

1 0

Google Summer of Code is here, your ideas please!
by Janko Mivšek 04 Feb '14

04 Feb '14

Dear Smalltalkers, Tenth GSoC is here and application deadline is earlier this year, already next Friday! Time therefore for your cool project ideas on this year Smalltalk GSoC Hurry up! For now just express any idea you have here on the mailing list. Later we will together develop it to be in complete format together with two mentors needed. To see how fully developed ideas look like please look at 2012 ones at:http://gsoc2013.esug.org/ideas. Ideally (but not necessary right now) you should prepare an idea following this template: ----------------------------------------------- Title: Level: (beginner, intermediate, advanced) Possible mentor: (can be assigned later) Possible second mentor: (can be assigned later) Description Technical Details Benefits to the Student Benefits to the Community ------------------------------------------------- Note also that students yourselves can propose a GSoC project. So if you like to be a student on this year GSoC and have a nice idea, don't be shy and propose it here! The community will listen you and guide to the really nicely proposed project. For the community, start looking around for students. Think about how to approach the universities near by you, do you know who to contact there, etc. Our special website is in preparation and will be online in few days. Official Google GSoC site is here: http://www.google-melange.com/gsoc/homepage/google/gsoc2014. Specially read carefully the FAQ: http://www.google-melange.com/gsoc/document/show/gsoc_program/google/gsoc20… Mentors of all past GSoCs please rejoin the mentors mailing list, where we discuss all details about this year GSoC: http://groups.google.com/group/smalltalk-gsoc-mentors While students interested on GSoC please join a special Smalltalk GSoC mailing list for you: http://groups.google.com/group/smalltalk-gsoc-students Best regards Janko -- Janko Mivšek Smalltalk GSoC Admin Team

1 0

Fwd: [Esug-list] Fwd: [GSoC Mentors Announce] Now Accepting Applications for Mentoring Organizations for GSoC 2014
by Frank Shearar 04 Feb '14

04 Feb '14

---------- Forwarded message ---------- From: Damien Cassou <damien.cassou(a)gmail.com> Date: 3 February 2014 20:14 Subject: [Esug-list] Fwd: [GSoC Mentors Announce] Now Accepting Applications for Mentoring Organizations for GSoC 2014 To: Board ESUG <board(a)lists.esug.org>, ESUG Mailing list <esug-list(a)lists.esug.org> ---------- Forwarded message ---------- From: "Carol Smith" <carols(a)google.com> Date: Feb 3, 2014 8:01 PM Subject: [GSoC Mentors Announce] Now Accepting Applications for Mentoring Organizations for GSoC 2014 To: "GSoC Mentors Announce" <gsoc-mentors-announce(a)googlegroups.com> Hi all, We're pleased to announce that applications for mentoring organizations for Google Summer of Code 2014 are now being accepted [1]. If you'd like to apply to be a mentoring organization you can do so now via Melange [2]. If you have questions about how to use Melange, please see our User's Guide [3]. Please note that the application process has changed a bit from previous years: to apply you must now create your individual profile and then an organization profile before submitting your application. Please note that the application period [4] closes on 14 February at 19:00 UTC [5]. We will not accept any late applications for any reason. [1] - http://google-opensource.blogspot.com/2014/02/mentoring-organization-applic… [2] - http://www.google-melange.com [3] - http://en.flossmanuals.net/melange/ [4] - http://www.google-melange.com/gsoc/events/google/gsoc2014 [5] - http://goo.gl/bYYgV3 Cheers, Carol -- You received this message because you are subscribed to the Google Groups "Google Summer of Code Mentors Announce List" group. To unsubscribe from this group and stop receiving emails from it, send an email to gsoc-mentors-announce+unsubscribe(a)googlegroups.com. Visit this group at http://groups.google.com/group/gsoc-mentors-announce. For more options, visit https://groups.google.com/groups/opt_out. _______________________________________________ Esug-list mailing list Esug-list(a)lists.esug.org http://lists.esug.org/mailman/listinfo/esug-list_lists.esug.org

1 0

Re: [squeak-dev] The Trunk: Collections-ul.564.mcz
by Frank Shearar 04 Feb '14

04 Feb '14

On 3 February 2014 16:18, <commits(a)source.squeak.org> wrote: > Chris Muller uploaded a new version of Collections to project The Trunk: > http://source.squeak.org/trunk/Collections-ul.564.mcz > > ==================== Summary ==================== > > Name: Collections-ul.564 > Author: ul > Time: 3 February 2014, 2:35:36.802 pm > UUID: 4b9a37ef-df86-40a0-a0dd-8e8b2c04d4ed > Ancestors: Collections-ul.563 > > Make sure that Array >> #isLiteral won't get into an infinite recursion, even if the receiver has an recursive structure. > > =============== Diff against Collections-ul.563 =============== > > Item was changed: > ----- Method: Array>>isLiteral (in category 'testing') ----- > isLiteral > + > + ^self class == Array and: [ > + self isLiteralIfContainedBy: IdentitySet new ]! > - ^self class == Array and: [self allSatisfy: [:each | each isLiteral]]! > > Item was added: > + ----- Method: Array>>isLiteralIfContainedBy: (in category 'testing') ----- > + isLiteralIfContainedBy: parents > + " Answer whether the receiver has a literal text form recognized by the compiler. Precondition: the receiver is an instance of Array. " > + > + (parents includes: self) ifTrue: [ ^false ]. > + parents add: self. > + 1 to: self size do: [ :index | > + | element | > + element := self at: index. > + (element class == Array > + ifTrue: [ element isLiteralIfContainedBy: parents ] > + ifFalse: [ element isLiteral ]) ifFalse: [ ^false ] ]. > + parents remove: self. > + ^true! +1 frank

2 4

Jump to page: