Changeset 2494 in Sophya for trunk/SophyaPI/PIext

Timestamp:

Jan 6, 2004, 7:44:56 PM (22 years ago)

Author:

ansari

Message:

Suite debugging gestion lock entre threads ds piapp - A l'air de

marcher sur OSF1 et Linux ... Reza 06/01/2004

Location:

trunk/SophyaPI/PIext

Files:

• basexecut.cc (modified) (4 diffs)
• piacmd.cc (modified) (1 diff)
• pistdimgapp.cc (modified) (3 diffs)
• pistdimgapp.h (modified) (2 diffs)
• servnobjm.cc (modified) (1 diff)

trunk/SophyaPI/PIext/basexecut.cc

@@ -66 +66 @@
   nx = ny = 1;
   nx = atoi(tokens[0].c_str());    ny = atoi(tokens[1].c_str());
-  if (mImgApp) mImgApp->SetZone(nx, ny);
-  }  
+  if (mImgApp) { 
+    mImgApp->LockMutex();  // <ZThread> global event loop synchronisation 
+    mImgApp->SetZone(nx, ny);
+    mImgApp->UnlockMutex(true);  // <ZThread> global event loop synchronisation 
+  }
+}  
 else if (kw == "newwin") {
   int nx=1, ny=1;
@@ -78 +82 @@
     sy = atoi(tokens[3].c_str());
   }
-  if (mImgApp) mImgApp->CreateGraphWin(nx, ny, sx, sy);
+  if (mImgApp) { 
+    mImgApp->LockMutex();   // <ZThread> global event loop synchronisation 
+    mImgApp->CreateGraphWin(nx, ny, sx, sy);
+    mImgApp->UnlockMutex(true); // <ZThread> global event loop synchronisation 
+  }
 }  
-else if (kw == "stacknext") mImgApp->StackWinNext(); 
+else if (kw == "stacknext") { 
+  mImgApp->LockMutex();  // <ZThread> global event loop synchronisation 
+  mImgApp->StackWinNext(); 
+  mImgApp->UnlockMutex(true);  // <ZThread> global event loop synchronisation 
+}
 else if (kw == "graphicatt") {
   if (tokens.size() < 1) { cout << "Usage: graphicatt attributes_list (att=def->defaut)" << endl;  return(0); }
@@ -296 +308 @@
 // utilise donc des DlFunction  (Reza 20/08/98)  voir commentaire ds .h (pb g++)
   DlUserProcFunction fuf = (DlUserProcFunction)(*it).second;
+/*DEL----- Plus besoin en multi-thread ? / Reza 06/01/2004 
 //   On redirige la sortie sur le terminal 
   bool red = mImgApp->HasRedirectedStdOutErr();
   mImgApp->RedirectStdOutErr(false);
+                                    --------DEL  */
 #ifdef SANS_EVOLPLANCK
   TRY {
@@ -326 +340 @@
   }
 #endif
+/*DEL----- Plus besoin en multi-thread ? / Reza 06/01/2004 
   mImgApp->RedirectStdOutErr(red);
+                                    --------DEL    */
 }
 

trunk/SophyaPI/PIext/piacmd.cc

@@ -218 +218 @@
 void PIACmd::run()
 {
-  cout << " DBG-PIACmd::run() -- DEBUT " << endl;
   while (!fg_thrstop) {
     mutx_inps.lock();

trunk/SophyaPI/PIext/pistdimgapp.cc

@@ -408 +408 @@
     while (!_fgstop) {
       usleep(2000);
-      _app->getMutex().broadcast();
+      _app->LockMutex();
+      bool fgb = false;
+      if (_app->CheckPendingEvents() != 0)  fgb = true;
+      _app->UnlockMutex(fgb);
     }
   }
@@ -415 +418 @@
   bool _fgstop;
 };
+
+int PIStdImgApp::CheckPendingEvents()
+{
+  return XtAppPending(*_appctx);
+}
+
 /* --Methode-- */
 void PIStdImgApp::Run()
@@ -421 +430 @@
 int szx, szy, szf;
 XtAppContext * appctx = PIXtAppCtx(szx, szy, szf);
+_appctx = appctx;   // Pour CheckPendingEvents()
 // Pour appeler FinishCreate() des objets dans la fenetre principale 
 if (mStop) { // C'est la premiere fois

trunk/SophyaPI/PIext/pistdimgapp.h

@@ -60 +60 @@
      inline void       LockMutex() { thr_glsyn.lock(); }
      inline void       UnlockMutex(bool fgbr=false) 
-        { thr_glsyn.broadcast(); thr_glsyn.unlock(); }
+        { if (fgbr) thr_glsyn.broadcast(); thr_glsyn.unlock(); }
      inline bool       isGlSyncLocked() { return fg_glsynlock; }
+     int               CheckPendingEvents();
 
   // Methodes d'Affichage generique
@@ -240 +241 @@
     ZMutex thr_glsyn;
     bool fg_glsynlock;  // true: thr_glsyn locke pour traitement evts
+    XtAppContext * _appctx; // Pour CheckPendingEvents()  $CHECK$ A supprimer si possible ...
 };
 

trunk/SophyaPI/PIext/servnobjm.cc

@@ -441 +441 @@
   return;
   }
-nt->Show();
-nt->Print(0,10);
+//DBG nt->Show();
+//DBG nt->Print(0,10);
 PINTuple3D* pin = new PINTuple3D(nt, true);
 pin->SelectXYZ(ntn[0], ntn[1], ntn[2]);