package re combat
  #% 0.7

source COS_ns.tcl; combat::ir add $_ir_COS_ns
set ns [corba::string_to_object http://mhanckow.students.wmi.amu.edu.pl/pliki/nsd.ior]
$ns list 100 x y; join $x \n

source COS_Prop.tcl; combat::ir add $_ir_COS_Prop
#set psf [$ns resolve {{id  "PropertySetFactory" kind ""}}]
#set ps1 [$psf create_propertyset]
#$ns rebind {{id  "propset1" kind ""}} $ps1
set ps1 [$ns resolve {{id  "propset1" kind ""}}]

$ps1 define_property "Moja struct 1" {{struct {} {a long b long}} {a 111 b 222}}
$ps1 define_property "Moja sekwencja 1" {{sequence long} {1 1 1 1 1 1}}
$ps1 define_property "Moja sekwencja 2" {{sequence float} {1 2 3 4 5 6}}
$ps1 define_property "Moja sekwencja 3" {{sequence {struct {} {a long b long}}} {
  {a 111 b 111}
  {a 222 b 222}
}}

$ps1 get_property_value "Moja sekwencja 1"
$ps1 get_all_properties 100 x1 y1; join $x1 \n

$ps1 define_property "xxx1" {string "A ku ku !!! ???"}
$ps1 delete_property "xxx1"
#$ps1 define_property "xxx1" {wstring "A ku ku !!! ???"}
  # + dlaczego to nie dziala ?!? (mico/propertyd nie obsluguje wstring??)

$ps1 get_property_value "xxx1"
  #% string {A ku ku !!! ???}