Xotcl July 2001

xotcl@alice.wu.ac.at

6 participants
11 discussions

Help: Meta-class and derived Classes
by Sheik Yussuff 22 Jul '01

22 Jul '01

Class A is a derived class of meta-class Consultation. In the filter conFilter I would like to obtain the class of the object that received the message "m" when invoking the command: [a m 123]. That is, the class of the original receiver of method "m". (Please see code below). Thanks for any help. Regards sheik ......................................................... #Code: Class Consultation -superclass Class Consultation instproc conFilter args { set method [self calledproc] #The following is of course not correct! #[self class] evaluates to Consultation; #I need it to evaluate to A. Help!! if {[[self class] info instprocs $method] == ""} { if { [[self] exists delegate] } { return [eval [[self] set delegate] $method $args] } } next } Consultation instproc init args { [self] instproc setDelegate {d} { [self] set delegate $d } next [self] filterappend [self class]::conFilter } Consultation A -parameter delegate A instproc m {x} { puts "[self] [self class] [self proc] $x" return [next] } Class B B instproc m {x} { puts "[self] [self class] [self proc] $x" return [next] } A a B b a setDelegate b # send message m to object a puts "result = [a m 123]"

1 1

use of mixin technique to enhance user interaction with an algorithm
by Catherine Letondal 16 Jul '01

16 Jul '01

Hi, Alexis Gambis, a student having spent his Internship with us at Pasteur, has just finished his project : Interaction between the User and Heijne's membrane topology prediction algorithm Toppred We thought that the mixin technique could be useful to enhance the interaction between user and algorithm by the mean of supplemental user input taken into account without modifying the algorithm. His results are summarized here: http://www-alt.pasteur.fr/~letondal/biok/usermixin.html -- Catherine Letondal -- Pasteur Institute Computing Center

2 1

Filter Chaining Question
by Sheik Yussuff 16 Jul '01

16 Jul '01

Subject: The Adapter pattern inplemented with filters(code from distribution) The code below from the XOTcl distribution is given below. Suppose the class Adapter has another filter "filter2" registered after the filter "adapterFilter". My understanding of the code(below) is that only requests that are not found in specificRequest will be filtered by filter2. ......................................................... Question: If my understanding is correct, how can I have all messages/requests to Adapter be filtered by both filters. ......................................................... Code from distribution: Class Adapter -superclass Class Adapter metadata add description Adapter metadata description { Simple adapter pattern meta-class taken from the paper 'Filters as a Language Support for Design Patterns in Object-Oriented Scripting Languages'. } Adapter instproc adapterFilter args { # Appears that filter args == args of triggering method set r [self calledproc] [self] instvar specificRequest adaptee #puts [self] if {[info exists specificRequest($r)]} { #puts $args return [eval $adaptee $specificRequest($r) $args] } next } Adapter instproc init args { [self] filterappend [self class]::adapterFilter next [self] instproc setRequest {r sr} { [self] set specificRequest($r) $sr } [self] instproc setAdaptee {a} { [self] set adaptee $a } }

2 1

patch release 2 of XOTcl 0.85
by Gustaf Neumann 13 Jul '01

13 Jul '01

Dear XOTcl community, on www.xotcl.org, you will find a patch release p2 of xotcl 0.85. The main fixes are: - propagation of special return codes (e.g. ... return -code continue ...) which is needed for Tk event maps, as catherine pointed out - first version of custom setter/getter methods for -parameter (see for now: apps/scripts/parameter.xotcl) The documented part in parameter.xotcl is intended to stay, some more features might be added. Preview for the next major release: Uwe has rewritten a good deal of the filters/mixins code, which is running through our regression test already. Among other things, this will introduce per object filters; this will complete our matrix of orthogonal features below: per object per class filter filter instfilter mixin mixin instmixin This is, however, a major change in the code, it will require some more testing etc, and it will go into the next major release. best regards -gustaf neumann

1 0

"Simple Delegation" revisited (long post)
by Sheik Yussuff 13 Jul '01

13 Jul '01

Just over 6 months ago,Catherine Letondal raised the issue of implementing "simple delegation". Professor G. Neumann replied with some code showing how it can be done as well as suggesting that one may use a filter to filter all methods or an instmixin to target specific methods for delegation. I am now learning Tcl and XOTcl (a week or so now)at the same time and have decided to try the filter approach. The Experiment: 1. Create a meta-class SimpleDelegation 2. add a filter sdFilter to this meta-class 3. add an instproc setDelegate 4. Create classes A and B using SimpleDelegate 5. Create class C using Class 6. A has as delegate(instvar) an object of class B; B has as delegate an object of class C 7. A,B and C has a method "m" defined The Problem: (Using Windows binary ver 0.85) I extended Prof. Neumann's code to handle above and it works.(see Code1 below) My experiment(Code 2) works only for the following cases(that I tested): 1. A,B and C has a method "m". 2. The instvar delegate removed from B It does not work when I rename the method "m" in class C to "m2". In this case I expect an object of class B to execute "m" but instead I get an object of class A executing "m" instead. I would be grateful for any pointers to resolve this problem. Also I want to try to implement delegation as described by Prof. Lieberman(OOPSLA 1986 paper). Will be grateful for any pointers on this also. ............... Code1: Prof Neumann's code inelegantly extended Class A -parameter delegate A instproc handleDelegation {result} { if {[[self] exists delegate]} { set context [::info level -1] #look for method in delegated object if {[[[self] set delegate] procsearch [lindex $context 0]] != "" } { ::upvar $result y set y [eval [[self] set delegate] $context] return 1 } } return 0 } A instproc m {x} { if {[[self] handleDelegation r]} { return $r } else { puts "[self] [self class] [self proc] $x"; return [next] } } Class B -parameter delegate B instproc handleDelegation {result} { if {[[self] exists delegate]} { set context [::info level -1] #look for method in delegated object if {[[[self] set delegate] procsearch [lindex $context 0]] != "" } { ::upvar $result y set y [eval [[self] set delegate] $context] return 1 } } return 0 } B instproc m {x} { if {[[self] handleDelegation r]} { return $r } else { puts "[self] [self class] [self proc] $x"; return [next] } } Class D D instproc m2 {x} { puts "[self] [self class] [self proc] $x" next return [expr {$x*2 + [[self] set v]}] } D d1 d1 set v 100 B b1 -delegate d1 A a1 -delegate b1 puts "result = [a1 m 123]" ............................................... Code2: My Try using filters #create SimpleDelegation as a meta-class Class SimpleDelegation -superclass Class SimpleDelegation instproc sdFilter args { set method [self calledproc] if {[[self] exists delegate]} { set del [[self] set delegate] #if delegate has method then dispatch it. if {[$del procsearch $method] != ""} { return [eval [$del $method $args]] } return [next]; } } SimpleDelegation instproc init args { [self] filterappend [self class]::sdFilter next [self] instproc setDelegate {d} { [self] set delegate $d } } SimpleDelegation A -parameter delegate SimpleDelegation B -parameter delegate A instproc m {x} { puts "[self] [self class] [self proc] $x" return [next] } B instproc m {x} { puts "[self] [self class] [self proc] $x" next return [expr {$x*2 + [[self] set v]}] } Class C #method "m" renamed to "m2" here. C instproc m2 {x} { puts "[self] [self class] [self proc] $x" next return [expr {$x*3 + [[self] set v]}] } A a B b a setDelegate b b set v 100 C c b setDelegate c c set v 100 puts "result = [a m 123]" .................................................. Regards, Sheik Yussuff email: sheik(a)carib-link.net

2 1

Tcl stubs
by BRIAN THEADO 11 Jul '01

11 Jul '01

Gustaf Neumann <neumann(a)wu-wien.ac.at> wrote: >the only difficulties i see is >for older tcl-version not supporting the stub library. I encountered some issues with undefined references while trying to build libxotcl.so using stubs on Linux. Here's what I did: Added the following lines to the top of function Xotcl_Init in the file xotcl.c: #ifdef USE_TCL_STUBS if (Tcl_InitStubs(in, "8.1", 0) == NULL) { return TCL_ERROR; } #endif Compiled with the additional flag -DUSE_TCL_STUBS Linked libxotcl.so against libtclstub.a Here are the undefined references I encountered: One set of undefined references was due using the macro version of TclNewObj instead of the function version (Tcl_NewObj) in xotclInt.h. This can be fixed with an extra #ifdef USE_TCL_STUBS The other undefined references stem from the use of the following functions: Tcl_FormatObjCmd Tcl_IncrObjCmd Tcl_InfoObjCmd Tcl_RenameObjCmd Tcl_UplevelObjCmd Tcl_UpvarObjCmd Tcl_VariableObjCmd I'm assuming these can be fixed by using Tcl_EvalObjv to access the Tcl commands instead of calling them directly. I haven't tried it yet, but it seems reasonable to me. ____________________________________________________________________ Get free email and a permanent address at http://www.amexmail.com/?A=1

1 0

broken web links, Tcl stubs
by BRIAN THEADO 08 Jul '01

08 Jul '01

Hello, The links to the XOTcl mailing list and mailing list archive seem to be broken on the page http://media.wu-wien.ac.at/doc/index.html. They seem I found the link on the main XOTcl page to be O.K. Also, I was wondering what the chances are that XOTcl be linked against the Tcl stubs library instead of directly against the Tcl library. This gives the freedom of using the same build of the extension with multiple versions of the TCL interpreter. This would be especially nice for the windows distribution. I don't have a build environment set up in Windows and the dll distributed on the XOTcl web page requires exactly Tcl 8.3 and doesn't work for me with 8.4. Thanks, Brian Theado ____________________________________________________________________ Get free email and a permanent address at http://www.amexmail.com/?A=1

2 1

XotclIDE version 0.17
by Artur Trzewik 06 Jul '01

06 Jul '01

Hallo There is new 0.17 version of XotclIDE available http://www.xdobry.de/xotclide Main Changes: 1. search functions (text, senders, implementors) 2. find/replace dialog in editor 3. error stack editor. parse error stack from $errorInfo and display it in browser. 4. simply debugger. You can set a break point (per send halt message "[self] halt") see call stack, level variables, arguments and all you need to understand your program 5. fist step to multi user environment. The version control system write all changes with userid attribute. 6. many small changes and refactoring ("new catagory" function) Complains about not intuitive GUI are also needed. Artur Trzewik

1 0

re: problem when having both a filter and a Tk callback returning a break
by Gustaf Neumann 06 Jul '01

06 Jul '01

Dear Catherine, here comes a quick fix for this. search for FilterDispatch(Tcl_Interp* in, XOTclObject* obj, int objc, Tcl_Obj* CONST objv[]) { in xotcl.c and replace towards the end of this procedure if (result != TCL_OK) result = TCL_ERROR return result; } by if (result >= XOTCL_UNKNOWN) result = TCL_ERROR; return result; } If you have a problem with this, i can place a patched version of 0.85 on our webserver best regards -gustaf

1 0

problem when having both a filter and a Tk callback returning a break
by Catherine Letondal 05 Jul '01

05 Jul '01

Hi, One problem I have when using Tk and Xotcl together (actually the only one for now), is that when I put a filter on a class (e.g for tracing purpose), the methods which are called by a callback (a Tk binding for example) cannot return a -break return code. Here is an example of an error message: invoked "break" outside of a loop while executing "$view validate o o" (command bound to event) This "validate" method is activated whenever the user enter something in a text widget: ::bind $textwidget <KeyPress> { set view [names object %W] $view validate %K %A } And this method does a return like this: return -code break The problem happens only when a filter is put on the class. What can I do to fix this? -- Catherine Letondal -- Pasteur Institute Computing Center

1 0

2025

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

2002

2001

2000

Xotcl July 2001