Changeset 3bb2203 in tol

Timestamp:

May 25, 2010, 2:49:20 PM (16 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

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

Children:

d74c90b

Parents:

26bc2dd

Message:

New method BSys::SleepMilliSeconds

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

Location:

tol

Files:

• bbasic/sys.cpp (modified) (1 diff)
• bbasic/tol_bsys.h (modified) (1 diff)
• btol/bgrammar/oprimp.cpp (modified) (1 diff)
• btol/real_type/datgrav.cpp (modified) (2 diffs)

tol/bbasic/sys.cpp

@@ -980 +980 @@
 }
 
+
+//--------------------------------------------------------------------
+//Make inactive waiting until they have passed a given number of milliseconds
+void BSys::SleepMilliSeconds(unsigned int milliseconds)
+//--------------------------------------------------------------------
+{
+#ifdef _MSC_VER
+  Sleep(milliseconds);
+#else
+  usleep(milliseconds*1000);
+#endif
+}
+
+//--------------------------------------------------------------------
+//Opens a file and locks it
+//If cannot do it then sleeps and retries again until time is out
+FILE* FOpenAndLock(
+   const char *filename,
+   const char *mode,
+   unsigned int timeOutInMilliseconds,
+   char* errorMessage)
+//--------------------------------------------------------------------
+{
+  FILE* fil=NULL;
+  return(fil);
+}
+
+//--------------------------------------------------------------------
+//Unlocks a file and close it
+i FUnlockAndClose(FILE* file)
+//--------------------------------------------------------------------
+{
+  FILE* fil=NULL;
+  return(fil);
+}

tol/bbasic/tol_bsys.h

@@ -157 +157 @@
   static double SessionTime();
   static const BDate& SessionInitTime();
-
+  //Make inactive waiting until they have passed a given number of milliseconds
+  static void SleepMilliSeconds(unsigned int milliseconds);
+  //Opens a file and locks it
+  //If cannot do it then sleeps and retries again until time is out
+  static FILE* FOpenAndLock(
+   const char *filename,
+   const char *mode,
+   unsigned int timeOutInMilliseconds=0,
+   char* errorMessage=NULL);
+  //Unlocks a file and close it
+  static void FUnlockAndClose(FILE* file);
 };
 

tol/btol/bgrammar/oprimp.cpp

@@ -309 +309 @@
               I2(" (trying again after 10 seconds)",
                  " (reintentando tras 10 segundos)"));
-        #ifdef _MSC_VER
-        Sleep(10000);
-        #else
-        sleep(10);
-        #endif
+        BSys::SleepMilliSeconds(10000);
         dump = fopen(path,"w");
       }

tol/btol/real_type/datgrav.cpp

@@ -2061 +2061 @@
   I2("(Real seconds)",
      "(Real segundos)"),
-  I2("Sleeps TOL process while the specified time.",
+  I2("Sleeps TOL process while the specified time. Minimum unit is "
+     "millsecond, I.E. 0.001 seconds ",
      "El proceso TOL se queda en estado de espera no activa durante el "
-     "tiempo especificado. El proceso no consumirá CPU en este periodo."),
+     "tiempo especificado. El proceso no consumirá CPU en este periodo. "
+     "La unidad mínima de tiempo es el milisegundo, o sea, 0.001 "
+     "segundos"),
      BOperClassify::Conversion_);
   void BDatSleep::CalcContens()
@@ -2069 +2072 @@
 {
   contens_ = Dat(Arg(1));
-#ifdef _MSC_VER
-  Sleep((BInt)contens_.Value()*1000);
-#else
-  sleep((BInt)contens_.Value());
-#endif
+  BSys::SleepMilliSeconds((BInt)contens_.Value()*1000);
 }