Vm-dev February 2014

vm-dev@lists.squeakfoundation.org

33 participants
83 discussions

Re: SpaceTally>>spaceForInstancesOf: crashes the VM (was: [squeak-dev] Squeak 4.5 Release Candidate 4 (13675))
by Eliot Miranda 17 Feb '14

17 Feb '14

On Sat, Feb 15, 2014 at 6:38 PM, David T. Lewis <lewis(a)mail.msen.com> wrote: > On Sat, Feb 15, 2014 at 08:08:19PM -0500, David T. Lewis wrote: > > Yikes! Good catch, thank you. > > > > This very likely *is* a VM problem. I can reproduce it with a standard > > interpreter VM, and the crash does not happen when I run the same thing > > on Cog. > > > The problem happens in SpaceTally>>spaceForInstancesOf: > > This eventually does "CompiledMethod basicNew" which crashes the VM. > That's funny :-). You can print CompiledMethod basicNew, but woe betide you if you try and inspect it. I think the VM primitives should fail for CompiledMethod. CompiledMethod class>basicNew seems to cause problems with both Cog and > interpreter VM, so I may have been wrong in saying that the issue was > specific to the interpreter VM. > > The format of CompiledMethod is special (see its class comment), and it > appears that #basicNew is problematic. > > Dave > > > > > > To reproduce: > > > > Help -> About this System, then select "Space Analysis" in the System > > Reporter. Result is: > > > > Segmentation fault > > > > 17369460 Behavior>new > > 17369368 Fraction class>numerator:denominator: > > 17369272 SmallInteger>/ > > 17369180 Number>roundUpTo: > > 17369088 SpaceTally>spaceForInstancesOf: > > > > Dave > > > > > > On Sat, Feb 15, 2014 at 11:58:29PM +0100, Michael wrote: > > > Hi, > > > > > > I am new to squeak and smalltalk, but I noticed the 4.5 release notes > > > mention a "System space analysis" feature/function. > > > However when I try it, I consistently crash the virtual machine with a > > > segmentation fault. > > > > > > I have tried both on a Raspberry Pi with the latest version of the > > > virtual machine and on 64 bit Slackware 14.1 with version 4.10.2.2614 > > > from slackbuilds.org. So I assume it is not a VM problem. > > > > > > The complete output from the command line is: > > > bash-4.2$ squeak Squeak4.5-13675.image > > > CHECKING cogvm > > > which: no cogvm in (/usr/bin:/bin) > > > CHECKING squeakvm > > > > > > Segmentation fault > > > > > > 17254592 Behavior>new > > > Segmentation fault > > > > > > > > > Michael > > -- best, Eliot

1 1

Re: [Pharo-dev] Mapping key Ctrl+M and Ctrl+Enter
by btc＠openinworld.com 17 Feb '14

17 Feb '14

3 3

VM SVN -> Git import somewhere?
by Stefan Marr 17 Feb '14

17 Feb '14

Hi: Is there somewhere a cronjob running that imports the latest changes of the VM’s SVN tree into git? Or could someone give me a hint, how I should set up a proper git-svn remote so that I can easily merge changes from Eliot’s Cog branch into the git repository? Don’t want to lose the history, and convenience of the git tools, but I need some changes to the Bochs plugin that are not in the git repository yet. Thanks Stefan -- Stefan Marr INRIA Lille - Nord Europe http://stefan-marr.de/research/

3 7

Re: [Pharo-dev] Mapping key Ctrl+M and Ctrl+Enter
by Benjamin 17 Feb '14

17 Feb '14

13 is the magic key to give 'enter’ as input in terminals (if I remember correctly) Ben On 17 Feb 2014, at 11:54, Nicolai Hess <nicolaihess(a)web.de> wrote: > Someone knows(remembers) why Ctrl+Enter is mapped to keyvalue 13 > I would expect Ctrl+M to be mapped at this value. > > > Ctrl+l -> keyValue 12 > Ctrl+Enter -> keyValue 13 > Ctrl+n -> keyValue 14 > > I miss > Ctrl+M -> keyValue ???? > > (see Fogbugz issue 12103 shortcuts for tools) > > (I vagualy remember this is related to the VM and there was > a reason for doing so, but don't know it anymore) > > > > regards > nicolai >

1 0

Absolute transparent persistence without saving image?
by Denis Kudriashov 17 Feb '14

17 Feb '14

Hello. I found very interesting project PhantomOS<http://dz.ru/en/solutions/phantom/>. It's not smalltalk related. But they try build pure object operating system with "absolute persistence option". It object model very similar to Smalltalk, it has virtual machine as "OS core". But difference between smalltalks and PhantomOS is how "image saves". In smalltalk we doing it manually. But PhantomOS always has persisted image state. So any object change will be restored after system restart without any special action. What do you think about this? Was there smalltalk implementations (any research projects) with such feature? Maybe first smalltalk computer works same way? Best regards, Denis

7 7

Cog development image--building the StackInterpreterSimulator
by gettimothy 15 Feb '14

15 Feb '14

Howdy, I thought I kept the email that mentioned how to do this, but I cannot find it. I would like to build the StackInterpereterSimulator from the Cog dev image so I can poke around a bit and get a feel for plugins and the key events. Should I just do the straight VMaker GUI approach? or is there another method? I will be sure to document this for posterity in my book notes. thx. tty

1 0

VM Maker: VMMaker.oscog-tty.616.mcz
by commits＠source.squeak.org 15 Feb '14

15 Feb '14

Timothy M uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker.oscog-tty.616.mcz ==================== Summary ==================== Name: VMMaker.oscog-tty.616 Author: tty Time: 15 February 2014, 4:06:33.43 pm UUID: 6cf1ed46-20ba-4278-b333-414f6b4ae39a Ancestors: VMMaker.oscog-dtl.615, VMMaker.oscog-tty.614 Started with a clean Squeak4.5-13675 RC4 image. Loaded VMMaker.oscog-dtl.615 etc. Filein VMMaker-InterpreterSimulation-Morphic category and classes. Merged in StackInterpreterSimulator changes required for event forwarding from VMMaker.oscog-tty.614 Saved this to local repository. Copy this to live repository. =============== Diff against VMMaker.oscog-dtl.615 =============== Item was changed: SystemOrganization addCategory: #'VMMaker-Building'! - SystemOrganization addCategory: #'VMMaker-JIT'! SystemOrganization addCategory: #'VMMaker-Interpreter'! SystemOrganization addCategory: #'VMMaker-InterpreterSimulation'! + SystemOrganization addCategory: #'VMMaker-InterpreterSimulation-Morphic'! + SystemOrganization addCategory: #'VMMaker-JIT'! SystemOrganization addCategory: #'VMMaker-JITSimulation'! + SystemOrganization addCategory: #'VMMaker-Multithreading'! + SystemOrganization addCategory: #'VMMaker-Plugins'! + SystemOrganization addCategory: #'VMMaker-Plugins-Alien'! - SystemOrganization addCategory: #'VMMaker-Translation to C'! - SystemOrganization addCategory: #'VMMaker-Support'! SystemOrganization addCategory: #'VMMaker-PostProcessing'! + SystemOrganization addCategory: #'VMMaker-SmartSyntaxPlugins'! SystemOrganization addCategory: #'VMMaker-SpurMemoryManager'! SystemOrganization addCategory: #'VMMaker-SpurMemoryManagerSimulation'! + SystemOrganization addCategory: #'VMMaker-Support'! - SystemOrganization addCategory: #'VMMaker-Multithreading'! SystemOrganization addCategory: #'VMMaker-Tests'! + SystemOrganization addCategory: #'VMMaker-Translation to C'! - SystemOrganization addCategory: #'VMMaker-Plugins'! - SystemOrganization addCategory: #'VMMaker-SmartSyntaxPlugins'! - SystemOrganization addCategory: #'VMMaker-Plugins-Alien'! Item was changed: SharedPool subclass: #CogRTLOpcodes instanceVariableNames: '' + classVariableNames: 'AddCqR AddCwR AddRR AddRdRd AlignmentNops AndCqR AndCwR AndRR Arg0Reg Arg1Reg ArithmeticShiftRightCqR ArithmeticShiftRightRR Call ClassReg CmpCqR CmpCwR CmpRR CmpRdRd ConvertRRd DPFPReg0 DPFPReg1 DPFPReg2 DPFPReg3 DPFPReg4 DPFPReg5 DPFPReg6 DPFPReg7 DivRdRd FPReg Fill16 Fill32 Fill8 FillBytesFrom FillFromWord FirstJump FirstShortJump GPRegMax GPRegMin Jump JumpAbove JumpAboveOrEqual JumpBelow JumpBelowOrEqual JumpCarry JumpFPEqual JumpFPGreater JumpFPGreaterOrEqual JumpFPLess JumpFPLessOrEqual JumpFPNotEqual JumpFPOrdered JumpFPUnordered JumpGreater JumpGreaterOrEqual JumpLess JumpLessOrEqual JumpLong JumpLongNonZero JumpLongZero JumpNegative JumpNoCarry JumpNoOverflow JumpNonNegative JumpNonZero JumpOverflow JumpR JumpZero Label LastJump LastRTLCode LinkReg LoadEffectiveAddressMwrR LoadEffectiveAddressXowrR LogicalShiftLeftCqR LogicalShiftLeftRR LogicalShiftRightCqR LogicalShiftRightRR MoveAbR MoveAwR MoveC32R MoveC64R MoveCqR MoveCwR MoveM16rR MoveM32rR MoveM64rRd MoveMbrR MoveMwrR MoveRAw MoveRM16r MoveRM32r MoveRMbr MoveRMwr MoveRR MoveRX16rR MoveRX32rR MoveRXbrR MoveRXowr MoveRXwrR MoveRdM64r MoveRdRd MoveX16rRR MoveX32rRR MoveXbrRR MoveXowrR MoveXwrRR MulCqR MulCwR MulRR MulRdRd NegateR Nop OrCqR OrCwR OrRR PopR PrefetchAw PushCw PushR ReceiverResultReg RetN SPReg SendNumArgsReg SqrtRd SubCqR SubCwR SubRR SubRdRd TempReg XorCqR XorCwR XorRR' - classVariableNames: 'AddCqR AddCwR AddRR AddRdRd AlignmentNops AndCqR AndCwR AndRR Arg0Reg Arg1Reg ArithmeticShiftRightCqR ArithmeticShiftRightRR Call ClassReg CmpCqR CmpCwR CmpRR CmpRdRd ConvertRRd DPFPReg0 DPFPReg1 DPFPReg2 DPFPReg3 DPFPReg4 DPFPReg5 DPFPReg6 DPFPReg7 DivRdRd FPReg Fill16 Fill32 Fill8 FillBytesFrom FillFromWord FirstJump FirstShortJump GPRegMax GPRegMin Jump JumpAbove JumpAboveOrEqual JumpBelow JumpBelowOrEqual JumpCarry JumpFPEqual JumpFPGreater JumpFPGreaterOrEqual JumpFPLess JumpFPLessOrEqual JumpFPNotEqual JumpFPOrdered JumpFPUnordered JumpGreater JumpGreaterOrEqual JumpLess JumpLessOrEqual JumpLong JumpLongNonZero JumpLongZero JumpNegative JumpNoCarry JumpNoOverflow JumpNonNegative JumpNonZero JumpOverflow JumpR JumpZero Label LastJump LastRTLCode LinkReg LoadEffectiveAddressMwrR LogicalShiftLeftCqR LogicalShiftLeftRR LogicalShiftRightCqR LogicalShiftRightRR MoveAbR MoveAwR MoveC32R MoveC64R MoveCqR MoveCwR MoveM16rR MoveM64rRd MoveMbrR MoveMwrR MoveRAw MoveRM16r MoveRMbr MoveRMwr MoveRR MoveRX16rR MoveRXbrR MoveRXowr MoveRXwrR MoveRdM64r MoveRdRd MoveX16rRR MoveXbrRR MoveXowrR MoveXwrRR MulCqR MulCwR MulRR MulRdRd NegateR Nop OrCqR OrCwR OrRR PopR PrefetchAw PushCw PushR ReceiverResultReg RetN SPReg SendNumArgsReg SqrtRd SubCqR SubCwR SubRR SubRdRd TempReg XorCqR XorCwR XorRR' poolDictionaries: '' category: 'VMMaker-JIT'! !CogRTLOpcodes commentStamp: '<historical>' prior: 0! I am a pool for the Register-Transfer-Language to which Cog compiles. I define unique integer values for all RTL opcodes and abstract registers. See CogAbstractInstruction for instances of instructions with the opcodes that I define.! Item was changed: StackInterpreterPrimitives subclass: #StackInterpreterSimulator + instanceVariableNames: 'bootstrapping byteCount breakCount sendCount printSends printReturns traceOn myBitBlt displayForm filesOpen imageName pluginList mappedPluginEntries quitBlock transcript displayView printFrameAtEachStep printBytecodeAtEachStep systemAttributes startMicroseconds externalSemaphoreSignalRequests externalSemaphoreSignalResponses extSemTabSize atEachStepBlock disableBooleanCheat performFilters eventQueue' - instanceVariableNames: 'bootstrapping byteCount breakCount sendCount printSends printReturns traceOn myBitBlt displayForm filesOpen imageName pluginList mappedPluginEntries quitBlock transcript displayView printFrameAtEachStep printBytecodeAtEachStep systemAttributes startMicroseconds externalSemaphoreSignalRequests externalSemaphoreSignalResponses extSemTabSize atEachStepBlock disableBooleanCheat performFilters' classVariableNames: '' poolDictionaries: '' category: 'VMMaker-InterpreterSimulation'! !StackInterpreterSimulator commentStamp: 'eem 9/3/2013 11:05' prior: 0! This class defines basic memory access and primitive simulation so that the StackInterpreter can run simulated in the Squeak environment. It also defines a number of handy object viewing methods to facilitate pawing around in the object memory. To see the thing actually run, you could (after backing up this image and changes), execute (StackInterpreterSimulator new openOn: Smalltalk imageName) test ((StackInterpreterSimulator newWithOptions: #(NewspeakVM true MULTIPLEBYTECODESETS true)) openOn: 'ns101.image') test and be patient both to wait for things to happen, and to accept various things that may go wrong depending on how large or unusual your image may be. We usually do this with a small and simple benchmark image. Here's an example of what Eliot uses to launch the simulator in a window. The bottom-right window has a menu packed with useful stuff: | vm | vm := StackInterpreterSimulator newWithOptions: #(). vm openOn: '/Users/eliot/Squeak/Squeak4.4/trunk44.image'. vm setBreakSelector: #&. vm openAsMorph; run! Item was added: + ----- Method: StackInterpreterSimulator>>displayForm (in category 'accessing') ----- + displayForm + "The VM SImulator draws directly on an imageMorph named displayView + displayView is housed on a Form named displayForm + displayForm is initialized in my initialize method. + it 'needs' to be initialized there to support Eliot's legacy openAsMorph functionality + " + ^displayForm! Item was added: + ----- Method: StackInterpreterSimulator>>displayView (in category 'accessing') ----- + displayView + "The VM SImulator draws directly on an imageMorph named displayView + displayView is housed on a Form named displayForm + Since this is housed directly on the Morph, I have this tight compling from here->model->morph. + " + self flag: 'tty'. + ^displayView! Item was added: + ----- Method: StackInterpreterSimulator>>displayView: (in category 'accessing') ----- + displayView: anImageMorph + "The VM SImulator draws directly on an imageMorph named displayView + displayView is housed on a Form named displayForm + Since this is housed directly on the Morph, I have this tight compling from here->model->morph. + " + self flag: 'tty'. + displayView := anImageMorph! Item was changed: ----- Method: StackInterpreterSimulator>>incrementByteCount (in category 'interpreter shell') ----- incrementByteCount (byteCount := byteCount + 1) = breakCount ifTrue: [self doOrDefer: [self changed: #byteCountText]. self halt]. byteCount \\ 1000 = 0 ifTrue: [self doOrDefer: [self changed: #byteCountText]. self forceInterruptCheck. + byteCount \\ 1000 = 0 ifTrue: [self fullDisplayUpdate]] "tty. denominator was 10000 before event forwarding. Refactor me."! - byteCount \\ 10000 = 0 ifTrue: [self fullDisplayUpdate]]! Item was changed: ----- Method: StackInterpreterSimulator>>initialize (in category 'initialization') ----- initialize "Initialize the StackInterpreterSimulator when running the interpreter inside Smalltalk. The primary responsibility of this method is to allocate Smalltalk Arrays for variables that will be declared as statically-allocated global arrays in the translated code." bootstrapping := false. objectMemory ifNil: [objectMemory := self class objectMemoryClass simulatorClass new]. objectMemory coInterpreter: self. "Note: we must initialize ConstMinusOne differently for simulation, due to the fact that the simulator works only with +ve 32-bit values" ConstMinusOne := objectMemory integerObjectOf: -1. methodCache := Array new: MethodCacheSize. atCache := Array new: AtCacheTotalSize. self flushMethodCache. gcSemaphoreIndex := 0. externalSemaphoreSignalRequests := externalSemaphoreSignalResponses := #(). externalPrimitiveTable := CArrayAccessor on: (Array new: MaxExternalPrimitiveTableSize). externalPrimitiveTableFirstFreeIndex := 0. primitiveTable := self class primitiveTable copy. objectMemory hasSpurMemoryManagerAPI ifTrue: [primitiveAccessorDepthTable := self class primitiveAccessorDepthTable. pluginList := {}] ifFalse: [pluginList := {'' -> self }]. mappedPluginEntries := OrderedCollection new. desiredNumStackPages := desiredEdenBytes := 0. "This is initialized on loading the image, but convenient for testing stack page values..." numStackPages := self defaultNumStackPages. startMicroseconds := Time totalSeconds * 1000000. "initialize InterpreterSimulator variables used for debugging" byteCount := 0. sendCount := 0. quitBlock := [^ self]. traceOn := true. printSends := printReturns := printFrameAtEachStep := printBytecodeAtEachStep := false. myBitBlt := BitBltSimulator new setInterpreter: self. transcript := Transcript. displayForm := 'Display has not yet been installed' asDisplayText form. suppressHeartbeatFlag := false. systemAttributes := Dictionary new. extSemTabSize := 256. + disableBooleanCheat := false. + + "Forward events from the host to the Simulator tty" + eventQueue := SharedQueue new.! - disableBooleanCheat := false! Item was changed: ----- Method: StackInterpreterSimulator>>ioGetNextEvent: (in category 'I/O primitives') ----- ioGetNextEvent: evtBuf + | evt | + "StackInterpreterSimulatorMorphicModel browse" + eventQueue isNil ifTrue: + [^self primitiveFail]. + eventQueue isEmpty + ifFalse: + [ evt := eventQueue next. + 1 to: (evt size) do: [:i | ((evt at: i) isNil) ifFalse: [evtBuf at: (i - 1) put: (evt at: i)]]]. + self success: true. - - self primitiveFail. ! Item was added: + ----- Method: StackInterpreterSimulator>>openAsStackInterpreterSimulatorMorph (in category 'UI') ----- + openAsStackInterpreterSimulatorMorph + "Open a morphic view on this simulation. ala Bert Freudenberg's + SqueakJS http://lively-web.org/users/bert/squeak.html " + | localImageName borderWidth window | + localImageName := imageName + ifNil: [' synthetic image'] + ifNotNil: [FileDirectory default localNameFor: imageName]. + + transcript := TranscriptStream + on: (String new: 10000). + + window := StackInterpreterSimulatorMorph + withVMSimulator: self + title: 'Simulation of ' , localImageName, ' (beta)' + transcript: transcript. + + borderWidth := [StackInterpreterSimulatorMorph borderWidth + "Squeak 4.1"] + on: MessageNotUnderstood + do: [:ex | 0]. + "3.8" + borderWidth := borderWidth + window borderWidth. + window openInWorldExtent: (self desiredDisplayExtent + (2 * borderWidth) + (0 @ window labelHeight) * (1 @ (1 / 0.8))) rounded. + ^ window! Item was added: + ----- Method: StackInterpreterSimulator>>queueForwardedEvent: (in category 'event forwarding') ----- + queueForwardedEvent:evt + eventQueue isNil + ifTrue:[eventQueue := SharedQueue new]. + eventQueue nextPut: evt.! Item was added: + ----- Method: StackInterpreterSimulator>>toggleTranscriptForSimulatorMorph: (in category 'UI') ----- + toggleTranscriptForSimulatorMorph: aTranscriptStreamOrTranscript + "tty think this through when not so tired" + self flag: 'tty'. + transcript ifNil: [transcript := Transcript. ^self]. + displayView ifNil: [^self changed: #flash]. + transcript := transcript = Transcript + ifTrue: [aTranscriptStreamOrTranscript] + ifFalse: [Transcript]! Item was changed: + ----- Method: StackInterpreterSimulator>>transcript (in category 'accessing') ----- - ----- Method: StackInterpreterSimulator>>transcript (in category 'simulation only') ----- transcript + "tty accessor needed by StackInstperpeterSimulatorMorphicModel" + ^transcript! - ^transcript! Item was changed: + ----- Method: StackInterpreterSimulator>>transcript: (in category 'accessing') ----- - ----- Method: StackInterpreterSimulator>>transcript: (in category 'simulation only') ----- transcript: aTranscript + "tty accessor needed by StackInstperpeterSimulatorMorphicModel" + transcript := aTranscript! - transcript := aTranscript! Item was added: + Object subclass: #StackInterpreterSimulatorEventTransformer + instanceVariableNames: '' + classVariableNames: 'Default' + poolDictionaries: 'EventSensorConstants' + category: 'VMMaker-InterpreterSimulation-Morphic'! + + !StackInterpreterSimulatorEventTransformer commentStamp: 'tty 2/8/2014 12:54' prior: 0! + A StackInterpreterSimulatorEventUnwrapper takes events as wrapped by HandMorph and converts them to a form a StackInterpreterSimulator can deal with. + + See HandMorph >> handleEvent to see what the wrapping entails. + See HandMorph >> ProcessEvents or EventSensor >> fetchMoreEvents for examples of what an unwrapped event looks like when given to the system + + + for pre-wrapping + + Instance Variables + ! Item was added: + ----- Method: StackInterpreterSimulatorEventTransformer class>>default (in category 'initialize-release') ----- + default + ^Default ifNil:[Default := self new]! Item was added: + ----- Method: StackInterpreterSimulatorEventTransformer>>degenerateEvent: (in category 'event transformation') ----- + degenerateEvent: aMorphicEvent + "tty. Bert had mentioned a distinction between events and polling events and that Morphic could handle both. + I don't know what he is talking about." + | evt type | + self flag:'tty'. + + evt := nil. + type := aMorphicEvent type. + " Transcript show:type;cr." + (('mouse' charactersExactlyMatching: type asString) > 4) "mous" + ifTrue: [^self degenerateMouseEvent: aMorphicEvent]. + (('key' charactersExactlyMatching: type asString) > 2) "key" + ifTrue: [^self degenerateKeyboardEvent: aMorphicEvent]. + " type = EventTypeDragDropFiles ifTrue: [evt := self generateDropFilesEvent: evtBuf]. + type = EventTypeWindow ifTrue:[evt := self generateWindowEvent: evtBuf]." + + ^ #(0 0 0 0 0 0 0 0).! Item was added: + ----- Method: StackInterpreterSimulatorEventTransformer>>degenerateKeyboardEvent: (in category 'event transformation') ----- + degenerateKeyboardEvent: aMorphicEvent + | evt | + "see HandMorph>>generateKeyboardEvent and EventSensor class comment" + evt := {2 . 0 . 0 . 0 . 0. 0 . 0 . 0}. + + evt at:2 put: aMorphicEvent timeStamp. + evt at:3 put: aMorphicEvent keyValue. "<--this is wrong. See Sensor FirstEvt: for what needs to happen. hooo boy" + evt at:4 put: aMorphicEvent position y. + evt at:5 put: (aMorphicEvent buttons bitAnd: 7). "thanks Ron T." + evt at:6 put: (aMorphicEvent buttons >> 3). "Thanks dtl" + ^evt + + + ! Item was added: + ----- Method: StackInterpreterSimulatorEventTransformer>>degenerateMouseButtonEvent: (in category 'event transformation') ----- + degenerateMouseButtonEvent: aMorphicEvent + | evt | + "see HandMorph>>generateMouseEvent" + evt := {1 . 0 . 0 . 0 . 0. 0 . 0 . 0}. + + evt at:2 put: aMorphicEvent timeStamp. + evt at:3 put: aMorphicEvent position x. + evt at:4 put: aMorphicEvent position y. + evt at:5 put: (aMorphicEvent buttons bitAnd: 7). "thanks Ron T." + evt at:6 put: (aMorphicEvent buttons >> 3). "Thanks dtl" + ^evt + + + ! Item was added: + ----- Method: StackInterpreterSimulatorEventTransformer>>degenerateMouseEvent: (in category 'event transformation') ----- + degenerateMouseEvent: aMorphicEvent + "see HandMorph>>generateMouseEvent" + + (aMorphicEvent type) = #mouseMove + ifTrue:[^self degenerateMouseMoveEvent: aMorphicEvent]. + + ((aMorphicEvent type) = #mouseUp) | ((aMorphicEvent type) = #mouseDown) + ifTrue:[^self degenerateMouseButtonEvent: aMorphicEvent]. + " (aMorphicEvent type) = #mouseDrag + ifTrue:[evt := self degenerateMouseDragEvent: aMorphicEvent]. + " + ^{0 . 0. 0. 0. 0. 0. 0. 0}.! Item was added: + ----- Method: StackInterpreterSimulatorEventTransformer>>degenerateMouseMoveEvent: (in category 'event transformation') ----- + degenerateMouseMoveEvent: aMorphicEvent + | evt | + "see HandMorph>>generateMouseEvent" + evt := {1 . 0 . 0 . 0 . 0. 0 . 0 . 0}. + + evt at:2 put: aMorphicEvent timeStamp. + evt at:3 put: aMorphicEvent position x. + evt at:4 put: aMorphicEvent position y. + evt at:5 put: (aMorphicEvent buttons bitAnd: 7). "thanks Ron T." + evt at:6 put: (aMorphicEvent buttons >> 3). "Thanks dtl" + ^evt + + + ! Item was added: + ImageMorph subclass: #StackInterpreterSimulatorImageMorph + instanceVariableNames: 'eventForwarder' + classVariableNames: '' + poolDictionaries: '' + category: 'VMMaker-InterpreterSimulation-Morphic'! + + !StackInterpreterSimulatorImageMorph commentStamp: 'tty 2/5/2014 12:28' prior: 0! + A StackInterpreterSimulatorImageMorph is an ImageMorph The StackInterpreterSimulator paints its world on me. + + If tty can get event forwarding working along the HandMorph->StackInterpreterSimulatorMorphicModel->StackInterpreterSimulator path, then then I don't need to exist. + + If event forwarding attempt above fails, then I may need to handle it. + + + Instance Variables + + ! Item was added: + SystemWindow subclass: #StackInterpreterSimulatorMorph + instanceVariableNames: 'loadButton helpButton resetButton stepButton overButton sendButton returnButton runButton toggleTranscriptButton optionsButton transcriptPanel commandPanel contextPanel stackPanel callStackPanel displayForm displayView eventEncoder ioExitButton fullDisplayUpdateButton forceInterruptCheckButton hackButton' + classVariableNames: '' + poolDictionaries: '' + category: 'VMMaker-InterpreterSimulation-Morphic'! + + !StackInterpreterSimulatorMorph commentStamp: 'tty 2/5/2014 12:11' prior: 0! + A StackInterpreterSimulatorMorph is a copy of PreferenceBrowserMorph that has been mangled into something that will support the StackInterpreterSimulator. + + I provide some UI features inspired by Bert Freudenberg's Lively Squeak VM at http://lively-web.org/users/bert/squeak.html + + See class protocol 'documentation' for examples of invoking me. + + My model is StackInterpreterSimulatorMorphicModel. + My model has a reference to the StackInterpreterSimulator and itermediates all (?) interaction with it. + + The StackInterpreterSimulator renders the simulated World on a StackInterpreterSimulatorImageMorph that I contain. + + There is some cruft (tight coupling via direct references along all three layers UI-Model-VM )in me that exists to support Eliot's original StackInterpreterSimulator>>openAsMorph functionality and use-case. + Rumors that said cruft is an artifact of tty's rudimentary Morphic skills are entirely credible. + + I hold out the barest glimmer of hope that Bert Freudenberg's SqueakJS functionality can be integrated into my functionality as well. + see http://lively-web.org/users/bert/squeak.html for the inspiration. + + I am not amenable to Flaps or the WorldMenu as there is a lot of pre-run configuration that is done to the Simulator prior to its being run. + Managing that ability with a GUI is counter-productive. If said functionality is desired in the future, then inspiration can be gleaned by cut-n-paste from PreferenceBrowser and PreferenceBrowserModel.! Item was added: + ----- Method: StackInterpreterSimulatorMorph class>>ttyOne (in category 'documentation') ----- + ttyOne + "Script tty uses to run the stackIntepreter using this class" + | vm | + Transcript clear. + vm := StackInterpreterSimulator newWithOptions: #(#STACKVM). + vm openOn: '/home/tty/usr/src/smalltalk/buildCogDevelopmentImageCog.app/Contents/Resources/targets/Squeak4.5.image'. + "vm setBreakSelector: #&." + vm + openAsStackInterpreterSimulatorMorph "; + toggleTranscript; + halt; + run" + ! Item was added: + ----- Method: StackInterpreterSimulatorMorph class>>withVMSimulator:title:transcript: (in category 'instance creation') ----- + withVMSimulator: aStackInterpreterSimulatorMorphicModel title: aString transcript: aTranscript + ^self new initializeWithVMSimulator: aStackInterpreterSimulatorMorphicModel title: aString aTranscript: aTranscript; + yourself. + + ! Item was added: + ----- Method: StackInterpreterSimulatorMorph>>basicButton (in category 'submorphs - buttons') ----- + basicButton + | button | + button := SimpleButtonMorph new. + button + borderWidth: 2; + borderColor: #raised; + on: #mouseEnter send: #value to: [button borderColor: self paneColor]; + on: #mouseLeave send: #value to: [button borderColor: #raised]; + vResizing: #spaceFill; + useRoundedCorners; + clipSubmorphs: true; + color: self paneColor muchLighter; + target: self model. + ^button! Item was added: + ----- Method: StackInterpreterSimulatorMorph>>buttonRowLayoutFrame (in category 'submorphs - buttons') ----- + buttonRowLayoutFrame + ^LayoutFrame fractions: (0@0 corner: 1@0) offsets: (0@0 corner: 0@ (TextStyle defaultFont height * 2.5)) + ! Item was added: + ----- Method: StackInterpreterSimulatorMorph>>callStackPanel (in category 'submorphs - squeakJS') ----- + callStackPanel + "If any Morphic gurus exist, please have at it." + ^callStackPanel ifNil: + [callStackPanel := (PluggableTextMorph + on: self model + text: #processesAndContextStack + accept: nil + readSelection: nil + menu: nil) hideScrollBarsIndefinitely. + callStackPanel + color: Color transparent; + hResizing: #spaceFill; + vResizing: #spaceFill; + cellInset: 5; + yourself]. + + ! Item was added: + ----- Method: StackInterpreterSimulatorMorph>>commandPanel (in category 'submorphs - simulator panel') ----- + commandPanel + self flag: 'tty'. "does this hybrid of PreferenceBrowser layout and Simulato openAsMorph stuff make sense?" + ^commandPanel ifNil: + [commandPanel := (PluggableTextMorph + on: self model vm + text: #byteCountText + accept: nil + readSelection: nil + menu: #utilitiesMenu:) hideScrollBarsIndefinitely. + commandPanel + color: Color transparent; + hResizing: #spaceFill; + vResizing: #spaceFill; + cellInset: 5; + yourself]. + ! Item was added: + ----- Method: StackInterpreterSimulatorMorph>>contextPanel (in category 'submorphs - squeakJS') ----- + contextPanel + "This should show the currentContext and Special Objects array. as seen at SqueakJS + Doing that requires real talent. talent tty is lacking at the moment + on: [ Array with: (MorphWithSubmorphsWrapper with: self) ] + Array with: (ObjectExplorerWrapper with: rootObject name: 'root' model: self parent: nil) + " + ^contextPanel ifNil: + [contextPanel := (SimpleHierarchicalListMorph + on: [ Array with: (ObjectExplorerWrapper with: (self model vm) name: 'root' model: (self model vm) parent: nil) ] + list: #value + selected: nil + changeSelected: nil + menu: nil + keystroke: nil) showScrollBarsOnlyWhenNeeded: true. + contextPanel + color: Color transparent; + hResizing: #spaceFill; + vResizing: #spaceFill; + cellInset: 5; + yourself] + + + ! Item was added: + ----- Method: StackInterpreterSimulatorMorph>>displayView (in category 'submorphs - simulator display view') ----- + displayView + "The VM SImulator draws directly on an imageMorph named displayView + displayView is housed on a Form named displayForm + displayForm is initialized in StackInterpreterSimulator >> initialize. + see StackInterpreterSimulator >>openAsMorph for original constructs. + " + ^displayView ifNil: + [displayView := (StackInterpreterSimulatorImageMorph new image: (model vm displayForm)). + (self model) displayView: displayView. + (self model) morph: displayView. "<-- N.B.. morph bounds are used to filter events in the model. tty" + displayView activeHand addEventListener: self model. + + displayView + color: Color transparent; + hResizing: #spaceFill; + vResizing: #spaceFill; + cellInset: 5; + yourself + ]. + + + + ! Item was added: + ----- Method: StackInterpreterSimulatorMorph>>displayViewLayoutFrame (in category 'submorphs - simulator display view') ----- + displayViewLayoutFrame + | squeakJSFrame buttonFrame simulatorFrame| + "if any Morphic guru's understand layouts and offsets, please fix this. tty" + buttonFrame := self buttonRowLayoutFrame. + squeakJSFrame := self squeakJSRowLayoutFrame. + simulatorFrame := self simulatorLayoutFrame.. + ^LayoutFrame fractions: (0@0 corner: 1@1) + offsets: (0@(buttonFrame bottomOffset) corner: simulatorFrame leftOffset@squeakJSFrame topOffset)! Item was added: + ----- Method: StackInterpreterSimulatorMorph>>extent: (in category 'geometry') ----- + extent: aPoint + super extent: aPoint. + self fullBounds. + ! Item was added: + ----- Method: StackInterpreterSimulatorMorph>>forceInterruptCheckButton (in category 'submorphs - buttons') ----- + forceInterruptCheckButton + self flag: 'tty'. + ^forceInterruptCheckButton ifNil: + [forceInterruptCheckButton := self basicButton + label: 'vm forceInterruptCheck' translated; + actionSelector: #forceInterruptCheck; + setBalloonText: + 'Invoke forceInterruptCheck on Simulator.' translated]! Item was added: + ----- Method: StackInterpreterSimulatorMorph>>fullDisplayUpdateButton (in category 'submorphs - buttons') ----- + fullDisplayUpdateButton + self flag: 'tty'. + ^fullDisplayUpdateButton ifNil: + [fullDisplayUpdateButton := self basicButton + label: 'vm fullDisplayUpdate' translated; + actionSelector: #fullDisplayUpdate; + setBalloonText: + 'Invoke fullDisplayUpdate on Simulator.' translated]! Item was added: + ----- Method: StackInterpreterSimulatorMorph>>hackButton (in category 'submorphs - buttons') ----- + hackButton + self flag: 'tty'. + ^hackButton ifNil: + [hackButton := self basicButton + label: 'Display ImageMorph Bounds' translated; + actionSelector: #hack; + setBalloonText: + 'tty needs a hack button.' translated]! Item was added: + ----- Method: StackInterpreterSimulatorMorph>>helpButton (in category 'submorphs - buttons') ----- + helpButton + ^helpButton ifNil: + [helpButton := self basicButton + label: 'help' translated; + setBalloonText: + 'Click here to get some hints on use of me ', + 'Panel' translated; + actionSelector: #help]! Item was added: + ----- Method: StackInterpreterSimulatorMorph>>initializeWithVMSimulator:title:aTranscript: (in category 'initialization') ----- + initializeWithVMSimulator: aStackInterpreterSimulator title: aString aTranscript: aTranscript + |model| + self flag: 'tty'. "need to get the layout right at this point. resizers and scroll bars would be nice. Layout offsets need a gimlet eye as well" + model := StackInterpreterSimulatorMorphicModel on: aStackInterpreterSimulator title: aString transcript: aTranscript. + self + model: model; + clipSubmorphs: true; + setLabel: self model windowTitle; + name: aString; + addMorph: self newButtonRow fullFrame: self buttonRowLayoutFrame; + addMorph: self squeakJSRow fullFrame: self squeakJSRowLayoutFrame; + addMorph: self simulatorPanel fullFrame: self simulatorLayoutFrame; + addMorph: self displayView fullFrame: self displayViewLayoutFrame. + ^self ! Item was added: + ----- Method: StackInterpreterSimulatorMorph>>ioExitButton (in category 'submorphs - buttons') ----- + ioExitButton + self flag: 'tty'. + ^ioExitButton ifNil: + [ioExitButton := self basicButton + label: 'vm ioExit' translated; + actionSelector: #ioExit; + setBalloonText: + 'Invoke ioExit on Simulator.' translated]! Item was added: + ----- Method: StackInterpreterSimulatorMorph>>loadButton (in category 'submorphs - buttons') ----- + loadButton + ^loadButton ifNil: + [loadButton := self basicButton + label: 'Load Image' translated; + actionSelector: #loadImage; + setBalloonText: + 'Select an image to load.' translated]! Item was added: + ----- Method: StackInterpreterSimulatorMorph>>newButtonRow (in category 'submorphs - buttons') ----- + newButtonRow + ^BorderedMorph new + color: Color transparent; + cellInset: 2; + layoutInset: 2; + layoutPolicy: TableLayout new; + listDirection: #leftToRight; + listCentering: #topLeft; + cellPositioning: #topLeft; + on: #mouseEnter send: #paneTransition: to: self; + on: #mouseLeave send: #paneTransition: to: self; + addMorphBack: self hackButton; + addMorphBack: self newSeparator; + + " addMorphBack: self resetButton; + addMorphBack: self newSeparator; + addMorphBack: self forceInterruptCheckButton; + addMorphBack: self newSeparator; + addMorphBack: self fullDisplayUpdateButton; + addMorphBack: self newSeparator; + addMorphBack: self toggleTranscriptButton;" + addMorphBack: self runButton; + addMorphBack: self newSeparator; + addMorphBack: self ioExitButton; + addMorphBack: self newTransparentFiller; + addMorphBack: self stepButton; + addMorphBack: self newSeparator; + addMorphBack: self overButton; + addMorphBack: self newSeparator; + addMorphBack: self newSeparator; + addMorphBack: self sendButton; + addMorphBack: self newSeparator; + addMorphBack: self returnButton; + addMorphBack: self newTransparentFiller; + " addMorphBack: self loadButton; + addMorphBack: self newSeparator; + addMorphBack: self optionsButton; too complex to implement now. See StackInterpreterSimulator class comment for examples" + addMorphBack: self newTransparentFiller; + addMorphBack: self helpButton; + yourself.! Item was added: + ----- Method: StackInterpreterSimulatorMorph>>newSeparator (in category 'submorphs - buttons') ----- + newSeparator + ^BorderedMorph new + borderWidth: 2; + borderColor: Color transparent; + color: self paneColor; + hResizing: #rigid; + width: 5; + vResizing: #spaceFill; + yourself! Item was added: + ----- Method: StackInterpreterSimulatorMorph>>newTransparentFiller (in category 'submorphs - buttons') ----- + newTransparentFiller + ^Morph new + color: Color transparent; + vResizing: #spaceFill; + hResizing: #spaceFill; + yourself.! Item was added: + ----- Method: StackInterpreterSimulatorMorph>>optionsButton (in category 'submorphs - buttons') ----- + optionsButton + ^optionsButton ifNil: + [optionsButton := self basicButton + label: 'VM Options' translated; + actionSelector: #options; + setBalloonText: + 'VM Options.' translated]! Item was added: + ----- Method: StackInterpreterSimulatorMorph>>overButton (in category 'submorphs - buttons') ----- + overButton + ^overButton ifNil: + [overButton := self basicButton + label: 'Over' translated; + actionSelector: #over; + setBalloonText: + 'Step Over.' translated]! Item was added: + ----- Method: StackInterpreterSimulatorMorph>>resetButton (in category 'submorphs - buttons') ----- + resetButton + ^resetButton ifNil: + [resetButton := self basicButton + label: 'Reset' translated; + actionSelector: #reset; + setBalloonText: + 'Reset running simulation.' translated]! Item was added: + ----- Method: StackInterpreterSimulatorMorph>>returnButton (in category 'submorphs - buttons') ----- + returnButton + self flag: 'tty'. + ^returnButton ifNil: + [returnButton := self basicButton + label: 'Return' translated; + actionSelector: #return; + setBalloonText: + 'Return from what?.' translated]! Item was added: + ----- Method: StackInterpreterSimulatorMorph>>runButton (in category 'submorphs - buttons') ----- + runButton + self flag: 'tty'. + ^runButton ifNil: + [runButton := self basicButton + label: 'vm run' translated; + actionSelector: #run; + setBalloonText: + 'Run Simulation.' translated]! Item was added: + ----- Method: StackInterpreterSimulatorMorph>>sendButton (in category 'submorphs - buttons') ----- + sendButton + self flag: 'tty'. + ^sendButton ifNil: + [sendButton := self basicButton + label: 'Send' translated; + actionSelector: #send; + setBalloonText: + 'Send what exactly?.' translated]! Item was added: + ----- Method: StackInterpreterSimulatorMorph>>simulatorLayoutFrame (in category 'submorphs - simulator panel') ----- + simulatorLayoutFrame + | squeakJSFrame buttonFrame | + "I don't understand offsets in the LayoutFrame. I just fiddled until it looked ok. If anybody knows what they are doing, please refactor." + self flag: 'tty'. + buttonFrame := self buttonRowLayoutFrame. + squeakJSFrame := self squeakJSRowLayoutFrame. + ^LayoutFrame fractions: (0.7@0 corner: 1@squeakJSFrame topOffset) + offsets: (0@(buttonFrame bottomOffset) corner: 0.70@squeakJSFrame topOffset) + ! Item was added: + ----- Method: StackInterpreterSimulatorMorph>>simulatorPanel (in category 'submorphs - simulator panel') ----- + simulatorPanel + "standard controls from StackInterpreterSimulator >> openAsMorph" + ^BorderedMorph new + color: Color transparent; + layoutInset: 10; + cellInset: 10; + layoutPolicy: TableLayout new; + listDirection: #topToBottom; + listCentering: #topLeft; + cellPositioning: #topLeft; + on: #mouseEnter send: #paneTransition: to: self; + on: #mouseLeave send: #paneTransition: to: self; + addMorphBack: self transcriptPanel; + addMorphBack: self commandPanel; + yourself.! Item was added: + ----- Method: StackInterpreterSimulatorMorph>>squeakJSRow (in category 'submorphs - squeakJS') ----- + squeakJSRow + "row fo SqueakJS context, stack and call-stack panels" + ^BorderedMorph new + color: Color blue; + cellInset: 2; + layoutInset: 2; + layoutPolicy: TableLayout new; + listDirection: #leftToRight; + listCentering: #topLeft; + cellPositioning: #topLeft; + on: #mouseEnter send: #paneTransition: to: self; + on: #mouseLeave send: #paneTransition: to: self; + addMorphBack: self callStackPanel; + addMorphBack: self contextPanel; + addMorphBack: self stackPanel; + yourself.! Item was added: + ----- Method: StackInterpreterSimulatorMorph>>squeakJSRowLayoutFrame (in category 'submorphs - squeakJS') ----- + squeakJSRowLayoutFrame + ^LayoutFrame fractions: (0(a)0.8 corner: 1@1) offsets: (0(a)0.8 corner: 1@ (TextStyle defaultFont height * 2.5)) + ! Item was added: + ----- Method: StackInterpreterSimulatorMorph>>stackPanel (in category 'submorphs - squeakJS') ----- + stackPanel + "If any Morphic gurus exist, please have at it." + ^stackPanel ifNil: + [stackPanel := (PluggableTextMorph + on: self model + text: #currentContextStack + accept: nil + readSelection: nil + menu: nil) hideScrollBarsIndefinitely. + stackPanel + color: Color transparent; + hResizing: #spaceFill; + vResizing: #spaceFill; + cellInset: 5; + yourself]. + + ! Item was added: + ----- Method: StackInterpreterSimulatorMorph>>stepButton (in category 'submorphs - buttons') ----- + stepButton + self flag: 'tty'. + ^stepButton ifNil: + [stepButton := self basicButton + label: 'Step' translated; + actionSelector: #step; + setBalloonText: + 'Step Into.' translated]! Item was added: + ----- Method: StackInterpreterSimulatorMorph>>toggleTranscriptButton (in category 'submorphs - buttons') ----- + toggleTranscriptButton + "tty I dont like this. I have diabled the button" + self flag: 'tty'. + ^toggleTranscriptButton ifNil: + [toggleTranscriptButton := self basicButton + label: 'Toggle Transcript' translated; + actionSelector: #toggleTranscript; + setBalloonText: + 'Use External Transcript Instead of Internal.' translated]! Item was added: + ----- Method: StackInterpreterSimulatorMorph>>transcriptPanel (in category 'submorphs - simulator panel') ----- + transcriptPanel + self flag: 'tty'. "does this hybrid of PreferenceBrowser layout and Simulato openAsMorph stuff make sense?" + ^transcriptPanel ifNil: + [transcriptPanel := (PluggableTextMorph + on: self model vm transcript + text: nil + accept: nil + readSelection: nil + menu: #codePaneMenu:shifted:). + transcriptPanel + name: 'transcriptPanel'; + color: Color transparent; + hResizing: #spaceFill; + vResizing: #spaceFill; + cellInset: 5; + yourself]. + ! Item was added: + TestCase subclass: #StackInterpreterSimulatorMorphicEventTests + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: 'EventSensorConstants' + category: 'VMMaker-InterpreterSimulation-Morphic'! Item was added: + ----- Method: StackInterpreterSimulatorMorphicEventTests>>testKeyEventDegeneration (in category 'test event') ----- + testKeyEventDegeneration + |aMorphicEvent evtBuf type| + aMorphicEvent := HandMorph new generateKeyboardEvent: {2 . 0. 0. 0. 0. 0. 0. 0}. + evtBuf := (StackInterpreterSimulatorEventTransformer default) degenerateEvent: aMorphicEvent. + type := evtBuf at:1. + self assert:(type = EventTypeKeyboard). + ! Item was added: + ----- Method: StackInterpreterSimulatorMorphicEventTests>>testMouseEventDegeneration (in category 'test event') ----- + testMouseEventDegeneration + |aMorphicEvent evtBuf type| + "see class comment in EventSensor browse" + aMorphicEvent := HandMorph new generateMouseEvent: {1 . 0. 0. 0. 0. 0. 0. 0}. + evtBuf := (StackInterpreterSimulatorEventTransformer default) degenerateEvent: aMorphicEvent. + type := evtBuf at:1. + self assert:(type = EventTypeMouse). + ! Item was added: + ----- Method: StackInterpreterSimulatorMorphicEventTests>>testNullEventDegeneration (in category 'test event') ----- + testNullEventDegeneration + |aMorphicEvent evtBuf type| + "Test a bad morphic event returns a null event" "see class comment in EventSensor browse" + aMorphicEvent := UserInputEvent new. + evtBuf := (StackInterpreterSimulatorEventTransformer default) degenerateEvent: aMorphicEvent. + type := evtBuf at:1. + self assert:(type = EventTypeNone). + + ! Item was added: + ----- Method: StackInterpreterSimulatorMorphicEventTests>>testStackInterpreterSimulatorDisplayViewAccess (in category 'test tight coupling') ----- + testStackInterpreterSimulatorDisplayViewAccess + "There is tight coupling between the morph,model and vm simulator on the simulators displayView variable + this test makes sure it is accesible and is an ImageMorph." + + self assert: ((SystemNavigation allImplementorsOf: #displayView localTo: StackInterpreterSimulator) size = 1). + self assert: ((SystemNavigation allImplementorsOf: #displayView: localTo: StackInterpreterSimulator)size = 1). + + ! Item was added: + Model subclass: #StackInterpreterSimulatorMorphicModel + instanceVariableNames: 'vm title stepping morph' + classVariableNames: '' + poolDictionaries: 'EventSensorConstants' + category: 'VMMaker-InterpreterSimulation-Morphic'! + + !StackInterpreterSimulatorMorphicModel commentStamp: 'tty 2/6/2014 09:43' prior: 0! + A StackInterpreterSimulatorMorphicModel handles Morphic callbacks and UI for (some parts of ) the StackInterpreterSimulator. + + I handle event forwarding management.. + + Currently, I am a listener to HandMorphs>>addPrimitiveEventListener. + I am added as a listener by StackInterpreterSimulatorMorph>>displayView (which probably needs to change. tty) + + + instance vars: + + stepping when true the vm is running, but the user is stepping throught the stack--like a debugger. (not implemented: tty) + + + sharedPools: EventSensorConstants! Item was added: + ----- Method: StackInterpreterSimulatorMorphicModel class>>initialize (in category 'class initialization') ----- + initialize + "I want to keep it launchable by script only for now. + Eliot has a bunch of options that aren't really feasible for a Morphic first approach. + " + "self + registerWindowColor; + registerInOpenMenu; + registerInFlaps"! Item was added: + ----- Method: StackInterpreterSimulatorMorphicModel class>>on:title:transcript: (in category 'instance creation') ----- + on: aStackInterpreterSimulator title: aString transcript: aTranscriptStream + | simmodel | + simmodel := self new. + simmodel + vm: aStackInterpreterSimulator; + title: aString; + transcript: aTranscriptStream. + ^simmodel. ! Item was added: + ----- Method: StackInterpreterSimulatorMorphicModel class>>registerInFlaps (in category 'class initialization') ----- + registerInFlaps + " Flaps + registerQuad: + { #StackInterpreterSimulator. + #prototypicalToolWindow. + 'StackInterpreter Simulator' translated. + 'A Morphic Wrapper for VM Simulations' translated } + forFlapNamed: 'Tools' translated. + Flaps replaceToolsFlap"! Item was added: + ----- Method: StackInterpreterSimulatorMorphicModel class>>registerInOpenMenu (in category 'class initialization') ----- + registerInOpenMenu + (TheWorldMenu respondsTo: #registerOpenCommand:) ifTrue: [ + TheWorldMenu unregisterOpenCommand: 'StackInterpreter Simulator'. + TheWorldMenu registerOpenCommand: {'StackInterpreter Simulator'. {self. #open}}]. + ! Item was added: + ----- Method: StackInterpreterSimulatorMorphicModel class>>registerWindowColor (in category 'class initialization') ----- + registerWindowColor + (Preferences windowColorFor: self name) = Color white + ifTrue: [ Preferences setWindowColorFor: self name to: (Color colorFrom: self windowColorSpecification brightColor) ].! Item was added: + ----- Method: StackInterpreterSimulatorMorphicModel class>>unload (in category 'class initialization') ----- + unload + self + unregisterFromOpenMenu; + unregisterFromFlaps.! Item was added: + ----- Method: StackInterpreterSimulatorMorphicModel class>>unregisterFromFlaps (in category 'class initialization') ----- + unregisterFromFlaps + "Flaps + unregisterQuadsWithReceiver: self; + replaceToolsFlap"! Item was added: + ----- Method: StackInterpreterSimulatorMorphicModel class>>unregisterFromOpenMenu (in category 'class initialization') ----- + unregisterFromOpenMenu + (TheWorldMenu respondsTo: #registerOpenCommand:) + ifTrue: [TheWorldMenu unregisterOpenCommand: 'StackInterpreter Simulator']. + ! Item was added: + ----- Method: StackInterpreterSimulatorMorphicModel class>>windowColorSpecification (in category 'window color') ----- + windowColorSpecification + "Answer a WindowColorSpec object that declares my preference" + + ^ WindowColorSpec classSymbol: self name wording: 'StackInterpreter Simulator' brightColor: #(0.645 1.0 1.0) pastelColor: #(0.886 1.0 1.0) helpMessage: 'A tool for simulating a Stack Interpreter Virtual Machine.'! Item was added: + ----- Method: StackInterpreterSimulatorMorphicModel>>bounds (in category 'accessing') ----- + bounds + ^morph bounds.! Item was added: + ----- Method: StackInterpreterSimulatorMorphicModel>>byteCountText (in category 'user interface') ----- + byteCountText + ^vm byteCountText! Item was added: + ----- Method: StackInterpreterSimulatorMorphicModel>>currentContextStack (in category 'user interface - squeakJS') ----- + currentContextStack + self flag: 'tty'. + ^ 'Current Context Stack' printString asText! Item was added: + ----- Method: StackInterpreterSimulatorMorphicModel>>displayForm (in category 'accessing') ----- + displayForm + ^ vm displayForm! Item was added: + ----- Method: StackInterpreterSimulatorMorphicModel>>displayView (in category 'accessing') ----- + displayView + ^ vm displayView! Item was added: + ----- Method: StackInterpreterSimulatorMorphicModel>>displayView: (in category 'accessing') ----- + displayView: anImageMorph + vm displayView: anImageMorph! Item was added: + ----- Method: StackInterpreterSimulatorMorphicModel>>forceInterruptCheck (in category 'buttons callbacks') ----- + forceInterruptCheck + vm forceInterruptCheck + "^UserDialogBoxMorph inform: 'Toggle Transcript' title: 'TODO:'"! Item was added: + ----- Method: StackInterpreterSimulatorMorphicModel>>fullDisplayUpdate (in category 'buttons callbacks') ----- + fullDisplayUpdate + vm fullDisplayUpdate + "^UserDialogBoxMorph inform: 'Toggle Transcript' title: 'TODO:'"! Item was added: + ----- Method: StackInterpreterSimulatorMorphicModel>>hack (in category 'buttons callbacks') ----- + hack + UserDialogBoxMorph inform: (morph bounds printString) title: 'Hack:'! Item was added: + ----- Method: StackInterpreterSimulatorMorphicModel>>handleListenEvent: (in category 'event-forwarding') ----- + handleListenEvent: aMorphicEvent + "The StackInterpreterSimulatorImageMorph regsitered me (a StackInterpreterSimulatorMorphicModel ) with HandMorph>>addEventListener + HandMorph then broadcasts events to all registered listeners at this method. See HandMorph>>sendListenPrimitiveEvent + " + |evtBuf xtranslated ytranslated| + morph + ifNotNil:[ + evtBuf := (StackInterpreterSimulatorEventTransformer default) degenerateEvent: aMorphicEvent. + ((evtBuf at: 1) = EventTypeMouse) & (morph bounds containsPoint: aMorphicEvent position) + ifTrue:[ + xtranslated := (evtBuf at:3) - (morph bounds left) - 2 . "<--heh" + ytranslated := (evtBuf at:4) - (morph bounds top). + evtBuf at: 3 put: xtranslated. + evtBuf at: 4 put: ytranslated. + vm queueForwardedEvent: evtBuf]] + + + + ! Item was added: + ----- Method: StackInterpreterSimulatorMorphicModel>>help (in category 'buttons callbacks') ----- + help + "Open up a workspace with explanatory info in it about the StackInterpreterSimulator" + Workspace new + contents: self helpText; + openLabel: self windowTitle, ' Help'.! Item was added: + ----- Method: StackInterpreterSimulatorMorphicModel>>helpText (in category 'buttons callbacks') ----- + helpText + ^(String streamContents: [:str | + str nextPutAll: + 'Stack Intepreter Simulator Help Contents Go Here.']) translated! Item was added: + ----- Method: StackInterpreterSimulatorMorphicModel>>initialExtent (in category 'user interface') ----- + initialExtent + ^ 1286@938! Item was added: + ----- Method: StackInterpreterSimulatorMorphicModel>>initialize (in category 'initialize-release') ----- + initialize + + title := 'StackInterpreter Simulator (Beta))'.! Item was added: + ----- Method: StackInterpreterSimulatorMorphicModel>>ioExit (in category 'buttons callbacks') ----- + ioExit + vm ioExit + displayView activeHand removeEventListener: self model. "This is a bug as the user in vm ioExit may have cancelled the confirm t.m." + "^UserDialogBoxMorph inform: 'Toggle Transcript' title: 'TODO:'"! Item was added: + ----- Method: StackInterpreterSimulatorMorphicModel>>loadImage (in category 'buttons callbacks') ----- + loadImage + ^UserDialogBoxMorph inform: 'load image' title: 'TODO:'! Item was added: + ----- Method: StackInterpreterSimulatorMorphicModel>>morph (in category 'accessing') ----- + morph + "I need the bounds of my morph for filtering mouse events. + If there is a canned way of doing this besides this tight binding to my StackInterpreterSimulatorMorph, + then please refactor me. + + see my protocol event-forwarding for the gory details" + self flag:'tty'. + ^morph.! Item was added: + ----- Method: StackInterpreterSimulatorMorphicModel>>morph: (in category 'accessing') ----- + morph: aMorph + "I need the bounds of my morph for filtering mouse events. + If there is a canned way of doing this besides this tight binding to my StackInterpreterSimulatorMorph, + then please refactor me. + + see my protocol event-forwarding for the gory details" + self flag:'tty'. + morph := aMorph.! Item was added: + ----- Method: StackInterpreterSimulatorMorphicModel>>onItemClicked: (in category 'user interface - squeakJS') ----- + onItemClicked: anItem + "I am an item in the current context display on the SqueakJS tree view".! Item was added: + ----- Method: StackInterpreterSimulatorMorphicModel>>options (in category 'buttons callbacks') ----- + options + ^UserDialogBoxMorph inform: 'Options Popup--need checkboxes?' title: 'TODO:'! Item was added: + ----- Method: StackInterpreterSimulatorMorphicModel>>over (in category 'buttons callbacks') ----- + over + stepping:=true. + ^UserDialogBoxMorph inform: 'Step Over' title: 'TODO:'! Item was added: + ----- Method: StackInterpreterSimulatorMorphicModel>>processesAndContextStack (in category 'user interface - squeakJS') ----- + processesAndContextStack + "just a stub. see top right panel at http://lively-web.org/users/bert/squeak.html for what I intend to present" + self flag: 'tty'. + ^ 'Processes and ContextStack' printString asText + ! Item was added: + ----- Method: StackInterpreterSimulatorMorphicModel>>reset (in category 'buttons callbacks') ----- + reset + ^UserDialogBoxMorph inform: 'Reset' title: 'TODO:'! Item was added: + ----- Method: StackInterpreterSimulatorMorphicModel>>return (in category 'buttons callbacks') ----- + return + ^UserDialogBoxMorph inform: 'Return' title: 'TODO:'! Item was added: + ----- Method: StackInterpreterSimulatorMorphicModel>>run (in category 'buttons callbacks') ----- + run + stepping:=false. + vm run + "^UserDialogBoxMorph inform: 'Run' title: 'TODO:'"! Item was added: + ----- Method: StackInterpreterSimulatorMorphicModel>>send (in category 'buttons callbacks') ----- + send + ^UserDialogBoxMorph inform: 'Send' title: 'TODO:'! Item was added: + ----- Method: StackInterpreterSimulatorMorphicModel>>specialObjectsAndActiveContext (in category 'user interface - squeakJS') ----- + specialObjectsAndActiveContext + "just a stub. see top left panel at http://lively-web.org/users/bert/squeak.html for what I intend to present" + self flag: 'tty'. + ^ 'Special Objects and Active Context' printString asText + ! Item was added: + ----- Method: StackInterpreterSimulatorMorphicModel>>step (in category 'buttons callbacks') ----- + step + stepping:=true. + ^UserDialogBoxMorph inform: 'Step' title: 'TODO:'! Item was added: + ----- Method: StackInterpreterSimulatorMorphicModel>>stepping (in category 'accessing') ----- + stepping + ^stepping! Item was added: + ----- Method: StackInterpreterSimulatorMorphicModel>>stepping: (in category 'accessing') ----- + stepping: aBoolean + stepping := aBoolean! Item was added: + ----- Method: StackInterpreterSimulatorMorphicModel>>title: (in category 'accessing') ----- + title: aString + title := aString! Item was added: + ----- Method: StackInterpreterSimulatorMorphicModel>>toggleTranscript (in category 'buttons callbacks') ----- + toggleTranscript + vm toggleTranscriptForSimulatorMorph: self transcript. + "^UserDialogBoxMorph inform: 'Toggle Transcript' title: 'TODO:'"! Item was added: + ----- Method: StackInterpreterSimulatorMorphicModel>>transcript (in category 'accessing') ----- + transcript + ^vm transcript! Item was added: + ----- Method: StackInterpreterSimulatorMorphicModel>>transcript: (in category 'accessing') ----- + transcript: aTranscriptStream + vm transcript: aTranscriptStream.! Item was added: + ----- Method: StackInterpreterSimulatorMorphicModel>>utilitiesMenu: (in category 'user interface') ----- + utilitiesMenu: aMenuMorph + ^vm utilitiesMenu: aMenuMorph! Item was added: + ----- Method: StackInterpreterSimulatorMorphicModel>>vm (in category 'accessing') ----- + vm + ^vm! Item was added: + ----- Method: StackInterpreterSimulatorMorphicModel>>vm: (in category 'accessing') ----- + vm: aVMSimulator + vm := aVMSimulator! Item was added: + ----- Method: StackInterpreterSimulatorMorphicModel>>windowTitle (in category 'user interface') ----- + windowTitle + ^ title translated!

1 0

VM Maker: VMMaker.oscog-dtl.615.mcz
by commits＠source.squeak.org 15 Feb '14

15 Feb '14

David T. Lewis uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker.oscog-dtl.615.mcz ==================== Summary ==================== Name: VMMaker.oscog-dtl.615 Author: dtl Time: 15 February 2014, 1:09:34.116 pm UUID: 2bd0f5e2-4cec-407d-8255-0af86a06561f Ancestors: VMMaker.oscog-eem.614 Use the equivalent #shallowCopy rather than #clone (Pharo compatibility). Update SmartSyntaxPluginCodeGenerator>>initializeCTranslationDictionary to comment out unused (planned but never implemented) code. Matches changes in VMMaker-dtl.341 =============== Diff against VMMaker.oscog-eem.614 =============== Item was changed: ----- Method: CObjectAccessor>>+ (in category 'pointer arithmetic') ----- + increment + ^self shallowCopy += increment! - ^self clone += increment! Item was changed: ----- Method: CObjectAccessor>>- (in category 'pointer arithmetic') ----- - decrement + ^self shallowCopy -= decrement! - ^self clone -= decrement! Item was changed: ----- Method: InterpreterProxy>>clone: (in category 'instance creation') ----- clone: oop + ^oop shallowCopy! - ^oop clone! Item was changed: ----- Method: SmartSyntaxPluginCodeGenerator>>initializeCTranslationDictionary (in category 'translating builtins') ----- initializeCTranslationDictionary "Initialize the dictionary mapping message names to actions for C code generation." | pairs | super initializeCTranslationDictionary. pairs := #( #asCInt #generateAsCInt:on:indent: #asCUnsigned #generateAsCUnsigned:on:indent: #asCBoolean #generateAsCBoolean:on:indent: #asCDouble #generateAsCDouble:on:indent: #asSmallIntegerObj #generateAsSmallIntegerObj:on:indent: #asPositiveIntegerObj #generateAsPositiveIntegerObj:on:indent: #asBooleanObj #generateAsBooleanObj:on:indent: #asFloatObj #generateAsFloatObj:on:indent: #asIf:var: #generateAsIfVar:on:indent: #asIf:var:asValue: #generateAsIfVarAsValue:on:indent: #asIf:var:put: #generateAsIfVarPut:on:indent: #field: #generateField:on:indent: #field:put: #generateFieldPut:on:indent: #class #generateClass:on:indent: #stSize #generateStSize:on:indent: #stAt: #generateStAt:on:indent: #stAt:put: #generateStAtPut:on:indent: #asCharPtr #generateAsCharPtr:on:indent: #asIntPtr #generateAsIntPtr:on:indent: #cPtrAsOop #generateCPtrAsOop:on:indent: #next #generateNext:on:indent: #asOop: #generateAsOop:on:indent: #asValue: #generateAsValue:on:indent: #isFloat #generateIsFloat:on:indent: #isIndexable #generateIsIndexable:on:indent: #isIntegerOop #generateIsIntegerOop:on:indent: #isIntegerValue #generateIsIntegerValue:on:indent: + "#FloatOop #generateIsFloatValue:on:indent:" "unused, never implemented" - #FloatOop #generateIsFloatValue:on:indent: #isWords #generateIsWords:on:indent: #isWordsOrBytes #generateIsWordsOrBytes:on:indent: #isPointers #generateIsPointers:on:indent: #isNil #generateIsNil:on:indent: #isMemberOf: #generateIsMemberOf:on:indent: #isKindOf: #generateIsKindOf:on:indent: #fromStack: #generateFromStack:on:indent: + "#clone #generateClone:on:indent:" "unused, never implemented" + "#new #generateNew:on:indent:" "unused, never implemented" + "#new: #generateNewSize:on:indent:" "unused, never implemented" + "#superclass #generateSuperclass:on:indent:" "unused, never implemented" - #clone #generateClone:on:indent - #new #generateNew:on:indent - #new: #generateNewSize:on:indent - #superclass #generateSuperclass:on:indent: #remapOop:in: #generateRemapOopIn:on:indent: #debugCode: #generateDebugCode:on:indent: ). 1 to: pairs size by: 2 do: [:i | translationDict at: (pairs at: i) put: (pairs at: i + 1)]. !

1 0

#clone vs. #shallowCopy
by Stefan Marr 15 Feb '14

15 Feb '14

Hi: In Pharo there is no #clone anymore and in Squeak 4.5 #shallowCopy seems to be equivalent to #clone in its implementation. There are a few uses of #clone in the VMMaker, and SmartSyntaxPluginCodeGenerator knows about it as well. Would it be ok to migrate to #shallowCopy? Best regards Stefan -- Stefan Marr INRIA Lille - Nord Europe http://stefan-marr.de/research/

2 3

VM Maker: VMMaker-dtl.341.mcz
by commits＠source.squeak.org 15 Feb '14

15 Feb '14

David T. Lewis uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker-dtl.341.mcz ==================== Summary ==================== Name: VMMaker-dtl.341 Author: dtl Time: 14 February 2014, 8:09:26.18 pm UUID: d0c42973-527f-4380-b463-79dfea5f060a Ancestors: VMMaker-dtl.340 Use the equivalent #shallowCopy rather than #clone (Pharo compatibility) =============== Diff against VMMaker-dtl.340 =============== Item was changed: ----- Method: CObjectAccessor>>+ (in category 'pointer arithmetic') ----- + increment + ^self shallowCopy += increment! - ^self clone += increment! Item was changed: ----- Method: CObjectAccessor>>- (in category 'pointer arithmetic') ----- - decrement + ^self shallowCopy -= decrement! - ^self clone -= decrement! Item was changed: ----- Method: InterpreterProxy>>clone: (in category 'instance creation') ----- clone: oop + ^oop shallowCopy! - ^oop clone!

1 0

← Newer
1
2
3
4
5
6
7
8
9
Older →

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Vm-dev February 2014