mergefrom branch BR_V511_PR tag mergeto_trunk_03feb09

[modules/yacs.git] / doc / exemples / exemple8 / client.cxx

diff --git a/doc/exemples/exemple8/client.cxx b/doc/exemples/exemple8/client.cxx
new file mode 100755 (executable)
index 0000000..6d597b0
--- /dev/null
+++ b/doc/exemples/exemple8/client.cxx
@@ -0,0 +1,33 @@
+#include <CORBA.h>\r
+#include <fstream>\r
+#include <string>\r
+#include "alglin.hh"\r
+\r
+int main(int argc,char **argv)\r
+{\r
+  CORBA::ORB_ptr orb = CORBA::ORB_init (argc, argv);\r
+\r
+  string s;\r
+  ifstream f("AlgLin.ior");\r
+  f >> s;\r
+  f.close();\r
+\r
+  CORBA::Object_ptr O = orb->string_to_object(s.c_str());\r
+  Distant::AlgLin_var A = Distant::AlgLin::_narrow(O);\r
+\r
+  long n = 5;\r
+\r
+  Distant::vecteur V1;\r
+  V1.length(n);\r
+\r
+  Distant::vecteur V2;\r
+  V2.length(n);\r
+\r
+  for (long i=0; i<n; i++) {\r
+    V1[i] = i*i;\r
+    V2[i] = 2*i;\r
+  }\r
+\r
+  CORBA::Double S = A->prdscl(V1, V2);\r
+  cerr << S << endl;\r
+}\r