/*
 *  Advanced Linux Sound Architecture Control Program
 *  Copyright (c) 1997 by Perex, APS, University of South Bohemia
 *
 *
 *   This program is free software; you can redistribute it and/or modify
 *   it under the terms of the GNU General Public License as published by
 *   the Free Software Foundation; either version 2 of the License, or
 *   (at your option) any later version.
 *
 *   This program is distributed in the hope that it will be useful,
 *   but WITHOUT ANY WARRANTY; without even the implied warranty of
 *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 *   GNU General Public License for more details.
 *
 *   You should have received a copy of the GNU General Public License
 *   along with this program; if not, write to the Free Software
 *   Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 *
 */

#include "alsactl.h"
#include <getopt.h>
#include <stdarg.h>

#define HELPID_HELP             1000
#define HELPID_FILE             1001
#define HELPID_DEBUG            1002
#define HELPID_VERSION		1003

extern int yyparse( void );
extern int linecount;
extern FILE *yyin; 
extern int yydebug;

int debugflag = 0;
char cfgfile[ 512 ] = ALSACTL_FILE;

void error( const char *fmt, ... )
{
  va_list va;
  
  va_start( va, fmt );
  fprintf( stderr, "alsactl: " );
  vfprintf( stderr, fmt, va );
  fprintf( stderr, "\n" );
  va_end( va );
}

static void help( void )
{
  printf( "Usage: alsactl <options> command\n" );
  printf( "\nAvailable options:\n" );
  printf( "  -h,--help       this help\n" );
  printf( "  -f,--file #     configuration file (default " ALSACTL_FILE ")\n" );
  printf( "  -d,--debug      debug mode\n" );
  printf( "  -v,--version    print version of this program\n" );
  printf( "\nAvailable commands:\n" );
  printf( "  store <card #>  store current driver setup for one or each soundcards\n" );
  printf( "                  to configuration file\n" );
  printf( "  restore <card #>  restore current driver setup for one or each soundcards\n" );
  printf( "                    from configuration file\n" );
}

static int store_setup( const char *cardname )
{
  int err;

  if ( !cardname ) {
    unsigned int card_mask, idx;

    card_mask = snd_cards_mask();
    if ( !card_mask ) {
      error( "No soundcards found..." );
      return 1;
    }
    soundcard_setup_init();
    for ( idx = 0; idx < 32; idx++ ) {
      if ( card_mask & (1 << idx) ) {	/* find each installed soundcards */
        if ( (err = soundcard_setup_collect( idx )) ) {
          soundcard_setup_done();
          return err;
        }
      }
    }
  } else {
    int cardno;
  
    cardno = snd_card_name( cardname );
    if ( cardno ) {
      error( "Cannot find soundcard '%s'...", cardname );
      return 1;
    }
    soundcard_setup_init();
    if ( (err = soundcard_setup_load( cfgfile )) )
      return err;
    if ( (err = soundcard_setup_collect( cardno )) ) {
      soundcard_setup_done();
      return err;
    }
  }
  err = soundcard_setup_write( cfgfile );
  soundcard_setup_done();
  return err;
}

static int restore_setup( const char *cardname )
{
  int err, idx, cardno = -1;
  unsigned int card_mask;
  
  if ( cardname ) {
    cardno = snd_card_name( cardname );
    if ( cardno < 0 ) {
      error( "Cannot find soundcard '%s'...", cardname );
      return 1;
    }
  }
  card_mask = snd_cards_mask();
  if ( !card_mask ) {
    error( "No soundcards found..." );
    return 1;
  }
  soundcard_setup_init();
  for ( idx = 0; idx < 32; idx++ ) {
    if ( card_mask & (1 << idx) ) {	/* find each installed soundcards */
      if ( (err = soundcard_setup_collect( idx )) ) {
        soundcard_setup_done();
        return err;
      }
    }
  }
  if ( (err = soundcard_setup_load( cfgfile )) )
    return err;
  err = soundcard_setup_process( cardno );
  soundcard_setup_done();
  return err;
}

int main( int argc, char *argv[] )
{
  int morehelp;
  struct option long_option[] = {
    { "help", 0, NULL, HELPID_HELP },
    { "file", 1, NULL, HELPID_FILE },
    { "debug", 0, NULL, HELPID_DEBUG },
    { "version", 0, NULL, HELPID_VERSION },
    { NULL, 0, NULL, 0 },
  };

  morehelp = 0;
  while ( 1 ) {
    int c;
          
    if ( ( c = getopt_long( argc, argv, "hf:dv", long_option, NULL ) ) < 0 ) break;
    switch ( c ) {
      case 'h':
      case HELPID_HELP:
        morehelp++;
        break;
      case 'f':
      case HELPID_FILE:
        strncpy( cfgfile, optarg, sizeof( cfgfile ) - 1 );
        cfgfile[ sizeof( cfgfile ) - 1 ] = 0;
        break;
      case 'd':
      case HELPID_DEBUG:
        debugflag = 1;
        break;
      case 'v':
      case HELPID_VERSION:
        printf( "alsactl version " VERSION "\n" );
        return 0;
      default:
        fprintf( stderr, "\07Invalid switch or option needs an argument.\n" );
        morehelp++;
     }
  }
  if ( morehelp ) {
    help();
    return 0;
  }            

  if ( argc - optind <= 0 ) {
    fprintf( stderr, "alsactl: Specify command...\n" );
    return 1;
  }
  if ( !strcmp( argv[ optind ], "store" ) ) {
    return store_setup( argc - optind > 1 ? argv[ optind + 1 ] : NULL );
  } else if ( !strcmp( argv[ optind ], "restore" ) ) {
    return restore_setup( argc - optind > 1 ? argv[ optind + 1 ] : NULL );
  }

  return 0;
}