Xotcl

xotcl@alice.wu.ac.at

2 participants
653 discussions

tcl web
by jim 11 Mar '04

11 Mar '04

sorry for being fickle. i just cant. now is not a good time to use tcl on the web for me. maybe in the distant future. i still really like tcl for non - web related things. thanks anyways. dont open any attachments from me. i am investigating a virus . i didnt (knowingly) attach that file that got sent to the group. later marvin

1 0

XOTclIDE 0.59 with Visual Regexp
by Artur Trzewik 06 Mar '04

06 Mar '04

Hi! New Version of XOTclIDE 0.59 is released. http://www.xdobry.de/xotclIDE changes: - New plug-in: Visaul Regexpr that was adapted from http://laurent.riesterer.free.fr/regexp/ - GUI for Method-Browser, Error-Stack-Browser and Heritage-Browser are consistent to Componente-Browser and can also diplay in XOTcl mode with comment and version control informations in status bar. - small wizard for helping convert tcl procedures to XOTcl instace methods - for another changes see change-log file Artur Trzewik

1 0

snit like delegation for xotcl
by Gustaf Neumann 29 Feb '04

29 Feb '04

Dear XOTcl community, since someone asked for it, here comes a simple implementation of delegation similar as done in snit (unknown calls are delegated). Maybe, someone can use it. best regards -gustaf neumann ############################################################## # define a deletate method and a default behavior for unknown ############################################################## Object instproc delegate {method obj} { my set delegate($method) $obj } Object instproc unknown {m args} { if {[my exists delegate($m)]} { eval [my set delegate($m)] $m $args } elseif {[my exists delegate(*)]} { eval [my set delegate(*)] $m $args } } ############################################################## # some syntactic sugar for defining methods ############################################################## Class instproc methods list { foreach {name arguments body} $list { my instproc $name $arguments $body } } ############################################################## # example from the snit homepage: A dog with a tail.... ############################################################## Class Tail -parameter {{length 5}} -methods { wag {} { puts "[my info parent] Wag, wag, wag." } } Class Dog -methods { init {} { set tail [Tail new -childof [self]] my delegate * $tail } bark {} { puts "[self] Bark, bark, bark." } } Dog fido fido wag fido bark ========================================================== -- Univ.Prof. Dr.Gustaf Neumann Abteilung für Wirtschaftsinformatik WU-Wien, Augasse 2-6, 1090 Wien

1 0

XOTcl 1.2.0 available
by Gustaf Neumann 22 Feb '04

22 Feb '04

Dear XOTcl Community, here comes the announcement of XOTcl 1.2.0 all the best -gustaf neumann ======================================================= Announcing XOTcl 1.2.0 ********************** WHAT IS XOTCL? XOTcl is an object-oriented extension of Tcl that was derived from OTcl. In short, XOTcl tries to provide a highly flexible, reflective, component-based, and object-oriented environment. It integrates language support for high level concepts which are not found in other languages, with reasonable performance. It prevails the Tcl programming style and the dynamic/introspective nature of the language, rather than introducing other language's styles and rigidness (such as C++) into Tcl. CHANGES relative to 1.1.1 are: - Qualitative Improvements * improved performance (up to more than 30% faster) * reduced dependency on Tcl internals (stack rewritings removed) * less C-code (code reduction of about 500 lines c code) * defined macros to access Tcl's internal structures Due to the speedup, an emulation of an itcl like language in XOTcl can be faster than itcl itself (see below). - Functional Improvements * new subcommands of self: self callinglevel: returns the scope of the proc/instproc calling the current method (ignoring filters and next) self activelevel: returns the scope of the proc/instproc preceding the current method (might be a next call, ignoring filters) the returned level can be used in uplevel/upvar as first argument * new methods upvar/uplevel "my uplevel set x 1" is a short form of "uplevel [self callinglevel] set x 1" * sub-objects can be called like methods (potential incompatibility) If an object named o has a sub-object q (i.e. o::q) it is now possible to invoke the sub-object via "o q ?method args?". This change makes it possible to - to redefine tcl sub-commands via procs/instprocs by defining the command with subcommands as an object (instead of defining a command as a proc and its subcommands via a large and hard-to-refine switch statement) - to use the same approach for defining subcommands of subcommands (and so on) in the same way; it would be possible to define e.g. the xotcl info methods via an object), - to use interceptors (filters/mixins) for some or all subcommands (maybe you are only interested in "file delete") - to extend a tcl command on the fly by defining new subcommands (by defining new procs/instprocs) - to use the unknown mechanism to produce dynamic error messages about valid subcommands (via introspection commands). As a simple example, one define the a specialized version of Tcl's file-command (say ns::file) like the following: namespace eval ns { Object file file proc tail name { set tail [file tail $name] regexp {[^/\\]+$} $tail tail return $tail } file proc unknown {subcmd args} { return eval ::file $subcmd $args } } For more details, please consult the ChangeLog MORE INFO General and more detailed information about XOTcl and its components can be found at http://www.xotcl.org Best regards, Gustaf Neumann Uwe Zdun #======================================================================= # extract from the logfile of oobench (in oo-bench.tar.gz, # see http://media.wu-wien.ac.at/download.html) XOTcl methcall: 0.470u 0.000s 0:00.41 114.6% 0+0k 0+0io 347pf+0w ITcl emulation in XOTcl methcall: 0.590u 0.000s 0:00.62 95.1% 0+0k 0+0io 351pf+0w itcl methcall: 0.870u 0.020s 0:00.92 96.7% 0+0k 0+0io 347pf+0w #======================================================================= package require XOTcl; namespace import -force xotcl::* ########################################################### ## Small example to emulate a itcl-like language in XOTcl ## -gustaf neumann Jan. 2004 ########################################################### namespace eval itcl { Class create class -superclass Class class instproc instvars {} { set vars [list]; set c [self] for {} {[string compare ::xotcl::Object $c]} {set c [$c info superclass]} { eval lappend vars [$c set __autovars] } return "\n\tmy instvar [lsort -unique $vars]" } class proc constructor {args} { if {[llength $args]==2} { foreach {arglist body} $args break } else { foreach {arglist construct body} $args break set body $construct\n$body } my parameter [list {this [self]}] my proc constructor args {uplevel next $args} my instproc init $arglist [my instvars]\n$body } class proc method {name arglist body} { my proc $name args {uplevel next $args} my instproc $name $arglist [my instvars]\n$body } class proc inherit {class} { my superclass $class } class proc variable {arglist} { foreach v $arglist {my lappend __autovars $v} } class instproc init {classdef} { my set __autovars this namespace eval [self class] $classdef my class Class } } ########################################################### # Two Demo classes from oo-bench ########################################################### itcl::class Toggle { variable state constructor {start_state} { set state $start_state } method value {} { return $state } method activate {} { set state [expr {!$state}] return $this } } itcl::class NthToggle { inherit Toggle variable count_max variable counter constructor {start_state max_counter} { Toggle::constructor $start_state } { set count_max $max_counter set counter 0 } method activate {} { if {[incr counter] >= $count_max} { Toggle::activate set counter 0 } return $this } } proc main {} { set n [lindex $::argv 0] set val 1 set toggle [Toggle t1 $val] for {set i 0} {$i < $n} {incr i} { set val [[$toggle activate] value] } if {$val} {puts "true"} else {puts "false"} set val 1 set ntoggle [NthToggle t2 1 3] for {set i 0} {$i < $n} {incr i} { set val [[$ntoggle activate] value] } if {$val} {puts "true"} else {puts "false"} } main -- Univ.Prof. Dr.Gustaf Neumann Abteilung für Wirtschaftsinformatik WU-Wien, Augasse 2-6, 1090 Wien -------------------------------------------------------

1 0

make install / pkgIndex.tcl
by Kristoffer Lawson 21 Feb '04

21 Feb '04

I just downloaded the source package of XOTcl 1.1.1 and it seems the install script (with 'make install') does not copy over the pkgIndex.tcl file. Did everything else, though. Quick note :-) / http://www.fishpool.com/~setok/

1 0

XOTcl binary in MaxOS X distro
by Gustaf Neumann 05 Feb '04

05 Feb '04

Dear XOTcl Community, XOTcl made it into the new Mac OS X Tcl/Tk Aqua 8.4.5 Binary Release http://groups.google.at/groups?dq=&start=25&hl=de&lr=&ie=UTF-8&oe=UTF-8&gro… best regards -gustaf neumann -- Univ.Prof. Dr.Gustaf Neumann Abteilung für Wirtschaftsinformatik WU-Wien, Augasse 2-6, 1090 Wien

1 0

XOTclIDE 0.58 and new XOSQL and ATKSqlBrowser
by Artur Trzewik 29 Jan '04

29 Jan '04

Hi! New Version of XOTclIDE 0.58 is released. http://www.xdobry.de/xotclIDE changes: - New plug-ins: - FileBrowser - simple gui file manager that can mount mk4 and zip archives - SQLBrowser - gui for sql queries with some goodies as word completion, result show in TkTable and DB-Schema view. - version control state of components and classes are displayed in differently colors - better code completion - for another changes see change-log file ATKSQLBrowser is distributed also as separate and stand-alone application per Starkit technology. http://www.xdobry.de/atksqlbrowser I have also separated XOTcl sql interface to XOSQL package. That provide uniform access to several Tcl interfaces: mysqltcl, sqlite, postgres, tclodbc and have uniform Tk connection dialog. http://www.xdobry.de/xosql Artur Trzewik

1 0

XOTclIDE in Version 0.57
by Artur Trzewik 10 Jan '04

10 Jan '04

Hi! New Version of XOTclIDE 0.57 is released. http://www.xdobry.de/xotclIDE changes: - Additional editior functions - minus indent, plus indent, auto indent region - comment and uncomment region - New plug-ins: - tk windows inpector - can show tk windows hierarchy. view and change widget configuration. serialize widgets trees to tcl script - script editor - enable syntax checker and command completion also for small tcl scripts - more panned windows (when you use Tcl8.4) - startpacks for windows and linux with updated atkdebugger (version 0.21) and Tcl8.4.5 http://www.xdobry.de/xotclIDE/xotclide_win.html This binaries includes ready to use extended debugger. - sqlite connection dialog use file dialog to get sqllite file - this version is prepared and also tested with pre-release of XOTcl 1.1.2 that Gustav Neuman give me for testing. Warning! Old XOTclIDE releases would not work reliable with XOTcl 1.1.2 - many refactoring and bug fixies (see Change Log) and small improvements in gui handling. I have some problems with XOTcl 1.1.1 by using debugger. Please use XOTcl 1.0.2 if you should work with extended debugger. Artur Trzewik

1 0

how to track a segmentation fault problem in Xotcl?
by Catherine Letondal 04 Jan '04

04 Jan '04

Hi, I have just re-installed Xotcl 1.0.2 version and succedeed in running my application with some minor changes since the last xotcl version I used on this platform (Sparc/Solaris 7) was the 0.9 :-) I have a segmentation fault that occurs when a command is called from a Tk menu. The command is attached to the popup by a: add command -command statement on a menu Tk widget that is raised by a tk_popup. However, the very same command, when called from the tcl (xowish) interpreter, works and does not produce any core dump. And most menu items also work well. So my question is: how do I debug such a situation? Thanks for any help... -- Catherine Letondal -- Pasteur Institute Computing Center

3 7

Bug or feature in 1.1.1. Access to subobjects
by Artur Trzewik 31 Dec '03

31 Dec '03

Hi! I have discovered some interesting change in 1.1.1 that I could not find in ChangeLog. In 1.1.1 one can access to subobject as method call Example b::a can be produced as b a My problem is that I have "a" as method and as subobject from b. Can I force "b" to invoke method "a" and not return subobject "a"? Artur Trzewik Example: % [artur@localhost xotclIDE]$ /opt/tcl845/bin/tclsh8.4 % package require XOTcl 1.1 % namespace import xotcl::* % Class A ::A % Class B ::B % B create b ::b % A create b::a ::b::a % b a ::b::a % [artur@localhost xotclIDE]$ /opt/tcl844/bin/tclsh8.4 % package require XOTcl 1.0 % namespace import xotcl::* % Class A ::A % Class B ::B % B create b ::b % A create a ::a % b a b: unable to dispatch method 'a' %

2 2

← Newer
1
...
42
43
44
45
46
47
48
...
66
Older →

Jump to page:

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