diff options
| author | daniel <danieruru@gmail.com> | 2013-01-12 14:50:56 +0900 |
|---|---|---|
| committer | daniel <danieruru@gmail.com> | 2013-01-12 14:50:56 +0900 |
| commit | 7c6b1548f8e3c24565d45837bbde961ece718f41 (patch) | |
| tree | b91f22f45eea0c95bb1b69f11f1f1d8ee3f10b4d /libvxi11client/perlbits/Client.xs | |
| parent | 6b74097642353500f965bdc024c76051c090b4f4 (diff) | |
Add the ability to wait for interrupts
Diffstat (limited to 'libvxi11client/perlbits/Client.xs')
| -rw-r--r-- | libvxi11client/perlbits/Client.xs | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/libvxi11client/perlbits/Client.xs b/libvxi11client/perlbits/Client.xs index b747707..ebfc037 100644 --- a/libvxi11client/perlbits/Client.xs +++ b/libvxi11client/perlbits/Client.xs @@ -52,15 +52,22 @@ docmd(cmd, waitforlock) RETVAL int -enable_srq(enable, callback) +enable_srq(enable) bool enable - SV * callback CODE: - RETVAL = glue_enable_srq(enable, callback); + RETVAL = glue_enable_srq(enable); OUTPUT: RETVAL int +wait_for_interrupt() + CODE: + RETVAL = glue_wait_for_interrupt(); + OUTPUT: + RETVAL + + +int local(waitforlock) bool waitforlock CODE: |