1/* 2 * ALSA lisp implementation 3 * Copyright (c) 2003 by Jaroslav Kysela <perex@perex.cz> 4 * 5 * 6 * This library is free software; you can redistribute it and/or modify 7 * it under the terms of the GNU Lesser General Public License as 8 * published by the Free Software Foundation; either version 2.1 of 9 * the License, or (at your option) any later version. 10 * 11 * This program is distributed in the hope that it will be useful, 12 * but WITHOUT ANY WARRANTY; without even the implied warranty of 13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 14 * GNU Lesser General Public License for more details. 15 * 16 * You should have received a copy of the GNU Lesser General Public 17 * License along with this library; if not, write to the Free Software 18 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA 19 * 20 */ 21 22#include <stdio.h> 23#include <stdlib.h> 24#include <string.h> 25#include <unistd.h> 26#include <err.h> 27 28#include "asoundlib.h" 29#include "alisp.h" 30 31static int verbose = 0; 32static int warning = 0; 33static int debug = 0; 34 35static void interpret_filename(const char *file) 36{ 37 struct alisp_cfg cfg; 38 snd_input_t *in; 39 snd_output_t *out; 40 int err; 41 42 memset(&cfg, 0, sizeof(cfg)); 43 if (file != NULL && strcmp(file, "-") != 0) { 44 if ((err = snd_input_stdio_open(&in, file, "r")) < 0) { 45 fprintf(stderr, "unable to open filename '%s' (%s)\n", file, snd_strerror(err)); 46 return; 47 } 48 } else { 49 if ((err = snd_input_stdio_attach(&in, stdin, 0)) < 0) { 50 fprintf(stderr, "unable to attach stdin '%s' (%s)\n", file, snd_strerror(err)); 51 return; 52 } 53 } 54 if (snd_output_stdio_attach(&out, stdout, 0) < 0) { 55 snd_input_close(in); 56 fprintf(stderr, "unable to attach stdout (%s)\n", strerror(errno)); 57 return; 58 } 59 cfg.verbose = verbose; 60 cfg.warning = warning; 61 cfg.debug = debug; 62 cfg.in = in; 63 cfg.out = cfg.eout = cfg.vout = cfg.wout = cfg.dout = out; 64 err = alsa_lisp(&cfg, NULL); 65 if (err < 0) 66 fprintf(stderr, "alsa lisp returned error %i (%s)\n", err, strerror(err)); 67 else if (verbose) 68 printf("file %s passed ok via alsa lisp interpreter\n", file); 69 snd_output_close(out); 70 snd_input_close(in); 71} 72 73static void usage(void) 74{ 75 fprintf(stderr, "usage: alsalisp [-vdw] [file...]\n"); 76 exit(1); 77} 78 79int main(int argc, char **argv) 80{ 81 int c; 82 83 while ((c = getopt(argc, argv, "vdw")) != -1) { 84 switch (c) { 85 case 'v': 86 verbose = 1; 87 break; 88 case 'd': 89 debug = 1; 90 break; 91 case 'w': 92 warning = 1; 93 break; 94 case '?': 95 default: 96 usage(); 97 /* NOTREACHED */ 98 } 99 } 100 argc -= optind; 101 argv += optind; 102 103 if (argc < 1) 104 interpret_filename(NULL); 105 else 106 while (*argv) 107 interpret_filename(*argv++); 108 109 return 0; 110} 111