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

alisp - implemented hctl_elem_read/write and find

Browse source
This commit is contained in:
Jaroslav Kysela 2003-08-03 20:36:53 +00:00
parent 2699f5510b
commit 5efcf32772
4 changed files with 256 additions and 28 deletions
Download patch file Download diff file Expand all files Collapse all files

9
alsalisp/hctl.lisp
View file

@ -13,7 +13,7 @@
(princ "card_get_index test (SI7018): " (acall 'card_get_index "SI7018") "\n")
(princ "card_get_index test (ABCD): " (acall 'card_get_index "ABCD") "\n")
(setq hctl (acall 'hctl_open ('default nil)))
(setq hctl (acall 'hctl_open 'default nil))
(if (= (aerror hctl) 0)
(progn
(princ "open success: " hctl "\n")
@ -30,7 +30,7 @@
)
)
(setq ctl (acall 'ctl_open ('default nil)))
(setq ctl (acall 'ctl_open 'default nil))
(if (= (aerror ctl) 0)
(progn
(princ "ctl open success: " ctl "\n")
@ -54,6 +54,11 @@
(progn
(setq info (acall 'hctl_elem_info elem))
(princ info "\n")
(setq value (acall 'hctl_elem_read elem))
(princ value "\n")
(when (equal (cdr (assq "name" (car (cdr (assq "id" (aresult info)))))) "Master Playback Volume")
(princ "write Master: " (acall 'hctl_elem_write elem (20 20)) "\n")
)
(setq elem (acall 'hctl_elem_next elem))
)
)