From de273dd312b0f0e32dabca84ba6f20800b501395 Mon Sep 17 00:00:00 2001
From: hadaq <hadaq>
Date: Sat, 25 Aug 2012 00:21:52 +0000
Subject: [PATCH] added trb_set_address function

---
 libtrbnet_perl/TrbNet.xs | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

diff --git a/libtrbnet_perl/TrbNet.xs b/libtrbnet_perl/TrbNet.xs
index 044c412..5873cbc 100644
--- a/libtrbnet_perl/TrbNet.xs
+++ b/libtrbnet_perl/TrbNet.xs
@@ -3,6 +3,7 @@
 #include <XSUB.h>
 #include <assert.h>
 #include <string.h>
+#include <uconfig.h>
 
 #include <trbnet.h>
 #include <trberror.h>
@@ -211,3 +212,20 @@ trb_register_modify(trb_address, reg_address, mode, bitMask, bitValue)
      } else {
        XPUSHs(sv_2mortal(newSVuv(1)));
      }
+
+
+void
+trb_set_address(uid, endpoint, trb_address)
+     U32  uid
+     U8 endpoint
+     U16 trb_address
+   INIT:
+     int status;
+        
+   PPCODE:
+     status =  trb_set_address(uid, endpoint, trb_address);
+     if (status < 0) {
+       XSRETURN_UNDEF;
+     } else {
+       XPUSHs(sv_2mortal(newSVuv(1)));
+     }
-- 
2.43.0