Xotcl January 2006

xotcl@alice.wu.ac.at

4 participants
4 discussions

frappr page
by Gustaf Neumann 29 Jan '06

29 Jan '06

Hi everybody, maybe you are interested in joining the frappr group of xotcl to locate the people based on the google map... See: http://www.frappr.com/xotcl best regards -gustaf neumann

2 2

global variable "cmd"
by Koen Danckaert 06 Jan '06

06 Jan '06

Hello, The predefined.xotcl file uses a global variable "cmd": foreach cmd {array append lappend trace eval} ... Which may, of course, give unexpected results: tclsh % set cmd mycommand mycommand % package require XOTcl 1.3.8 % set cmd eval Regards, Koen

2 1

RE: [Xotcl] Weird behaviour
by Murr, Florian 05 Jan '06

05 Jan '06

Thanks a lot! While trying to understand your suggestions, I further simplified my own code and found the problem. It was all my fault! In the slave interpreter 'Celsius2Kelvin' is an unknown proc and therefor a room-object with this name gets created and I got confused. - I definitly have to get some rest soon :-) Sorry for having bothered you and thanks for your suggestions! - Florian -----Original Message----- From: Gustaf Neumann [mailto:neumann@wu-wien.ac.at] Sent: Thursday, January 05, 2006 3:13 PM To: Murr, Florian Cc: xotcl(a)alice.wu-wien.ac.at Subject: Re: [Xotcl] Weird behaviour i am somewhat confused be the code (why are you creating and deleting interpreters?) is the following code doing, what you are trying? (aggregates rooms on floors with a simple syntax) -gustaf =================================================== package require XOTcl namespace import -force ::xotcl::* namespace eval tih { Class Floor \ -instproc has cmds {eval $cmds} Class Room -superclass Class \ -parameter {{count 0} currTemp} \ -instproc new args { set name "[self callingobject]::[namespace tail [self]]-[my incr count]" eval [self] create $name $args } Room room -parameter {{currTemp 300}} Room guestRoom -superclass room Room bathRoom -superclass room Room guestBathRoom -superclass bathRoom proc Celsius2Kelvin {a} { expr {$a+273.15} } Floor floor3 -has { guestRoom new guestBathRoom new -currTemp [Celsius2Kelvin 30] } puts "rooms on floor 3: [floor3 info children]" foreach c [floor3 info children] { puts "temperature in room $c is [$c currTemp]" } } exit

1 0

Weird behaviour
by Murr, Florian 05 Jan '06

05 Jan '06

I extracted the code below from a very large XOTcl program that I am developing right now. The output of the last line 'puts "uuuuu guest_bathroom3 [guest_bathroom3 currTemp]"' puzzles me! If I uncomment the line 'set temp [Celsius2Kelvin 20]' the output is even weirder (an error message). Any helpful comments? Regards, - Florian My code: package require XOTcl namespace import xotcl::my xotcl::self xotcl::next xotcl::Class xotcl::@ namespace eval tih { Class Floor -parameter { {cubicles {}} } Class Room -parameter { {cubicles {}} } Room instparametercmd currTemp # --- 'unknown'-mechanism. Floor proc createRoom01 {floor aName args} { #set temp [Celsius2Kelvin 20] set room [eval {Room create $aName} $args] $floor lappend cubicles $aName $room set Floor $floor } Floor instproc rooms {{a {}}} { ;# getter/setter my instvar cubicles if {[llength $a]} { set itp [self]_createRoom01 interp create $itp interp alias $itp unknown {} ::tih::Floor createRoom01 [self] set rval [$itp eval $a] interp delete $itp return } set rval [list] foreach i $cubicles { # xxx verbessern! if {[$i istype Room]} { lappend rval $i } } set rval } proc Celsius2Kelvin {a} { expr {$a+273.15} } Floor floor3 -rooms { guest_room guest_bathroom3 -currTemp [Celsius2Kelvin 30] } #puts "uuuuu guest_room [guest_room currTemp]" puts "uuuuu guest_bathroom3 [guest_bathroom3 currTemp]" }

2 1

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 January 2006