mirrors/alsa-lib
1
0
Fork 0
mirror of https://github.com/alsa-project/alsa-lib.git synced 2025-12-16 08:56:42 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fixed some lisp bugs

Browse source
This commit is contained in:
Jaroslav Kysela 2003-06-27 20:38:13 +00:00
parent 7a69ed8558
commit 1097c437a1
5 changed files with 48 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

4
alsalisp/alsalisp.c
View file

@ -65,7 +65,7 @@ static void interpret_filename(const char *file)
cfg.warning = warning;
cfg.debug = debug;
cfg.in = in;
cfg.out = cfg.vout = cfg.wout = cfg.dout = out;
cfg.out = cfg.eout = cfg.vout = cfg.wout = cfg.dout = out;
cfg.root = root;
cfg.node = root;
err = alsa_lisp(&cfg);
@ -73,7 +73,7 @@ static void interpret_filename(const char *file)
if (err < 0)
fprintf(stderr, "alsa lisp returned error %i (%s)\n", err, strerror(err));
else if (verbose)
printf("file %s passed ok via alsa lisp interpreter", file);
printf("file %s passed ok via alsa lisp interpreter\n", file);
snd_config_save(root, out);
snd_output_close(out);
snd_input_close(in);

3
alsalisp/hello.lisp Normal file
View file

@ -0,0 +1,3 @@
(princ "Hello ALSA world\n")
(princ "One " 1 "\n")
(princ "Two " (+ 1 1) "\n")