From a8751e28e68d0f8662f240153655f3e43cd955fd Mon Sep 17 00:00:00 2001
From: daniel <danieruru@gmail.com>
Date: Thu, 24 Jan 2013 00:51:49 +0900
Subject: add default values for waitforlock

---
 libvxi11client/perlbits/Client.xs      | 14 +++++++-------
 libvxi11client/perlbits/VXI11-Client.t |  8 ++++----
 2 files changed, 11 insertions(+), 11 deletions(-)

(limited to 'libvxi11client')

diff --git a/libvxi11client/perlbits/Client.xs b/libvxi11client/perlbits/Client.xs
index 5e8130f..0de2df3 100644
--- a/libvxi11client/perlbits/Client.xs
+++ b/libvxi11client/perlbits/Client.xs
@@ -10,7 +10,7 @@ typedef VXI11Context* VXI11__Client;
 
 MODULE = VXI11::Client		PACKAGE = VXI11::Client		
 
-PROTOTYPES: ENABLE
+PROTOTYPES: DISABLE
 
 int
 vxi_startinterruptserver()
@@ -35,7 +35,7 @@ vxi_abort(context)
 		RETVAL
 
 int
-vxi_clear(context,waitforlock)
+vxi_clear(context,waitforlock = 0)
 	VXI11::Client context
 	bool	waitforlock
 	CODE:
@@ -68,7 +68,7 @@ vxi_destroy_intr_chan(context)
 		RETVAL
 
 int
-vxi_docmd(context, cmd, waitforlock)
+vxi_docmd(context, cmd, waitforlock = 0)
 	VXI11::Client context
 	unsigned long	cmd
 	bool	waitforlock
@@ -96,7 +96,7 @@ vxi_wait_for_interrupt()
 
 
 int
-vxi_local(context, waitforlock)
+vxi_local(context, waitforlock = 0)
 	VXI11::Client context
 	bool	waitforlock
 	CODE:
@@ -105,7 +105,7 @@ vxi_local(context, waitforlock)
 		RETVAL
 
 int
-vxi_lock(context, waitforlock)
+vxi_lock(context, waitforlock = 0)
 	VXI11::Client	context
 	bool	waitforlock
 	CODE:
@@ -152,7 +152,7 @@ vxi_readstatusbyte(context, OUTLIST error, OUTLIST statusbyte, waitforlock)
 			error = ret;
 
 int
-vxi_remote(context, waitforlock)
+vxi_remote(context, waitforlock = 0)
 	VXI11::Client context
 	bool	waitforlock
 	CODE:
@@ -161,7 +161,7 @@ vxi_remote(context, waitforlock)
 		RETVAL
 
 int
-vxi_trigger(context, waitforlock)
+vxi_trigger(context, waitforlock = 0)
 	VXI11::Client context
 	bool	waitforlock
 	CODE:
diff --git a/libvxi11client/perlbits/VXI11-Client.t b/libvxi11client/perlbits/VXI11-Client.t
index 2691ed2..8d24475 100644
--- a/libvxi11client/perlbits/VXI11-Client.t
+++ b/libvxi11client/perlbits/VXI11-Client.t
@@ -36,10 +36,10 @@ is($instr->vxi_enable_srq("myhandle"), 1, "Enable interrupts");
 is($instr->vxi_disable_srq(), 1, "Disable interrupts");
 is($instr->vxi_destroy_intr_chan(), 1, "Destroy intr channel");
 is($instr->vxi_abort(), 1, "Abort");
-is($instr->vxi_clear(0), 1, "Clear");
-is($instr->vxi_trigger(0), 1, "Trigger");
-is($instr->vxi_local(0), 1, "Local");
-is($instr->vxi_remote(0), 1, "Remote");
+is($instr->vxi_clear(), 1, "Clear");
+is($instr->vxi_trigger(), 1, "Trigger");
+is($instr->vxi_local(), 1, "Local");
+is($instr->vxi_remote(), 1, "Remote");
 is($instr->vxi_unlock(), 1, "Unlock");
 
 is($instr->vxi_close(), 1, "Close");
-- 
cgit