0022728: STEP export API does not provide possibility to control output stream

diff --git a/src/IFSelect/IFSelect_WorkSession.cdl b/src/IFSelect/IFSelect_WorkSession.cdl
index 0ff29586d9417cfe87766e639de2476e1e23141a..8646e7b72cb6bdcc3485bf9d330854f4cd90b943 100755 (executable)
--- a/src/IFSelect/IFSelect_WorkSession.cdl
+++ b/src/IFSelect/IFSelect_WorkSession.cdl
@@ -819,8 +819,13 @@ is
     --           
     --           The Model and File Modifiers recorded to be applied on sending
     --           files are.
-    --           Returns a status of execution : Done if OK, Void if no def.
-    --             available, Error if errors occured, Fail if no file written
+    --           Returns a status of execution : 
+    --             Done if OK, 
+    --             Void if no data available,
+    --             Error if errors occured (work library is not defined), errors 
+    --             during translation
+    --             Fail if exception during translation is raised
+    --             Stop if no disk space or disk, file is write protected
     --           Fills LastRunCheckList
 
     SendSelected (me : mutable; filename : CString; sel : Selection;

diff --git a/src/IFSelect/IFSelect_WorkSession.cxx b/src/IFSelect/IFSelect_WorkSession.cxx
index c0a7d21470d09a8268e9f3218638e12a89891ff3..06f5beaeb5552c0315c2910c50430d4b5cd2581d 100755 (executable)
--- a/src/IFSelect/IFSelect_WorkSession.cxx
+++ b/src/IFSelect/IFSelect_WorkSession.cxx
@@ -2488,7 +2488,11 @@ IFSelect_ReturnStatus IFSelect_WorkSession::SendAll
     }
   }
   else checks = thecopier->SendAll(filename,thegraph->Graph(),thelibrary,theprotocol);
-
+  Handle_Interface_Check aMainFail = checks.CCheck(0);
+  if (!aMainFail.IsNull() && aMainFail->HasFailed ())
+  {
+        return IFSelect_RetStop;
+  }
   if (theloaded.Length() == 0) theloaded.AssignCat(filename);
   thecheckrun = checks;
   if (checks.IsEmpty(Standard_True)) return IFSelect_RetDone;

diff --git a/src/XSDRAWSTEP/XSDRAWSTEP.cxx b/src/XSDRAWSTEP/XSDRAWSTEP.cxx
index 4136c3004ce24921061d70345f1ba0e96142313e..c65339da71d75af81ffd97936cd7b5d236a94541 100755 (executable)
--- a/src/XSDRAWSTEP/XSDRAWSTEP.cxx
+++ b/src/XSDRAWSTEP/XSDRAWSTEP.cxx
@@ -423,7 +423,8 @@ static Standard_Integer stepwrite (Draw_Interpretor& di, Standard_Integer argc,
   switch (stat) {
     case IFSelect_RetVoid : di<<"No file written"<<"\n"; break;
     case IFSelect_RetDone : di<<"File "<<nomfic<<" written"<<"\n"; break;
-    default : di<<"Error on writing file"<<"\n"; break;
+    case IFSelect_RetStop : di<<"Error on writing file: no space on disk or destination is write protected"<<"\n"; break;
+    default : di<<"File "<<nomfic<<" written with fail messages"<<"\n"; break;
   }
 
   progress->EndScope();