aml: add support for the `DefSleep` opcode

aml/src/lib.rs

@@ -694,6 +694,10 @@ pub trait Handler: Send + Sync {
     /// 100 microseconds.
     fn stall(&self, microseconds: u64);
 
+    /// Sleep for at least the given number of **milliseconds**. An implementation may round to the closest sleep time
+    /// supported, and should relinquish the processor.
+    fn sleep(&self, milliseconds: u64);
+
     fn handle_fatal_error(&self, fatal_type: u8, fatal_code: u32, fatal_arg: u64) {
         panic!("Fatal error while executing AML (encountered DefFatal op). fatal_type = {:?}, fatal_code = {:?}, fatal_arg = {:?}", fatal_type, fatal_code, fatal_arg);
     }

aml/src/opcode.rs

@@ -56,6 +56,7 @@ pub const DEF_RETURN_OP: u8 = 0xa4;
 pub const DEF_BREAK_OP: u8 = 0xa5;
 pub const DEF_BREAKPOINT_OP: u8 = 0xcc;
 pub const EXT_DEF_STALL_OP: u8 = 0x21;
+pub const EXT_DEF_SLEEP_OP: u8 = 0x22;
 
 /*
  * Expression opcodes

aml/src/statement.rs

@@ -39,6 +39,7 @@ where
             def_if_else(),
             def_noop(),
             def_return(),
+            def_sleep(),
             def_stall(),
             def_while()
         ),
@@ -210,6 +211,27 @@ where
         .discard_result()
 }
 
+fn def_sleep<'a, 'c>() -> impl Parser<'a, 'c, ()>
+where
+    'c: 'a,
+{
+    /*
+     * DefSleep := ExtOpPrefix 0x22 MSecTime
+     * MSecTime := TermArg => Integer
+     */
+    ext_opcode(opcode::EXT_DEF_SLEEP_OP)
+        .then(comment_scope(
+            DebugVerbosity::Scopes,
+            "DefSleep",
+            term_arg().map_with_context(|milliseconds, context| {
+                let milliseconds = try_with_context!(context, milliseconds.as_integer(&context));
+                context.handler.sleep(milliseconds);
+                (Ok(()), context)
+            }),
+        ))
+        .discard_result()
+}
+
 fn def_stall<'a, 'c>() -> impl Parser<'a, 'c, ()>
 where
     'c: 'a,