diff options
author | Jaroslav Kysela <perex@perex.cz> | 2003-07-30 19:14:01 +0000 |
---|---|---|
committer | Jaroslav Kysela <perex@perex.cz> | 2003-07-30 19:14:01 +0000 |
commit | 16647d9c5369f40e53813a6019af511020643bcb (patch) | |
tree | 32c01c965cd4071d5b96577d66bf4593515bb602 /alsalisp | |
parent | 184612c30a7a8aeab3f583e93c78ba21b1e7fe02 (diff) |
Added some hctl_elem functions to alisp
Diffstat (limited to 'alsalisp')
-rw-r--r-- | alsalisp/hctl.lisp | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/alsalisp/hctl.lisp b/alsalisp/hctl.lisp index af136664..4d82ede8 100644 --- a/alsalisp/hctl.lisp +++ b/alsalisp/hctl.lisp @@ -44,6 +44,12 @@ (princ "hctl open success: " hctl "\n") (setq hctl (ahandle hctl)) (princ "open hctl: " hctl "\n") + (princ "load hctl: " (acall 'hctl_load hctl) "\n") + (princ "first : " (acall 'hctl_first_elem hctl) "\n") + (princ "last : " (acall 'hctl_last_elem hctl) "\n") + (princ "next (first): " (acall 'hctl_elem_next (acall 'hctl_first_elem hctl)) "\n") + (princ "prev (last) : " (acall 'hctl_elem_prev (acall 'hctl_last_elem hctl)) "\n") + (princ "first info : " (acall 'hctl_elem_info (acall 'hctl_first_elem hctl)) "\n") (setq hctl (acall 'hctl_close hctl)) (if (= hctl 0) (princ "hctl close success\n") |