mirror of
https://github.com/alsa-project/alsa-lib.git
synced 2025-10-29 05:40:25 -04:00
49 lines
1.2 KiB
Common Lisp
49 lines
1.2 KiB
Common Lisp
(setq ctl (acall 'ctl_open ('default nil)))
|
|
(setq ctl (car (cdr ctl)))
|
|
(setq hctl (acall 'hctl_open_ctl ctl))
|
|
(setq hctl (car (cdr hctl)))
|
|
(setq hctl (acall 'hctl_close hctl))
|
|
|
|
(setq hctl (acall 'hctl_open ('default nil)))
|
|
(if (= (car hctl) 0)
|
|
(progn
|
|
(princ "open success: " hctl "\n")
|
|
(setq hctl (car (cdr hctl)))
|
|
(princ "open hctl: " hctl "\n")
|
|
(setq hctl (acall 'hctl_close hctl))
|
|
(if (= hctl 0)
|
|
(princ "close success\n")
|
|
(princ "close failed: " hctl "\n")
|
|
)
|
|
)
|
|
(progn
|
|
(princ "open failed: " hctl "\n")
|
|
)
|
|
)
|
|
|
|
(setq ctl (acall 'ctl_open ('default nil)))
|
|
(if (= (car ctl) 0)
|
|
(progn
|
|
(princ "ctl open success: " ctl "\n")
|
|
(setq ctl (car (cdr ctl)))
|
|
(setq hctl (acall 'hctl_open_ctl ctl))
|
|
(if (= (car hctl) 0)
|
|
(progn
|
|
(princ "hctl open success: " hctl "\n")
|
|
(setq hctl (car (cdr hctl)))
|
|
(princ "open hctl: " hctl "\n")
|
|
(setq hctl (acall 'hctl_close hctl))
|
|
(if (= hctl 0)
|
|
(princ "hctl close success\n")
|
|
(princ "hctl close failed: " hctl "\n")
|
|
)
|
|
)
|
|
(progn
|
|
(princ "hctl open failed: " ctl "\n")
|
|
)
|
|
)
|
|
)
|
|
(progn
|
|
(princ "ctl open failed: " ctl "\n")
|
|
)
|
|
)
|