Changeset b330c41 in tol

Timestamp:

Jan 13, 2015, 4:33:09 PM (12 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

1941-docker-image-to-test, devel, master

Children:

c07874d

Parents:

8d33e4c4

Message:

New function OSWaitForLockedFile: Checks if a file is locked anf then waits until it is unlocked

git-svn-id: ​https://www.tol-project.org/svn/tolp/trunk@6432 be4846ae-f051-483a-831f-b64e7d08527f

File:

• tol/stdlib/system/_system.tol (modified) (2 diffs)

tol/stdlib/system/_system.tol

@@ -547 +547 @@
   
 //////////////////////////////////////////////////////////////////////////////
+Text OSWaitForLockedFile(Text file)
+//////////////////////////////////////////////////////////////////////////////
+{
+  Real handler = FOpen(file,"r+b");
+  While(!handler,
+  { 
+    WriteLn("File "+file+" is locked. Waiting ...");
+    Real Sleep(2);
+    Real handler := FOpen(file,"r+b")
+  });
+  Real If(handler, FClose(handler));
+  file
+};
+PutDescription(
+"Checks if a file is locked anf then waits until it is unlocked",
+OSWaitForLockedFile);
+//////////////////////////////////////////////////////////////////////////////
+
+  
+//////////////////////////////////////////////////////////////////////////////
 // Tests
 //////////////////////////////////////////////////////////////////////////////
@@ -567 +587 @@
 };
 
+
 /* */