Update of /cvsroot/alsa/alsa-lib/alsalisp
In directory sc8-pr-cvs1:/tmp/cvs-serv10642/alsalisp
Modified Files:
hctl.lisp
Log Message:
More alisp changes
Index: hctl.lisp
===================================================================
RCS file: /cvsroot/alsa/alsa-lib/alsalisp/hctl.lisp,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- hctl.lisp 30 Jul 2003 19:14:01 -0000 1.3
+++ hctl.lisp 1 Aug 2003 18:21:19 -0000 1.4
@@ -49,7 +49,14 @@
(princ "last : " (acall 'hctl_last_elem hctl) "\n")
(princ "next (first): " (acall 'hctl_elem_next (acall 'hctl_first_elem hctl))
"\n")
(princ "prev (last) : " (acall 'hctl_elem_prev (acall 'hctl_last_elem hctl))
"\n")
- (princ "first info : " (acall 'hctl_elem_info (acall 'hctl_first_elem hctl))
"\n")
+ (setq elem (acall 'hctl_first_elem hctl))
+ (while elem
+ (progn
+ (setq info (acall 'hctl_elem_info elem))
+ (princ info "\n")
+ (setq elem (acall 'hctl_elem_next elem))
+ )
+ )
(setq hctl (acall 'hctl_close hctl))
(if (= hctl 0)
(princ "hctl close success\n")
@@ -66,3 +73,5 @@
(princ "ctl open failed: " ctl "\n")
)
)
+
+(&stat-memory)
-------------------------------------------------------
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
