diff options
| author | Jaroslav Kysela <perex@perex.cz> | 2003-08-03 20:36:53 +0000 |
|---|---|---|
| committer | Jaroslav Kysela <perex@perex.cz> | 2003-08-03 20:36:53 +0000 |
| commit | 5efcf32772def5591c79def5c656d2a006afec5b (patch) | |
| tree | 8648137c8d4533d45e00852a4217ad05db935dfa /alsalisp | |
| parent | 2699f5510bee12c0764ed935e18304945c453cc8 (diff) | |
alisp - implemented hctl_elem_read/write and find
Diffstat (limited to 'alsalisp')
| -rw-r--r-- | alsalisp/hctl.lisp | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/alsalisp/hctl.lisp b/alsalisp/hctl.lisp index bcf4ec0b..521334b1 100644 --- a/alsalisp/hctl.lisp +++ b/alsalisp/hctl.lisp @@ -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)) ) ) |