From d18291976329640e2a6d0a0403fd273ffc596517 Mon Sep 17 00:00:00 2001
From: Olivier Dion <olivier.dion@savoirfairelinux.com>
Date: Fri, 29 Oct 2021 14:29:31 -0400
Subject: [PATCH] agent/utils: Add from_guile()::operator uint8_t()
Change-Id: I00df0524c8b00ad55fffe1ab17e82ba8a8ee9c0a
---
test/agent/src/utils.h | 7 +++++++
1 file changed, 7 insertions(+)
diff --git a/test/agent/src/utils.h b/test/agent/src/utils.h
index f74c12ff81..e0b1869e37 100644
--- a/test/agent/src/utils.h
+++ b/test/agent/src/utils.h
@@ -138,6 +138,13 @@ struct from_guile
return scm_to_bool(value);
}
+ operator uint8_t()
+ {
+ ensure_type("uint8", [](SCM v){ return scm_is_unsigned_integer(v, 0, 255); });
+
+ return scm_to_int(value);
+ }
+
operator int()
{
ensure_type("integer", scm_is_integer);
--
GitLab