diff options
| -rw-r--r-- | libvxi11client/perlbits/Client.xs | 14 | ||||
| -rw-r--r-- | libvxi11client/perlbits/VXI11-Client.t | 8 |
2 files changed, 11 insertions, 11 deletions
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"); |