mirrors/alsa-lib
1
0
Fork 0
mirror of https://github.com/alsa-project/alsa-lib.git synced 2025-11-03 09:01:52 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions 1
alsa-lib/alsalisp/hctl.lisp

92 lines
2.6 KiB
Common Lisp
Raw Normal View History

added snd_hctl_ctl() function ordinary mixer: - revised Ordinary Mixer I/O type - sndo_mixer_open() take PCMs rather than strings to pass the real relationship - an initial version of toplevel alisp script more alisp development: - renamed a* functions to A* functions (acall -> Acall etc.) - many improvements (unset*, exfun, Acall pcm_info, Asnderr, Asyserr)
2003-09-09 19:24:35 +00:00
(setq card (Acall 'card_next -1))
(setq card (Aresult card))
More alisp extensions (card related functions, ctl_card_info).
2003-07-29 13:19:19 +00:00
(while (>= card 0)
(progn
(princ "found card: " card "\n")
added snd_hctl_ctl() function ordinary mixer: - revised Ordinary Mixer I/O type - sndo_mixer_open() take PCMs rather than strings to pass the real relationship - an initial version of toplevel alisp script more alisp development: - renamed a* functions to A* functions (acall -> Acall etc.) - many improvements (unset*, exfun, Acall pcm_info, Asnderr, Asyserr)
2003-09-09 19:24:35 +00:00
(princ " name : " (Aresult (Acall 'card_get_name card)) "\n")
(princ " longname: " (Aresult (Acall 'card_get_longname card)) "\n")
(setq card (Acall 'card_next card))
(setq card (Aresult card))
More alisp extensions (card related functions, ctl_card_info).
2003-07-29 13:19:19 +00:00
)
)
alsalisp memory allocation optimization - force of reusing alisp objects - added auto-garbage-collect mechanism - fixed bad garbage-collect (yes, the original code can free "running" lisp program) - hctl.lisp test example - reduced lisp object memory pool usage from 240kB to 29kB (auto-gc) - reduced --''-- from 29kB (auto-gc) to 9kB (manual gc) FIXME: we need definitely an opminization for the alisp object lookups - use bsearch()?
2003-08-22 09:41:17 +00:00
(unsetq card)
More alisp extensions (card related functions, ctl_card_info).
2003-07-29 13:19:19 +00:00
added snd_hctl_ctl() function ordinary mixer: - revised Ordinary Mixer I/O type - sndo_mixer_open() take PCMs rather than strings to pass the real relationship - an initial version of toplevel alisp script more alisp development: - renamed a* functions to A* functions (acall -> Acall etc.) - many improvements (unset*, exfun, Acall pcm_info, Asnderr, Asyserr)
2003-09-09 19:24:35 +00:00
(princ "card_get_index test (SI7018): " (Acall 'card_get_index "SI7018") "\n")
(princ "card_get_index test (ABCD): " (Acall 'card_get_index "ABCD") "\n")
Added snd_hctl_open_ctl() function. alisp massive extensions and tested ALSA function bindings.
2003-07-27 20:20:26 +00:00
added snd_hctl_ctl() function ordinary mixer: - revised Ordinary Mixer I/O type - sndo_mixer_open() take PCMs rather than strings to pass the real relationship - an initial version of toplevel alisp script more alisp development: - renamed a* functions to A* functions (acall -> Acall etc.) - many improvements (unset*, exfun, Acall pcm_info, Asnderr, Asyserr)
2003-09-09 19:24:35 +00:00
(setq hctl (Acall 'hctl_open 'default nil))
(if (= (Aerror hctl) 0)
Added snd_hctl_open_ctl() function. alisp massive extensions and tested ALSA function bindings.
2003-07-27 20:20:26 +00:00
(progn
(princ "open success: " hctl "\n")
added snd_hctl_ctl() function ordinary mixer: - revised Ordinary Mixer I/O type - sndo_mixer_open() take PCMs rather than strings to pass the real relationship - an initial version of toplevel alisp script more alisp development: - renamed a* functions to A* functions (acall -> Acall etc.) - many improvements (unset*, exfun, Acall pcm_info, Asnderr, Asyserr)
2003-09-09 19:24:35 +00:00
(setq hctl (Ahandle hctl))
Added snd_hctl_open_ctl() function. alisp massive extensions and tested ALSA function bindings.
2003-07-27 20:20:26 +00:00
(princ "open hctl: " hctl "\n")
added snd_hctl_ctl() function ordinary mixer: - revised Ordinary Mixer I/O type - sndo_mixer_open() take PCMs rather than strings to pass the real relationship - an initial version of toplevel alisp script more alisp development: - renamed a* functions to A* functions (acall -> Acall etc.) - many improvements (unset*, exfun, Acall pcm_info, Asnderr, Asyserr)
2003-09-09 19:24:35 +00:00
(setq hctl (Acall 'hctl_close hctl))
Added snd_hctl_open_ctl() function. alisp massive extensions and tested ALSA function bindings.
2003-07-27 20:20:26 +00:00
(if (= hctl 0)
(princ "close success\n")
(princ "close failed: " hctl "\n")
)
)
(progn
(princ "open failed: " hctl "\n")
)
)
alsalisp memory allocation optimization - force of reusing alisp objects - added auto-garbage-collect mechanism - fixed bad garbage-collect (yes, the original code can free "running" lisp program) - hctl.lisp test example - reduced lisp object memory pool usage from 240kB to 29kB (auto-gc) - reduced --''-- from 29kB (auto-gc) to 9kB (manual gc) FIXME: we need definitely an opminization for the alisp object lookups - use bsearch()?
2003-08-22 09:41:17 +00:00
(unsetq hctl)
Added snd_hctl_open_ctl() function. alisp massive extensions and tested ALSA function bindings.
2003-07-27 20:20:26 +00:00
added snd_hctl_ctl() function ordinary mixer: - revised Ordinary Mixer I/O type - sndo_mixer_open() take PCMs rather than strings to pass the real relationship - an initial version of toplevel alisp script more alisp development: - renamed a* functions to A* functions (acall -> Acall etc.) - many improvements (unset*, exfun, Acall pcm_info, Asnderr, Asyserr)
2003-09-09 19:24:35 +00:00
(setq ctl (Acall 'ctl_open 'default nil))
(if (= (Aerror ctl) 0)
Added snd_hctl_open_ctl() function. alisp massive extensions and tested ALSA function bindings.
2003-07-27 20:20:26 +00:00
(progn
(princ "ctl open success: " ctl "\n")
added snd_hctl_ctl() function ordinary mixer: - revised Ordinary Mixer I/O type - sndo_mixer_open() take PCMs rather than strings to pass the real relationship - an initial version of toplevel alisp script more alisp development: - renamed a* functions to A* functions (acall -> Acall etc.) - many improvements (unset*, exfun, Acall pcm_info, Asnderr, Asyserr)
2003-09-09 19:24:35 +00:00
(setq ctl (Ahandle ctl))
(setq info (Aresult (Acall 'ctl_card_info ctl)))
More alisp extensions (card related functions, ctl_card_info).
2003-07-29 13:19:19 +00:00
(princ "ctl card info: " info "\n")
(princ "ctl card info (mixername): " (cdr (assq "mixername" info)) "\n")
alsalisp memory allocation optimization - force of reusing alisp objects - added auto-garbage-collect mechanism - fixed bad garbage-collect (yes, the original code can free "running" lisp program) - hctl.lisp test example - reduced lisp object memory pool usage from 240kB to 29kB (auto-gc) - reduced --''-- from 29kB (auto-gc) to 9kB (manual gc) FIXME: we need definitely an opminization for the alisp object lookups - use bsearch()?
2003-08-22 09:41:17 +00:00
(unsetq info)
added snd_hctl_ctl() function ordinary mixer: - revised Ordinary Mixer I/O type - sndo_mixer_open() take PCMs rather than strings to pass the real relationship - an initial version of toplevel alisp script more alisp development: - renamed a* functions to A* functions (acall -> Acall etc.) - many improvements (unset*, exfun, Acall pcm_info, Asnderr, Asyserr)
2003-09-09 19:24:35 +00:00
(setq hctl (Acall 'hctl_open_ctl ctl))
(if (= (Aerror hctl) 0)
Added snd_hctl_open_ctl() function. alisp massive extensions and tested ALSA function bindings.
2003-07-27 20:20:26 +00:00
(progn
(princ "hctl open success: " hctl "\n")
added snd_hctl_ctl() function ordinary mixer: - revised Ordinary Mixer I/O type - sndo_mixer_open() take PCMs rather than strings to pass the real relationship - an initial version of toplevel alisp script more alisp development: - renamed a* functions to A* functions (acall -> Acall etc.) - many improvements (unset*, exfun, Acall pcm_info, Asnderr, Asyserr)
2003-09-09 19:24:35 +00:00
(setq hctl (Ahandle hctl))
Added snd_hctl_open_ctl() function. alisp massive extensions and tested ALSA function bindings.
2003-07-27 20:20:26 +00:00
(princ "open hctl: " hctl "\n")
added snd_hctl_ctl() function ordinary mixer: - revised Ordinary Mixer I/O type - sndo_mixer_open() take PCMs rather than strings to pass the real relationship - an initial version of toplevel alisp script more alisp development: - renamed a* functions to A* functions (acall -> Acall etc.) - many improvements (unset*, exfun, Acall pcm_info, Asnderr, Asyserr)
2003-09-09 19:24:35 +00:00
(princ "load hctl: " (Acall 'hctl_load hctl) "\n")
(princ "first : " (Acall 'hctl_first_elem hctl) "\n")
(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")
(setq elem (Acall 'hctl_first_elem hctl))
More alisp changes
2003-08-01 18:21:19 +00:00
(while elem
(progn
added snd_hctl_ctl() function ordinary mixer: - revised Ordinary Mixer I/O type - sndo_mixer_open() take PCMs rather than strings to pass the real relationship - an initial version of toplevel alisp script more alisp development: - renamed a* functions to A* functions (acall -> Acall etc.) - many improvements (unset*, exfun, Acall pcm_info, Asnderr, Asyserr)
2003-09-09 19:24:35 +00:00
(setq info (Acall 'hctl_elem_info elem))
More alisp changes
2003-08-01 18:21:19 +00:00
(princ info "\n")
added snd_hctl_ctl() function ordinary mixer: - revised Ordinary Mixer I/O type - sndo_mixer_open() take PCMs rather than strings to pass the real relationship - an initial version of toplevel alisp script more alisp development: - renamed a* functions to A* functions (acall -> Acall etc.) - many improvements (unset*, exfun, Acall pcm_info, Asnderr, Asyserr)
2003-09-09 19:24:35 +00:00
(setq value (Acall 'hctl_elem_read elem))
alisp - implemented hctl_elem_read/write and find
2003-08-03 20:36:53 +00:00
(princ value "\n")
added snd_hctl_ctl() function ordinary mixer: - revised Ordinary Mixer I/O type - sndo_mixer_open() take PCMs rather than strings to pass the real relationship - an initial version of toplevel alisp script more alisp development: - renamed a* functions to A* functions (acall -> Acall etc.) - many improvements (unset*, exfun, Acall pcm_info, Asnderr, Asyserr)
2003-09-09 19:24:35 +00:00
(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")
alisp - implemented hctl_elem_read/write and find
2003-08-03 20:36:53 +00:00
)
alsalisp memory allocation optimization - force of reusing alisp objects - added auto-garbage-collect mechanism - fixed bad garbage-collect (yes, the original code can free "running" lisp program) - hctl.lisp test example - reduced lisp object memory pool usage from 240kB to 29kB (auto-gc) - reduced --''-- from 29kB (auto-gc) to 9kB (manual gc) FIXME: we need definitely an opminization for the alisp object lookups - use bsearch()?
2003-08-22 09:41:17 +00:00
(unsetq info value)
(gc)
added snd_hctl_ctl() function ordinary mixer: - revised Ordinary Mixer I/O type - sndo_mixer_open() take PCMs rather than strings to pass the real relationship - an initial version of toplevel alisp script more alisp development: - renamed a* functions to A* functions (acall -> Acall etc.) - many improvements (unset*, exfun, Acall pcm_info, Asnderr, Asyserr)
2003-09-09 19:24:35 +00:00
(setq elem (Acall 'hctl_elem_next elem))
More alisp changes
2003-08-01 18:21:19 +00:00
)
)
Removed set variable (elem)
2003-12-13 18:39:18 +00:00
(unsetq elem)
added snd_hctl_ctl() function ordinary mixer: - revised Ordinary Mixer I/O type - sndo_mixer_open() take PCMs rather than strings to pass the real relationship - an initial version of toplevel alisp script more alisp development: - renamed a* functions to A* functions (acall -> Acall etc.) - many improvements (unset*, exfun, Acall pcm_info, Asnderr, Asyserr)
2003-09-09 19:24:35 +00:00
(setq hctl (Acall 'hctl_close hctl))
Added snd_hctl_open_ctl() function. alisp massive extensions and tested ALSA function bindings.
2003-07-27 20:20:26 +00:00
(if (= hctl 0)
(princ "hctl close success\n")
(princ "hctl close failed: " hctl "\n")
)
)
(progn
alsalisp memory allocation optimization - force of reusing alisp objects - added auto-garbage-collect mechanism - fixed bad garbage-collect (yes, the original code can free "running" lisp program) - hctl.lisp test example - reduced lisp object memory pool usage from 240kB to 29kB (auto-gc) - reduced --''-- from 29kB (auto-gc) to 9kB (manual gc) FIXME: we need definitely an opminization for the alisp object lookups - use bsearch()?
2003-08-22 09:41:17 +00:00
(princ "hctl open failed: " hctl "\n")
added snd_hctl_ctl() function ordinary mixer: - revised Ordinary Mixer I/O type - sndo_mixer_open() take PCMs rather than strings to pass the real relationship - an initial version of toplevel alisp script more alisp development: - renamed a* functions to A* functions (acall -> Acall etc.) - many improvements (unset*, exfun, Acall pcm_info, Asnderr, Asyserr)
2003-09-09 19:24:35 +00:00
(Acall 'ctl_close ctl)
Added snd_hctl_open_ctl() function. alisp massive extensions and tested ALSA function bindings.
2003-07-27 20:20:26 +00:00
)
)
alsalisp memory allocation optimization - force of reusing alisp objects - added auto-garbage-collect mechanism - fixed bad garbage-collect (yes, the original code can free "running" lisp program) - hctl.lisp test example - reduced lisp object memory pool usage from 240kB to 29kB (auto-gc) - reduced --''-- from 29kB (auto-gc) to 9kB (manual gc) FIXME: we need definitely an opminization for the alisp object lookups - use bsearch()?
2003-08-22 09:41:17 +00:00
(unsetq hctl)
Added snd_hctl_open_ctl() function. alisp massive extensions and tested ALSA function bindings.
2003-07-27 20:20:26 +00:00
)
(progn
(princ "ctl open failed: " ctl "\n")
)
)
alsalisp memory allocation optimization - force of reusing alisp objects - added auto-garbage-collect mechanism - fixed bad garbage-collect (yes, the original code can free "running" lisp program) - hctl.lisp test example - reduced lisp object memory pool usage from 240kB to 29kB (auto-gc) - reduced --''-- from 29kB (auto-gc) to 9kB (manual gc) FIXME: we need definitely an opminization for the alisp object lookups - use bsearch()?
2003-08-22 09:41:17 +00:00
(unsetq ctl)
More alisp changes
2003-08-01 18:21:19 +00:00
(&stat-memory)
alsalisp memory allocation optimization - force of reusing alisp objects - added auto-garbage-collect mechanism - fixed bad garbage-collect (yes, the original code can free "running" lisp program) - hctl.lisp test example - reduced lisp object memory pool usage from 240kB to 29kB (auto-gc) - reduced --''-- from 29kB (auto-gc) to 9kB (manual gc) FIXME: we need definitely an opminization for the alisp object lookups - use bsearch()?
2003-08-22 09:41:17 +00:00
(&dump-memory "memory.dump")
Reference in a new issue Copy permalink