mirrors/alsa-lib
1
0
Fork 0
mirror of https://github.com/alsa-project/alsa-lib.git synced 2025-10-29 05:40:25 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

More alisp changes

Browse source
This commit is contained in:
Jaroslav Kysela 2003-08-01 18:21:19 +00:00
parent 16647d9c53
commit 2699f5510b
3 changed files with 70 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

11
alsalisp/hctl.lisp
View file

@ -49,7 +49,14 @@
(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 elem (acall 'hctl_first_elem hctl))
(while elem
(progn
(setq info (acall 'hctl_elem_info elem))
(princ info "\n")
(setq elem (acall 'hctl_elem_next elem))
)
)
(setq hctl (acall 'hctl_close hctl))
(if (= hctl 0)
(princ "hctl close success\n")
@ -66,3 +73,5 @@
(princ "ctl open failed: " ctl "\n")
)
)
(&stat-memory)