wm geom .konsola 603x865+981+275; wm withdraw .; wm withdraw .output; kons_font 13; # Morasko
## cli combat dla ser mico/cpp, np002.cc
#
lappend auto_path ~/zajecia/tas/corba/combat-tcl-0.7.4
package re combat
#% 0.7
source Hello.tcl
combat::ir add $_ir_Hello
set o1 [corba::string_to_object file://[pwd]/Hello.ior]
$o1 met1 {1 2 3 4 5 6 7 8}
#% 1 2 3 4 5 6 7 8
time {$o1 met1 {1 2 3 4 5 6 7 8}}
#% 3683 microseconds per iteration
#% 3759 microseconds per iteration
#% 3683 microseconds per iteration
# ...
# typ "any" w C++/Corba
# + long_seq dziala ok
# + nie wiem jak umiescic ValueBox w any
#
$o1 zwrocCokolwiek 1
#% long 123
$o1 zwrocCokolwiek 2
#% string {qqq www eee}
$o1 zwrocCokolwiek 3
#% {sequence long} {111 222 333}
$o1 zwrocCokolwiek 4
#% {sequence long} {1111 2222}
# + to mial byc VB... ?!?!?!!?!?
corba::type of IDL:HelloApp/long_seq_box:1.0
#% valuebox IDL:HelloApp/long_seq_box:1.0 {sequence long}
# ...
# podczepianie arg metody do serwanta
# + jak sprawdzic czy nie ma wyciekow pamieci???
#
$o1 zapiszSeq {1 2 3}
#%
$o1 odczytajSeq
#% 81 162 243
#% 3 6 9
#% 1 2 3
$o1 pomnozRazy 3
#%
# ...
exit