wm geom .konsola 525x664+485+36; wm withdraw .; wm withdraw .output; kons_font 15
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