Make script implementations to provide sleep builtin implementationHEADmaster

6 files changed, 28 insertions, 1 deletions

diff --git a/libbuild2/build/script/script.cxx b/libbuild2/build/script/script.cxx
index 0d96cc3..fba38a8 100644
--- a/libbuild2/build/script/script.cxx
+++ b/libbuild2/build/script/script.cxx
@@ -235,6 +235,12 @@ namespace build2
         }
       }
 
+      void environment::
+      sleep (const duration& d)
+      {
+        context.sched->sleep (d);
+      }
+
       lookup environment::
       lookup (const variable& var) const
       {
diff --git a/libbuild2/build/script/script.hxx b/libbuild2/build/script/script.hxx
index 08f1bf4..19f6d0b 100644
--- a/libbuild2/build/script/script.hxx
+++ b/libbuild2/build/script/script.hxx
@@ -189,6 +189,11 @@ namespace build2
         virtual void
         create_temp_dir () override;
 
+        // Call the scheduler's sleep() function.
+        //
+        virtual void
+        sleep (const duration&) override;
+
         // Variables.
         //
       public:
diff --git a/libbuild2/script/run.cxx b/libbuild2/script/run.cxx
index 528f42f..e669b29 100644
--- a/libbuild2/script/run.cxx
+++ b/libbuild2/script/run.cxx
@@ -3083,7 +3083,7 @@ namespace build2
             // If/when required we could probably support the precise sleep
             // mode (e.g., via an option).
             //
-            env.context.sched->sleep (t);
+            env.sleep (t);
           }
         };
 
diff --git a/libbuild2/script/script.hxx b/libbuild2/script/script.hxx
index f5bd69a..76c4010 100644
--- a/libbuild2/script/script.hxx
+++ b/libbuild2/script/script.hxx
@@ -588,6 +588,11 @@ namespace build2
       virtual void
       create_temp_dir () = 0;
 
+      // Used as an implementation of the sleep builtin.
+      //
+      virtual void
+      sleep (const duration&) = 0;
+
     public:
       virtual
       ~environment () = default;
diff --git a/libbuild2/test/script/script.cxx b/libbuild2/test/script/script.cxx
index 7862120..176daf3 100644
--- a/libbuild2/test/script/script.cxx
+++ b/libbuild2/test/script/script.cxx
@@ -181,6 +181,12 @@ namespace build2
                : exported_vars;
       }
 
+      void scope::
+      sleep (const duration& d)
+      {
+        context.sched->sleep (d);
+      }
+
       // script_base
       //
       script_base::
diff --git a/libbuild2/test/script/script.hxx b/libbuild2/test/script/script.hxx
index 9409b01..d1e0f53 100644
--- a/libbuild2/test/script/script.hxx
+++ b/libbuild2/test/script/script.hxx
@@ -140,6 +140,11 @@ namespace build2
         virtual void
         create_temp_dir () override {assert (false);};
 
+        // Call the scheduler's sleep() function.
+        //
+        virtual void
+        sleep (const duration&) override;
+
         // Return true if this is a test program path.
         //
         // Note that currently the test program is only specified via the test