Update of /cvsroot/alsa/alsa-lib/alsalisp
In directory sc8-pr-cvs1:/tmp/cvs-serv11959/alsalisp
Modified Files:
hctl.lisp
Log Message:
alisp - implemented hctl_elem_read/write and find
Index: hctl.lisp
===================================================================
RCS file: /cvsroot/alsa/alsa-lib/alsalisp/hctl.lisp,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- hctl.lisp 1 Aug 2003 18:21:19 -0000 1.4
+++ hctl.lisp 3 Aug 2003 20:36:53 -0000 1.5
@@ -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))
)
)
-------------------------------------------------------
This SF.Net email sponsored by: Free pre-built ASP.NET sites including
Data Reports, E-commerce, Portals, and Forums are available now.
Download today and enter to win an XBOX or Visual Studio .NET.
http://aspnet.click-url.com/go/psa00100003ave/direct;at.aspnet_072303_01/01
_______________________________________________
Alsa-cvslog mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/alsa-cvslog
