From: cas <cas@opencascade.com>
Date: Mon, 12 Nov 2001 18:01:24 +0000 (+0000)
Subject: Delete temporary files created by Wok during compilation
X-Git-Url: http://git.dev.opencascade.org/gitweb/?a=commitdiff_plain;h=85786bb463adf844c07e27d885255223b18e1549;p=occt-wok.git

Delete temporary files created by Wok during compilation
---

diff --git a/src/WOKUnix/WOKUnix_FDescr.cdl b/src/WOKUnix/WOKUnix_FDescr.cdl
index cd15a24..757e2e2 100755
--- a/src/WOKUnix/WOKUnix_FDescr.cdl
+++ b/src/WOKUnix/WOKUnix_FDescr.cdl
@@ -23,7 +23,7 @@ is
 
     BuildTemporary(me: in out);
     BuildTemporary(me: in out ; apath : AsciiString from TCollection);    
-    BuildNamedPipe(me: in out);
+    BuildNamedPipe(me: in out) returns FDescr from WOKUnix;
     
     GetNbToRead(me : in out) returns Integer from Standard;
     SetUnBuffered(me : in out);
diff --git a/src/WOKUnix/WOKUnix_FDescr.cxx b/src/WOKUnix/WOKUnix_FDescr.cxx
index bb0aed4..39f5421 100755
--- a/src/WOKUnix/WOKUnix_FDescr.cxx
+++ b/src/WOKUnix/WOKUnix_FDescr.cxx
@@ -187,7 +187,8 @@ void WOKUnix_FDescr::BuildTemporary(const TCollection_AsciiString & apath)
 //function : BuildNamedPipe
 //purpose  : 
 //=======================================================================
-void WOKUnix_FDescr::BuildNamedPipe()  
+
+WOKUnix_FDescr WOKUnix_FDescr::BuildNamedPipe()  
 {
   TCollection_AsciiString apath;
   WOKUnix_FDescr         writeend;
@@ -205,7 +206,8 @@ void WOKUnix_FDescr::BuildNamedPipe()
   writeend.SetPath(OSD_Path(Name()->String()));
   writeend.Open(OSD_WriteOnly, OSD_Protection());
   writeend.SetUnBuffered();
-  
+
+  return writeend ;
 }
 
 //=======================================================================
diff --git a/src/WOKUnix/WOKUnix_ShellStatus.cdl b/src/WOKUnix/WOKUnix_ShellStatus.cdl
index 4e7f3cf..334ef16 100755
--- a/src/WOKUnix/WOKUnix_ShellStatus.cdl
+++ b/src/WOKUnix/WOKUnix_ShellStatus.cdl
@@ -47,6 +47,7 @@ is
 fields
     mystatus : Integer is protected;
     myfile   : FDescr from WOKUnix;
+    myfileend: FDescr from WOKUnix;
     
 end ShellStatus;
 
diff --git a/src/WOKUnix/WOKUnix_ShellStatus.cxx b/src/WOKUnix/WOKUnix_ShellStatus.cxx
index ffe1696..8c4fa0a 100755
--- a/src/WOKUnix/WOKUnix_ShellStatus.cxx
+++ b/src/WOKUnix/WOKUnix_ShellStatus.cxx
@@ -11,7 +11,8 @@
 //=======================================================================
  WOKUnix_ShellStatus::WOKUnix_ShellStatus()
 {
-  myfile.BuildNamedPipe();
+//JR  myfile.BuildNamedPipe();
+  myfileend = myfile.BuildNamedPipe();
 }
 
 //=======================================================================
@@ -71,7 +72,7 @@ Standard_Integer WOKUnix_ShellStatus::Get()
   Standard_Integer nbtoread = myfile.GetNbToRead();
   if(nbtoread == 0) 
     {
-      Standard_ProgramError::Raise("ShellStatus::Get : Nothing to read on status pipe\n");
+      Standard_ProgramError::Raise("WOKUnix_ShellStatus::Get : Nothing to read on status pipe\n");
       return 1;
     }
 
@@ -81,7 +82,7 @@ Standard_Integer WOKUnix_ShellStatus::Get()
   if(nbtoread != buf.Length())
     {
       perror(Name()->ToCString());
-      Standard_ProgramError::Raise("ShellStatus::Get : Could not read from status pipe\n");
+      Standard_ProgramError::Raise("WOKUnix_ShellStatus::Get : Could not read from status pipe\n");
       return 1;
     }
   buf.Trunc(nbtoread);
@@ -100,7 +101,7 @@ Standard_Integer WOKUnix_ShellStatus::GetRemote()
   Standard_Integer nbtoread = myfile.GetSize();
   if(nbtoread == 0) 
     {
-      Standard_ProgramError::Raise("ShellStatus::GetRemote : Nothing to read on status file\n");
+      Standard_ProgramError::Raise("WOKUnix_ShellStatus::GetRemote : Nothing to read on status file\n");
       return 1;
     }
 
@@ -110,7 +111,7 @@ Standard_Integer WOKUnix_ShellStatus::GetRemote()
   if(nbtoread != buf.Length())
     {
       perror(Name()->ToCString());
-      Standard_ProgramError::Raise("ShellStatus::GetRemote : Could not read from status file\n");
+      Standard_ProgramError::Raise("WOKUnix_ShellStatus::GetRemote : Could not read from status file\n");
       return 1;
     }
   buf.Trunc(nbtoread);
@@ -125,7 +126,15 @@ Standard_Integer WOKUnix_ShellStatus::GetRemote()
 //=======================================================================
 void WOKUnix_ShellStatus::Destroy()
 {
+  if ( myfile.FileNo() >= 0 ) {
+    myfile.Close();
+  }
+  if ( myfileend.FileNo() >= 0 ) {
+    myfileend.Close();
+  }
+
   myfile.Remove();
+  myfileend.Remove();
 }