Update of /cvsroot/alsa/alsa-lib/alsalisp
In directory sc8-pr-cvs1:/tmp/cvs-serv8141/alsalisp
Modified Files:
test.lisp
Log Message:
ALISP update
- function names are more emacs-like
- implemented (format) function
- fixed numerous memory-leaks (valgrind is now happy)
Ordinary mixer
- added the global view (using hdsp names only)
Index: test.lisp
===================================================================
RCS file: /cvsroot/alsa/alsa-lib/alsalisp/test.lisp,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- test.lisp 21 Dec 2003 18:25:57 -0000 1.2
+++ test.lisp 23 Dec 2003 16:42:55 -0000 1.3
@@ -3,7 +3,7 @@
; The test is indended to find memory leaks.
;
; Copyright (c) 2003 Jaroslav Kysela <[EMAIL PROTECTED]>
-; License: GPL
+; License: GPL v2 (http://www.gnu.org/licenses/gpl.html)
;
;
@@ -120,7 +120,7 @@
(atom "one") (&check-memory)
(atom "one" 'two) (&check-memory)
-(call) (&check-memory)
+(funcall) (&check-memory)
(car) (&check-memory)
(car '(one . two)) (&check-memory)
@@ -128,6 +128,13 @@
(cdr) (&check-memory)
(cdr '(one . two)) (&check-memory)
+(concat) (&check-memory)
+(concat 'aaaa) (&check-memory)
+(concat 'aaaa 'bbbb) (&check-memory)
+(concat "aaaa") (&check-memory)
+(concat "aaaa" "bbbb") (&check-memory)
+(concat "aaaa" "bbbb" "cccc") (&check-memory)
+
(cond) (&check-memory)
(cond 0) (&check-memory)
(cond 0 1) (&check-memory)
@@ -160,11 +167,17 @@
(exfun 'abcd) (&check-memory)
(exfun 'abcd 'ijkl) (&check-memory)
-(float) (&check-memory)
-(float 1) (&check-memory)
-(float 'a) (&check-memory)
-(float "a" "b" "c") (&check-memory)
-(float "1.2") (&check-memory)
+(format) (&check-memory)
+(format 1) (&check-memory)
+(format 'a) (&check-memory)
+(format "a" "b" "c") (&check-memory)
+(format "1.2") (&check-memory)
+(format "%c" 43) (&check-memory)
+(format "%d" 12) (&check-memory)
+(format "%i" 12) (&check-memory)
+(format "%f" 12.1) (&check-memory)
+(format "%s" "abcd") (&check-memory)
+(format "%s %i %i" "abcd" 1 2) (&check-memory)
(garbage-collect) (&check-memory)
(gc) (&check-memory)
@@ -179,12 +192,6 @@
(include "itest.lisp") (&check-memory)
-(int) (&check-memory)
-(int 1) (&check-memory)
-(int 'a) (&check-memory)
-(int "a" "b" "c") (&check-memory)
-(int "1.2") (&check-memory)
-
(list) (&check-memory)
(list "a") (&check-memory)
(list "a" "b") (&check-memory)
@@ -267,10 +274,28 @@
(setq a 1) (unsetq a) (&check-memory)
(setq a 1 2) (unsetq a) (&check-memory)
-(str) (&check-memory)
-(str 1) (&check-memory)
-(str 1 2 3) (&check-memory)
-(str 1.2 1.3) (&check-memory)
+(string-equal) (&check-memory)
+(string-equal 1) (&check-memory)
+(string-equal "a") (&check-memory)
+(string-equal "a" "a") (&check-memory)
+(string-equal "a" "b") (&check-memory)
+(string-equal "a" "b" "c") (&check-memory)
+
+(string-to-integer) (&check-memory)
+(string-to-integer 1) (&check-memory)
+(string-to-integer 1.5) (&check-memory)
+(string-to-integer "a") (&check-memory)
+(string-to-integer "a" "a") (&check-memory)
+(string-to-integer "a" "b") (&check-memory)
+(string-to-integer "a" "b" "c") (&check-memory)
+
+(string-to-float) (&check-memory)
+(string-to-float 1) (&check-memory)
+(string-to-float 1.5) (&check-memory)
+(string-to-float "a") (&check-memory)
+(string-to-float "a" "a") (&check-memory)
+(string-to-float "a" "b") (&check-memory)
+(string-to-float "a" "b" "c") (&check-memory)
(string=) (&check-memory)
(string= 1) (&check-memory)
@@ -279,13 +304,6 @@
(string= "a" "b") (&check-memory)
(string= "a" "b" "c") (&check-memory)
-(string-equal) (&check-memory)
-(string-equal 1) (&check-memory)
-(string-equal "a") (&check-memory)
-(string-equal "a" "a") (&check-memory)
-(string-equal "a" "b") (&check-memory)
-(string-equal "a" "b" "c") (&check-memory)
-
(unless) (&check-memory)
(unless 1) (&check-memory)
(unless 0 1 2) (&check-memory)
@@ -322,27 +340,31 @@
(unsetq abcd)
(&check-memory)
+(setq abcd (("abcd" . "efgh") ("1234" . "5678")))
+(unsetq abcd)
+(&check-memory)
+
(defun myfun () (princ "a\n"))
(exfun 'myfun)
(unsetq myfun)
(&check-memory)
(defun myfun () (princ "a\n"))
-(call 'myfun)
-(call 'myfun 'aaaaa)
+(funcall 'myfun)
+(funcall 'myfun 'aaaaa)
(unsetq myfun)
(&check-memory)
(defun myfun (o) (princ o "a\n"))
-(call 'myfun)
-(call 'myfun 'aaaaa)
+(funcall 'myfun)
+(funcall 'myfun 'aaaaa)
(unsetq myfun)
(&check-memory)
(defun myfun (o p) (princ o p "\n"))
-(call 'myfun)
-(call 'myfun 'aaaaa)
-(call 'myfun 'aaaaa 'bbbbb)
+(funcall 'myfun)
+(funcall 'myfun 'aaaaa)
+(funcall 'myfun 'aaaaa 'bbbbb)
(unsetq myfun)
(&check-memory)
-------------------------------------------------------
This SF.net email is sponsored by: IBM Linux Tutorials.
Become an expert in LINUX or just sharpen your skills. Sign up for IBM's
Free Linux Tutorials. Learn everything from the bash shell to sys admin.
Click now! http://ads.osdn.com/?ad_id=1278&alloc_id=3371&op=click
_______________________________________________
Alsa-cvslog mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/alsa-cvslog
