Squeak-dev December 2003

squeak-dev@lists.squeakfoundation.org

146 participants
414 discussions

[ANN] Small extensions for Connectors 1.9
by raymondasselin＠sympatico.ca 01 Dec '03

01 Dec '03

I did smalls extensions to the vocabulary of Connectors 1.9 of Ned Konz. They serve to hide and show connectors in a diagram identified by a number between '( )' The way I operate is this: - label connectors - give a number to the 'internal name' of each connector along the order to follow them - identify the subprocess if any by sequence - open a Workspace and change is name like 'Script-....' - select in the Workspace menu ' create textual references to dropped morphs' - write a scritp like this one: ========= rg_ RGConnector. " rg is a local variable in the Workspace" rg title:'Foster Home Process ' . truetypebanner875 string: rg title. "This is my Truetypebanner I dropped on the Workspace" Project current exportAsGIF. rg title: 'Subprocess 1'. truetypebanner875 string: rg title. rg showConnectorsFrom: 1 to: 4. Project current exportAsGIF. rg title: 'Subprocess 2'. truetypebanner875 string: rg title. rg showConnectorsFrom: 5 to: 7. Project current exportAsGIF. rg title: 'Subprocess Correction process'. truetypebanner875 string: rg title. rg showConnectorsFrom: 10 to: 13. Project current exportAsGIF. rg title:'Foster Home Process ' . truetypebanner875 string: rg title. truetypebanner875 extent: 506@42. rg showAll ========== - this script print a full drawing, and one separate drawing for each subprocess - pick up the different 'drawings' in the defaut Squeak folder - put them in a 'traitement de texte' et VOILÀ The Foster Home.pdf is the result of the experience. ======== Other usage these are hepfull to validate a diagram when this one is too dense. Just hide/show each. If you forgot to numbered a connector you'll see the message 'collection is empty' in the debugger. Raymond

1 0

[ENH] InspectorEnh-ajh
by marcus＠ira.uka.de 01 Dec '03

01 Dec '03

md: just tested under 3.7a. works ok. the functionality is quite nice, and we allready have special Inpectors for Dictionary... from preamble: "Change Set: InspectorEnh-ajh Date: 22 June 2003 Author: Anthony Hannan Adds #inspectorClass protocol that #inspect calls to find the appropriate inspector for the receiver. #basicInspect uses a new generic inspector called BasicInspector. CompiledMethods use a new inspector class call CompiledMethodInspector, which display mnemonic bytecode instructions and literals. An inspector will change to the appropriate class when being updated with a new receiver. String asExplorerString has been changed to print its normal printString. "!

2 1

RE: Redirecting messages on the VM
by Javier Lanatta 01 Dec '03

01 Dec '03

Oop, two facts: 1.- You are Jim, Robert is the one who wrote MethodWrappers 2.- When using Outlook, alt-s DOES NOT save a text, it sends mails :) Thank you again Jim, Following with the email I tried to save. As I should modify the VM, I was wondering if the solutions I presented in my first email, even though they do not work, where heading to a right point. Javier > -----Original Message----- > From: squeak-dev-bounces(a)lists.squeakfoundation.org [mailto:squeak-dev- > bounces(a)lists.squeakfoundation.org] On Behalf Of Javier Lanatta > Sent: Sunday, November 30, 2003 11:46 PM > To: 'The general-purpose Squeak developers list' > Subject: RE: Redirecting messages on the VM > > Robert, > Thank you for the link (and also thanks to all the people that > answered). I've read about MethodWrappers when I was looking for what to > use > for this research work; but after talking with my teacher he told that one > of the aims of the project was to do research on the Virtual Machine, and > that I should modify it in a way it can intercept the messages and sent > them > to a centralized object, which later would handle them as needed. > > > > -----Original Message----- > > From: squeak-dev-bounces(a)lists.squeakfoundation.org [mailto:squeak-dev- > > bounces(a)lists.squeakfoundation.org] On Behalf Of Jim Benson > > Sent: Sunday, November 30, 2003 10:49 PM > > To: The general-purpose Squeak developers list > > Subject: Re: Redirecting messages on the VM > > > > Hi Javier, > > > > Robert Hirschfeld maintains several Squeak packages which are in the > > problem > > domain you describe. These are MethodWrappers, AspectS and PerspectiveS. > > Rather than shortchange them and gloss over them here with a > description, > > I'll point you at: > > http://www-ia.tu-ilmenau.de/~hirsch/Projects/Squeak/Squeak.html . From > > what > > you describe, you should find MethodWrappers particularly useful. > > > > Hope this helps, > > > > Jim Benson > > > > > > > > ----- Original Message ----- > > From: "Javier Lanatta" <javier(a)lanatta.com.ar> > > To: <squeak-dev(a)lists.squeakfoundation.org> > > Sent: Sunday, November 30, 2003 3:15 PM > > Subject: Redirecting messages on the VM > > > > > > > Hi everybody, > > > I'm doing a research work for my OOD class at university and I'm a > > > little lost... So I come here looking for your help :) I'm sorry to > tell > > you > > > that this email is gonna be kinda long, anyway I will try to write > only > > the > > > most relevant things. > > > > > > For this research work I have to write a set of tools that allows > > > the user to define what should be done when a given object receives a > > given > > > message. > > > These are examples of what the tools must do: > > > - When a given instance of RectangleMorph receives #addMorph: this > > > should be logged and then the instance finally receives the #addMorph: > > > - When any instance of Array receives #add: this message should be > > > sent to the instance only if the add's argument belongs to a given > > class. > > > > > > I have most of the model finished. But I have problems intercepting > > > the messages. > > > > > > By now I'm only trying to redirect every message to an object of a > > > fixed class to another fixed object. Both the class of the first > object > > and > > > the second object are stored in the Special Objects Array. Later I > will > > > replace the receiver with a fixed object that will act as an entry > point > > and > > > it will redirect the message inside the "object's world" to other > > objects > > > that will do all the work. > > > > > > I have tried two approaches without luck. > > > > > > 1.- Replace the receiver @ Interpreter>>internalActivateNewMethod > > > > > > I overwrote the receiver after the real receiver and its arguments are > > > stored: > > > ... > > > ... > > > "Copy the reciever and arguments..." > > > argCount2 _ argumentCount. > > > 0 to: argCount2 do: > > > [:i | self storePointerUnchecked: ReceiverIndex+i ofObject: > > > newContext > > > withValue: (self internalStackValue: argCount2-i)]. > > > > > > "here comes my code" > > > rcvr _ self internalStackValue: argumentCount. > > > self assertClassOf: rcvr is: (self splObj: MRFAux1). > > > successFlag ifTrue: > > > [ > > > self print: 'Intercepting...';cr. > > > self storePointerUnchecked: ReceiverIndex+argumentCount ofObject: > > > newContext withValue: (self splObj: MRFAux2). > > > ]. > > > "and here it ends" > > > ... > > > ... > > > > > > MRFAux1: Contains the class of the object I want to intercept. > > > MRFAux2: Contains the receiver. > > > > > > I guess I'm storing it in the wrong position... I have tried several > > indexes > > > without any good result. > > > > > > > > > 2.- Send the message the same way a #doesNotUnderstand is sent @ > > > Interpreter>>lookupMethodInClass: class > > > > > > When the method is found in the dictionary I just send the message to > > the > > > other object creating a message in the doesNotUnderstand fashion: > > > > > > .... > > > .... > > > found _ self lookupMethodInDictionary: dictionary. > > > found ifTrue: [ > > > rcvr _ self internalStackValue: argumentCount. > > > self assertClassOf: rcvr is: (self splObj: MRFAux1). > > > successFlag ifTrue: > > > self print: 'Intercepting @ lookupMethodInClass...';cr. > > > self pushRemappableOop: (self splObj: MRFEntryPoint). > > > self createActualMessageTo: (self splObj: MRFEntryPoint). > > > rclass _ self popRemappableOop. > > > messageSelector _ self splObj: MRFAux2. > > > ^ self lookupMethodInClass: rclass > > > ] ifFalse: [ > > > ^ methodClass _ currentClass > > > ]. > > > ]. > > > .... > > > .... > > > MRFAux1: Contains the class of the object I want to intercept. > > > MRFEntryPoint: Contains the receiver. > > > MRFAux2: Contains the selector I want to send to the new receiver. > > > > > > In this case I cant compile the generated code :/ > > > > > > ./release/gnu-interp.o: In function `findNewMethodInClass': > > > //D/J4V13R/SqueakImages/TP/src/3.5.1/win32/gnu-interp.c:3388: > undefined > > > reference to `lookupMethodInClass' > > > ./release/gnu-interp.o: In function `interpret': > > > //D/J4V13R/SqueakImages/TP/src/3.5.1/win32/gnu-interp.c:6756: > undefined > > > reference to `lookupMethodInClass' > > > > > > I browse the gnu-interp.c file and the function lookupMethodInClass is > > > missiong, if I remove the lines I added the code is ok... I have no > clue > > of > > > what's going on. > > > > > > Is there a better way to do this? Where any of my ideas right? What > was > > > wrong in their implementation? > > > > > > Thanks in advance, > > > Javier > > > > > > > > > Some background information: > > > Squeak Version: 3.6 > > > Virtual Machine: 3.5.1/Tea 1.9 VM (release) from June 21 2003 I've > been > > > using Squeak for about 9 months. > > > > > > > > > > > > > > >

1 0

Re: Redirecting messages on the VM
by Jim Benson 01 Dec '03

01 Dec '03

Hi Javier, Robert Hirschfeld maintains several Squeak packages which are in the problem domain you describe. These are MethodWrappers, AspectS and PerspectiveS. Rather than shortchange them and gloss over them here with a description, I'll point you at: http://www-ia.tu-ilmenau.de/~hirsch/Projects/Squeak/Squeak.html . From what you describe, you should find MethodWrappers particularly useful. Hope this helps, Jim Benson ----- Original Message ----- From: "Javier Lanatta" <javier(a)lanatta.com.ar> To: <squeak-dev(a)lists.squeakfoundation.org> Sent: Sunday, November 30, 2003 3:15 PM Subject: Redirecting messages on the VM > Hi everybody, > I'm doing a research work for my OOD class at university and I'm a > little lost... So I come here looking for your help :) I'm sorry to tell you > that this email is gonna be kinda long, anyway I will try to write only the > most relevant things. > > For this research work I have to write a set of tools that allows > the user to define what should be done when a given object receives a given > message. > These are examples of what the tools must do: > - When a given instance of RectangleMorph receives #addMorph: this > should be logged and then the instance finally receives the #addMorph: > - When any instance of Array receives #add: this message should be > sent to the instance only if the add's argument belongs to a given class. > > I have most of the model finished. But I have problems intercepting > the messages. > > By now I'm only trying to redirect every message to an object of a > fixed class to another fixed object. Both the class of the first object and > the second object are stored in the Special Objects Array. Later I will > replace the receiver with a fixed object that will act as an entry point and > it will redirect the message inside the "object's world" to other objects > that will do all the work. > > I have tried two approaches without luck. > > 1.- Replace the receiver @ Interpreter>>internalActivateNewMethod > > I overwrote the receiver after the real receiver and its arguments are > stored: > ... > ... > "Copy the reciever and arguments..." > argCount2 _ argumentCount. > 0 to: argCount2 do: > [:i | self storePointerUnchecked: ReceiverIndex+i ofObject: > newContext > withValue: (self internalStackValue: argCount2-i)]. > > "here comes my code" > rcvr _ self internalStackValue: argumentCount. > self assertClassOf: rcvr is: (self splObj: MRFAux1). > successFlag ifTrue: > [ > self print: 'Intercepting...';cr. > self storePointerUnchecked: ReceiverIndex+argumentCount ofObject: > newContext withValue: (self splObj: MRFAux2). > ]. > "and here it ends" > ... > ... > > MRFAux1: Contains the class of the object I want to intercept. > MRFAux2: Contains the receiver. > > I guess I'm storing it in the wrong position... I have tried several indexes > without any good result. > > > 2.- Send the message the same way a #doesNotUnderstand is sent @ > Interpreter>>lookupMethodInClass: class > > When the method is found in the dictionary I just send the message to the > other object creating a message in the doesNotUnderstand fashion: > > .... > .... > found _ self lookupMethodInDictionary: dictionary. > found ifTrue: [ > rcvr _ self internalStackValue: argumentCount. > self assertClassOf: rcvr is: (self splObj: MRFAux1). > successFlag ifTrue: > self print: 'Intercepting @ lookupMethodInClass...';cr. > self pushRemappableOop: (self splObj: MRFEntryPoint). > self createActualMessageTo: (self splObj: MRFEntryPoint). > rclass _ self popRemappableOop. > messageSelector _ self splObj: MRFAux2. > ^ self lookupMethodInClass: rclass > ] ifFalse: [ > ^ methodClass _ currentClass > ]. > ]. > .... > .... > MRFAux1: Contains the class of the object I want to intercept. > MRFEntryPoint: Contains the receiver. > MRFAux2: Contains the selector I want to send to the new receiver. > > In this case I cant compile the generated code :/ > > ./release/gnu-interp.o: In function `findNewMethodInClass': > //D/J4V13R/SqueakImages/TP/src/3.5.1/win32/gnu-interp.c:3388: undefined > reference to `lookupMethodInClass' > ./release/gnu-interp.o: In function `interpret': > //D/J4V13R/SqueakImages/TP/src/3.5.1/win32/gnu-interp.c:6756: undefined > reference to `lookupMethodInClass' > > I browse the gnu-interp.c file and the function lookupMethodInClass is > missiong, if I remove the lines I added the code is ok... I have no clue of > what's going on. > > Is there a better way to do this? Where any of my ideas right? What was > wrong in their implementation? > > Thanks in advance, > Javier > > > Some background information: > Squeak Version: 3.6 > Virtual Machine: 3.5.1/Tea 1.9 VM (release) from June 21 2003 I've been > using Squeak for about 9 months. > > >

2 1

Jump to page: