doc/exemples/exemple8/client.cxx

   1 #include <CORBA.h>\r
   2 #include <fstream>\r
   3 #include <string>\r
   4 #include "alglin.hh"\r
   5 \r
   6 int main(int argc,char **argv)\r
   7 {\r
   8   CORBA::ORB_ptr orb = CORBA::ORB_init (argc, argv);\r
   9 \r
  10   string s;\r
  11   ifstream f("AlgLin.ior");\r
  12   f >> s;\r
  13   f.close();\r
  14 \r
  15   CORBA::Object_ptr O = orb->string_to_object(s.c_str());\r
  16   Distant::AlgLin_var A = Distant::AlgLin::_narrow(O);\r
  17 \r
  18   long n = 5;\r
  19 \r
  20   Distant::vecteur V1;\r
  21   V1.length(n);\r
  22 \r
  23   Distant::vecteur V2;\r
  24   V2.length(n);\r
  25 \r
  26   for (long i=0; i<n; i++) {\r
  27     V1[i] = i*i;\r
  28     V2[i] = 2*i;\r
  29   }\r
  30 \r
  31   CORBA::Double S = A->prdscl(V1, V2);\r
  32   cerr << S << endl;\r
  33 }\r