Update of /cvsroot/alsa/alsa-lib/alsalisp
In directory sc8-pr-cvs1:/tmp/cvs-serv5084/alsalisp
Modified Files:
alsalisp.c hello.lisp
Added Files:
hctl.lisp
Log Message:
Added snd_hctl_open_ctl() function.
alisp massive extensions and tested ALSA function bindings.
--- NEW FILE: hctl.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")
)
)
Index: alsalisp.c
===================================================================
RCS file: /cvsroot/alsa/alsa-lib/alsalisp/alsalisp.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- alsalisp.c 27 Jun 2003 20:39:02 -0000 1.2
+++ alsalisp.c 27 Jul 2003 20:20:26 -0000 1.3
@@ -68,7 +68,7 @@
cfg.out = cfg.eout = cfg.vout = cfg.wout = cfg.dout = out;
cfg.root = root;
cfg.node = root;
- err = alsa_lisp(&cfg);
+ err = alsa_lisp(&cfg, NULL);
}
if (err < 0)
fprintf(stderr, "alsa lisp returned error %i (%s)\n", err,
strerror(err));
Index: hello.lisp
===================================================================
RCS file: /cvsroot/alsa/alsa-lib/alsalisp/hello.lisp,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- hello.lisp 26 Jul 2003 15:19:27 -0000 1.3
+++ hello.lisp 27 Jul 2003 20:20:26 -0000 1.4
@@ -13,3 +13,8 @@
(princ "Float test 1.1 + 1.35 = " (+ 1.1 1.35) "\n")
(princ "Factorial of 10.0: " (factorial 10.0) "\n")
+
+(setq alist '((one . first) (two . second) (three . third)))
+(princ "alist = " alist "\n")
+(princ "alist assoc one = " (assoc 'one alist) "\n")
+(princ "alist rassoc third = " (rassoc 'third alist) "\n")
-------------------------------------------------------
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
