mirrors/alsa-lib
1
0
Fork 0
mirror of https://github.com/alsa-project/alsa-lib.git synced 2025-12-16 08:56:42 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Added some hctl_elem functions to alisp

Browse source
This commit is contained in:
Jaroslav Kysela 2003-07-30 19:14:01 +00:00
parent 184612c30a
commit 16647d9c53
2 changed files with 122 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

6
alsalisp/hctl.lisp
View file

@ -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")