doc/exemples/exemple8/client.cxx

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