Xotcl February 2024

xotcl@alice.wu.ac.at

3 participants
2 discussions

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

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 February 2024