Squeak-dev April 2013

squeak-dev@lists.squeakfoundation.org

66 participants
225 discussions

Mantis usage rules du jour
by tim Rowledge 19 Feb '14

19 Feb '14

I'm submitting a bug fix and thought I'd ask what the current favoured procedure is. Simply submitting is as irritating as it ever was in Mantis, but once I've done that, uploaded my fix and made a note about it… what do we do next? To whom might I assign it for action in getting into the image for the next release? Or is that done some other way now? Is there documentation on the current process that I failed to spot? tim -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim Strange OpCodes: XO: Execute Operator

15 34

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

Loading FFI is broken
by Frank Shearar 20 Nov '13

20 Nov '13

(Installer monticello mc: (MCHttpRepository new location: 'http://source.squeak.org/FFI')) install: 'FFI-Kernel-eem.24.mcz'. "There's a -tbn.25, but that's not important to this post" fails with an MNU: ExternalFunction class >> callingConventionFor:. As far as I can see what's happening is this: * during the loading of the mcz ExternalFunction is defined, * a method is parsed (#XOpenDisplay, which has a pragma <cdecl: X11Display* ''XOpenDisplay'' (char*) module:''X11''>) * Parser >> externalFunctionDeclaration checks whether ExternalFunction is defined. * It is, so tries to evaluate `descriptorClass callingConvention: here` and boom, because ExternalFunction class >> callingConventionFor: _has not been loaded yet_. I've seen this kind of issue with Helvetia code: sometimes you simply have to load class-side methods first. Thoughts? Lukas worked around the issue with his Helvetia code by directly patching Monticello, and ripping out its "try to do atomic loading" mechanism. frank

12 39

Phexample on Squeak
by Frank Shearar 21 Jul '13

21 Jul '13

Hi Niko, I tried Phexample in Squeak and things work great. I had to load in Regex-Core, but that's no biggie. I'll try my hand at editing the ConfigurationOf and send you a patch. I have only one blip: ForExampleStack >> #shouldFailWhenPopEmpty fails because instead of 'this collection is empty' the example fails with 'this stack is empty'. I'm not sure how to fix that, given that it's not your problem. One easy way to get a green bar would be to change the error message in Squeak (making it less accurate). Any thoughts? frank

3 9

Re: [squeak-dev] The Inbox: System-cmm.497.mcz
by Levente Uzonyi 01 Jul '13

01 Jul '13

Two things about the implementation: - using #isOctetCharacter is not good enough. When I wrote ascii, I meant the 7-bit US-ASCII characters. For example $á is both #isOctetCharacter and #isAlphaNumeric, but I don't think it should appear in a method's timestamp. - some methods have Smalltalk123 as author Levente On Fri, 14 Sep 2012, commits(a)source.squeak.org wrote: > A new version of System was added to project The Inbox: > http://source.squeak.org/inbox/System-cmm.497.mcz > > ==================== Summary ==================== > > Name: System-cmm.497 > Author: cmm > Time: 14 September 2012, 3:14:45.552 pm > UUID: d55d42e9-1782-4cdd-a0d0-253bf60940f5 > Ancestors: System-ul.496 > > Updates for the Author proposal: > > - Completely separate the model from the UI. Author should be a "pure domain object." The PerSe methods are no longer needed. > > - Instead, let Utilities class take responsibility for employing Squeak UI-elements to set the current Author attributes, as well as for being the "convenient" way to access these attributes. > > - Since we are reifying an Author from a String, it is now treated as a whole Author object, rather than just a String-holder. Allow multiple Author instances to exist and the #current Author can be swapped out with another Author instance. > > =============== Diff against System-ul.496 =============== > > Item was removed: > - ----- Method: Author class>>changeStamp (in category 'convenience') ----- > - changeStamp > - > - ^self current changeStamp! > > Item was removed: > - ----- Method: Author class>>changeStampPerSe (in category 'convenience') ----- > - changeStampPerSe > - > - ^self current changeStampPerSe! > > Item was changed: > ----- Method: Author class>>current (in category 'instance creation') ----- > current > + ^ instance ifNil: > + [ self current: self new. > + instance ]! > - > - ^instance ifNil: [ instance := super new ]! > > Item was added: > + ----- Method: Author class>>current: (in category 'class initialization') ----- > + current: anAuthor > + instance := anAuthor! > > Item was changed: > ----- Method: Author class>>fullNamePerSe (in category 'pharo compatibility') ----- > fullNamePerSe > + ^ self current initials! > - > - ^self initialsPerSe! > > Item was removed: > - ----- Method: Author class>>initials (in category 'convenience') ----- > - initials > - > - ^self current initials! > > Item was removed: > - ----- Method: Author class>>initialsPerSe (in category 'convenience') ----- > - initialsPerSe > - > - ^self current initialsPerSe! > > Item was removed: > - ----- Method: Author class>>new (in category 'instance creation') ----- > - new > - > - self error: 'Use #current'! > > Item was changed: > ----- Method: Author class>>reset (in category 'instance creation') ----- > reset > + self current: nil! > - > - instance := nil! > > Item was changed: > ----- Method: Author class>>useAuthor:during: (in category 'pharo compatibility') ----- > + useAuthor: aString during: aBlock > + ^ self current > + useInitials: aString > + during: aBlock! > - useAuthor: aString during: aBlock > - > - ^self useInitials: aString during: aBlock! > > Item was removed: > - ----- Method: Author class>>useInitials:during: (in category 'convenience') ----- > - useInitials: aString during: aBlock > - > - ^self current useInitials: aString during: aBlock! > > Item was removed: > - ----- Method: Author class>>username (in category 'convenience') ----- > - username > - > - ^self current username! > > Item was removed: > - ----- Method: Author class>>usernamePerSe (in category 'convenience') ----- > - usernamePerSe > - > - ^self current usernamePerSe! > > Item was changed: > ----- Method: Author>>changeStamp (in category 'accessing') ----- > changeStamp > + ^ self changeStampWithInitials: (self initials ifEmpty: [ 'unknown' ])! > - > - ^self changeStampWithInitials: self initials! > > Item was removed: > - ----- Method: Author>>changeStampPerSe (in category 'accessing') ----- > - changeStampPerSe > - > - ^self changeStampWithInitials: (self initialsPerSe ifEmpty: [ '.' ])! > > Item was changed: > ----- Method: Author>>fullName (in category 'pharo compatibility') ----- > fullName > + ^ self initials! > - > - ^self initials! > > Item was removed: > - ----- Method: Author>>fullNamePerSe (in category 'pharo compatibility') ----- > - fullNamePerSe > - > - ^self initialsPerSe! > > Item was changed: > ----- Method: Author>>initialize (in category 'initialize-release') ----- > initialize > - > super initialize. > + initials := username := String empty! > - initials := String new. > - username := String new > - ! > > Item was changed: > ----- Method: Author>>initials (in category 'accessing') ----- > initials > + ^ initials! > - > - ^initials ifEmpty: [ self requestAndSetInitials ]! > > Item was removed: > - ----- Method: Author>>initialsPerSe (in category 'accessing') ----- > - initialsPerSe > - > - ^initials! > > Item was removed: > - ----- Method: Author>>requestAndSetInitials (in category 'accessing') ----- > - requestAndSetInitials > - > - ^initials := (UIManager default > - request: 'Please type your initials: ' translated > - initialAnswer: initials) select: [ :each | > - #( > - ($A $Z) > - ($a $z) > - ($0 $9)) anySatisfy: [ :range | > - each between: range first and: range second ] ]! > > Item was removed: > - ----- Method: Author>>requestAndSetUsername (in category 'accessing') ----- > - requestAndSetUsername > - > - ^username := UIManager default > - request: 'Please type your name:' translated > - initialAnswer: (username > - ifEmpty: [ 'Your Name' translated ] > - ifNotEmpty: [ username ])! > > Item was changed: > ----- Method: Author>>username (in category 'accessing') ----- > username > + ^ username! > - > - ^username ifEmpty: [ self requestAndSetUsername ]! > > Item was removed: > - ----- Method: Author>>usernamePerSe (in category 'accessing') ----- > - usernamePerSe > - > - ^username! > > Item was changed: > ----- Method: SpaceTally>>spaceTally: (in category 'class analysis') ----- > + spaceTally: classes > - spaceTally: classes > "Answer a collection of SpaceTallyItems representing the memory space (in bytes) consumed by the code and instances of each class in the system. Note that code sizes do not currently report memory consumed by class variables. " > - > "((SpaceTally new spaceTally: (Array with: TextMorph with: Point)) asSortedCollection: [:a :b | a spaceForInstances > b spaceForInstances]) asArray" > - > self preAllocateResultsFor: classes. > Smalltalk garbageCollect. > self computeSpaceUsage. > ^ results > + sort: [ : a : b | a spaceForInstances > b spaceForInstances ] ; > + yourself! > - ! > > Item was changed: > ----- Method: Utilities class>>authorInitials (in category 'identification') ----- > authorInitials > + "Answer the initials to be used to identify the current code author." > + ^ self authorInitialsPerSe ifEmpty: > + [ self > + setAuthorInitials ; > + authorInitialsPerSe ]! > - "Answer the initials to be used to identify the current code author. " > - > - ^Author initials! > > Item was changed: > ----- Method: Utilities class>>authorInitialsPerSe (in category 'identification') ----- > authorInitialsPerSe > + ^ Author current initials! > - "Answer the currently-prevailing author initials, such as they, empty or not" > - > - ^Author initialsPerSe! > > Item was changed: > ----- Method: Utilities class>>authorName (in category 'identification') ----- > authorName > + ^ self authorNamePerSe ifEmpty: > + [ self > + setAuthorName ; > + authorNamePerSe ]! > - > - ^Author username! > > Item was changed: > ----- Method: Utilities class>>authorNamePerSe (in category 'identification') ----- > authorNamePerSe > + ^ Author current username! > - > - ^Author usernamePerSe! > > Item was changed: > ----- Method: Utilities class>>changeStamp (in category 'identification') ----- > + changeStamp > + ^ Author current changeStampWithInitials: self authorInitials! > - changeStamp > - > - ^Author changeStamp! > > Item was changed: > ----- Method: Utilities class>>changeStampPerSe (in category 'identification') ----- > changeStampPerSe > + ^ Author current changeStamp! > - > - ^Author changeStampPerSe! > > Item was changed: > ----- Method: Utilities class>>setAuthorInitials (in category 'identification') ----- > setAuthorInitials > "Put up a dialog allowing the user to specify the author's initials. " > + | oldInitials | > + oldInitials := Author current initials. > + Author reset. > + Author current initials: > + ((UIManager default > + request: 'Please type your initials: ' translated > + initialAnswer: oldInitials) select: [ : each | each isOctetCharacter and: [ each isAlphaNumeric ] ])! > - > - ^Author current requestAndSetInitials! > > Item was changed: > ----- Method: Utilities class>>setAuthorName (in category 'identification') ----- > setAuthorName > + Author current username: > + (UIManager default > + request: 'Please type your name:' translated > + initialAnswer: (Author current username ifEmpty: [ 'Your Name' translated ]))! > - > - Author requestAndSetUsername! > > >

4 9

GemSource, seaside.gemstone.com, SS3 MAINTENANCE Saturday June 9 from 10am-2pm PDT
by Dale Henrichs 26 Jun '13

26 Jun '13

Maintenance is scheduled for this Saturday and according to the internal announcement no downtime is anticipated: The work is considered low risk and no downtime is anticipated, this is being sent out as a courtesy. If you experience problems on Saturday, don't hesitate to send email. Dale

3 6

Re: [squeak-dev] Towards SqueakCore (adjusting the GetText package)
by H. Hirzel 12 May '13

12 May '13

On 2/13/13, Bert Freudenberg <bert(a)freudenbergs.de> wrote: > On 2013-02-12, at 21:24, Colin Putney <colin(a)wiresong.com> wrote: > >> We should especially look at System->GetText > > IMHO #translated and co. should be part of the System package, because > senders are necessarily sprinkled all over the place. There should be a > translator registry and if no translator were registered it would return the > string untranslated. GetText would hook into that. > > - Bert - At the moment the class TextDomainManager is in a specialezed GetText package. There is GetText-Editor and GetText-Localization There is in addition a package System-Localization which contains classes like ISOLanguageDefinition, InternalTranslator, Locale, NaturalLanguageTranslator Bert, is what you mean done by exchanging GetText-Editor --> System-GetTextEditor GetText-Localization --> System-GetTextLocalization How should the translation registry class be named? --Hannes > > >

3 4

Our ancient ancestor
by tim Rowledge 02 May '13

02 May '13

http://www.wadlow.org/xerox-alto.html tim -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim A bug in the hand is better than one as yet undetected.

5 6

Re: About HyperCard ( was Re: [squeak-dev] Getting rid of coloured code)
by karl ramberg 01 May '13

01 May '13

Etoys image also have a stack morph Karl On Wed, Feb 27, 2013 at 11:24 AM, Jecel Assumpcao Jr. <jecel(a)merlintec.com>wrote: > While the DynaBookJr (I always misread "DBJr" as "DataBase Jr") is > indeed a good modern replacement for HyperCard, isn't the normal > BookMorph already available in Squeak a reasonable approximation? > > -- Jecel > > >

11 24

Raspberry Pi colocation for Seaside?
by tim Rowledge 01 May '13

01 May '13

This must surely have occurred to someone already but just in case… http://raspberrycolocation.com/ (Dutch company, terms and conditions are in Dutch which means we could do with some translation help) Now I don't know what limits they would choose to impose on software but from the looks of it you can choose your own OS by sending them a Pi with an installed SD card rather than buying the Pi from them (in which case they do a default Raspbian setup). So if someone were to assemble a suitable OS, vm, Seaside setup and package it as an IMG/IMZ file suitable for dumping onto an SD card it looks like it would be fairly easy to get a Seaside server on the net, along with no monthly costs. It won't be a big corporate server with failover, backup, 24x7 support and chocolate unicorns but still, an easy and cheap Seaside Server. Got to be worth some effort, surely? tim -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim "Bother!" said Pooh, as he pulled Piglet out the mincer.

2 1

Jump to page: