add hip_call() (#143)

src/core/hip_call.rs

@@ -0,0 +1,35 @@
+use super::{sys, HipResult, Result};
+
+#[macro_export]
+macro_rules! hip_call {
+    ($call:expr) => {{
+        let code = unsafe { $call };
+        ((), code).to_result()
+    }};
+}
+
+#[cfg(test)]
+mod tests {
+    use super::*;
+
+    #[test]
+    fn test_hip_call_simple() {
+        let result = hip_call!(sys::hipDeviceSynchronize());
+        assert!(result.is_ok());
+    }
+
+    #[test]
+    fn test_hip_call_with_value() {
+        let mut count = 0;
+        let result = hip_call!(sys::hipGetDeviceCount(&mut count));
+        assert!(result.is_ok());
+        assert!(count > 0);
+    }
+
+    #[test]
+    fn test_hip_call_error() {
+        // Call with invalid device ID should return error
+        let result = hip_call!(sys::hipSetDevice(99));
+        assert!(result.is_err());
+    }
+}

src/core/mod.rs

@@ -1,6 +1,7 @@
 mod device;
 mod device_types;
 mod flags;
+mod hip_call;
 mod init;
 mod memory;
 mod result;
@@ -11,6 +12,7 @@ pub mod sys;
 pub use device::*;
 pub use device_types::*;
 pub use flags::*;
+pub use hip_call::*;
 pub use init::*;
 pub use memory::*;
 pub use result::*;