Xotcl

xotcl@alice.wu.ac.at

2 participants
653 discussions

NX list properties
by Maksym Zinchenko 03 Jan '25

03 Jan '25

Hello, is it possible to list only properties without variables of an instance, object? For example if I use *$obj info vars* command it will give me all variables and properties names. For example, is it possible to do it like that? > package require nx > nx::Class create rClass { > :property {prop1 "rprop"} > } > > nx::Class create tClass { > :property {prop1 "tprop1"} > :property {prop2:object, required} > :variable cf "aaaa.ini" > > :method init {} { > puts "Init" > } > > :public method a {} { > return "Object is: ${:obj} | Config file is: ${:cf}" > } > } > set t [tClass new -prop2 [rClass new]] > > foreach sl [$t info lookup variables] { > if {[lindex [$t info variable definition $sl] 1] eq "property"} { > puts "[$t info variable name $sl] is a property" > } elseif {[lindex [$t info variable definition $sl] 1] eq "variable"} { > puts "[$t info variable name $sl] is a variable" > } > }

2 2

None
by None 10 Dec '24

10 Dec '24

> This does not work as you intend it because you forgot the "next" > call in your destroy method. That means the real destructor is > never reached ... Yes, I understand. > I would also recommend to always use "args" for init > and destroy, as arguments for these methods may change. Yes, I understand. I was trying to submit the simplest possible code to illustrate the problem. Btw, very nice work. I'm impressed with and appreciate the attention to detail. --=_alternative 0058C63985256D24_= Content-Type: text/html; charset="US-ASCII" Thanks, guys! From Uwe: > This does not work as you intend it because you forgot the "next" > call in your destroy method. That means the real destructor is > never reached ... Yes, I understand. > I would also recommend to always use "args" for init > and destroy, as arguments for these methods may change. Yes, I understand. I was trying to submit the simplest possible code to illustrate the problem. Btw, very nice work. I'm impressed with and appreciate the attention to detail. --=_alternative 0058C63985256D24_=--

1 0

None
by None 10 Dec '24

10 Dec '24

when compiling the distributed binaries. Is there a reason why not? It seems like it is a low cost (simply add the "-DUSE_TCL_STUBS" compile switch?) thing to do in order to get the benefit of distributing more widely usable binaries. Thanks, Brian Theado ------_=_NextPart_001_01C15893.671068D0 Content-Type: text/html; charset="iso-8859-1" <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN"> <HTML> <HEAD> <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1"> <META NAME="Generator" CONTENT="MS Exchange Server version 5.5.2653.12"> <TITLE>RE: xotcl and tclkit</TITLE> </HEAD> <BODY> On Fri, 19 Oct 2001 09:07:31 +0200, Gustaf Neumann wrote: > the xotcl binaries are built with tcl 8.3.2. > therefore it should work without compiling only with > 8.3. > however, when it is compiled with 8.4, it will work. I remember that stubs support was recently added to xotcl. From the above, I gather stubs support is not being used when compiling the distributed binaries.  Is there a reason why not?  It seems like it is a low cost (simply add the "-DUSE_TCL_STUBS" compile switch?) thing to do in order to get the benefit of distributing more widely usable binaries. Thanks, Brian Theado </BODY> </HTML> ------_=_NextPart_001_01C15893.671068D0--

1 0

init Constructor
by Maksym Zinchenko 26 May '24

26 May '24

Hello, is it possible to pass data to init constructor in NX? For example smth like that: nx::Class create hello { > :method init {args} { > if {[llength $args] > 0} { > foreach name $args { puts "Hello: $name" } > } > } > } > > ::hello create helloObj [list Bruno Pedro] > Without using properties, because I want to set up properties from init method. Thank you

3 2

https://next-scripting.org/
by Maksym Zinchenko 28 Mar '24

28 Mar '24

Hello next-scripting site shows default OpenCS page.

2 2

Certificate expired
by Maksym Zinchenko 27 Mar '24

27 Mar '24

Hello, I think certificate for next-scripting framework website is expired. Thank you

1 0

Scripted Value Constraints
by Maksym Zinchenko 19 Feb '24

19 Feb '24

Hello, I have an issue I can't understand. On my naviserver I have a global tcl module, inside init.tcl I have defined a scripted value checker for uuid: ::nx::Slot method type=uuid {name value} { > set pattern > {^[0-9a-fA-F]{8}-[0-9a-fA-F]{4}-[0-9a-fA-F]{4}-[0-9a-fA-F]{4}-[0-9a-fA-F]{12}$} > if {![regexp $pattern $value]} { > error "Value '$value' of parameter $name is not UUID" > } > return $value > } I have a class definition in like: ::nx::Class create eFaturaClass -superclass ::oodz::baseObj { > :property {company:object,required} > :property {uuid:uuid,required} > :property {doc_type:integer,required} > > :method init {} { > .... > } > .... > } > But when im trying to create an object it gives me an error like: ::eFaturaClass create ef -company ::companyObj -doc_type 1 -uuid 0dbd469a- > 6669-435e-8a11-621f1b988479 > > method 'type=uuid' unknown for slot ::eFaturaClass::slot::uuid; valid are: {definition destroy getParameterSpec getPropertyDefinitionOptions onError parameter reconfigure setCheckedInstVar value=add value=delete value=exists value=get v > alue=set value=unset} > > It looks like I'm doing something wrong, thank you.

3 2

Property space bug
by Maksym Zinchenko 11 Feb '24

11 Feb '24

Hello, I think it's a small bug here. For example code with a space between comma and word required : nx::Class create demoClass { :property {fiscalyear:integer, required} :method init {args} { :test } :public method test {} { puts ${:fiscalyear} } } demoClass create a required ::a will run without error and complains that fiscalyear is required. Code without space will run as expected. Thank you

2 1

Hello, https://next-scripting.org certificate expired
by Maksym Zinchenko 28 Dec '23

28 Dec '23

Hello, https://next-scripting.org has an expired certificate, would be so kind to renew it. Thank you, and wish you a happy new year.

2 1

parameters to keep Class objects
by Maksym Zinchenko 17 Sep '23

17 Sep '23

Hello, can I use parameters to keep Class objects? Like this: package require nx > > nx::Class create a { > :public method hmmm {} { > return "Hmmmm!!!" > } > } > > nx::Class create b { > :method init {} { > set :aObj [a new] > } > > :public method saysmth {} { > puts "Hello!? [${:aObj} hmmm]" > } > } > > ::b create bobj > ::bobj saysmth > Is it possible that it will not be set if I create my "bobj" from init.tcl in Naviserver at startup? Thank you in advance

2 4

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