------------------ q.h ---------------------------
/* plik naglowkowy serwera soap
*/

// ---

//gsoap ns service name: qqq
//gsoap ns service namespace: qqq

//gsoap ns service style: rpc
//gsoap ns service encoding: encoded
// gsoap ns service style: document
// gsoap ns service encoding: literal


// ---

struct ns__t_mojaStruct { // zwroc uwage na przedrostek ns__ !!!
  int a, b, c;
};
struct ns__t_tabStruct {
  struct ns__t_mojaStruct *__ptr; int __size;
};

int ns__zwrocCos(
  int liczba,
  struct ns__t_tabStruct *return_
);

int ns__zwrocCos2(
  struct ns__t_tabStruct *par,
  struct ns__t_tabStruct *return_
);


----------------------- q_serv.c -----------------------
/* implementacja serwera soap
*/

// ---

#include "qqq.nsmap"

int main2() {
  int b;
  struct soap soap;
  soap_init(&soap);

  b=soap_bind(&soap, NULL, 10000, 100); // 10000 -nr portu
  if(b<0) {soap_print_fault(&soap, stderr); soap_done(&soap); exit(1);}

  while (1) {
    soap_accept(&soap); // czeka na soap msg
    soap_serve(&soap); // obsluga
    soap_end(&soap); // zwalniani pamieci
    printf("."); fflush(stdout);
  }

  return 0;
}

// ---

int ns__zwrocCos(struct soap* soap,
    int liczba, struct ns__t_tabStruct *return_) {
  int i, d; struct ns__t_mojaStruct *f2;

  d= liczba;

  return_->__size= d;
  f2= soap_malloc(soap, d*sizeof(struct ns__t_mojaStruct));
  return_->__ptr= f2;

  for(i=0; i<d; i++) {
    f2[i].a= i; f2[i].b= i*i; f2[i].c= i*i*i;
  }

  return SOAP_OK;
}

// ---

int ns__zwrocCos2(struct soap* soap,
    struct ns__t_tabStruct *par,
    struct ns__t_tabStruct *return_) {
  int i, d; struct ns__t_mojaStruct *f1, *f2;

  d= par->__size; f1= par->__ptr;

  return_->__size= d;
  f2= soap_malloc(soap, d*sizeof(struct ns__t_mojaStruct));
  return_->__ptr= f2;

  for(i=0; i<d; i++) {
    f2[i].a= 2*f1[i].a; f2[i].b= f1[i].b; f2[i].c= f1[i].c;
  }

  return SOAP_OK;
}

------------------------- kli03.tcl --------------------
#
# klient soap w tclSOAP
#

# ---
package re SOAP
package re rpcvar

SOAP::create zwrocCos \
  -uri qqq \
  -proxy http://localhost:10000 \
  -params {liczba int}

set x [zwrocCos 3]
  #% {a 0 b 0 c 0} {a 1 b 1 c 1} {a 2 b 4 c 8}

rpcvar::typedef -namespace ns {
  a int b int c int
} t-mojaStruct
      # - zwroc uwage ze nazwa struktury musi sie zgadzac
      #   z tym co jest w q.h (uwaga na drobne zmiany, np "_" na "-")
      # - opcja -namespace ustawia prefiks ns
      #   ... to prawdopodobnie blad tclsoap!

SOAP::create zwrocCos2 \
  -uri qqq \
  -proxy http://localhost:10000 \
  -params {par t-mojaStruct()}

set x [zwrocCos2 $x]
  #% {a 0 b 0 c 0} {a 8 b 1 c 1} {a 16 b 4 c 8}


# zagladamy do komunikatow soap...
SOAP::dump -req zwrocCos
SOAP::dump -rep zwrocCos
SOAP::dump -req zwrocCos2
SOAP::dump -rep zwrocCos2