Squeak-dev October 2013

squeak-dev@lists.squeakfoundation.org

35 participants
262 discussions

OpenGL procedural textures generator (by David Faught) for Squeak 4.4
by Nikolay Suslov 09 Jun '14

09 Jun '14

Hello, I have successfully proceeded in running TweakCore on the recent Squeak 4.4 trunk image (from Jenkins). And one of the famous existed applications developed in Tweak is the OpenGL procedural textures generator by David Faught. I make it also loadable to the current Squeak. You could download the ready to run image from here: http://krestianstvo.org/TweakCoreOpenGL-squeak44.zip or execute in the workspace in own image: "1. Load FFI" (Installer repository: 'http://source.squeak.org/FFI' ) install: 'FFI-Pools'; install: 'FFI-Kernel'; install: 'FFI-Tests'.. "2. Load CroquetGL " (Installer repository: 'http://www.squeaksource.com/CroquetGL') install: '3DTransform'; install: 'OpenGL-Pools'; install: 'OpenGL-Core'. "3. Load TweakCore and Procedural textures application for Tweak" (Installer repository: 'http://sdk.krestianstvo.org/sdk/inbox') install: 'tweakcore'; install: 'Tweak-OpenGL-sn.3'. "4. Set the default settings in Tweak" CDefaultWidgetLibrary setDefaultSettings. "5. Run one of two examples" CProjectMorph open: Wrinkle1. "or" CProjectMorph open: Wrinkle2. The attached screenshot shows the running application. Regards, Nikolay

7 9

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

A Bounty for CMake-ifying stack/Cog vm build process
by tim Rowledge 30 Nov '13

30 Nov '13

Want to make $1000.00 (that’s one thousand USD in case I mistyped the number of zeros) and be a hero? I’m seriously not interested in delving into the insanity of either automake nor cmake; my experiences thus far have left scars. So, in order to avoid pain whilst getting a Cog/stackvm build system that gets reasonably close to that in place for the plain interpreter (see squeakvm.org) - with a side aim of eventually merging - I am offering some money. For someone that actually knows this stuff I suspect it is an easy, if perhaps long-winded, job. The acceptance test that determines when payment can be made would be a) Eliot & Ian agreeing that it is good enough to replace the auto-blargh horror that is currently in use (that’s a pretty high bar) and b) successful addition of the Raspberry Pi faster-blt code to the cog/stack build, as with the current plain interpreter build tim -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim Useful Latin Phrases:- Canis meus id comedit = My dog ate it.

13 44

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

Re: [squeak-dev] Squeak evolution 1998 - 2008
by H. Hirzel 12 Nov '13

12 Nov '13

On 10/26/13, Bob Arning <arning315(a)comcast.net> wrote: > http://69.251.218.6:9116/ can give you a pretty good picture of the > evolution in this area. > > Cheers, > Bob Bob does it contain _all_ the change sets from 1998 - 2008? It seems that in 2008 the update mechanism was changed to Monticello files, right? Did you think it would be possible of running an from 0001 to 7179, so to say "replaying the evolution"? It would be nice to have a graphical display of which areas have been touched and which ones not. Possibly in the form of a movie.... (e.g. a rectangle representing a class category sized according to code size with colors indicating changes, animated gif?) --Hannes 0001tk_test.doit "Just a test if the update broadcasting is working" Transcript show: ' You got an external update'; cr. 0002tk_collapse_RF.cs 'From Squeak 1.31 of Feb 4, 1998 on 8 May 1998 at 4:31:32 pm' ......... 7179AdvanceTo3dot10dot2.cs >From Squeak3.10.2beta of 5 June 2008 [latest update: #7175] on 5 June 2008 at 2:53:19 pm'

8 17

FreeType
by Nicolas Cellier 03 Nov '13

03 Nov '13

I have created a repository for maintaining the trunk 4.5 branch: MCHttpRepository location: 'http://ss3.gemstone.com/ss/FreeTypePlus' user: '' password: '' FreeType requires a plugin. It is pre-compiled and distributed with Pharo VM, so it's the easiest way to test it...

2 4

Re: [squeak-dev] The Trunk: CommandLine-fbs.1.mcz
by Nicolas Cellier 02 Nov '13

02 Nov '13

+1, please include in the update.mcm! I also like the Pharo alternative to Fuel out the error context... Lighter than full image save. Oh but we don't have Fuel yet :( Who wants to make it with a segment? 2013/10/31 <commits(a)source.squeak.org> > Frank Shearar uploaded a new version of CommandLine to project The Trunk: > http://source.squeak.org/trunk/CommandLine-fbs.1.mcz > > ==================== Summary ==================== > > Name: CommandLine-fbs.1 > Author: fbs > Time: 31 October 2013, 10:32:52.821 pm > UUID: dc871e85-bd16-d742-acbf-4d2b838113d1 > Ancestors: > > CommandLineToolSet does little more than dump errors to stderr. > > DummyUIManager comes from Pharo via Pavel Krivanek's minimising script. > > ==================== Snapshot ==================== > > SystemOrganization addCategory: #'CommandLine-Tools'! > SystemOrganization addCategory: #'CommandLine-UIManager'! > > UIManager subclass: #DummyUIManager > instanceVariableNames: '' > classVariableNames: '' > poolDictionaries: '' > category: 'CommandLine-UIManager'! > > !DummyUIManager commentStamp: 'fbs 10/31/2013 07:36' prior: 0! > I'm an alternative UIManager used to run an the image without GUI. I > redefine methods which require user input as these requests are irrelevant > in a headless environment. ! > > ----- Method: DummyUIManager>>checkForNewDisplaySize (in category > 'display') ----- > checkForNewDisplaySize > Display extent = DisplayScreen actualScreenSize ifTrue: [^ self]. > DisplayScreen startUp. > ! > > ----- Method: DummyUIManager>>chooseDirectory:from: (in category 'ui > requests') ----- > chooseDirectory: label from: dir > ^ nil! > > ----- Method: DummyUIManager>>chooseFrom:lines:title: (in category 'ui > requests') ----- > chooseFrom: aList lines: linesArray title: aString > ^ aList first! > > ----- Method: DummyUIManager>>chooseFrom:values:lines:title: (in category > 'ui requests') ----- > chooseFrom: labelList values: valueList lines: linesArray title: aString > ^ valueList first! > > ----- Method: DummyUIManager>>confirm: (in category 'ui requests') ----- > confirm: queryString > (ProvideAnswerNotification signal: queryString) > ifNotNil: [:answer|^answer]. > > self error: 'No user response possible'! > > ----- Method: DummyUIManager>>confirm:orCancel: (in category 'ui > requests') ----- > confirm: aString orCancel: cancelBlock > (ProvideAnswerNotification signal: aString) ifNotNil: [:answer | > ^answer == #cancel ifTrue: [cancelBlock value] ifFalse: [answer]]. > > self error: 'No user response possible'! > > ----- Method: DummyUIManager>>displayProgress:at:from:to:during: (in > category 'ui requests') ----- > displayProgress: titleString at: aPoint from: minVal to: maxVal during: > workBlock > ^ workBlock value: Association new! > > ----- Method: DummyUIManager>>edit:label:accept: (in category 'ui > requests') ----- > edit: aText label: labelString accept: anAction > ^ nil! > > ----- Method: DummyUIManager>>fontFromUser: (in category 'ui requests') > ----- > fontFromUser: priorFont > self error: 'No user response possible'! > > ----- Method: DummyUIManager>>inform: (in category 'ui requests') ----- > inform: aString > "Nothing to be done here"! > > ----- Method: DummyUIManager>>informUserDuring: (in category 'ui > requests') ----- > informUserDuring: aBlock > aBlock value: nil! > > ----- Method: DummyUIManager>>newDisplayDepthNoRestore: (in category > 'display') ----- > newDisplayDepthNoRestore: pixelSize > "Change depths. Check if there is enough space!! , di" > | area need | > pixelSize = Display depth ifTrue: [^ self "no change"]. > pixelSize abs < Display depth ifFalse: > ["Make sure there is enough space" > area := Display boundingBox area. "pixels" > > need := (area * (pixelSize abs - Display depth) // 8) > "new bytes needed" > + Smalltalk lowSpaceThreshold. > (Smalltalk garbageCollectMost <= need > and: [Smalltalk garbageCollect <= need]) > ifTrue: [self error: 'Insufficient free space']]. > Display setExtent: Display extent depth: pixelSize. > > DisplayScreen startUp! > > ----- Method: DummyUIManager>>request:initialAnswer: (in category 'ui > requests') ----- > request: queryString initialAnswer: defaultAnswer > (ProvideAnswerNotification signal: queryString) > ifNotNil: [:answer | > ^ answer == #default ifTrue: [defaultAnswer] ifFalse: > [answer]]. > > self error: 'No user response possible'! > > ----- Method: DummyUIManager>>requestPassword: (in category 'ui requests') > ----- > requestPassword: queryString > ^ self request: queryString initialAnswer: ''! > > ----- Method: DummyUIManager>>restoreDisplay (in category 'display') ----- > restoreDisplay! > > ----- Method: DummyUIManager>>restoreDisplayAfter: (in category 'display') > ----- > restoreDisplayAfter: aBlock > aBlock value. > Sensor waitButton.! > > StandardToolSet subclass: #CommandLineToolSet > instanceVariableNames: '' > classVariableNames: 'SaveSnapshotOnError' > poolDictionaries: '' > category: 'CommandLine-Tools'! > > ----- Method: CommandLineToolSet class>>debugError: (in category > 'debugging') ----- > debugError: anError > "Print out a sensible stack trace and bail" > | problemPlace s | > self saveSnapshotOnError > ifTrue: [Smalltalk saveAs: 'Debug-' , (Smalltalk imageName > subStrings: '/') last]. > problemPlace := anError signalerContext. > s := FileStream stderr. > (anError isKindOf: MessageNotUnderstood) ifTrue: [ > s > nextPutAll: anError messageText; cr; > nextPutAll: problemPlace sender methodNode > printString; cr]. > (problemPlace stackOfSize: 20) do: [:ctx | s cr. ctx printOn: s]. > s flush. > > SmalltalkImage current snapshot: false andQuit: true! > > ----- Method: CommandLineToolSet class>>debugSyntaxError: (in category > 'debugging') ----- > debugSyntaxError: anError > | s | > s := FileStream stderr. > s nextPutAll: '----- Syntax error -----'; cr. > s nextPutAll: anError errorCode; cr. > s nextPutAll: '----- Syntax error -----'; cr. > > self debugError: anError! > > ----- Method: CommandLineToolSet class>>saveSnapshotOnError (in category > 'preferences') ----- > saveSnapshotOnError > <preference: 'Save snapshot of image on failure' > category: 'debug' > description: 'If true, saves a snapshot of the failing image to > the current directory.' > type: #Boolean> > ^ SaveSnapshotOnError ifNil: [SaveSnapshotOnError := false].! > > ----- Method: CommandLineToolSet class>>saveSnapshotOnError: (in category > 'preferences') ----- > saveSnapshotOnError: aBoolean > SaveSnapshotOnError := aBoolean.! > > ----- Method: CommandLineToolSet class>>unload (in category 'class > initialization') ----- > unload > ToolSet unregister: self.! > > >

3 3

Re: [squeak-dev] The Trunk: ToolBuilder-Kernel-fbs.58.mcz
by Frank Shearar 01 Nov '13

01 Nov '13

On 31 October 2013 22:19, <commits(a)source.squeak.org> wrote: > Frank Shearar uploaded a new version of ToolBuilder-Kernel to project The Trunk: > http://source.squeak.org/trunk/ToolBuilder-Kernel-fbs.58.mcz > > ==================== Summary ==================== > > Name: ToolBuilder-Kernel-fbs.58 > Author: fbs > Time: 31 October 2013, 10:18:57.495 pm > UUID: f4158a78-a770-0548-a26b-a9cfd0ea9beb > Ancestors: ToolBuilder-Kernel-dtl.57 > > Step 1 of moving control over display depth to the UIManagers. > > =============== Diff against ToolBuilder-Kernel-dtl.57 =============== So I think the next step is to make the DisplayScreen methods forward entirely to UIManagers. But getting this wrong means bad things. So I thought I'd check first that this will work out: * make the change * commit Graphics * change the update configuration map to load the UIManagers before Graphics. * copy Graphics to trunk Think it'll work? frank

3 11

Daily Commit Log
by commits＠source.squeak.org 01 Nov '13

01 Nov '13

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2013-October/006577.ht… Name: ToolBuilder-Kernel-fbs.58 Ancestors: ToolBuilder-Kernel-dtl.57 Step 1 of moving control over display depth to the UIManagers. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-October/006578.ht… Name: ST80-fbs.164 Ancestors: ST80-nice.163 Step 1 of moving control over display depth to the UIManagers. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-October/006579.ht… Name: Morphic-fbs.697 Ancestors: Morphic-cmm.696 Step 1 of moving control over display depth to the UIManagers. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-October/006580.ht… Name: CommandLine-fbs.1 Ancestors: CommandLineToolSet does little more than dump errors to stderr. DummyUIManager comes from Pharo via Pavel Krivanek's minimising script. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-October/006581.ht… Name: MultilingualTests-nice.17 Ancestors: MultilingualTests-tpr.16 Add a test showing that MultiByteFileStream>>nextChunk fails to honour its own lineEndConvention. =============================================

1 0

Jump to page: